IBM 5150 Hardware Reference Manual 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
f l '
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