IBM 5150 - Page 209

lOC OBJ LINE SOURCE
ESIE 884000
E521 8E08
f523 B04t1
£525 E661
E527 BOFF
E529 £621
f5za B086
£520 £643
ESZ' 860304
£532 (642
!534 8AC4
£536 £642
E538 £462
f53A 2410
f5X 1.26800
E53F E83E14
ESifZ £83814
ES45 E30C
£547 81F84005
E54B 7306
£540 61F81004
E551 7309
E553
E553 BEABE4
E556 B90300
£559 £86EOI
ESSC
ESSC 80Ft
ESSE £621
E560 1.01000
E563 1.801
E565
7503
E567 E98900
£56A
E56A Boee
E56C £621
E56£ 8400
£570 CDn
f572 F6C4FF
f575 7520
£577 BAF201
£57. eOIC
f57C EE
ES7D 28C9
E57F
E51F E2FE
E581
E581 ElFE
E583 3302
1045 J ------ --- -----------------------------------
1046 ;TEST.Il
1047 CASSETTE DATA WRAP TEST
1048 .DESCRIPTION
1049 , TURN CASSETTE MOTOR OFF. WRITE A BIT OUT TO THE CASSETTE DATA BUS.
1050 VERIFY THAT CASSETTE DATA READ IS WITHIN A VALID RANGE.
1051 ; -- -------- --- -------------------------------
1052
1053 TURN THE CASSETTE HOTOR OFf
1054
1055
NOV AX,DATA
;POINT OS REG TO DATA SEG
1056
HOV
OS,AX
1057 HOV AL,04DH
; SET TIMER
2: SPK OUT, AND CASST
1058
OUT
PORT_B.U
jOur BITS ON. CASSETTE MOT OFf
1059
lObO WRITE A BIT
1061
1062
I10V AL.OffH
;DISABLE TIHER INTERRUPTS
1063 OUT nlTMI,AL
1064 NOV AL.OB6H
iSEL TIM 2, LSB, t1S8, l1D 3
106S OUT
TltIER+3,AL
jWRlTE 8253 CMD/MODE REG
1066
NOV
AX, 1235
;5ET TIMER 2 CNT fOR 1000 USEC
1067 OUT TIMEFh2.Al
;WRITE TIMER 2 COUHTER REG
106a HOV AL,AH
;WRITE
HSB
1069 OUT TIMER+2,AL
1070
1071
READ CASSETTE INPUT
1072
1073 IN
AL,PORT_C ;READ VAWE OF CASS IN BIT
1074
AND AL~ I OH
; ISOLATE FRctI OTHER BITS
107$
NOV
LAST_VAl,AL
1076
CALL
READ_HALF _BIT
1077
CALL
READ_HALF _BIT
1078
JCXZ fa
; CAS_ERR
1079
CN"
BX.MAX_PERIOD
1080 JNC
fa i CAS_ERR
1081 CHP
BX,MIN_PERIOD
1082
JNC
f9
;GO
TO NEXT TEST IF OK
1083
Fa: ) CAS_ERR:
I ...
HOV
SI.OfFSET F2
iCASSETTE
WRAP FAIlED
lOSS NOV
CX,f2L
1086
CALL
P_MSG ;GO
PRINT ERROR MSG
1087 ; --------- --- --------------- -----------------
1088 iTEST.14
1089 DISKEnE ATTACHMENT TEST
1090 lDESCRIPTION
1091 CHECK IF IPL DISKETTE DRIVE IS ATTACHED TO SYSTEM. IF ATTACHED.
1092 VERIFY STATUS OF NEC FDC AFTER A RESET. ISSUE A RECAL AHD SEEK
1093
CHO TO FDC AND CHECK STATUS. COI1PLETE SYSTEI1 INITIALIZATION THEN
1094
PASS CONTROL TO THE BOOT LOADER PROGRAJ1.
1095
l--------------------------------------------
1096 F9:
1097 MOV
AL.OFCH
;ENABLE TIMeR
AND KeD INTS
1098
OUT INTAOI,Al
1099 MOV AL.BYTE PTR EQUIPJLAG
;GET SENSE SWS INFO
1100
TEST
AL.OIH
;IPL DISKETTE DRI .... E AHCH?
1101
JNZ
fl.
;YES - TEST DISKETTE CONTR
1102 JNP .NO - SKIP THIS TEST
, ..
1103
FlO: ; DISK_TEST:
1104 MeV
AL,OSCH ; ENABLE DISKETTE I KEYBOARD,
1105 OUT INTAOt,AL
; AND TINER INTERRUPTS
1106 HOV
AH ,0 ;RESET flEC FOC
1107
INT
BH
iVERIfY STATUS AFTER RESET
1108
TEST AH.OFFH
;STATUS
OK?
1109
JNZ iNa - FDC FAILED
fl'
1110
1111
TURN DRIVE 0 MOTOR ON
1112
1113 NOV OX.OlF2H
; GET AODR OF FOC CARD
1114 HOV
AL.ICH
;TURN MOTOR ON, EN DHA/IHT
1115 OUT DX,AL
il,JRITE FOC CONTROL REG
1116 sua
CX,CX
1117
F11: ; NOTOR_WAIT:
1118
LOOP
fll
;WAIT FOR 1 SECOND
1119
F12: I HOTOICWAITl:
1120
lOOP
fl2
1121
XOR
DX,OX
;SELECT DRIVE 0
A-16