IBM 5170 Technical Reference page 183

CONVERT ~O-OF TO ASC I I CHARACTER
0543
0545
01. 90
27
PR: AOO
OM
AL,090H
ADD FIRST CONVERSION FACTOR
ADJUST FOR NUMER I C AND ALPHA RANGE
0546
05/l8
1 1 • 40
27
AOC
OM
AL,040H
ADD CONVERS I ON AND ADJ UST LOW NIBBLE
ADJUST HIGH NIBBLE TO ASCHI RANGE
0549
054fl
05/IE
88 05
26: 88 05
In
MOV
MOV
INC
OS:[OIj,AL
ES:[OIj,AL
01
WRITE TO COLOR BUFFER
WR I TE TO MONO BUffER
PO I NT TO NEXT POST I TON
054F
0550
47
C3
INC
RET
01
; ------­ 0 I SPLAY 20' ERROR
0551
0553
0555
0558
BO 20
88 05
26: 88
05
47
MOV
MOV
MOV
INC
AL, '
OS:[DI],AL
ES: [01 ],Al
01
DISPLAY A BLANK
WRITE TO CRT BUFFER
WRITE TO MONO BUFFER
PO I NT TO NEXT POST I TON
0559
055A
47
BO 32
INC
MOV
01
AL
'2'
DISPLAY 201 ERROR
055C
055E
0561
88 05
26: 88 05
47
MOV
MOV
INC
OS;[OI ],AL
ES:[DI],AL
01
WRITE TO CRT BUFFER
WRITE TO MONO BUFFER
POINT TO NEXT POSTITON
0562
0563
0565
0567
056A
47
BO 30
88 05
26: 88 05
47
INC
MOV
r"lov
MOV
INC
01
AL
'0'
OS; [Olj,AL
ES:(OI],AL
01
WRITE TO CRT BUFFER
WRITE TO MONO BUFFER
PO I NT TO NEXT POST I TON
0568 47 INC 01
056C
056E
0570
BO 31
88 05
26:
88
05
MOV
MOV
MOV
AL ' , '
DS;[DI),AL
ES:[DIj,AL
WR I TE TO CRT BUffER
WRITE TO MONO BUFFER
;-------- ROLL ERROR CODE IN MFG_PORT --> FIRST THE CiiECKPOINT
0573
0575
80 DO
E6 80
C3'_O: MOV
OUT
AL,OODH
MFG_PORT,AL
<><><><><><><><><><><><><>
<><><>CHECI<.PO I NT DO <><><>
0577
0579
E6 83
2B C9
OUT
SUB
MFG PORT+3,AL
cX,ex
ALSO 0 I SPLAY CHECI<. PO I NT I N PORT 83
057B
057B 2B CO SUB AX,AX
SETUP SEGMENT
0570 8E 08 MOV OS,AX
057F B8 AA55 MOV AX,OAA55H
WRITE AN AA55
0582 2B FF SUB 01,01
0581l
0586
0588
89 05
88 05
E2 Fl
MOV
MOV
LOOP
DS:[OI],AX
AX,OS:[DI]
C31_A
READ THE FIRST WORD
DISPLAY CHKPT LONGER
05SA
058A
058C
89 05
88 05
I~OV
MOV
DS:[Dlj,AX
AX,DS: [01
J
058E E2 FA LOOP C3'_B
0590
0590
0592
0594
89 05
88 05
E2 FA
MOV
MOV
LOOP
DS:[DI],AX
AX,OS: (01
J
C31_C
0596
0596 89 05
MOV OS:[DIJ,AX
0598
059A
8B 05
E2 FA
MOV
LOOP
AX,OS: [01]
C3,_0
059C
059C 89 05 MOV
os:
[01
LAX
059E 88 05 MOV AX,OS:[Otj
05AD E2 FA LOOP C31_E
;-------- ROLL ERROR CODE IN MFG_PORT --> NEXT THE HIGH BYTE
05A2 E4 81 IN AL,MFG PORT+'
XQR OF FAILING BIT PATTERN
05A4 £6 80
OU-;­ MFG_PORT, AL
HIGH
BYTE
05A6
05A6 88 AA55 MOV AX,OAA55H WR I TE AN AA55
05A9
05AB
89 05
8B 05
MOV
MOV
OS:IDI],AX
AX,OS:[Dlj
READ THE FIRST WORD
05AD 'E2 F7 LOOP C31_G
05AF
05AF
0581
89 05
8B 05
MOV
Mev
OS:[D!j.AX
AX,DS:[Dlj
05B3 E2 FA LOOP C3'_H
0585
0585 89 05 MOV OS:[OI],AX
0587 88 05 MOV AX,DS:{DI]
0589 E2 FA LOOP C31_1
;-------- ROLL ERROR CODE IN MFG_PORT --> THEN THE LOW BYTE
058B E4 82 IN AL,MFG PORT+2 LOW BYTE
0580 E6 80
OUT
MFG PORT,AL
05BF B8 AA55 MOV AX,OAA55H WRITE AN AA55
05C2 2B FF C3l_l<.: SUB 01,01
05c4
05C6
05C8
89 05
8B 05
E2 F6
MOV
MOV
LOOP
OS:[Otj,AX
AX,OS:[Dlj
e31_K
READ THE FIRST WORD
05CA
05CA
05CC
89 05
8B 05
MOV
MOV
os:
(Ot LAX
AX,DS:(Dlj
05CE E2 FA LOOP C31_L
0500
0500
0502
89 05
88 05
MOV
MOV
OS: (01
LAX
AX,OS:[DI)
0504 E2 FA LOOP C31_M
0506
0506
0508
89 05
88 05
MOV
MOV
OS:[OI],AX
AX,OS: [01]
050A
050C
E2 FA
EB 95
LOOP
JMP
C3'_N
C3,_0
DO AGAIN
05DE 0526 R
OW Z1 TEMP STACK
05£0 0530 R
OW
Z2
TEMP STACK
05£2 053C R
ow
Z3
TEMP STACK
05£4 0551 R
ow
Z4 TEMP STACK
; ------- CLEAR STORAGE ENTRY
05£6 CLR_STG:
ASSUME DS:OATA
05E6 F3/ AB
REP
STOSW STORE 321<. WORDS OF 0000
05E8 88 ---- R
MOV AX, DATA RESTORE DATA SEGMENT
05EB BE 06 MOV DS,AX
05£0 89'
E
0072 R
MOV
RESET_FLAG,BX RESTORE RESET FLAG
;----- SETUP STACK SEG AND SP
05Fl B8 ---- R e33:
MOV AX, DATA SET DATA SEGMENT
05F4 8E 08 MOV OS,AX
05F6 BC 0000
MOV
SP, POST SS GET STACI<. VALUE
05F9 8E 04
MOV
SS, SP - SET THE STACK UP
Test 1 5-41