13 22FL SEG TIDYREAD,60,C DONG,USERCOMS 4 22_= [ 4 23DW [ 12 23YG SEGENTRY K1TIDYREAD,Z1TIDYREAD 4 24D6 # 4 24XQ # 20 25CB # THIS SEGMENT FREES ALL THE BLOCKS USED BY THE INPUT ROUTINES, AND 12 25X2 # CLOSES THE FILE USED FOR INPUT. 6 25YY ...#SKI JSKI38 4 262W ...( 7 264S ...PARANUM #2 7 266Q ... #00010004 7 268N ...X1900 4H1900 7 26=L ...XKDF9 4HKDF9 4 26#J ...) 6 26BL Z1TIDYREAD 4 26W= # 6 26WN ...#SKI JSKI38 4 26X6 ...( 8 26XJ ... LDN 0 #400 9 26Y2 ... ANDX 0 AWORK1(2) 14 26YD ... BZE 0 XCONT [ J - IF NOT BINARY 7 26YW ... LTYPE ,5 14 26_# ... BNZ 5 XCONT [ J - NOT PPT READER 15 26_Q ... DISENGPER [ DISENGAGE TAPE READER 16 2728 ... SETNCORE 5,3,CPB,CUNI [ FOR ENGPER MACRO 9 272L ... ADN 3 JPARNUM 10 2734 ... LDN 2 PARANUM(1) 7 273G ... MOVE 2 2 8 273Y ... LDX 2 FX2 12 274B ... TESTCODE ,READER,S1900,SKDF9 5 274S ...S1900 13 275= ...# REQUEST TO BE SWITCHED TO 1900 MODE 9 275N ... LDX 5 X1900(1) 9 2766 ... BRN STORECODE 3 276J ... 5 2772 ...SKDF9 13 277D ...# REQUEST TO BE SWITCHED TO KDF9 MODE 9 277W ... LDX 5 XKDF9(1) 6 278# ...STORECODE 15 278Q ...# FINISH SETTING UP CPB.CUNI FOR ENGPER MACRO 14 2798 ... STO 5 2(3) [ APARA OF CPB.CUNI 3 279L ... 12 27=4 ...# REQUEST TO RE-ENGAGE TAPE READER 12 27=G ... ENGPER XCANTDO,,XCANTDO,4 3 27=Y ... 5 27?B ...XCANTDO 9 27?S ... MFREE CPB,CUNI 5 27#= ...XCONT 4 27#N ...) 3 27*6 ... 9 27*W #SKI K6PREPREAD>199-199 10 27TG TRACE 1,TIDYREAD 17 28*6 LDEX 4 AWORK1(2) [GET TERMINATOR TYPE 19 28SQ SBN 4 #64 [X4 ZERO IF A T TERMINATOR 17 29#B BZE 4 Z7B [JUMP IF T TERMINATOR 17 29S2 MHUNTW 3,ADATA,ALINE [FIND THE INPUT BLOCK 9 2=?L #SKI K6PREPREAD>599-599 11 2=R= TRACEVER A1+2(3),TIDYADAT 16 2?=W LDX 4 A1+1(3) [GET MODE WORD 21 2?QG ANDN 4 #7700 [ISOLATE MODE DESCRIPTION CHARACTER 20 2#=6 ZCDGR BXE 6 A1+2(3),ZINAP [J IF TERMINATOR HAS BEEN READ 18 2#PQ BZE 4 ZGRCD [J IF GRAPHIC OR CARDS 9 2*9B LDX 0 A1+2(3) 7 2*P2 SLC 0 6 14 2B8L ANDN 0 #77 [TEST FOR 16 2BN= SBN 0 #74 [ALPHA CHARACTER 14 2C7W BNZ 0 ZGRCD [J IF NOT 9 2CMG LDX 0 A1+2(3) 9 2D76 LDX 1 A1+3(3) 7 2DLQ SLL 0 6 14 2F6B SLC 1 6 [TEST FOR 15 2FL2 DCH 1 0 [TERMINATOR 15 2G5L BXE 6 0,ZINAP [J IF IT IS 16 2GK= ZGRCD STO 6 A1+2(3) [STORE TERMINATOR 17 2H4W LDX 0 BITS22LS [ISOLATE MODE WORD 16 2HJG ANDS 0 A1+1(3) [EXCEPT B0 AND B1 7 2J46 ZCG LDN 0 3 18 2JHQ STO 0 A1(3) [STORE RECORD LENGTH=4 21 2K3B ZINAP NAME 3,FILE,FAPB [PREPARE BLOCK TO WRITE AWAY RECORD 5 2KH2 ZINAPX 9 2L2L APPEND ,FORCED 16 2LG= TESTREP2 FILEFULL,XFULLTERM,APPWAIT,WAITTERM 18 2L_W LDN 7 2 [BASIC DUMMY RECORD COUNT 18 2MFG MHUNTW 3,FILE,FAPB [FIND THE APPEND BLOCK 20 2M_6 LDX 0 BITS22LS [LEAVE MODE DESCRIPTION CHARACTER 21 2NDQ ANDS 0 A1+1(3) [BUT REMOVE THE SPACE POSITION POINT 18 2NYB XGRAF STO 7 A1(3) [STORE THE RECORD COUNT 5 2PD2 XAPPEND 9 2PXL APPEND ,FORCED 16 2QC= TESTREP2 FILEFULL,XFULLDUMMY,APPWAIT,WAITDUMMY 4 2QWW Z7B 9 2RBG ISITJOB NOTJOBEND 9 2RW6 XENDC CALL 5 SINFIN 9 2S*Q BRN XENDCOM 6 2STB NOTJOBEND 9 2T*2 CALL 7 SCLOSE 5 2TSL XENDCOM 8 2W4D ... CALL 7 XUSER 6 2W#= ENDCOM 5 2WRW XBREAK 9 2X?G CALL 7 SCLOSE 6 2XR6 XABANDCOM 8 2Y2Y ... CALL 7 XUSER 7 2Y=Q ABANDCOM 6 2YQB XFULLTERM 8 2_=2 CALL 7 XFULL 9 2_PL BRN ZINAPX 6 329= XFULLDUMMY 8 32NW CALL 7 XFULL 9 338G BRN XAPPEND 8 33N6 XFULL SBX 7 FX1 12 347Q INPUTFULL XBRK,NEXTEL,JOVER1 8 34MB BRN XENDC 9 3572 XBRK CALL 5 SINFIN 9 35LL BRN XABANDCOM 5 366= NEXTEL 10 36KW MHUNTW 3,ADATA,ALINE 8 375G ADX 7 FX1 7 37K6 EXIT 7 0 5 384Q WAITTERM 8 38JB CALL 7 WAIT 9 3942 BRN ZINAPX 6 39HL WAITDUMMY 8 3=3= CALL 7 WAIT 9 3=GW BRN XAPPEND 8 3?2G WAIT SBX 7 FX1 11 3?#X LONGSET IWTDEST,XGEOERR 9 3?M# LONGSTOP XBREAK 9 3?_Q BRN NEXTEL 4 3#FB [ 5 3#H5 ...XUSER 17 3#JS ... BRUSEN NOUS [J IF NOUSER CONTEXT 7 3#LH ... EXIT 7 0 4 3#N= ...NOUS 10 3#P_ ... STOZ CPREFIX(2) 10 3#RN ... STOZ CPREFIX+1(2) 10 3#TC ... STOZ CPREFIX+2(2) 7 3#X6 ... EXIT 7 0 13 3#_2 [ THIS SUBROUTINE CLOSES THE INPUT FILE 5 3*DL SCLOSE 8 3*Y= SBX 7 FX1 8 3BCW TESTMULT STRM 6 3BXG CLOSE 8 3CC6 BRN TOCL 6 3CWQ STRM CLOSE 7 3DBB CLOSEMULT 4 3DW2 TOCL 9 3F*L #SKI K6PREPREAD>199-199 10 3FT= TRACE 2,OUTTDYRD 9 3G#W CALL 5 SINFIN 8 3GSG ADX 7 FX1 7 3H#6 EXIT 7 0 5 3HRQ SINFIN 6 3J?B INFINB 7 3JR2 EXIT 5 0 4 3K=L # 5 3KCS XGEOERR 9 3KK2 GEOERR 1,LONGSET? 10 3KQ= SEGENTRY K99TIDYREAD 11 3L9W MENDAREA 50,K99TIDYREAD 4 3LPG #END 8 ____ ...43005140000200000000