IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

LOC OSJ LINE SOU RCE
E42B 7440 900 JE "2 iYES - SKIP MEMORY TEST
901
902 TEST ANY OTHER REAOIWRITE STORAGE AVAILABLE
903
E42D ee0004 90. MOV eX,400H
E430 B91000 905 MOV CX,16
E433 906 E21 :
E433 3801 907 CHP oX,ex ,ANY HORE STG TO BE TESTED?
E435 7646 908 JBE E23 iNO - GO TO NEXT TEST
E437 SEDS 909 HOV OS,BX iSETUP STG ADDR IN OS AND ES
E439 8EC3 910 MOV ES,BX
E43B 83C110 911 ADO CX,16 ;ItlCREMENT STG BYTE COUNTER
E43E 81C30004 912 ADD BX, 400H i SET POINTER TO NEXT 16K BLK
E442 51 913 PUSH CX iSAVE REGS
E443 53 91. PUSH BX
E444 52 915 PUSH OX
E445 E8DlFS 916 CALL STGTST iGO TEST A 16K BLK OF STG
E448 SA 917 POP OX
E449 5B 918 POP BX iRESTORE REGS
E44A 59 919 POP CX
E44B 74E6 920 JE E21 jCHECK IF MORE STG TO TEST
921
922 PRINT FAILING ADDRESS AND XOP'EO PATTERN IF DATA COMPARE EPROP
923
E440 eCOA 92. MOV OX.DS jCONVERT FAILING HIGH-ORDER
E44F SAf8 925 MOV CH.AL iSAVE FAILING BIT PATTERN
E451 8AC6 926 MOV AL.DH iGET FAILING ADDR (HIGH BYTE)
E453 BI04 927 MOV CL,4
E455 02E8 928 SHR AL.CL jRIGHT-JUSTIFY HIGH BYTE
E4S7 E83EOO 929 CALL XLAT_PPINT_CODE ;CONVERT AND PRINT CODE
E4SA BAC6 930 MOV AL,OH
E45C 240F 931 AND AL,OFH
E4Sf E83700 932 CALL XLAT_PRINT_CODE ; CONVERT AND PRINT CODE
E461 8ACS 933 HOV AL,CH ;GET FAILING BIT PATTERN
E463 BI04 93. HOV CL,4 i AND ISOLATE LEFTMOST NIBBLE
E465 o2E8 935 SHR AL,CL
E467 E82EOO 936 CALL XLAT_PRINT_CODE iCONVERT AND PRItlT CODE
E46A 8ACS 937 HOV AL,C!~ ;GET FAILING BIT PATTERn AND
E46e 2.40F 93. AND AL,OFH ; ISOLATE RIGHTMOST tHBBLE
E46E f82700 939 CALL XLAT_PRWT_COOE ICONVERT AND PRINT CODE
E471 BEESE! 940 HOV SI.OfFSET EI ;SETUP ADDRESS OF ERROR MSG
E474 B90400 9'1 tlOV CX.EIL I GET MSG BYTE coum
E477 E85002 9'2 CALL P_MSG ; FRINT ERROR MSG
E47A 943 E22: ; GO_TST12!
E47A E94AOO 94. JMP TST12 IGO TO NEXT TEST
E470 945 E23: j STG_TEST.ODtIE:
E410 884000 946 MOV AX,OATA jPOINT 05 TO DATA SEGMENT
E480 8ED8 9.7 MOV OS,AX ; CHG MADE 3127161
E482 8B161500 9.8 MOV OX , IO_PAM_SIZE lGET 10 CHANNEL RAM SIZE
E486 OB02 9'9 OR OX,DX ; SET FLAG PESUL T
E488 74FO 950 Jl En ;tlO 10 RAM. GO TO NEXT TEST
E48A 890000 951 MOV CX,O
E480 81FBOOIO 952 eMP eX,lOOOH jHAS ID RAM BEEN TESTED
E491 77E7 953 JA E22 ; YES - GO TO ~lEXT TEST
E493 BBOOIO 95. MOV BX,IOOOH ; SETUP BEG lOC FOR 10 RAM
E496 EB9B 955 JMP SHORT E21 ;GO TEST 10 CHANNEL RAM
956 ; ---------­-------­••------­----------------­
957 CONVERT AND PRINT ASCII CODE
958
959 AL MUST CONTAIN NUMBER TO BE CONVERTED.
960 AX AND BX DESTROYEO.
961 i ---------------------­---------------------­
E498 962 XLAT_PRINT_CODE PROC NEAR
E498 IE 963 PUSH OS ;SAVE OS VALUE
E499 DE 96. PUSH CS j POINT OS TO CODE SEG
E49A IF 965 POP OS
E498 [lBB7E4 %6 MOV 6X.OE4B7H ; OFFSET ASCII_T6l-XLAT TABLE
E49E 07 967 XLATB
E49F B40E 968 MOV AH,14
E4Al B700 969 MOV CH,O
E4A3 COlO 970 WT IDH ;CALL VIDEO_IO
E4A5 IF 971 POP 05 ;RESTORE ORIG VALUE IN OS
E4A6 C3 972 RET
A-14