IBM 5170 Technical Reference page 204

0715 [2
F[ LOOP
Fll
WA I T FOR I SECOND
0717
FE CA
DEC Dl
DECREMENT OUTTER LOOP
0719
75 FA JNZ
Fll
071 B 33 02
SELECT DR I VE 0
0710
[3~i
01 SELECT TRACK 1
071F
88
lG 003E R
0723 EEl 0000 E "ECALI BRATE 0 I Sf<.ETTE
0726 72 07 GO TO ERR SU8ROUT I NE I F ERR
072El 85 22
SELECT TRACK 34
072A EEl 0000 E
SEEk TO TRACK 34
0720 73 08 OK, TURN MOTOR OFr
072F F13:
DSK_ERR:
072F 80 OE 0016 R 40
OR MFG_ERR_FLAG+l , OSK_F A I L ; <><><><><><><><><><><><><><><>
; <><> 0 I SKETTE FAI LED<><><><><>
0734 BE 0000 E
MOV SI,OFFSET F3
GET
AODR OF MSG
0737 E8 0000 E
CALL E_MSG GO PR I NT ERROR MSG
; ----- TURN DR I YE
0
MOTOR OFF
073A F14:
ORO OFF:
073A BO UC
MOV TURN DR I VE 0
~10TOR
OF F
073C
8A 03F2 MOV FOC CTL ADDRESS
073F [E OUT
SETUP KEYBOARD PARAMETERS
0740
C6 06 006B R 00 F15: MOV INTR FLAG, DOH SET STRAY INTERRUPT FlAC '" 00
074:>
IJE 001 E R MOV S I ,OFFSET KB_8UFFER
SETUP KEY130ARO PARAMETERS
0748 89 36 OOlA R
MOV
BUFFER HEAD, SI
074C 89 3G OOlC R
MOV
BUFFER=:TAIL, S I
0750 89 36 0080 R
MOV BUFFER START, SI
0754 83 CG 20 ADS
SI,32 - ;OEFAULT BUFFER OF 32 BYTES
0757 89
3G
0082 R MOY BUFFER_END, S I
;-------- SET PRINTER TIMEOUT DEFAULT
075B 8F 0078 R
MOV 01 ,OFFSET
PRjNT~TIM_OUT
;SET DEFAULT PRINTER TIMEOUT
075E lE PUSH OS
075F
07 POP ES
0760 BEl 1414 MOY AX,1l114H ; OEFAULT=20
0763 AS
STOSW
0764
AS
STaSh'
;--~----- SET 4S232 DEFAULT
0765 B8 0101
AX,OlOlH ;RS232 DEFAULT=Ol
076El AS
0769 AB
ENABLE TIMER INTERRUPTS
076A E4 21
IN
AL, I ~TAOl
076C 2" FE
ANS
Al,OFEH
ENABLE T I MER AND KB I NTS
076E EB
DO
J~1
P
SHORT $+2
10 DELAY
0770 E621 OUT
INTA01,AL
;------- CHECK CMOS BATTERY/CHECKSUM
0772
F6 06 0012 R 20 TEST LOOP_POST MFG JUMPER?
0777 75 03
JNZ GO I F NOT
0779 E9 0858 R JMP
BYPASS
I
F YES
077C BO 8E Bl_0K: MOV AL,OIAG STATUS
077E E6 70 OUT CMOS PORT, AL
0780
[5 UO JMP SHORT $+2
0782 r4 71 IN AL, CMOS PORT+l
0784
24 EO
AND
AL,OEOH­
0786
74 16 JL C OK
0788 A8 80 TEST AL,8011
07BA BE 0000 E
MOY
S I ,OFFSET Cl'l1
0780 74 06 J7 B2 OK
078F EEl 0000 E CALL
E MSG
0792 EB 62 90
JI~P
H=:OK1A
0795
0795
I3E 0000 E CN2
0798
E8 0000 E
079B
[IJ
~9
90
TEST CLOCK UPDATING
079E B3 03
C_OK: I~OV flL,0311 OUTER lOOP COUNT
07AO 2fl C9 D_OK: SUI3 CX,CX
I NNER LOOP COUNT
O-fA? 130 8A E_OK: MOV AL, ClK_UP GET THE CLOCK UPDATE BYTE
07A}t
E6 70 OUT cr~OS_PORT, AL
U7A6 EB 00
JMP SHORT $+2 10 DELAY
07A8 Ell 71 IN AL, CMOS_PORT+l
07AA A8 80
TEST AL,80H CHECK FOR UPDATE IN PROGRESS
07AC 75 25 JNL
G
OK
GO I F YES
07AE E2 F2
LOOP TRY AGAI N
E-OK
07BO FE CB DEC DEC OUTER LOOP
07B2 75 EC
JNL
o
OK
TRY AGAIN
07Blj
BE 0000
F_OK: MOV ST,OFFSET
CI~3
PRINT MSG
07B7 E8 0000 CALL
E_I~SG
"L
SET CMOS DIAG_STATUS 04 (CLOCK ERROR)
07BA BO 8E
07BC EG 70
07HE 86 c4
07CO
EB 00
07C2 Ell 71
STATUS
07C4 OC OIl
07C6 B6 C4
AND SAVE NEW STATUS
07C8 E6 70
07CA 86 C4
07CC EB
ou
07CE E6 71
0700 EB 12 90
;
---~----
CHECK CLOCK UDATE
0703 B9 0258 MOV CX,600
LOOP COUNT
070G
BO BA MOV AL,CLK_UP CHECK FOR OPPOSITE STATE
0708
E6 70 OUT CMOS_PORT, AL
070A EB 00
JMP SHORT $+2
10 DELAY
07DC Ell 71
IN
AL,CMOS PORT+l
07DE
A8 80 TEST AL,8aH ­
07EO EO F4
LOOPNL I OK TRY AGAI N
07E2 E3 DO
JC)(z
COK
PR I
NT
ERROR 1FT I MEOUT
;-------- CHECk MEMORY SIZE DETERNINED "" CONFIG
07E4
07[4 BO BE
MOV
GET THE STATUS BYTE
07[6 EG 70 OUT
5-62 Test 2