16 22FL #SEG DATUM70 [BOB NICHOLSON 7 22_= #LIS K0DATUM 4 23DW # 17 23YG # THIS SEGMENT DATUMISES BLOCK AND WORD ADDRESSES 13 24D6 # ON ENTRY BSL1 CONTAINS ADDRESS 18 24XQ # BSL2 CONTAINS POINTER TO FILE DESCRIPTION 12 25CB # BSL3 CONTAINS COUNT 15 25X2 # ON EXIT X1 CONTAINS DATUMISED ADDRESS 19 26BL # X2 CONTAINS ZERO OR MAXIMUM COUNT FOR TRANSFER 4 26W= # 8 27*W # LINK IN BSL4 9 27TG # PF1 FOR DATUMADD 9 28*6 # PF2 FOR DATUMBLK 4 28SQ # 4 29#B # 8 29S2 # DATUMADD ENTRY 13 2=?L LABFIX APF1 [D 8 2=R= PF1 LDX 1 BSL1 17 2?=W SRL 12 7 [CONVERT X1 TO BLOCK PART 17 2?QG SRL 2 17 [OF ADDRESS,X2 WORD PART 15 2#=6 STO 2 BSL5 [SAVE WORD PART 8 2#PQ BRN R1 4 2*9B # 8 2*P2 # DATUMBLK ENTRY 8 2B8L LABFIX APF2 14 2BN= PF2 STOZ BSL5 [WORDS 8 2C7W LDX 1 BSL1 15 2CMG R1 STO 0 BSL4 [SAVE LINK 18 2D76 LDX 2 BSL2 [POINTER TO DESCRIPTION 8 2DLQ LDCH 0 A1(2) 7 2F6B SBN 0 9 16 2FL2 BZE 0 R2 [JUMP IF TYPE 9 8 2G5L SBN 0 16 14 2GK= BZE 0 R3 [TYPE 25 9 2H4W DVS 0 A1+4(2) 15 2HJG [X0= BLOCK 15 2J46 [X1= CYLINDER 9 2JHQ TXL 1 A1+3(2) 20 2K3B BCC R4 [JUMP IF CYLINDER OUT OF RANGE 18 2KH2 ADX 1 A1+1(2) [ADD STARTING CYLINDER 16 2L2L LDX 2 A1+4(2) [BLOCKS/SEGMENT 12 2LG= SBX 2 0 [ 19 2L_W SLL 2 7 [X2=MAXIMUM TRANSFER IN WORDS 8 2MFG STO 2 BSL1 8 2M_6 SMO BSL2 16 2NDQ ADX 0 A1+2 [ADD START BLOCK 17 2NH# ... JNENVX R8,MEEP,2 [J IF NOT EMULATION 13 2NKX ... ERX 0 1 [SWAP 14 2NML ... ERS 0 1 [CONTENTS 14 2NP* ... ERX 0 1 [OF X0&X1 18 2NR4 ... SMO BSL2 [RECALCULATE DATUMISED 16 2NSR ... MPA 0 A1+4 [BLOCK NO INTO X1 4 2NWG ...R8 8 2NYB SMO BSL2 8 2PD2 LDX 2 A1 8 2PXL ANDN 2 #77 7 2QC= SMO 2 20 2QWW CALL 2 PF4 [CALL ADDRESS CONVERSION ROUTINE 7 2RBG LDX 1 0 8 2RW6 LDX 2 BSL1 8 2S*Q BRN R7 7 2STB # SLOW DRUM 18 2T*2 R2 SLL 1 7 [CONVERT TO WORD ADDRESS 8 2TSL ADX 1 BSL5 12 2W#= R3 LDX 0 A1+1(2) [ 12 2WRW TXL 1 A1+2(2) [ 19 2X?G BCC R4 [JUMP IF ADDRESS OUT OF RANGE 12 2XR6 LDX 2 A1+2(2) [ 16 2Y=Q SBX 2 1 [MAXIMUM TRANSFER 12 2YQB ADX 1 0 [ 8 2_=2 SMO BSL2 8 2_PL LDX 0 A1 8 329= SRL 0 18 7 32NW SBN 0 9 16 338G BZE 0 R7 [JUMP IF TYPE 9 16 33N6 SLL 2 7 [CONVERT TO WORDS 14 33S3 ...# CHECK TRANSFER WITHIN 30K EXEC LIMIT 8 33XY ...R7 LDN 0 30 8 343T ... SLL 0 10 7 347Q ... TXL 2 0 8 34?M ... BCS RR7 7 34CJ ... LDX 2 0 8 34HF ...RR7 TXL 2 BSL3 8 34MB BCC R5 8 3572 BRN R6 7 35LL R4 LDN 1 0 7 366= R5 LDN 2 0 8 36KW R6 LDX 0 BSL4 12 375G EXIT 0 0 [ 17 37K6 # DEVICE CONVERSION ROUTINES X0=BLOCK X1=CYLINDER 4 384Q # 8 38JB LABFIX APF3 8 3942 PF3 SMO BSL1 7 39HL BRN / 4 3=3= PF4 7 3=GW #TRA PF4+EDS 13 3?2G BRN QEDS [ EDS 7 3?G6 #TRA PF4+EMDS 14 3?_Q BRN QEMDS [ MEDS 7 3#FB #TRA PF4+EMCF 13 3#_2 BRN QMCF [ MCF 7 3*DL #TRA PF4+AFDS 14 3*Y= BRN QAFDS [ 2A DISC 7 3BCW #TRA PF4+BFDS 14 3BXG BRN QBFDS [ 2B DISC 12 3CC6 #TRA EDS>EMDS>EMCF>BFDS>AFDS+1+PF4 4 3CWQ # 10 3DBB # EDS CONVERSION ROUTINE 4 3DW2 # 4 3D_6 ...QEDS 15 3F4= ... STO 0 BSL5 [PRESERVE X0 17 3F7B ... JENVNOT QEDS1,MEEP [J IF NOT EMULATION 7 3F=G ... LDX 0 1 17 3F*L ... ORX 0 GSIGN [SET B0 OF BLOCK NO 7 3FDQ ... EXIT 2 0 5 3FHW ...QEDS1 15 3FM2 ... LDX 0 BSL5 [REINSTATE X0 17 3FQ6 ... SLL 0 17 [BLOCK TO TOP 7 BITS 20 3FT= SLC 01 20 [X0 HOLDS TOP 4 BITS OF CYLINDER 7 3G#W SLL 0 2 17 3GSG SLL 01 4 [2ND PART OF CYLINDER 7 3H#6 SLL 0 2 17 3HRQ SLL 01 4 [1ST PART OF BLOCK 7 3J?B SLL 0 3 17 3JR2 SLL 01 3 [2ND PART OF BLOCK 7 3K=L EXIT 2 0 4 3KQ= # 20 3L9W QEMDS [EDS(30),SAME STRUCTURE AS 2B 9 3LPG # 2A FDS CONVERSION 17 3M96 QAFDS SLL 0 12 [BLOCK TO TOP 12 BITS 8 3MNQ SRC 01 12 7 3N8B EXIT 2 0 4 3NN2 # 9 3P7L # 2B FDS CONVERSION 5 3PM= QBFDS 16 3Q6W STO 1 BSL5 [SAVE CYLINDER 7 3QLG LDX 1 0 21 3R66 DVS 0 BSFD [DIVIDE BLOCK BY BLOCKS PER SURFACE 18 3RKQ SLL 1 9 [SURFACE TO MIDDLE & BITS 18 3S5B DEX 0 1 [SECTOR TO BOTTOM 9 BITS 8 3SK2 LDX 0 BSL5 18 3T4L SLL 0 15 [CYLINDER TO TOP 9 BITS 7 3TJ= DLA 1 0 7 3W3W EXIT 2 0 4 3WHG QMCF 10 3X36 GEOERR 0,TYPE WRG 13 3X4C ...# SUBROUTINES (AT <4096) FOR BSTS 8 3X5N ... LABFIX XALTLEN 8 3X6_ ... ALTLEN 3,4 7 3X8= ... EXIT 5 0 8 3X9H ... LABFIX XGETCHAP 6 3X=S ...#SKI JSKI10 7 3X#5 ... GETCHAP 7 7 3X*B ...#SKI JSKI10<1$1 7 3XBM ... GETCHAP 5 7 3XCY ... EXIT 3 0 4 3XF9 ...# 4 3XGQ #END 8 ____ ...15423011000800000000