IBM XT 5160 - Page 240

SETUP PRINTER AND RS232 BASE ADDRESSES IF DEVICE ATTACHED
5-93
; SETUP RS232 CD '1 ADDR
WAIT FOR 'Fl' KEY
ENABLE TI MER AND KB I NTS
CLEAR SCREEN
PRT _SRC_ TBL
BYPASS ERROR
MFG MODE
BYPASS BEEP
I SHORT BEEP (NO ERRORS)
GET
SW ITCHES
'LOOP POST' SW I TCH ON
CONT I NUE WITH BR lNG-UP
ALL POSS I BLE ADDRS CHECKED?
PRT BASE
POINTER TO RS232 TABLE
CHECK IF RS232 CD 1 ATTCH?
READ I NTR I 0 REG
; PO I
NT TO NEXT BASE ADDR
;RS232 DEFAUL T=O I
;
PRT BASE:
; GET-PR I NTER BASE ADDR
WRITE DATA TO PORT A
; BUS
SETTLE I NG
; READ PORT A
CHECK FOR
BP= NON ZERO
(ERROR
HAPPENED)
CONT I NUE I F NO ERROR
2 SHORT
BEEPS (ERROR)
; LOAD ERROR MSG
SEQUENCE END ENTRY I F NO ERROR
ZERO S I I F
NO ERROR
SEQUENCE END ENTRY I F ERROR
; TURN
DR I VE 0 MOTOR OFF
; FDC CTL ADDRESS
; I NIT I AL I ZE 0 I SKETTE PARMS
;
CY - ->0 I SKETTE SETUP ERROR
; PREV
10US 0 I SKETTE ERROR
;
NZ-->D I SKETTE ERROR BEFORE SETUP
; GET ADDR OF
MSG
; GO PR I NT ERROR MSG
; WA I T FOR 1 SECOND
; MOTOR_WA I T I :
;
SELECT DR I VE 0
;
SELECT TRACK 34
RECAL I BRATE 0 I SKETTE AND SEEK TO 34
OK--> GO TURN OF MOTOR
DISKETTE ERROR
GET ADDR OF
MSG
oI SPLAY MESSAGE AFTER 0 I SKETTE SETUP
1-10
01-10-86
POST (01/10/86)
AX,O I 0 I H
AL,INTAOI
AL,OFCH
INTAOI,AL
DX,2FAH ; CHECK IF RS232 CD 2 ATTCH
AL ,OX ; READ I NTERRUPT 10 REG
AL,OF8H
F 19 ; BASE END
[ORS232 BASE-DATA40] [BX], 2F8H - ; SETUP RS232 CD '2
BX -
SI, SI
AH,OO
16H
AH,3BH
ERR WA IT
F15A
01 NTR FLAG, OOH SET STRAY I NTERRUPT FLAG = 00
S I ,OFFSET OKB BUFFER SETUP KEYBOARD PARAMETERS
OBUFFER HEAD,S I
OBUFFER-T A I L, S I
OBUFFER-START, S I
S I
,32 - ; DEF AUL T BUFFER OF 32 BYTES
OBUFFER END, S I
01 ,OFFSET OPR I NT TIM OUT ; SET DEF AUL T PR INTER TIMEOUT
OS - -
ES
AX,1414H ; DEFAULT=20
BP, OFFSET F4
S 1,0
BP
BP
BP,OFFSET F4E
F16
BX,O
DX,3FAH
AL,DX
AL,OF8H
F18
[ORS232 BASE-DATA40] [BX] ,3F8H
BX -
BX
OMFG TST, I
FI5A-
DX,I
ERR BEEP
AL ,BYTE PTR OEQU I P FLAG
AL, 0000000 1B -
FI5B
START
AH,AH
AL ,OCRT MODE
10H -
DX,CS: [BP]
AL,OAAH
DX,AL
OS
AL,DX
OS
AL,OAAH ; DATA PATTERN SAME
F
11 ; NO - CHECK NEXT PRT CD
[OPRINTER BASE-DATA40][SI) ,OX ; YES - STORE PRT BASE ADDR
S I - ; I NCREMENT TO
NEXT WORD
SI
AL,OCH
DX,03F2H
DX,AL
BP,OOOO
FI5A 0
DX,2-
ERR BEEP
S I ,OFFSET F3D
P_MSG
S I
,OFFSET F3
E_MSG
XOR
MOV
CALL
MOV
MOV
OUT
;-----SETUP DISKETTE STATES
CALL DSKETTE SETUP
JC FI4B-
OR SI,SI
JZ F15
F15:
MOV
MOV
MOV
MOV
MOV
ADD
MOV
MOV
PUSH
POP
MOV
STOSW
STOSW
MOV
STOSW
STOSW
IN
AND
OUT
CMP
JE
MOV
CALL
MOV
CALL
ERR_WAIT:
MOV
INT
CMP
JNE
JMP
FI5A_0:
CMP
JE
MOV
CALL
FI5A:
MOV
AND
JNZ
JMP
FI5B: SUB
MOV
INT
FI5C:
MOV
MOV
F16:
MOV
MOV
OUT
PUSH
IN
POP
CMP
JNE
MOV
INC
INC
F11:
INC
INC
CMP
JNE
MOV
MOV
IN
TEST
JNZ
MOV
INC
INC
F18:
MOV
IN
TEST
JNZ
MOV
INC
LOOP
F12:
LOOP
FI2
XOR
DX,DX
MOV
CH,34
MOV
OSEEK_STATUS ,DL
CALL
SEEK
JNC
F14
F13:
MOV
S I ,OFFSET F3
JMP SHORT F14A
FI4B:
FI4A:
; ----- TURN DR I VE 0 MOTOR OFF
F14:
1022 05A3 E2 FE
1023 05A5
1024 05A5 E2 FE
1025 05A1 33 02
1026 05A9 B5 22
1021 05AB 88 16 003E R
1028 05AF E8 0000 E
1029 05B2 13 05
1030 05B4
1031 05B4 BE 0990 R
1032 05B1 EB 02
1033
1034
1035
1036
05B9
1031 05B9 33 F6
1038 05BB
1039 05BB BO OC
1040 05BD BA 03F2
1041 05CO EE
1042
1043
1044
1045 05C 1 E8 0000 E
1046 05C4 12 04
1041 05C6 OB F6
1048 05C8 14 06
1049 05CA
1050 05CA BE 0990 R
1051 05CD E8 1916 R
1052
1053
1054
1055
0500
1056 0500 C6 06 006B R 00
1051 0505 BE 001E R
1058 0508 89 36 001 A R
1059 05DC 89 36 00 I C R
1060 05EO 89 36 0080 R
1061 05E4 83 C6 20
1062 05E1 89 36 0082 R
1063 05EB BF 0018 R
1064 05EE IE
1065 05EF 01
1066 05FO B8 1414
1061 05F3 AB
1068 05F4 AB
1069 05F5 B8 0101
1010 05F8 AB
1011 05F9 AB
1012 05FA E4 21
1013 05FC 24 FC
1014 05FE E6 21
1015
1016
0600 83 FD 00
1011
1018 0603 14 18
1019 0605 BA 0002
1080 0608 E8 19A5 R
1081 060B BE 0169 R
1082 060E E8 1991 R
1083 0611
1084 061 1 B4 00
1085 0613 CD 16
1086 0615 80 FC 3B
1081 0618 15 F1
1088 061 A EB OE 90
1089 0610
1090 0610 80 3E 0012 R 01
1091 0622 14 06
1092 0624 BA 0001
1093 0621 E8 19A5 R
1094 062A AO 0010 R
1095 0620 24 0 I
1096 062F 15 03
1091 0631 E9 005B R
1098 0634 2A E4
1099 0636 AO 0049 R
1
100 0639 CD 10
1101 063B
1102 063B BD 1910 R
1
103 063E BE 0000
1104 0641
1105 0641 2E: 8B 56 00
1 106 0645 BO AA
1I010641EE
1108 0648 IE
1109 0649 EC
1 1
10 064A 1F
1 1 I 1
064B 3C AA
1 I 12 0640 15 05
1 1 13 064F 89 54 08
1114 0652 46
I I 15 0653 46
I I 16 0654
I I 11 0654 45
1118 0655 45
1 1 19 0656 81 FD 1916 R
I
120 065A 15 E5
1 121 065C BB 0000
1 122 065F BA 03FA
1123 0662 EC
I
124 0663 A8 F8
I 125 0665 15 06
1126 0661 C1 01 03F8
1121 066B 43
1128 066C 43
1129 0660
I 130 0660 BA 02FA
1131 0610 EC
1132 0611 A8 F8
1133 0613 15 06
1134 0615 C1 01 02F8
1135061943
IBM Personal Computer MACRO Assembler Version 2.00
POST ----- 01/10/86 SYSTEM POST AND BIOS PROCEDURES