14 22*P ... SEG IPBLISTD,,R.WEYAND,,G170,G269 16 22PD # (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982. 8 22_= #OPT K0IPBLISTD=0 7 233F ...#OPT G170 = 0 6 235N ...#SKI G170&1 16 237X ...# WITH UGUG EDIT M170 (VARIABLE REMOTE *LP WIDTHS) 7 23=6 ...#OPT G269 = 0 6 23#* ...#SKI G269&1 17 23BJ ...# WITH UGUG EDIT M269 (REMOTE *LP LISTFILE DEBATCHERS) 11 23DW #LIS K0IPBLISTD>K0IPB>K0ALLGEO 13 23YG SEGENTRY K1IPBLISTD,SK1IPBLISTD 13 248# SEGENTRY K2IPBLISTD,SK2IPBLISTD 12 249C SEGENTRY K3IPBLISTD,SK3IPBLISTD 12 24=G SEGENTRY K4IPBLISTD,SK4IPBLISTD 4 24?K # 15 24#N FSHENTRY K5IPBLISTD,SK5IPBLISTD,,SK5IPBLISTD 4 24*R # 12 24BW SEGENTRY K7IPBLISTD,SK7IPBLISTD 4 24D6 [ 4 24XQ [ 4 26BL [ 4 26W= [ 4 26W? [ 19 26W# [************************************************************ 4 26W* [ 7 26WB [ PRESET DATA 4 26WC [ 19 26WD [************************************************************ 4 26WF [ 4 26WG [ 9 26WH PJMARY +JMARY 12 26WJ STARSOLF #76347666,#32323232 5 26WK NEWLINES 6 26WM ...#SKI G269&1 14 26WP ...STAREOLF #76207632,#76663232,#32323232 7 26WR ...#SKI G269&1$1 14 26WT ...STAREOLF #76327632,#76663232,#32323232 9 26WX ...STAREND #32327666 15 26W_ ... SEGENTRY K70IPBLISTD [ LFTHROW MACRO 7 26X3 ... #76340000 14 26X5 ...PDC2 #76357602 [CR + DC2 12 26X8 TAPE #76327620,#76207620 4 26X9 [ 4 26X= [ 19 26X? [************************************************************ 4 26X# [ 5 26X* RINGO 4 26XB [ 19 26XC [************************************************************ 4 26XD [ 4 26XF # 20 26XG # RING AMXOR/IOUT BLOCK(S) BEHIND IPBOUT ACTIVITY , WHICH IS THEN 7 26XH # PUT ON LIST 4 26XJ # 7 26XK SBX 7 FX1 9 26XL MHUNTW 3,AMXOR,ADCB 8 26XM LDX 0 GSIGN 17 26XN ORS 0 IWAIT(3) [MARK 'ACTIVITY ASLEEP' 18 26XP LDX 3 IADIN(3) [ADDRESS OF IPBIN ACTIVITY 9 26XQ LDX 3 IPBRING(3) 8 26XR SBN 3 IPBRING 9 26XS LDX 2 ACTRING(3) 20 26XT SBN 2 ACTRING [ADDRESS OF ACTIVITY AFTER IPBOUT 8 26XW LDX 4 BPTR(2) 7 26XX LDX 2 FX2 18 26XY LDEX 5 AWORK1(2) [NO OF BLOCKS TO BE RINGED 19 26X_ MHUNTW 1,AMXOR,IOUT [THIS WILL BE THE LAST OUTPUT 7 26Y2 LDN 0 1 20 26Y3 ORS 0 IMOPTY(1) [INDICATE ACTIVITY TO BE WOKEN UP 7 26Y4 SMO FX2 8 26Y5 LDX 0 AWORK1 19 26Y6 BPZ 0 NOWCH [LP : NOT END OF RESTART SECTION 7 26Y7 LDCT 0 4 19 26Y8 ORS 0 IPBIDE+1(1) [INDICATE END OF RESTART SECTION 19 26Y9 ORS 0 IWORK9(2) [SET ^FIRST REC OF SECTION^ BIT 8 26Y= BRN NOWCH 4 26Y? NEBO 17 26Y# MHUNTW 1,AMXOR,IOUT [FIND NEXT OUTPUT BLOCK 5 26Y* NOWCH 7 26YB CHAIN 1,4 7 26YC BCT 5 NEBO 14 26YD NGN 0 #1000 [#77777000 20 26YF ANDS 0 AWORK1(2) [CLEAR COUNT OF BLOCKS TO BE OUTPUT 7 26YG LDCT 0 #100 17 26YH ANDX 0 IPBSW(3) [B2 SET IF IPBOUT ASLEEP 15 26YJ BZE 0 WAKE [ALREADY ON LIST 16 26YK ERS 0 IPBSW(3) [INDICATE ON LIST 7 26YL LDX 2 3 5 26YM FPUT 4 26YN WAKE 5 26YP COOR1 7 26YQ ADX 7 FX1 7 26YR EXIT 7 0 4 26YS [ 4 26YT [ 4 26YW SETU 4 26_4 [ 4 26_H [ 12 2722 [ GET AMXOR/IOUT BLOCK FOR OUTPUT 4 272F [ 8 272Y SMO FX2 17 273C LDX 4 AWORK3 [NPU SIZE IN CHARS 4 273D [ 4 273F [ 19 273G [************************************************************ 4 273H [ 4 273J PCOR 4 273K [ 19 273L [************************************************************ 4 273M [ 8 273W SBX 7 FX1 7 274* LDX 5 4 14 274S ADN 5 IDATA-A1*4+3 [ROUND UP 18 275? SRL 5 2 [NO. OF WORDS IN OUTPUT 11 275Q SETUPCORE 5,2,AMXOR,IOUT,1 19 2769 STOZ IMOPTY(2) [DONT WAKE UNLESS LAST BLOCK 7 276N LDN 0 1 8 2777 SMO FX2 19 277L ADS 0 AWORK1 [COUNT OF BLOCKS FOR OUTPUT 10 2785 MHUNTW 1,AMXOR,ADCB 10 278J LDX 5 IDENTNO(1) 17 2793 STO 5 IPBIDE(2) [IDENTIFIER NUMBER 8 279G LDX 1 FX1 8 279_ ORX 4 GSIGN 16 27=D STO 4 IPBIDE+1(2) [OUTPUT CHAR COUNT 18 27=X LDN 5 IDATA(2) [START ADDRESS OF OUTPUT 8 27?B ADX 7 FX1 17 27?T STOZ IBSW(2) [BLOCK STATUS WORD 7 27## EXIT 7 0 4 27#R [ 4 27*= [ 4 27*? [ 4 27*# [ 19 27** [************************************************************ 4 27*B [ 6 27*C TESTIPBSTAT 4 27*D [ 19 27*F [************************************************************ 4 27*G [ 10 27*H MHUNTW 3,AMXOR,ADCB 10 27*J SMO A1+FPTR(3) 9 27*K LDX 0 FOURTHWD 7 27*L SLL 0 2 8 27*M BNG 0 (6) 7 27*N EXIT 6 1 4 27*P [ 19 27*Q [************************************************************ 4 27*R [ 5 27*S SENGAGE 4 27*T [ 19 27*W [************************************************************ 4 27*X [ 7 27*Y SBX 7 FX1 10 27*_ CALL 6 TESTIPBSTAT 9 27B2 BRN SCANTDO 7 27B3 WHILE TRUE 10 27B4 MHUNT 3,AMXOR,ADCB 16 27B5 AND BS,3,ADCBINOP [ DEVICE INOPERABLE 5 27B6 DO 17 27B7 IF BS,3,ADCBTUNATT [ UNATTENDED SPOOLING 6 27B8 THEN 19 27B9 LDN 4 2 [ OUTPUT TO BOTH CONSOLES 6 27B= ELSE 19 27B? LDN 4 0 [ TO CLUSTER CONSOLE ONLY 5 27B# FI 13 27B* LONGSET #36,(GEOERR),IDENTNO(3) 6 27BB OUTPER 14 27BC DEMANDX 4,PJMARY(1),SCANTDO,STERM,,2 9 27BD VFREEW GMON,AOUT 10 27BF VFREEW ADATA,ADEMAND 6 27BG REPEAT 7 27BH ADX 7 FX1 7 27BJ LDN 0 0 7 27BK EXIT 7 0 4 27BL [ 12 27BM SCANTDO [ CANTDO TO PLEASE ENGAGE 4 27BN [ 9 27BP MHUNTW 3,AMXOR,ADCB 17 27BQ BS 3,ADCBWAITWR [ WAITING TO BE WRONGED 4 27BR [ 12 27BS STERM [ TERMINATE TO PLEASE ENGAGE 4 27BT [ 7 27BW ADX 7 FX1 7 27BX LDN 0 1 7 27BY EXIT 7 0 4 27B_ [ 19 27C2 [************************************************************ 4 27C3 [ 6 27C4 SCHANMODE 4 27C5 [ 19 27C6 [************************************************************ 4 27C7 [ 11 27C8 [ CHANGE MODE FOR BINARY OUTPUT 4 27C9 [ 7 27C= SBX 7 FX1 7 27CX LDN 0 1 7 27CY ADX 7 FX1 7 27C_ EXIT 7 0 4 27D2 [ 19 27D3 [************************************************************ 4 27D4 [ 5 27D5 SRUNOUT 4 27D6 [ 19 27D7 [************************************************************ 4 27D8 [ 9 27D9 [ RUNOUT FOR TAPE PUNCH 4 27D= [ 10 27D? [ X6 = NO OF RUNOUT CHARS 4 27D# [ 7 27D* SBX 3 FX1 7 27DB WHILE TRUE 8 27DC SMO FX2 17 27DD LDX 4 AWORK3 [ NPU SIZE IN CHARS 7 27DF SBX 6 4 18 27DG AND EITHER,6,PZ [ MUCH MORE RUNOUT REQUIRED 7 27DH ADX 4 6 19 27DJ OR 4,PZ [ LITTLE MORE RUNOUT REQUIRED 5 27DK DO 17 27DL CALL 7 PCOR [ SETUP AMXOR/IOUT 9 27DM LDX 0 TAPE+1(1) 9 27DN STO 0 IDATA(2) 10 27DP LDX 1 ALOGLEN(2) 10 27DQ SBN 1 IDATA-A1+1 7 27DR LDX 4 5 7 27DS ADN 5 1 17 27DT MOVE 4 0(1) [ MOVE IN NULL CHARS 6 27DW REPEAT 7 27DX ADX 3 FX1 7 27DY EXIT 3 0 4 27D_ [ 19 27F2 [************************************************************ 4 27F3 [ 5 27F4 SSTARS 4 27F5 [ 19 27F6 [************************************************************ 4 27F7 [ 13 27F8 [ FORMAT TERMINATING LINE OF ASTERISKS 4 27F9 [ 4 27F= [ 8 27F? SBX 6 FX1 6 27F# ...#SKI G269&1 4 27F* ...( 10 27FB ... DOWN IPDBATCH,2 10 27FC ... LDX 0 ACOMMUNE1(2) 20 27FD ... STO 0 AWORK1(2) [ RESET AMXOR/IOUT BLOCK COUNT 4 27FF ...) 7 27FG ...#SKI G170&1$1 4 27FH ...( 10 27FJ ... SEGENTRY K57IPBLISTD 10 27FK ... LDN 4 A7021WIDTH+8 4 27FL ...) 6 27FM ...#SKI G170&1 4 27FN ...( 9 27FP ...#ALT K57IPBLISTD = 1022 7 27FQ ... LDN 4 8 9 27FR ... ADX 4 IWIDTH(2) 4 27FS ...) 15 27FT ...[ SEGENTRY FOR RESTORE TIME MACRO - LISTDC2 10 27FW ... SEGENTRY K60IPBLISTD 6 27FX ... NULL 7 27FY ... NULL 7 27F_ ... NULL 7 27G2 ... NULL 8 27G3 ... ADN 4 4 10 27G4 ... SEGENTRY K61IPBLISTD 6 27G5 ... NULL 8 27G6 ... CALL 7 PCOR 10 27G7 ... LDN 4 STAREOLF(1) 18 27G8 ... MVCH 4 12 [NEWLINE NEWLINE _****** 7 27G9 ... LDX 4 5 7 27G= ... SBN 4 1 7 27G? ...#SKI G170&1$1 4 27G# ...( 10 27G* ... SEGENTRY K58IPBLISTD 15 27GB ... MVCH 4 A7021WIDTH-10 [ **....** 4 27GC ...) 6 27GD ...#SKI G170&1 4 27GF ...( 9 27GG ...#ALT K58IPBLISTD = 1022 8 27GH ... SMO FX2 9 27GJ ... LDX 3 IWIDTH 9 27GK ... MVCH 4 -10(3) 4 27GL ...) 10 27GM ... LDN 4 STAREND(1) 21 27GN ... MVCH 4 6 [ **_ FORM FEED - SEE LFTHROW MACRO 10 27GP ... MHUNTW 3,AMXOR,ADCB 15 27GQ ...[ SEGENTRY FOR RESTORE TIME MACRO - LISTDC2 10 27GR ... SEGENTRY K62IPBLISTD 6 27GS ... NULL 7 27GT ... NULL 7 27GW ... NULL 7 27GX ... NULL 10 27GY ... LDN 4 PDC2(1) 14 27G_ ... MVCH 4 4 [ CR DC2 10 27H2 ... SEGENTRY K63IPBLISTD 6 27H3 ... NULL 18 27H4 ... LDX 3 A1+FPTR(3) [ X3 - AMXOR/ADEVS ENTRY 15 27H5 ... IF BS,3,ADEVS1901A [ 1901A RJE 6 27H6 ... THEN 17 27H7 ... BS 2,IOUTEODATA [ END OF DATA STREAM 5 27H8 ... FI 18 27H9 ... BS 2,IOUTEORESTR [ END OF RESTART SECTION 8 27H= ... ADX 6 FX1 7 27H? ... EXIT 6 0 4 27H# ...[ 4 27H* ...[ 4 27HB ...[ 4 27HC ...[ 5 27HD ...ZLINE 4 27HF ...[ 4 27HG ...[ 18 27HH ...[ END OF LINE IN HEADINGS : NL+RUNOUT FOR TP, NL+NL FOR LP 4 27HJ ...[ 8 27HK ... LDN 4 ACES 7 27HL ... MVCH 4 3 9 27HM ... ANDX 5 BITS22LS 8 27HN ... SMO FX2 9 27HP ... LDX 6 AWORK1 8 27HQ ... BNG 6 TLINE 10 27HS LDN 4 NEWLINES(1) 7 27J? LDN 2 1 8 27JQ BRN ZMOVE 5 27K9 TLINE 9 27KN LDN 4 TAPE(1) 7 27L7 LDN 2 2 5 27LL ZMOVE 8 27M5 MOVE 4 0(2) 7 27MJ ADX 5 2 7 27N3 EXIT 7 0 4 27NG [ 4 27N_ [ 4 27PD [ 4 27PX [ 5 27QB SINITIAL 4 27QT [ 4 27R# [ 8 27RR SBX 6 FX1 10 27S= STO 6 ACOMMUNE1(2) 10 27TG MHUNTW 3,GOUT,INFO 18 9J82 LDX 6 AWORK1(2) [>0 IF PRINT ; <0 IF TAPE 17 9JML LDX 0 GFLI(3) [INITIAL LINE NUMBER 8 9JXD BNG 0 XFRER 18 9K7= STO 0 IWORK10(2) [RECORD NUMBER FOR STEP 20 9KLW STO 0 IWORK1(2) [TO DETECT FAIL DURING HEADINGS 8 9KPF BRN XFROK 5 9KS4 XFRER 10 9KWM STOZ IWORK10(2) 9 9K_= STOZ IWORK1(2) 5 9L3T XFROK 20 9L6G STOZ IWORK9(2) [INITIAL RESTART SECTION NUMBER 9 9LL6 LDX 0 GFTY(3) 15 9M5Q STO 0 IWORK16(2) [TYPE OF FILE 19 9MKB LDX 0 GNLI(3) [NO. OF LINES TO BE OUTPUT 8 9N52 BNZ 0 NEND 19 9NJL NGN 0 1 [INDICATE ALL LINES REQUIRED 10 9P4= NEND STO 0 IWORK12(2) 7 9PHW LDCT 0 3 18 9Q3G ANDX 0 GMODE(3) [TYPE OF RESTART REQUIRED 7 9QH6 SLL 0 7 10 9QSP ADS 0 IWORK11(2) 10 9R6# MHUNTW 3,AMXOR,ADCB 9 9R7G LDX 0 IWAIT(3) 7 9R8N ANDN 0 4 17 9R9W SRC 0 6 [B3 IN AWORK4 SET IF 15 9R?4 STO 0 AWORK4(2) [...SPOOLING 16 9R#= BNZ 0 XSPL [J IF SPOOLING 14 9R*D BNG 6 XNLP [J IF TP 4 9RBL XSPL 18 9S22 LDX 4 IPAGE [INSTALLATION PARAMETER 8 9S77 LDN 0 32 17 9S8W TXL 4 0 [AT LEAST 32 PAGES 8 9S=K BCC XSX 7 9S## LDX 4 0 20 9SB3 XSX ADN 4 1 [EXTRA WORD FOR TOTAL NO OF PAGES 8 9SFL ADN 4 10 20 9S_= SETUPCORE 4,3,ADATA,IPTEMP [WILL HOLD FIRST REC NO PER PAGE 18 9TDW STOZ A1(3) [INITIALISE PAGE COUNT 10 9TYG LDX 0 IWORK10(2) 9 9W77 STOZ A1+1(3) 9 9W9B STO 0 A1+2(3) 4 9WQG XNLP 10 9X4Y MHUNTW 3,GOUT,INFO 9 9XCB NOPRE LDX 7 GMODE(3) 21 9XX2 STO 7 AWORK2(2) [B2 INDICATES THERE IS A SETUP FILE 7 9YBL SLL 7 2 8 9YW= ANDX 7 GSIGN 9 9_64 ORS 7 AWORK4(2) 7 9_TG LDN 0 0 9 =2*6 LDX 4 GFTY(3) 18 =2SQ ANDN 4 1 [B23 : MAINFILE IS BASIC 15 =3#B BNG 6 NONM [J IF TAPE 4 =3S2 # 19 =4?L LDN 0 8 [INITIAL PAGE LINE COUNT = 8 10 =4R= STO 0 IWORK17(2) 18 =5=W LDX 0 GMFMSK(3) [CATEGORY MASK IF MONFILE 10 =5QG STO 0 IWORK14(2) 18 =6=6 LDX 0 GMODE(3) [SEQUENCING , MONFILE AND 17 =6PQ ANDN 0 7 [SPECIAL LISTING BITS 16 =79B BPZ 7 NOSU [NO SETUP FILE 9 =7P2 LDX 5 GFTY(3) 19 =88L ANDN 5 #20 [B19 : SETUP FILE IS BASIC 9 =8N= LDX 6 GFTY(3) 16 =97W ANDN 6 #360 [SETUP FILE TYPE 18 =9MG BNZ 5 SUFB [J IF SETUP FILE IS BASIC 21 ==76 ORN 6 1 [AMORPHOUS SETUP FILE:SET SPECIAL BIT 8 ==LQ BRN TNON 17 =?6B SUFB ORX 6 GSIGN [INDICATE BASIC FILE 18 =?L2 TNON STO 6 IWORK8(2) [STORE SETUP FILE TYPE 7 =#5L LDN 6 1 20 =#K= STOZ IWORK5(2) [START SETUP FILE AT BEGINNING 18 =*4W STOZ IWORK6(2) [LINE RESTART SETUP FILE 18 =*JG NGS 6 IWORK7(2) [LIST ALL THE SETUP FILE 7 =B46 NOSU LDN 5 4 17 =BHQ ANDX 5 0 [B21 SET IF MONFILE 8 =C3B BZE 5 NONM 19 =CH2 ANDN 0 6 [MONFILE : UNSET SPECIAL BIT 8 =D2L BRN SPE 8 =DG= NONM BNZ 4 SPE 20 =D_W ORN 0 1 [AMORPHOUS FILE : SET SPECIAL BIT 9 =FFG SPE LDEX 5 GFTY(3) 16 =F_6 SLL 5 4 [MAINFILE TYPE 7 =GDQ ORX 0 5 16 =GYB BZE 4 TAFF [NOT BASIC FILE 18 =HD2 ADX 0 GSIGN [PFCC PRESENT INDICATOR 10 =HXL TAFF STO 0 IWORK13(2) 10 =J3P LDX 6 ACOMMUNE1(2) 8 =J7S ADX 6 FX1 7 =J?X EXIT 6 0 4 =JD2 [ 4 =JD* [ 4 =JDN [ 8 =JF3 [ WW WW W 8 =JFB [ WW WW WW 8 =JFP [ WW WW WWW 8 =JG4 [ WWWW WW 8 =JGC [ WWWWW WW 8 =JGQ [ WW WW WW 8 =JH5 [ WW WW WW 8 =JHD [ WW WW WW 4 =JJ5 [ 6 =JN8 SK1IPBLISTD 4 =JP2 [ 10 =JPS MHUNTW 3,GOUT,INFO 17 =JQL JBS Z1UIJPC,3,BLFFRTOER [ J IF ERROR DETECTED 8 =JRD CALL 7 RINGO 9 =JS? CALL 6 SINITIAL 9 =JYC LDX 0 AWORK1(2) 8 =J_Y BPZ 0 NOTP 10 =K3F ACROSS IPBLISTE,1 4 =K52 NOTP 18 =K5S BPZ 7 NOSPE [NO SPECIAL STATIONERY 11 =K6M MHUNTW 3,ADATA,IPTEMP 18 =K9= STOZ A1+2(3) [SETUP STARTS FROM ZERO 19 =KBG ACROSS IPBLISTB,2 [LIST TESTPATTERN FILE FIRST 10 =KW6 NOSPE ACROSS IPBLISTB,1 4 =KWN [ 4 =KX= [ 4 =KXS [ 5 =KYB Z1UIJPC 8 =KYY LDX 7 GMODE(3) 8 =K_G ANDX 7 BIT11 21 =L24 BZE 7 NDRQ [J UNLESS READ ERROR WHEN LOOKING FOR ST 9 =L2L MHUNTW 3,AMXOR,ADCB 7 =L38 LDN 0 4 8 =L3Q ANDX 0 IWAIT(3) 8 =L4# BNZ 0 RESPL 9 =L4W LDXC 7 ISTATUS(3) 16 =L5D BCS RCREQ [J IF ALREADY INOP 5 =L62 RESPL 9 =L6J MHUNTW 1,AMXOR,IOUT 7 =L76 LDCT 0 #100 16 =L7N ORS 0 IPBIDE+1(1) [END OF DATA STREAM 15 =L8= CALL 7 RINGO [SEND HEADINGS 9 =L8S MHUNTW 3,AMXOR,ADCB 8 =L9B LDX 0 IWAIT(3) 7 =L9Y ANDN 0 4 15 =L=G BNZ 0 SPCO [J IF SPOOLING 7 =L?4 LDCT 7 #400 5 =L?L RCREQ 9 =L#8 LDX 6 IDENTNO(3) 10 =L#Q LONGSET #36,(GEOERR),6 9 =L*# ACROSS IPBLISTC,4 4 =L*W SPCO 6 =LBD OUTPER 9 =LC2 INFORM 0,JCORRUPT,1 4 =LCJ [ 4 =LD6 [ 8 =LDN [ WW WW WW 8 =LF= [ WW WW WW 7 =LFS [ WW WW WW 8 =LGB [ WWWW WW WW 9 =LGY [ WWWWW WWWWWWWW 8 =LHG [ WW WW WW 8 =LJ4 [ WW WW WW 8 =LJL [ WW WW WW 4 =LK8 [ 4 =LKQ [ 6 =LL# SK4IPBLISTD 4 =LLW [ 4 =LMD [ 4 =LN2 NDRQ 19 =LPJ CALL 7 SETU [GET BUFFER FOR ERROR MESSAGE 11 =M7? MHUNTW 1,ADATA,HEADING 16 =MK2 LDN 4 HEADPFCC(1) [MOVE IN MESSAGE 10 =N2P SMO HEADCNT(1) 7 =NDD MVCH 4 0 7 =NW7 FREECORE 1 8 =P?W CALL 7 ZLINE 10 =PPK MHUNTW 3,AMXOR,IOUT 9 =Q7# SBN 5 IDATA(3) 7 =QK3 SLC 5 2 10 =R2Q DSA 5 IPBIDE+1(3) 10 =RDF ADN 5 IDATA-A1*4+3 7 =RW8 SRL 5 2 8 =S?X ALTLEN 3,5 9 =SGQ CALL 6 SINITIAL 10 =SPL MHUNT 1,GOUT,INFO 15 =T7* IF BS,1,BLFSETUP [SETUP FILE 6 =TK4 THEN 19 =W2R FILEMOVE 0,1 [INTERCHANGE SO MAIN AT TOP 9 =W7* LDCT 0 #400 17 =W?X ERS 0 AWORK4(2) [INVERT FILE INDICATOR 5 =WDG FI 10 =X?Y MHUNTW 3,AMXOR,ADCB 11 =XPM IF BS,3,ADCBTSPOOL 11 =Y7B AND BS,3,ADCB7502LP 6 =YK5 THEN 11 =_2S BRN SK7IPBLISTD 6 =_DH ELSE 11 =_W= MHUNTW 3,AMXOR,IOUT 9 ?2?_ LDCT 0 #40 17 ?2PN ORS 0 IPBIDE+1(3) [REPORT OUTPUT SENT 10 ?37C ACROSS IPBLISTC,1 5 ?3K6 FI 4 ?3K9 [ 4 ?3K# [ 4 ?3KC [ 8 ?3KG [ WW WW WWWWW 8 ?3KK [ WW WW WW WW 8 ?3KN [ WW WW WW 8 ?3KR [ WWWW WW 8 ?3KW [ WWWWW WWWWW 7 ?3K_ [ WW WW WW 7 ?3L4 [ WW WW WW 8 ?3L7 [ WW WW WWWWWWWW 4 ?3L= [ 6 ?3L* SK2IPBLISTD 4 ?3LD [ 9 ?3LH [ ENGAGE BUTTON INTERUPT 4 ?3LL [ 18 ?3LP STOZ AWORK1(2) [ COUNT OF AMXOR/IOUT BLOCKS 9 ?3LS MHUNTW 3,AMXOR,ADCB 18 ?3LT ...[ ######### RMTLFUNAV RESTORE TIME MACRO ############ 4 ?3LW ...[ 10 ?3LX ... SEGENTRY K20IPBLISTD 20 ?3LY ... BRN XIFSP [IF ON, THIS REPLACED BY NULL 19 ?3L_ ... JBS XSUI,3,ADCBINOP [IF INOP, JUMP TO SUICIDE 10 ?3M2 ... SEGENTRY K21IPBLISTD 5 ?3M3 ...XIFSP 15 ?3M4 ... IF BC,3,ADCBTSPOOL [ NOT SPOOLING 15 ?3M5 ... AND BC,3,ADCBINOP [ NOT INOPERABLE 5 ?3M6 ... THEN 10 ?3M8 LDCH 0 JSOURCE1(2) 7 ?3M? SBN 0 2 16 ?3MB IF 0,ZE [ LINE PRINTER 6 ?3MF THEN 7 ?3MG ...#SKI G170&1$1 4 ?3MH ...( 11 ?3MJ SEGENTRY K55IPBLISTD 11 ?3MM LDN 4 A7021WIDTH+6 4 ?3MN ...) 6 ?3MP ...#SKI G170&1 4 ?3MQ ...( 9 ?3MR ...#ALT K55IPBLISTD = 1022 9 ?3MS ... LDN 4 6 11 ?3MT ... ADX 4 IWIDTH(2) 4 ?3MW ...) 15 ?3MX ...[ SEGENTRY FOR RESTORE TIME MACRO - LISTDC2 11 ?3MY ... SEGENTRY K64IPBLISTD 8 ?3M_ ... ADN 4 4 9 ?3N3 CALL 7 PCOR 11 ?3N6 LDN 4 STARSOLF(1) 17 ?3N9 MVCH 4 8 [ FORM FEED _**** 8 ?3N# LDX 4 5 8 ?3NC SBN 4 1 7 ?3ND ...#SKI G170&1$1 4 ?3NF ...( 11 ?3NG SEGENTRY K56IPBLISTD 16 ?3NK MVCH 4 A7021WIDTH-8 [ ***....*** 4 ?3NL ...) 6 ?3NM ...#SKI G170&1 4 ?3NN ...( 9 ?3NP ...#ALT K56IPBLISTD = 1022 9 ?3NQ ... SMO FX2 10 ?3NR ... LDX 3 IWIDTH 10 ?3NS ... MVCH 4 -8(3) 4 ?3NT ...) 10 ?3NW ... LDN 4 STAREND(1) 21 ?3NX ... MVCH 4 6 [ **_ FORM FEED - SEE LFTHROW MACR 10 ?3NY ... LDN 4 PDC2(1) 15 ?3N_ [ SEGENTRY FOR RESTORE TIME MACRO - LISTDC2 11 ?3P4 SEGENTRY K65IPBLISTD 15 ?3P7 MVCH 4 4 [ CR DC2 11 ?3P= BS 2,IOUTEORESTR 10 ?3P* ELSE [ TAPE PUNCH 10 ?3PD LDX 0 IMDNPU(3) 9 ?3PH ANDN 0 #7777 8 ?3PL SLL 0 2 10 ?3PP STO 0 AWORK3(2) 9 ?3PS LDN 6 511 10 ?3PX CALL 3 SRUNOUT 5 ?3Q2 FI 8 ?3Q5 CALL 7 RINGO 5 ?3Q8 FI 4 ?3RR # 7 ?3RW LFEND EB 4 ?3RX ...[ 18 ?3RY ...[ ########### RMTLFUNAV RESTORE TIME MACRO ########### 4 ?3R_ ...[ 15 ?3S2 ...[ COME HERE IF MACRO ON AND DEVICE IS INOP 4 ?3S3 ...[ 14 ?3S4 ...XSUI FREEPER [FREE DEVICE 14 ?3S5 ... SUICIDE [AND SUICIDE 4 ?3S6 ...[ 4 ?3S7 ...[ 9 ?3S8 ...[ WW WW WWWWWWWW 8 ?3S= [ WW WW WW 8 ?3S* [ WW WW WW 8 ?3SD [ WWWW WWW 8 ?3SH [ WWWWW WW 9 ?3SL [ WW WW WW WW 9 ?3SP [ WW WW WW WW 8 ?3SS [ WW WW WWWWWW 4 ?3SX [ 6 ?3T2 SK3IPBLISTD 4 ?3T5 [ 7 ?3T8 [ END OF LISTING 4 ?3T? [ 18 ?3TB STOZ AWORK1(2) [ COUNT OF AMXOR/IOUT BLOCKS 10 ?3TF MHUNTW 1,AMXOR,ADCB 11 ?3TJ IF BS,1,ADCBTSPOOL 11 ?3TM AND BS,1,ADCB7502LP 6 ?3TQ THEN 7 ?3TT LFEND 5 ?3TY FI 9 ?3W3 MHUNT 1,GOUT,INFO 10 ?3W6 IF BS,1,BLFBINARY 5 ?3W9 THEN 10 ?3W# MHUNT 1,AMXOR,ADCB 8 ?3WC LDCT 0 #777 9 ?3WG ANDX 0 IMDNPU(1) 9 ?3WK CALL 7 SCHANMODE 5 ?3WN ELSE 9 ?3WR CALL 7 SENGAGE 16 ?3WW IF 0,ZE [ DEVICE ENGAGED 6 ?3W_ THEN 11 ?3X4 MHUNTW 3,AMXOR,ADCB 11 ?3X7 LDCH 0 JSOURCE1(2) 8 ?3X= SBN 0 2 16 ?3X* IF 0,ZE [ LINE PRINTER 7 ?3XD THEN 10 ?3XH CALL 6 SSTARS 10 ?3XL ELSE [ TAPE PUNCH 12 ?3XP MHUNTW 3,AMXOR,ADCB 11 ?3XS LDX 0 IMDNPU(3) 10 ?3XX ANDN 0 #7777 9 ?3Y2 SLL 0 2 11 ?3Y5 STO 0 AWORK3(2) 9 ?3Y8 LDN 6 511 10 ?3Y? CALL 3 SRUNOUT 6 ?3YB FI 9 ?3YF CALL 7 RINGO 5 ?3YJ FI 5 ?3YM FI 5 ?3YQ LFEND 4 ?3YT [ 4 ?3YY [ 4 ?3_3 [ 6 ?3_6 SK7IPBLISTD 4 ?3_9 [ 16 ?3_# [ END OF LISTING - CLEAN COPY SPOOLING PRINTER ONLY 4 ?3_C [ 10 ?3_G MHUNTW 3,AMXOR,ADCB 18 ?3_K CALL 6 SSTARS [ FORMAT ASTERISK LINE 10 ?3_N ACROSS IPBLISTC,1 4 ?43= #END 8 ____ ...07672556000700000000