Table of Contents
Advertisement
•
•
Appendix G - UT20 Listing
_
__
__ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
__ _
117
85 C6 ;
85C6 ,
85C6 9F52;
85C8 6422;
85CA F8011?F;
85CD E36531;
85DO EC;
85D1 FOFC01;
85D4 5C;
85D5,Ff80;
85D7 CB8609;
85DA F8016F;
85DD. F80073;
85
E' O ;
8S}0 FOFC0173;
.TR~II
85E4 FA1F;
85E6 FD1A;
85E8 33F5;
85EA 1C;
85EB FOFACOFC0173;
• 1, POINT TRK
II
85F1 FOFC01;
85F4 5C;
85 F5 FO;
85F6 FD4C;
85F8 33FE;
85FA 1C1C;
85 FC
85FE
85FF
.K
306E' ;
E2;
D48517;
8602 EC;
e603 9FFA20CA85DA;
.WRITE
N~XT
SECTOR
8609 9FFBFFFE;
.G=>DF
860D D5;
860E ;
860
E ;
860E ;
860E
860E
860F
8610
8612
8614
8615
8617
8619
,
E2;
6 E;
FA20;
3A19;
6 E;
FA40;
3A
1 F;
F800AF;
861C D48629;
861F 6E;
8620 FA08;
8622 3A28;
8624 6EF6;
8626 330E;
8628 D5;
8629 ;
8629 ;
8629 ;
8629 E2;
862A 9C738C73;
0245
0246
0247
0248
0249
0250
0251
0252
0253
0254
0255
0256
0257
0258
0259
0260
0261
0262
0263
0264
0265
0266
0267
0268
0269
0270
••••••••••••
SUBROUTI~E
WRITE
~RITE:
GHI RF; STR R2
•• SAVE DATA BYTE TO STACK
OUT 4; DEC R2
•• OUTPUT
TH~
DATA
LDI 1I01;PHI RF
'
•• SET WRITE MODE
SEX R3; OUT 5 ,1131
•
• LOAD WRITE BUFFER
SEX PTER
•• POINT TO BYTE COUNT
LDX; ADI 1101
••
I~C
THE EYTE COUNT
STR PTER
~~I
#80
•• BYTE COUNT< 128 ?
LBNF EXWT
•• 8R IF YES
REWRIT: LDI 1I01;PHI RF
•• SET WRITE MODE
LDI #OO;STXD
•• ZERO THE BYTE
COU~T
•• POINT AT THE SECII
LDX; ADI 1101; STXD
•• INC SECII AND POINT
ANI #1F
SDI #1A
ED
F WTCNT
INC PTER
LDX; ANI
•• MASK OUT UNIT NUMBER
•• SECTOR > 26 ?
•• NO, CHECK TRK #
•• POINT AT UNIT/SECII
#CO; ADI #01; STXD •
•
RESET SECT
LDX; ADI 1101
•• INC THE TRACK#
STR PTER
WTCNT:
LDX
•• GET THE TRK #
SDI 114C
•• TRK
/I
> 76 ?
E'DF TRKOK1
•• TRACK IN RANGE, OK
#
TO
INC PTER;INC PTER
••
POI~T
TO EYTE COUNT
0271
BR TRKNG
•• PRINT TRACK RANGE ERROR
0272 TRKOK1: SEX R2
0273
SEP R4,A(TRNFR1)
•• WRITE EUFFER TO DIS
0274
0275
SEX PTER
GHI RF;ANI #20;LBNZ REWRIT
•• CRC ERROR
0276 EXWT:
GHI RF;XRI IIFF;SHL
•• SET/RESET
~RROR
FLA
0277
0278
0279
0280
0281
0282
0283
0284
OU5
0286
0287
0288
0289
0290
0291
0292
0293
0294
0295
0296
0297
0298
0299
0300
0301
SEP R5
•• RETURN
•••••••••••• SUEROUTINE WAIT
IIIAIT:
SEX R2
6
•• GET STATUS
HIP
ANI
ENZ
INP
ANI
ENZ
#20
•• DRIVE FAIL?
FAILUR
••
DRIV~
FAILED, PRINT ERROR
6
•• GET STIITUS
1140 •• DRIVE ACTIVE?
NCFAIL
•• YES, NO FAILURE
FAILUR: LDI IIOO;PLO RF
••
CL~AR
TRY COUNT,
DRIV~
FAIL
SEP R4,A(DERROR)
•• PRINT DRIVE FAILURE
NOFAIL: INP 6
•• GET STATUS
ANI 1108
•• CRC ERROR?
ENZ RETWAT
•• IF ERROR RETURN
INP 6;SHR
•• CHECK IF OPERATION DONE
EDF WAIT
•• NOT DONE
RETWAT: SEP R5
•• RETURN
•
•••••••••• SUBROUTINE DISK ERROR
DERROR: SEX R2
GHI RC;STXD;GLO RC;STXD •• SAVE DCB POINTERS
Advertisement
Table of Contents
