IBM 5170 Technical Reference page 210

; -- .. ----- COM PAT 1BlE COLOR
0070
0080
BB 0028
8E DB
"OV
MOV
BX, C_CCRT _PTR
OS,BX
SET OS TO COMPATIBLE COLOR RAM
00B2 E8 0098 R CALL PROT_PRT
; -------­ ENHANCED COLOR
0085 BB 0030 MOV ax, E_CCRT_PTR ENHANCED COLOR
0088
008A
8E DB
E8 0098 R
MOV
CALL
oS,BX
PROT PRT
0080 BB 0038 MOV BX, E=CCRT_PTR2 ENHANCED COLOR PTR HI
64"
0090 8E DB MOV OS,BX
0092 E8 0098 R CAll PROT_PRT
0095
5B POP BX
0096
1F
POP DS
0097
C3 RET
0098
PROT_PRT:
0098 57
PUSH
DI
SAVE DISPLACEMENT
0099 01 C7 ROL 01,1
MUll *2
0098
0090
88 05
5F
MOV
POP
os: [olj,AL
DI
WRITE TO CRT BUFFER
RESTORE 0 I SPLACEMENT
009E
C3
RET
009F
PROT
-
PRT_HEX ENDP
009F PROC_SHUTDOWN PROC
009F
60 FE MOV AL, SHUT_CMo SHUTDOWN COMMAND
OOA'
E6 64 OUT STATUS_PORT ,Al
00A3
F4 PROC_S; HLT
00A4
00A6
EB FO JMP
PfWC_SHUTDOWN
~~g~_s
INSURE HALT
OOA6
CODE ENDS
END
5-68 Test 3