IBM 5170 Technical Reference page 203

0651
0653
eo 3A
E6 80
F?: Mav
aUT
AL,3AH
MFG_PORT, AL
; <><><><><><><><><><><> <><><>
; <><><>CHECKPO I
NT 3A
<><><><>
065~
80 FF Mav AL,OFFH o I SABLE INTERRUPTS
0657
0659
E6 21
FA
aUT
CLI
INTA01,AL
065A
eo
60
Mav
AL.60H
WR I
TE 8042 RAM COMMAND
065C
[8 0000 E
CALL C8042
I SSUE THE COMMAND
065F
BO 45 MOV
AL,4SH
SET SYSTEM FLAG - OUTeUF INT -
0661 E6 60
OUT PORT_A,Al
SYSTEM FLAG - PC 1 COMPATAB I LI TY
RESET INHIBIT OVER RIDE
; ------­ oEGAl[ ADDRESS LINE 20
0663 B4 DO MOV AH,OISABLE_BJT20 SET COMMAND IN AH
0665 E8 0000 E CALL GATE_A20
I SSUE THE COMHANO
;------- SETUP HARDWARE INT VECTOR TABLE LVL 0-7
0668
066A
066C
2B CO
BE
CO
B9 0008
SUB
Mav
Mav
AX,AX
ES,A}(
CX,08 GET VECTOR CNT
066F OE PUSH CS SETU P OS SEG REG
0670 1F
pap
OS
0671 BE 0000 E Mav 5i,OFFSET VECTOR_TABLE
0674 BF 0020 R
Mav ol,OFFSET INT_PTR
0677 A5 F7A: MOVSW
0678
0679
47
47
INC
INC
01
01
; SK I P OVER SEGMENT
067A E2 FB
LOOP
F7A
;_MM ____ SETUP HARDWARE INT VECTOR TABLE LVL
8~15
(VECTORS START AT INT SOH)
067C
067[
0680
0683
213 CO
8E CO
89 0008
OE
SUB
Nav
Mav
PUSH
AX,AX
[S,AX
CX,08
CS
;
;
GET VECTOR CNT
SETUP OS SEC REG
0684 1F
pap as
0685 BE 0000 E Mav
51
,OFFSET SLAVE_VECTOR_TA8LE
0688
068B
BF OlCO R
A5
F7Al :
MOV
MOVSW
OI,OFFSET SLAVE_INT_PTR
068C 47 INC 01 ; SK I P OVER SEGMENT
0680 47
INC 01
068E
E2
fI)
LOOP F7Al
;----~ SET UP OTHER INTERRUPTS AS NECESSARY
ASSUME OS: ABSO
0690 213 CO SUB AX,AX 05=0
0692 BE 08 MOV
oS,AX
0694
069A
C7 06 0008 R 0000 E
C7 06 0014 R 0000 E
NOV
MOV
NMI_PTR,OFFSET NMI_INT
I NTS_PTR, OFFSET PR
f
NT_SCREEN
NMI INTERRUPT
PR JNT SCREEN
06AO C7 06 0062 R F600 Mav BAS I C_PTR+2, OF600H SEGMENT FOR CASSETTE BASIC
; _____ M__ ZERO RESERVED VECTORS
06A6
06A9
BF 0180
B9 OOOE
Mav
Mav
D I, 60H*4
CX,14
INT 60 THRU 67 FILL WITH ZERO
CLEAR 14 WORDS
06AC C7 05 0000 f7A2: MOV WORD PTR DS: (DI] ,0
06BO 83 C7 02 AaD
DI,2
POINT TO NEXT LOCATION
06B3 [2 F7
LOOP
F7A2
;----- SETUP TIMER 0 TO BLINK lED IF MANUFACTURING TEST MODE
06[35
06BA
OGBC
F6 06 0412 R 20
75 OA
C7 06 0020 R 0000 E
TEST
JNZ
May
OATA_AREA[MFG_TSTMDATA_basel,LOOP_POST; MFG. TEST MODE?
'9
INT_AoDR,OFfSET BlINK_INT SETUP TIMER INTR TO BLINK LED
06C2
06C4
BO FE
E6 21
Mav
aUT
AL,OFEH
INTA01,AL
ENA8LE TI MER I NTERRU PT
06C6 FB
F9: STI ALLOW INTERRUPTS
ASSUME DS;DATA
06C7
[8 0000
E CALL DDS ESTABLISH DATA SEGMENT
THE OPERATI NG SYSTEM
;-------­ ISSUE A RESET TO THE HARD FILE IF SOFT RESET
06CA
0600
81 3E 0072
R
1234
75
DE
CMP
JHZ
RESETJLAG, 1234H
F9A
SOFT RESET?
CONT I NUE I F NOT
0602
0605
B9 OOFF
SA 03F6
Mav
folOV
CX,OFFH
OX,03F6H
0608
060A
BO 04
EE
Mav
aUT
AL,04H
DX,AL
RESET
060B E2 FE
F9_A: LOOP F9 A HOLD RESET
0600 2A CO
SUB
AL~AL
060F
EE
aUT oX,Al REMOVE RESET
;
-­
~
-­
~--
-­---­----­-­----­-
---------­
-­----­-
----------
_.
­
-
-­--­
TEST.23
DISKETTE ATTACHMENT TEST
oESCR I PT i ON
CHECK IF IPL DISKETTE DRIVE IS ATTACHED TO SYSTEM. IF
ATTACHED, VERIFY STATUS OF NEC FOC AFTER A RESET. ISSUE
A RECAL AND SEEK CHo TO FDC AND CHECK STATUS. COMPLETE
SYSTEM INITIALIZATION THEN PASS CONTROL TO THE BOOT
LOAOCR PROGRAM.
; _ _ _ _ _ _ _
~
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ u _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
~
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
06EO
06E2
BO 3C
[6 80
F9A: MaY
aUT
AL,3CH
MFG_PORT. AL
; <><><><><><><><><><><><><><>
; <><><>CHECKPO I
NT 3C
<><><><>
06E4
06E6
BO 02
BA 03F?
Mav
Mav
Al,02H
OX, 3 F7H
; SET DATA RATE TO 250 K BITS
I
SEC
06E9
06EA
EE
F6 06 0010
R
01
OUT
TEST
DX,AL
BYTE PTR EQUI PJLAG,OlH ; DISKETTE PRESENT?
06EF
74 4F
JZ
Fl5
06Fl
F6 06 0012 R 20
TEST MFG_TST • LOOP_POST MFG JUMPER I NSTALLED1
06F6 74 48
JZ Fl5
GO I F YES
06F8 flO: DISK_TEST:
06F8 E4 21
IN
AL, I NTAOl
~
06FA
06Fe
EB 00
24 BF
JMP
ANa
SHORT $+2
AL,OBFH
)0
DELAY
ENABLE OJ SKETTE INTERRUPTS
06FE
0700
E6 21
84 00
aUT
MOV
INTA01,AL
AH,O RESET NEC FOC
0702
0704
8A D4
CD
13
NOV
I NT
DL,AH
13M
SET FOR DR IVE 0
VER I FY STATUS AFTER RESET
0706
F6 c4 FF
TEST AH,OFfH
STATUS OK?
0709 75 24 JHZ F13 NO .. FOC FAI LED
; ----­ TURN OR I VE 0 MOTOR ON
070B BA 03F'2 MOV oX,03F2H GET ADoR OF FoC CARD
070E eo lC Mav AL,lCH TURN MOTOR ON, EN oMA! I NT
0710
0711
EE
2B C9
aUT
SUB
DX,AL
CX,CX
WR I TE FOC CONTROL REG
0713 82 OC MOV Dl,12
WA I T 1 SECOND
0715
Fl1: MOTOR_WA IT:
Test 2 5·61