Table of Contents
Advertisement
Appendix G . UT20 Listing
115
•
84 F3 C083F9;
0132
LElR GOUT20
84F6
0133
•• SUBROUTH'ES
84 F6
;
0134
•• T HIS ROUT! NE READS 1 ASCII DIGIT FROM DISK
84 F6 048573;
0135
READHX: SEP R4 ; "A (RE AD)
•• READ 1 AS C II DIGIT
84 F9 CB83F9;
0136
LBNF GOUT20
•• READ ERROR RESTART
84 FC D483FC;
0137
SEP R4; ,A (CKHEX)
•• C K
IF
HEX
84FF 05;
0138
EXIT:
SEP R5
8500
;
0139
ORG #8500
8500
;
0140
'8500
;
0141 •••••••••••• BRANCH POINTS
8500
;
0142
8500 30C6 ;
0143 EWRITE: BR WRITE
•• ENTRY TO DISK WRITE ROUTINE
..
.
"
~
8502 3073;
0144 EREAD: BR READ
•• ENTRY TO DISK READ ROUT! NE
~.
8504 3017;
0145 ETRNFR: ER TRNFR1
8506 3011;
0146 EWA IT: BR WAIT1 •• ENTRY TO SIt'lPLE WAIT ROUTI NE
8508 C08629;
0147 DER: LBR DERROR
850E C0860E;
0148 EWAITD: LBR WAIT
850E C087AO;
0149 LH'EPR: L8R PRNTRF
• • LI
N E PRINTER UTILITY
8511
0150
8511
;
0151 •••••••••••• SU8ROUTINE WAIT1
8511
;
0152
8511 E2;
0153 lolA IT1 :
SEX R2
8512 6 E;
0154
INP 6
•• G ET DISK STATUS
8513 F6 ;
0155
SHR
•• BUSY=>DF
8514 3311 ;
0156
8DF WAIT1
8516 05 ;
0157
SEP R5
•• RETURN
8517
;
0158
-
8517
0159 ••••
•
••••••• SUBROUTINE TRNFR1
•
8517
;
0160
8517 F810AF;
0161 TRNFR1 : LDI #10; PLO RF
•• 16 ERRORS ALLOWED
851A 4C52;
0162
LOA PTER; STR R2
• • GET TRK #,STORE ON
.STACK
851C
;
0163
•• POINT TO UNIT-SECT #
851C 6422;
0164
OUT 4 .
,
DEC R2
..OUTPUT THE TRACK #
851E E36511E2;
0165
SEX R3 ; OUT 5 ,#11; SEX R2
•• LOAD TRK #
8522 4 C5 2;
0166
LOA PTER; STR RLI
• • G ET UNIT-SECT #,STO
.RE
ON
STACI<'
8524
;
0167
•• POINT TO eYTE COUNT
8524 6422;
0168
OUT 4; DEC R2
• .OUTPUT Uf','IT-SECT #
8526 E36521;
0169
SEX R3;OUT 5 ,# 21
•• LOAD UNIT-SECT #
8529 C4C4C4C4;
0170
NOP; NOP; NOP; NOP
• .WAIT 48US FOR DISK
8520 6509;
0171
OUT 5 ,#09
•• SEEK TRACK
852F D4860E;
0172
SEP R4,A(WAIT)
• • WAIT TO SEEK
8532 9FFE;
0173
GHI RF;SHL
•• ERROR FLAG=>DF
8534 336 E;
0174
ElDF TRNEXT
•• DRIVE FAIL ERROR, RETURN
8536 6EFA08;
0175
INP 6; ANI #08
•• CHECK FOR CRC ERROR
8539 3241;
0176
BZ RDWTCK
•• NO CRC ERROR
853B 9FF940BF;
0177
GHI RF;ORI #40;PHI RF
•• SET SEEK ERROR FLAG
853 F 306E;
0178
BR TRKNG
•• PRINT SEEK ERROR
8541 E3650B;
0179 RDWTCK: SEX R3; OUT 5
~#
oe
•• CLEAR ERROR FLAGS
8544 9 F;
0180
GHI RF
• • C K READ/Io.'RIH FLAG
8545 F6 ;
0181
SHR
•• FLAG ItJTO OF
8546 334 C;
0182
ED F WRTCK
• • B R
IF
~RITE
8548 6503;
0183
OUT 5 ,# 03
•• READ
854A 3054;
0184
BR STATUS
•• WA IT FOR
READ
854C 6505;
0185 ltJRTCK:
OUT 5, #05
• .WRIT
E
854E D4860E;
0186
SEP R4,A (WAIT)
• • lolA IT TO DO THE WRIT
•
• E
8551 E36507;
0187
SEX
R<: •
OUT 5 ,# 07
..READ CRC
-,
8554 D4860E;
0188 STATUS: SEP R4,A (WAIT)
• • lolA IT FO R COMMAND TO EXECUTE
8557 6 E;
0189
INP 6
8558 FA08;
0190
ANI #08
•• BIT3=1=>CRC ERROR
Advertisement
Table of Contents
