IBM 5150 Hardware Reference Manual page 207

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