|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 30056 (0x7568)
Notes: pts_type(SC)
Names: »PRINT.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »MODIFY/PRINT.SC«
IDENT PRINT REL 11.0 DK 82-04-22 870150541100 DK2, FORM-FEED CHAR. DK3, HARD COPY ERROR. DK1, SUPPRESS TRAILING SPACES =2 NEW LABEL 81-04-08 =1, EOC ON FIRST READ 81-01-26 ******************************************************************* * * * MODULE PRINT : * MODULE HANDLING THE PRINTOUTS BOTH FROM * * DISPLAY AND MAIN-FRAME * * (EMULATION 3270 SNA/SDLC, BSC * * * ******************************************************************* EJECT ******************************************************** * * LIST OF ROUTINES * * PRINT MAIN ROUTINE * IOACT ACTIVATE IN CURRENT MODE * IOCPL COMPLETE IN CURRENT MODE * DCPINP DC PRINTER INPUT * ICPINP INTERTASK INPUT * ICPRED INTERTASK READ * ICPWRT INTERTASK WRITE * ICABOR INTERTASK ABORT * COPP COPY SCREEN BUFFER TO PRINTER * TABLE OF PRINTERORDERS * NL NEW LINE * FFDUM SIMULATED FORM FEED * FFVAL FORM FEED * CR CARRIAGE RETURN * EM END MESSAGE * INVAL INVALID PRINTER ORDER * FFCHK CHECK IF FF IS VALID * PRLINE PRINT LINE * INIT INIT ROUTINE * TSTPRT TEST HARDWARE * GETTAB GET ORDER INDEX * *********************************************************** EJECT ******************************************************************* * * * ENTRY POINTS * * * ******************************************************************* ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2 ******************************************************************* * * * EXTERNAL REFERENCES * * * ******************************************************************* EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA) EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9 EXTRN OPSYS OPEN SYSTEM (DCSNA) EXTRN OPEN OPEN (DCBSC) EXTRN CONCT CONNECT PASSIVE (DCBSC) EXTRN SETTIM SET REQUEST TIMER (DCBSC) EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS EXTRN TSTMES TEST MESSAGE (DCSNA) EXTRN READW READ WITH WAIT (DCSNA) EXTRN READNW READ WITH NO WAIT (DCSNA) EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN UNPACK UNPACK DC BUFFER (PAD) EXTRN ECBINI INIT IF ECB:S (DSPSNA) EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) EXTRN ICWRT INTERTASK WRITE (KEYB) EXTRN ICREAD INTERTASK READ (KEYB) EXTRN SETSTA SET STATUS (DCBSC) EJECT *************************************************************** * * * CONDITIONAL ASSEMBLY * * * *************************************************************** X:A EQU 0 SNA HANDLING IF:=1 SNA EQU 0 X:D EQU 1 NUMBER OF DC LINES (1-2) NBRLIN EQU 1 X:O EQU 0 TEST MODE IF:=1 TEST EQU 0 SUPSPC EQU 1 SUPRESS TRAILING SPACES IF =1 DK1 EJECT ******************************************************************* * * * DECLARATIONS OF DATA AND EQUATES * * ******************************************************************* * * TABLE OF PRINTER TYPES * PRTTAB EQU * DATA /0004 NUMBER OF PRINTERTYPES DATA 'TT',0 GTP DATA 'LL',2 LINE PRINTER DATA 'GG',4 GP 74 DATA 'CC',6 COPY 80 * * DEFAULT VALUES FOR DIFF. PRINTERS * BYTE1= NUMBER OF LINES/PAGE * BYTE2= NUMBER OF CHAR./LINE * PRTLEN DATA /2382 GTP DATA /2382 LP DATA /2382 GP 74 DATA /2382 COPY 80 * * LINE LENGTHS FROM WCC * LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * PRINTER MODES * LOCAL EQU 0 LOCAL MODE SHARED EQU 2 SHARED MODE * * PRINTER STATUS IN PRTMOD * PRTERR EQU /4000 PRINTER ERROR * * COPY INTERNAL STATUS IN A10 * NXTCHA EQU /8000 GET NEXT CHAR. ENDPRT EQU /4000 END PRINTING NTONLY EQU /2000 NOT ONLY SPACES CRREC EQU /1000 CR RECEIVED * * RELATIVE POS. IN ECB-BLOCK * IC EQU 2 INTERTASK * * SCREEN SIZE * LBVDU EQU 1920 * * RECEIVE STATUS * LICREC EQU /2000 . =1 EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * BVDU EQU 2 SCREEN BUFFER WCC EQU BVDU+1950 WCC LINCNT EQU WCC+4 LINE COUNTER DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER PRTID EQU DCLENG+6 PRINTER TASKID PRTTYP EQU PRTID+2 PRINTER TYPE MAIN EQU PRTTYP+4 WHAT DC LINE ECBBLK EQU MAIN+6 ECB BLOCK BUFPNT EQU ECBBLK+14 BUFFER POINTER REGI EQU BUFPNT+2 SAVE AREA PRTMOD EQU REGI+32 PRINTER MODE ECBPRT EQU PRTMOD+4 PRINTER ECB ECBICR EQU ECBPRT+6 INTERTASK READ ECB ECBICW EQU ECBICR+2 INTERTASK WRITE ECB ECBDC EQU ECBICW+2 ECB DC ECBDC1 EQU ECBDC ECB DC LINE 1 ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 24 DEVICE TABLE XIF IFT TEST=1 TSKTAB EQU 219 XIF EJECT ******************************************************************* * * * PRINT MAIN ROUTINE PRINTER * * * ******************************************************************* PRINT EQU * CF A14,INIT INIT ROUTINE IFT SNA=1 CF A14,OPINIT OPEN CONNECTION INITIATE RF(N) PRI100 DC NOT PRESENT CF A14,OPSYS OPEN SYSTEM XIF IFF SNA=1 CF A14,OPEN OPEN * CHECK ON DC REMOVED PR. 8623, DK * LDKL A8,20 LKM DATA 6 XIF LDK A1,SHARED ALWAYS SHARED IN BSC ST A1,PRTMOD,A11 PRI100 EQU * CF A14,TSTPRT TEST HARDWARE CF A14,CONCT CONNECT PASSIVE IF PRTR OK CF A14,SETTIM SET REQUEST TIME PRI200 EQU * CF A14,IOACT ACTIVATE IN CURRENT MODE LDKL A7,ECBBLK ADR A7,A11 LKM DATA 7 MULTIPLE WAIT CF A14,IOCPL COMPLET IN CURRENT MODE LD A1,PRTMOD,A11 ANKL A1,PRTERR PRINTER ERROR? RB(Z) PRI200 NO XRS A1,PRTMOD,A11 RB PRI100 TRY TO FIX IT EJECT ********************************************************************* * * * IOACT ACTIVATE IN CURRENT MODE * * ********************************************************************* IOACT EQU * LDK A4,0 LD A1,PRTMOD,A11 SHARED OR LOCAL? RF(Z) IOAC20 LOCAL ADK A4,1 ADD NUMBER OF WAITS LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY? RF(NZ) IOAC10 YES CM MAIN,A11 INDICATE LINE 1 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+4,A11 IOAC10 EQU * IFT NBRLIN=2 ADK A4,1 ADD MORE WAITS LD A2,ECBBLK+6,A11 ALREADY? RF(NZ) IOAC20 YES IM MAIN,A11 INDICATE LINE 2 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+6,A11 XIF IOAC20 EQU * ADK A4,1 LD A2,ECBBLK+2,A11 ALREADY? RF(NZ) IOAC30 YES CF A14,ICPRED READ INTERTASK ST A8,ECBBLK+2,A11 IOAC30 EQU * ST A4,ECBBLK,A11 NUMBER OF WAITS RTN A14 EJECT ********************************************************************* * * * IOCPL COMPLETE IN CURRENT MODE * * ********************************************************************* IOCPL EQU * CW A8,ECBBLK+2,A11 INTERTASK? RF(NE) IOCP10 NO CM ECBBLK+2,A11 CF A14,ICPINP MAKE HARDCOPY RF IOCP90 IOCP10 EQU * CW A8,ECBBLK+4,A11 DC LINE 1? IFT NBRLIN=2 RF(NE) IOCP20 NO XIF IFF NBRLIN=2 RF(NE) IOCP90 NO FORGET IT XIF CM ECBBLK+4,A11 CM MAIN,A11 INDICATE LINE 1 RF IOCP30 IFT NBRLIN=2 IOCP20 EQU * CW A8,ECBBLK+6,A11 DC LINE 2? RF(NE) IOCP90 NO CM ECBBLK+6,A11 IM MAIN,A11 INDICATE LINE 2 XIF IOCP30 EQU * CF A14,DCPINP TAKE CARE OF DC IOCP90 EQU * RTN A14 EJECT *************************************************************** * * * DCPINP DC PRINTER INPUT * * * *************************************************************** DCPINP EQU * CF A14,ICABOR ABORT LOCAL HARD COPY LDR A7,A7 ALREADY COMPLETED? RF(Z) DCP100 NO CF A14,ICPINP TAKE CARE OF THAT FIRST DCP100 EQU * LD A8,ECBDC,A11 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 1 RF(Z) DCP150 YES LD A8,ECBDC2,A11 DCP150 EQU * XIF IFT SNA=1 LD A1,ECBRC,A8 OK? ANKL A1,/701 OK? RF(NZ) DCP500 NO STOP IT XIF CF A14,GETBUF GET BUFFER LDR A3,A12 CF A14,READW READ FIRST BUFFER ANK A1,3 ERROR? RF(NZ) DCP400 NO RF DCP500 DCP400 EQU * SUR A10,A10 RESET INTERNAL UNPACK STATUS IFT SNA=1 . =1 ANK A1,2 . =1 RF(Z) DCP450 . =1 ORKL A10,LICREC . =1 DCP450 EQU * . =1 XIF . =1 LD A1,ECBEL,A8 ST A1,DCLENG,A11 SAVE LENGTH ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS IFT SNA=1 CF A14,GETBUF GET ANOTHER BUFFER LDR A3,A8 CF A14,READNW READ WITH NO WAIT XIF CF A14,UNPACK UPDATE SCREEN BUFFER LD A1,WCC,A11 ANK A1,/8 ANY COPY NEEDED RF(Z) DCP500 NO CF A14,COPP PRINT IT DCP500 EQU * IFF SNA=1 LDK A1,0 CF A14,SETSTA SET DEVICE END XIF RTN A14 EJECT **************************************************************** * * * ICPINP INTERTASK INPUT * * * **************************************************************** ICPINP EQU * CF A14,COPP MAKE HARDCOPP ST A1,REGI,A11 RETURN CODE TO TERMINAL CF A14,ICPWRT WRITE INTERTASK RTN A14 EJECT ****************************************************************** * * * ICPRED INTERTASK READ * * * ****************************************************************** ICPRED EQU * LD A8,ECBICR,A11 CF A14,ICSET SET NO TIMEOUT LDK A1,0 NOT ADDRESSED READ LDKL A3,BVDU ADR A3,A11 LDKL A2,LBVDU+/20 CF A14,ICREAD READ INTERTASK RTN A14 EJECT ******************************************************************** * * * ICPWRT WRITE INTERTASK * * * ******************************************************************** ICPWRT EQU * LD A8,ECBICW,A11 CF A14,ICSET SET NO TIMEOUT LD A1,ECBICR,A11 LD A1,ECBCW,A1 GET TASKID RF(Z) ICPW90 NOT THERE LDKL A3,REGI RETURN CODE ADR A3,A11 LDK A2,2 LENGTH CF A14,ICWRT WRITE INTERTASK ICPW90 EQU * RTN A14 EJECT ************************************************************* * * * ICABOR INTERTASK ABORT * * * ************************************************************* ICABOR EQU * LDK A7,0 CM ECBBLK+IC,A11 LD A8,ECBICR,A11 LKM DATA 10 RTN A14 EJECT ********************************************************************* * * * COPP COPY SCREEN BUFFER TO PRINTER * * * ********************************************************************* * REGISTERS * * A2= CHAR. * A3= SCREEN BUFFER POINTER * A4= REL. SCREEN BUFFER ADDRESS * A5= LINE LENGTH * A6= CURRENT ATTRIBUTE * A8= ECB BUFFER POINTER * A9= ECB BUFFER INDEX * A10= INTERNAL STATUS * A11= TASK BLOCK BASE * A13= ECB BASE * ********************************************************************* COPP EQU * . =2 LD A8,ECBPRT,A11 LDK A1,0 LDK A6,0 RESET ATTRIBUTE CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS CM LINCNT,A11 RESET LINE COUNTER LD A1,WCC,A11 ANK A1,/38 MASK RELEVANT LDR A5,A1 ANK A1,8 START PRINT? RF(Z) COP900 NO FORGET IT SRL A5,4 LC A5,LINLEN,A5 GET LINE LENGTH LDR A5,A5 NL,EM AND CR DET. LENGTH? RF(NZ) COP100 NO LD A1,PRTTYP,A11 GET MAX LINE LENGTH LC A5,PRTLEN+1,A1 COP100 EQU * LDKL A3,BVDU ADR A3,A11 LD A8,ECBBA,A8 CMR A8 RESET CONTROL CHAR. ADKL A8,2 SUR A9,A9 LDK A2,0 LDK A4,0 SUR A10,A10 RESET STATUS COP200 EQU * CWK A4,LBVDU ALL PRINTED? RF(NL) COP850 YES CWR A9,A5 LINE FULL? RF(L) COP400 NO CF A14,PRLINE PRINT LINE LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES COP400 EQU * LCR A2,A3 GET CHAR. ANK A2,/FF RF(Z) COP650 NULL CHAR. CCK A2,/8000 ATTRIBUTE? RF(L) COP500 NO LDR A6,A2 GET NEW ATTRIBUTE RF COP650 COP500 EQU * CCK A2,/2020 ORDER? RF(L) COP550 YES XRKL A10,CRREC RESET RF COP600 COP550 EQU * CF A14,GETTAB GET ORDERINDEX CFR A14,A1 TAKE CARE OF ORDER LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES LDR A1,A10 GET STATUS RF(N) COP800 GET NEXT CHAR. SLL A1,1 RF(N) COP850 END COP600 EQU * LDR A1,A6 CHECK IF NONPRINT ANK A1,/C XRK A1,/C RF(Z) COP650 NONPRINT ORKL A10,NTONLY INIDICATE NOT ONLY NOT RF COP700 COP650 EQU * LDK A2,/20 REPLACE WITH SPACE COP700 EQU * SCR A2,A8 ADKL A9,1 ADKL A8,1 COP800 EQU * XRKL A10,NXTCHA RESET ADK A3,1 ADK A4,1 RB COP200 COP850 EQU * LDR A9,A9 SOMETHING LEFT TO PRINT? RF(Z) COP900 NO CF A14,PRLINE PRINT LAST LINE ANKL A10,ENDPRT END MESS.? RF(Z) COP900 NO STOP IT ORKL A10,NTONLY INDICATE PRINTABLE CF A14,PRLINE EXTRA LINE FEED COP900 EQU * LDR A1,A1 PRINTER FAILED? RF(Z) COP950 NO LDKL A2,PRTERR INDICATE ERROR ORS A2,PRTMOD,A11 COP950 EQU * RTN A14 EJECT ************************************************************************ * * TABLE FOR PRINTERORDERS * ************************************************************************ PRTORD EQU * DATA /0004 NUMBER OF ORDER CODES DATA /0A0A,NL,NL,NL,NL NEW LINE DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED DATA /0D0D,CR,CR,CR,CR CARR. RETURN DATA /1919,EM,EM,EM,EM END MESSAGE DATA INVAL INVALID ORDER CODE EJECT **************************************************************************** * * * NL NEW LINE * * * **************************************************************************** NL EQU * CF A14,PRLINE PRINT LINE AFTER NEW LINE ORKL A10,NXTCHA+NTONLY GET NEXT CHAR. RTN A14 EJECT ********************************************************************** * * * FFDUM SIMULATED FORM FEED * * * ********************************************************************** FFDUM EQU * CF A14,FFCHK CHECK IF FORM FEED IS VALID LDR A1,A1 VALID? RF(NZ) FFD400 NO LDK A7,0 RESET LD A1,PRTTYP,A11 TYPE OF PRINTER LC A7,PRTLEN,A1 PAGE SIZE FFD100 EQU * CW A7,LINCNT,A11 NEW PAGE? RF(L) FFD200 YES BUT TO MANY RF(E) FFD300 YES FINISHED ORKL A10,NTONLY ST A7,REGI,A11 SAVE CF A14,PRLINE ADVANCE ONE LINE LD A7,REGI,A11 RESTORE LDR A1,A1 PRINTER ERROR? RF(NZ) FFD500 YES RB FFD100 FFD200 EQU * NGR A1,A7 ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE RB FFD100 FFD300 EQU * CM LINCNT,A11 TOP OF PAGE LDK A2,/20 REPLACE FF WITH SPACE FFD400 EQU * LDK A1,0 RETURN CODE FFD500 EQU * RTN A14 EJECT ********************************************************************* * * * FFVAL FORM FEED * * * ********************************************************************* FFVAL EQU * CF A14,FFCHK CHECK IF FF VALID LDR A1,A1 VALID? RF(NZ) FFV200 NO LDK A1,/31 FORM FEED DK2 SC A1,-1,A8 STORE FF CONTROL CHAR. LDK A2,/20 REPLACE FF WITH SPACE CM LINCNT,A11 TOP OF PAGE FFV200 EQU * LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************** * * * CR CARRIAGE RETURN * * * ********************************************************************** CR EQU * LDR A1,A6 GET ATTRIBUTE ANK A1,/C XRK A1,/C NONPRINT FIELD? RF(Z) CR100 YES LD A1,WCC,A11 ANK A1,/30 FORMATTED? RF(NZ) CR100 NO ORKL A10,NTONLY+CRREC CR RECEIVED CR100 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************* * * * EM END MESSAGE * * * ******************************************************************** EM EQU * ORKL A10,ENDPRT END PRINTING LDK A1,0 RETURN CODE RTN A14 EJECT ****************************************************************** * * * INVAL INVALID PRINTER ORDER * * * ****************************************************************** INVAL EQU * LDK A2,/20 REPLACE WITH SPACE ORKL A10,NTONLY NOT ONLY LDK A1,0 RETURN CODE RTN A14 EJECT ***************************************************************** * * * FFCHK CHECK IF FF IS VALID * * * ***************************************************************** FFCHK EQU * LD A1,WCC,A11 ANK A1,/30 XRK A1,/30 FORMATTED? RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY LD A1,WCC,A11 ANK A1,/40 LOCAL HARD COPY? RF(NZ) FFCH20 FF NOT ALLOWED DK3 FFCH10 EQU * LDR A9,A9 FF ALLOWED RF(Z) FFCH30 NOT LDR A1,A10 ANKL A1,CRREC CR RECEIVED? RF(NZ) FFCH30 YES FFCH20 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,1 RETURN CODE RF FFCH40 FFCH30 EQU * XRKL A10,CRREC RESET LDR A9,A9 EMPTY LINE RF(Z) FFCH35 YES CF A14,PRLINE PRINT LINE FFCH35 EQU * LDK A1,0 RETURN CODE FFCH40 EQU * ORKL A10,NTONLY NOT ONLY RTN A14 EJECT **************************************************************** * * * PRLINE PRINT LINE * * * **************************************************************** PRLINE EQU * LD A8,ECBPRT,A11 LDR A1,A10 ANKL A1,NTONLY ONLY RUBB.? RF(NZ) PRL050 NO LD A1,WCC,A11 LDR A2,A1 ANK A1,/30 XRK A1,/30 HRADCOPY? RF(NZ) PRL200 NO ANK A2,/40 HARDCOPY????? RF(NZ) PRL200 NO PRL050 EQU * XRKL A10,NTONLY RESET IFT SUPSPC=1 DK1 LD A1,ECBBA,A8 FIND LENGTH AND END OF BUFFER DK1 ADK A1,1 SKIP CONTROL CHARS. DK1 ST A1,ECBBA,A8 DK1 LDR A2,A9 GET REQ. LENGTH DK1 ADR A1,A2 GET ADDR. TO END OF BUFFER DK1 LDK A2,0 CLEAR FOR CHAR. WORK DK1 PRL060 EQU * DK1 LCR A2,A1 GET A CHARACTER DK1 CCK A2,/2020 SPACE ? DK1 RF(NE) PRL070 NO, FINISHED DK1 SUK A1,1 ADJUST POINTER DK1 CW A1,ECBBA,A8 END OF BUFFER,(FRONT-END) DK1 RF(E) PRL070 YES, FINISHED DK1 RB PRL060 CONTINUE DK1 PRL070 EQU * DK1 LD A2,ECBBA,A8 COMPUTE NEW LENGTH DK1 SUR A1,A2 DK1 LDR A9,A1 PUT IN NEW REQ, LENGTH DK1 PRL080 EQU * DK1 LD A1,ECBBA,A8 RESTORE CONT. CHAR. ADDR. DK1 SUK A1,1 DK1 ST A1,ECBBA,A8 DK1 XIF DK1 ADKL A9,2 ST A9,ECBRL,A8 LDK A7,/06 PRINT LKM DATA 1 LDK A1,50 NUMBER OF DELAYS PRL100 EQU * LDKL A8,1 WAIT FOR A WHILE LKM DATA 6 LD A8,ECBPRT,A11 LDR* A2,A8 PRINT COMPL.? RF(N) PRL150 YES SUK A1,1 MORE TO WAIT FOR? RB(NZ) PRL100 YES LKM DATA 10 ABORT RF(N) PRL150 FINSHED AT LAST LDK A1,1 NO CONSIDER IT AS #$&%$ RF PRL300 PRL150 EQU * LKM DATA 2 RESYNCHRONIZE IM LINCNT,A11 ANOTHER LINE LD A1,ECBRC,A8 OK? RF(NZ) PRL300 NO PRL200 EQU * LD A8,ECBBA,A8 GET BUFFER ADDRESS CMR A8 RESET CONTROL CHAR. SUR A9,A9 ADKL A8,2 LDK A1,0 RETURN CODE PRL300 EQU * RTN A14 EJECT ******************************************************************* * * * INIT INIT ROUTINE * * * ******************************************************************* INIT EQU * CF A14,COMINI COMMON INIT CF A14,ECBINI INIT OF ECB:S LCR A2,A1 SLL A2,8 LC A2,+1,A1 ST A2,PRTID,A11 SAVE WHOLE TASKID LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX LD A7,PRTTAB NUMBER OF TYPES LDKL A1,PRTTAB+2 START OF PRINTER TABLE INI100 EQU * CCR A2,A1 CONVERT TYPE TO INDEX RF(E) INI200 ADK A1,4 SUK A7,1 ILLEGAL ID? RB(NZ) INI100 NO LDKL A1,* ST A1,REGI,A11 LKM DATA 3 FORGET IT INI200 EQU * LD A1,+2,A1 ST A1,PRTTYP,A11 SAVE PRINTER TYPE RTN A14 EJECT ***************************************************************** * * * TSTPRT TEST HARDWARE * * * ***************************************************************** TSTPRT EQU * LDK A2,0 LD A8,ECBPRT,A11 LDK A7,/80 TEST STATUS TSTP10 EQU * LKM DATA 1 LD A1,ECBRC,A8 ANK A1,1 OPERABLE? RF(Z) TSTP80 YES LD A2,PRTID,A11 NO INDICATE NOT OP. IN DEVICE TABLE ANK A2,/FF SUK A2,/30 SLL A2,2 LD A3,+6,A13 LDK A1,TSKTAB ADR A3,A1 ADR A3,A2 LDK A1,1 SC A1,+3,A3 INDICATE NOT OP. LDR A1,A8 LDKL A8,100 LKM DATA 6 LDR A8,A1 LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONCE? RF(Z) TSTP90 NO SC A1,+3,A3 RESET STATUS TSTP90 EQU * RTN A14 EJECT ******************************************************************* * * * GETTAB GET ORDER INDEX * * * ******************************************************************* GETTAB EQU * LD A7,PRTORD NUMBER OF VALID ORDER CODES LDKL A1,PRTORD+2 ORDERTABLE BASE GETT10 EQU * CCR A2,A1 CONVERT ORDER CODE TO ADDRESS RF(E) GETT20 AD A1,PRTTAB AD A1,PRTTAB ADK A1,2 SUK A7,1 ORDER FOUND? RF(Z) GETT30 NO INVALID RB GETT10 TRY AGAIN GETT20 EQU * ADK A1,2 LD A2,PRTTYP,A11 ADR A1,A2 GETT30 EQU * LDR* A1,A1 RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT PRINT REL 11.0 DK 82-04-22 870150541100«, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» DK2, FORM-FEED CHAR. «, t00=0x0000, t01=0x0042}
0x005e…007e Head {h00=0x001c, h01=0x0050, text=» DK3, HARD COPY ERROR.«, t00=0x0000, t01=0x0062}
0x007e…00a6 Head {h00=0x0024, h01=0x0050, text=» DK1, SUPPRESS TRAILING SPACES«, t00=0x0000, t01=0x0082}
0x00a6…00be Head {h00=0x0014, h01=0x0050, text=» =2 NEW LABEL «, t00=0x0000, t01=0x00aa}
0x00be…00d2 Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0000, t01=0x00c2}
0x00d2…00f2 Head {h00=0x001c, h01=0x0050, text=» =1, EOC ON FIRST READ«, t00=0x0000, t01=0x00d6}
0x00f2…0106 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00f6}
0x0106…0152 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0000, t01=0x010a}
0x0152…019e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0156}
0x019e…01ea Head {h00=0x0048, h01=0x0050, text=»* MODULE PRINT : «, t00=0x0001, t01=0x0012}
0x01ea…0236 Head {h00=0x0048, h01=0x0050, text=»* MODULE HANDLING THE PRINTOUTS BOTH FROM * «, t00=0x0001, t01=0x005e}
0x0236…0282 Head {h00=0x0048, h01=0x0050, text=»* DISPLAY AND MAIN-FRAME * «, t00=0x0001, t01=0x00aa}
0x0282…02ce Head {h00=0x0048, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC * «, t00=0x0001, t01=0x00f6}
0x02ce…031a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0142}
0x031a…0366 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0001, t01=0x018e}
0x0366…0374 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x004a}
0x0374…03b4 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0002, t01=0x0058}
0x03b4…03be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0098}
0x03be…03e0 Head {h00=0x001e, h01=0x0050, text=»* LIST OF ROUTINES «, t00=0x0002, t01=0x00a2}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c4}
0x03ea…0412 Head {h00=0x0024, h01=0x0050, text=»* PRINT MAIN ROUTINE«, t00=0x0002, t01=0x00ce}
0x0412…0446 Head {h00=0x0030, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0002, t01=0x00f6}
0x0446…047a Head {h00=0x0030, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0002, t01=0x012a}
0x047a…04a6 Head {h00=0x0028, h01=0x0050, text=»* DCPINP DC PRINTER INPUT«, t00=0x0002, t01=0x015e}
0x04a6…04d2 Head {h00=0x0028, h01=0x0050, text=»* ICPINP INTERTASK INPUT «, t00=0x0002, t01=0x018a}
0x04d2…04fc Head {h00=0x0026, h01=0x0050, text=»* ICPRED INTERTASK READ«, t00=0x0003, t01=0x0026}
0x04fc…0528 Head {h00=0x0028, h01=0x0050, text=»* ICPWRT INTERTASK WRITE «, t00=0x0003, t01=0x0050}
0x0528…0554 Head {h00=0x0028, h01=0x0050, text=»* ICABOR INTERTASK ABORT «, t00=0x0003, t01=0x007c}
0x0554…058e Head {h00=0x0036, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER «, t00=0x0003, t01=0x00a8}
0x058e…05b6 Head {h00=0x0024, h01=0x0050, text=»* TABLE OF PRINTERORDERS «, t00=0x0003, t01=0x00e2}
0x05b6…05da Head {h00=0x0020, h01=0x0050, text=»* NL NEW LINE«, t00=0x0003, t01=0x010a}
0x05da…060a Head {h00=0x002c, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED «, t00=0x0003, t01=0x012e}
0x060a…0630 Head {h00=0x0022, h01=0x0050, text=»* FFVAL FORM FEED «, t00=0x0003, t01=0x015e}
0x0630…065c Head {h00=0x0028, h01=0x0050, text=»* CR CARRIAGE RETURN «, t00=0x0003, t01=0x0184}
0x065c…0684 Head {h00=0x0024, h01=0x0050, text=»* EM END MESSAGE «, t00=0x0004, t01=0x0020}
0x0684…06b6 Head {h00=0x002e, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER «, t00=0x0004, t01=0x0048}
0x06b6…06e6 Head {h00=0x002c, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID«, t00=0x0004, t01=0x007a}
0x06e6…070c Head {h00=0x0022, h01=0x0050, text=»* PRLINE PRINT LINE«, t00=0x0004, t01=0x00aa}
0x070c…0734 Head {h00=0x0024, h01=0x0050, text=»* INIT INIT ROUTINE«, t00=0x0004, t01=0x00d0}
0x0734…075e Head {h00=0x0026, h01=0x0050, text=»* TSTPRT TEST HARDWARE «, t00=0x0004, t01=0x00f8}
0x075e…078a Head {h00=0x0028, h01=0x0050, text=»* GETTAB GET ORDER INDEX «, t00=0x0004, t01=0x0122}
0x078a…0794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014e}
0x0794…07d8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0004, t01=0x0158}
0x07d8…07e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x000c}
0x07e6…0832 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0005, t01=0x001a}
0x0832…087e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0066}
0x087e…08ca Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0005, t01=0x00b2}
0x08ca…0916 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0005, t01=0x00fe}
0x0916…0962 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0005, t01=0x014a}
0x0962…096a Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0008}
0x096a…09a6 Head {h00=0x0038, h01=0x0050, text=» ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT)«, t00=0x0006, t01=0x0010}
0x09a6…09da Head {h00=0x0030, h01=0x0050, text=» ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2«, t00=0x0006, t01=0x004c}
0x09da…09e2 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0080}
0x09e2…0a2e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0006, t01=0x0088}
0x0a2e…0a7a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0006, t01=0x00d4}
0x0a7a…0ac6 Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0006, t01=0x0120}
0x0ac6…0b12 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0006, t01=0x016c}
0x0b12…0b5e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x0028}
0x0b5e…0b66 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0074}
0x0b66…0b9c Head {h00=0x0032, h01=0x0050, text=» EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA)«, t00=0x0007, t01=0x007c}
0x0b9c…0bd2 Head {h00=0x0032, h01=0x0050, text=» EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9«, t00=0x0007, t01=0x00b2}
0x0bd2…0bfa Head {h00=0x0024, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA)«, t00=0x0007, t01=0x00e8}
0x0bfa…0c1a Head {h00=0x001c, h01=0x0050, text=» EXTRN OPEN OPEN (DCBSC)«, t00=0x0007, t01=0x0110}
0x0c1a…0c46 Head {h00=0x0028, h01=0x0050, text=» EXTRN CONCT CONNECT PASSIVE (DCBSC)«, t00=0x0007, t01=0x0130}
0x0c46…0c76 Head {h00=0x002c, h01=0x0050, text=» EXTRN SETTIM SET REQUEST TIMER (DCBSC) «, t00=0x0007, t01=0x015c}
0x0c76…0ca6 Head {h00=0x002c, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x0007, t01=0x018c}
0x0ca6…0cd0 Head {h00=0x0026, h01=0x0050, text=» EXTRN TSTMES TEST MESSAGE (DCSNA)«, t00=0x0008, t01=0x002c}
0x0cd0…0cfc Head {h00=0x0028, h01=0x0050, text=» EXTRN READW READ WITH WAIT (DCSNA) «, t00=0x0008, t01=0x0056}
0x0cfc…0d2c Head {h00=0x002c, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA) «, t00=0x0008, t01=0x0082}
0x0d2c…0d52 Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0008, t01=0x00b2}
0x0d52…0d7c Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0008, t01=0x00d8}
0x0d7c…0da8 Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x0008, t01=0x0102}
0x0da8…0dd4 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBINI INIT IF ECB:S (DSPSNA)«, t00=0x0008, t01=0x012e}
0x0dd4…0e06 Head {h00=0x002e, h01=0x0050, text=» EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) «, t00=0x0008, t01=0x015a}
0x0e06…0e32 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x0008, t01=0x018c}
0x0e32…0e5e Head {h00=0x0028, h01=0x0050, text=» EXTRN ICREAD INTERTASK READ (KEYB) «, t00=0x0009, t01=0x0028}
0x0e5e…0e86 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCBSC)«, t00=0x0009, t01=0x0054}
0x0e86…0e94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x007c}
0x0e94…0edc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0009, t01=0x008a}
0x0edc…0f24 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0009, t01=0x00d2}
0x0f24…0f6c Head {h00=0x0044, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x0009, t01=0x011a}
0x0f6c…0fb4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0162}
0x0fb4…0ffc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000a, t01=0x001a}
0x0ffc…1004 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0062}
0x1004…1028 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000a, t01=0x006a}
0x1028…103a Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x000a, t01=0x008e}
0x103a…1064 Head {h00=0x0026, h01=0x0050, text=»X:D EQU 1 NUMBER OF DC LINES (1-2)«, t00=0x000a, t01=0x00a0}
0x1064…1078 Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 1«, t00=0x000a, t01=0x00ca}
0x1078…109a Head {h00=0x001e, h01=0x0050, text=»X:O EQU 0 TEST MODE IF:=1 «, t00=0x000a, t01=0x00de}
0x109a…10ac Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000a, t01=0x0100}
0x10ac…10e2 Head {h00=0x0032, h01=0x0050, text=»SUPSPC EQU 1 SUPRESS TRAILING SPACES IF =1 DK1«, t00=0x000a, t01=0x0112}
0x10e2…10f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0148}
0x10f0…113c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000a, t01=0x0156}
0x113c…1188 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0012}
0x1188…11b2 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000b, t01=0x005e}
0x11b2…11fe Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0088}
0x11fe…124a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000b, t01=0x00d4}
0x124a…1252 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0120}
0x1252…125c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0128}
0x125c…127c Head {h00=0x001c, h01=0x0050, text=»* TABLE OF PRINTER TYPES«, t00=0x000b, t01=0x0132}
0x127c…1286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0152}
0x1286…129a Head {h00=0x0010, h01=0x0050, text=»PRTTAB EQU *«, t00=0x000b, t01=0x015c}
0x129a…12c4 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF PRINTERTYPES«, t00=0x000b, t01=0x0170}
0x12c4…12dc Head {h00=0x0014, h01=0x0050, text=» DATA 'TT',0 GTP«, t00=0x000c, t01=0x000a}
0x12dc…12fe Head {h00=0x001e, h01=0x0050, text=» DATA 'LL',2 LINE PRINTER «, t00=0x000c, t01=0x0022}
0x12fe…1318 Head {h00=0x0016, h01=0x0050, text=» DATA 'GG',4 GP 74«, t00=0x000c, t01=0x0044}
0x1318…1334 Head {h00=0x0018, h01=0x0050, text=» DATA 'CC',6 COPY 80«, t00=0x000c, t01=0x005e}
0x1334…133e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007a}
0x133e…1370 Head {h00=0x002e, h01=0x0050, text=»* DEFAULT VALUES FOR DIFF. PRINTERS«, t00=0x000c, t01=0x0084}
0x1370…1396 Head {h00=0x0022, h01=0x0050, text=»* BYTE1= NUMBER OF LINES/PAGE «, t00=0x000c, t01=0x00b6}
0x1396…13bc Head {h00=0x0022, h01=0x0050, text=»* BYTE2= NUMBER OF CHAR./LINE «, t00=0x000c, t01=0x00dc}
0x13bc…13c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0102}
0x13c6…13e4 Head {h00=0x001a, h01=0x0050, text=»PRTLEN DATA /2382 GTP «, t00=0x000c, t01=0x010c}
0x13e4…13fa Head {h00=0x0012, h01=0x0050, text=» DATA /2382 LP«, t00=0x000c, t01=0x012a}
0x13fa…1414 Head {h00=0x0016, h01=0x0050, text=» DATA /2382 GP 74 «, t00=0x000c, t01=0x0140}
0x1414…1430 Head {h00=0x0018, h01=0x0050, text=» DATA /2382 COPY 80 «, t00=0x000c, t01=0x015a}
0x1430…143a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0176}
0x143a…1460 Head {h00=0x0022, h01=0x0050, text=»* LINE LENGTHS FROM WCC«, t00=0x000c, t01=0x0180}
0x1460…146a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0016}
0x146a…14a2 Head {h00=0x0034, h01=0x0050, text=»LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE «, t00=0x000d, t01=0x0020}
0x14a2…14ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0058}
0x14ac…14d6 Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR ECB HANDLING «, t00=0x000d, t01=0x0062}
0x14d6…14e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008c}
0x14e0…1502 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000d, t01=0x0096}
0x1502…1526 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000d, t01=0x00b8}
0x1526…154a Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000d, t01=0x00dc}
0x154a…156a Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000d, t01=0x0100}
0x156a…158c Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x000d, t01=0x0120}
0x158c…1596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0142}
0x1596…15ae Head {h00=0x0014, h01=0x0050, text=»* PRINTER MODES «, t00=0x000d, t01=0x014c}
0x15ae…15b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0164}
0x15b8…15d6 Head {h00=0x001a, h01=0x0050, text=»LOCAL EQU 0 LOCAL MODE«, t00=0x000d, t01=0x016e}
0x15d6…15f6 Head {h00=0x001c, h01=0x0050, text=»SHARED EQU 2 SHARED MODE«, t00=0x000d, t01=0x018c}
0x15f6…1600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001c}
0x1600…1622 Head {h00=0x001e, h01=0x0050, text=»* PRINTER STATUS IN PRTMOD«, t00=0x000e, t01=0x0026}
0x1622…162c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0048}
0x162c…1652 Head {h00=0x0022, h01=0x0050, text=»PRTERR EQU /4000 PRINTER ERROR«, t00=0x000e, t01=0x0052}
0x1652…165c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0078}
0x165c…1682 Head {h00=0x0022, h01=0x0050, text=»* COPY INTERNAL STATUS IN A10 «, t00=0x000e, t01=0x0082}
0x1682…168c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a8}
0x168c…16b4 Head {h00=0x0024, h01=0x0050, text=»NXTCHA EQU /8000 GET NEXT CHAR. «, t00=0x000e, t01=0x00b2}
0x16b4…16da Head {h00=0x0022, h01=0x0050, text=»ENDPRT EQU /4000 END PRINTING «, t00=0x000e, t01=0x00da}
0x16da…1702 Head {h00=0x0024, h01=0x0050, text=»NTONLY EQU /2000 NOT ONLY SPACES«, t00=0x000e, t01=0x0100}
0x1702…1726 Head {h00=0x0020, h01=0x0050, text=»CRREC EQU /1000 CR RECEIVED «, t00=0x000e, t01=0x0128}
0x1726…1730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014c}
0x1730…175c Head {h00=0x0028, h01=0x0050, text=»* RELATIVE POS. IN ECB-BLOCK «, t00=0x000e, t01=0x0156}
0x175c…1766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0182}
0x1766…1780 Head {h00=0x0016, h01=0x0050, text=»IC EQU 2 INTERTASK«, t00=0x000e, t01=0x018c}
0x1780…178a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0016}
0x178a…17a0 Head {h00=0x0012, h01=0x0050, text=»* SCREEN SIZE «, t00=0x000f, t01=0x0020}
0x17a0…17aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0036}
0x17aa…17c0 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x000f, t01=0x0040}
0x17c0…17ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0056}
0x17ca…17e2 Head {h00=0x0014, h01=0x0050, text=»* RECEIVE STATUS«, t00=0x000f, t01=0x0060}
0x17e2…17ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0078}
0x17ec…180a Head {h00=0x001a, h01=0x0050, text=»LICREC EQU /2000 . =1 «, t00=0x000f, t01=0x0082}
0x180a…1818 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00a0}
0x1818…1822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ae}
0x1822…1842 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000f, t01=0x00b8}
0x1842…185e Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x000f, t01=0x00d8}
0x185e…1868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1868…1888 Head {h00=0x001c, h01=0x0050, text=»BVDU EQU 2 SCREEN BUFFER«, t00=0x000f, t01=0x00fe}
0x1888…18a6 Head {h00=0x001a, h01=0x0050, text=»WCC EQU BVDU+1950 WCC «, t00=0x000f, t01=0x011e}
0x18a6…18cc Head {h00=0x0022, h01=0x0050, text=»LINCNT EQU WCC+4 LINE COUNTER «, t00=0x000f, t01=0x013c}
0x18cc…1902 Head {h00=0x0032, h01=0x0050, text=»DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER «, t00=0x000f, t01=0x0162}
0x1902…192c Head {h00=0x0026, h01=0x0050, text=»PRTID EQU DCLENG+6 PRINTER TASKID «, t00=0x0010, t01=0x0008}
0x192c…1954 Head {h00=0x0024, h01=0x0050, text=»PRTTYP EQU PRTID+2 PRINTER TYPE «, t00=0x0010, t01=0x0032}
0x1954…197a Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTTYP+4 WHAT DC LINE«, t00=0x0010, t01=0x005a}
0x197a…199e Head {h00=0x0020, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB BLOCK «, t00=0x0010, t01=0x0080}
0x199e…19ca Head {h00=0x0028, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER POINTER «, t00=0x0010, t01=0x00a4}
0x19ca…19ee Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x0010, t01=0x00d0}
0x19ee…1a16 Head {h00=0x0024, h01=0x0050, text=»PRTMOD EQU REGI+32 PRINTER MODE «, t00=0x0010, t01=0x00f4}
0x1a16…1a3e Head {h00=0x0024, h01=0x0050, text=»ECBPRT EQU PRTMOD+4 PRINTER ECB «, t00=0x0010, t01=0x011c}
0x1a3e…1a6c Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBPRT+6 INTERTASK READ ECB«, t00=0x0010, t01=0x0144}
0x1a6c…1a9c Head {h00=0x002c, h01=0x0050, text=»ECBICW EQU ECBICR+2 INTERTASK WRITE ECB «, t00=0x0010, t01=0x0172}
0x1a9c…1abe Head {h00=0x001e, h01=0x0050, text=»ECBDC EQU ECBICW+2 ECB DC «, t00=0x0011, t01=0x0012}
0x1abe…1ae4 Head {h00=0x0022, h01=0x0050, text=»ECBDC1 EQU ECBDC ECB DC LINE 1«, t00=0x0011, t01=0x0034}
0x1ae4…1b0e Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x0011, t01=0x005a}
0x1b0e…1b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0084}
0x1b18…1b38 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0011, t01=0x008e}
0x1b38…1b52 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0011, t01=0x00ae}
0x1b52…1b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c8}
0x1b5c…1b70 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0011, t01=0x00d2}
0x1b70…1b92 Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 24 DEVICE TABLE«, t00=0x0011, t01=0x00e6}
0x1b92…1b9e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0108}
0x1b9e…1bb2 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0011, t01=0x0114}
0x1bb2…1bc8 Head {h00=0x0012, h01=0x0050, text=»TSKTAB EQU 219«, t00=0x0011, t01=0x0128}
0x1bc8…1bd4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x013e}
0x1bd4…1be2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x014a}
0x1be2…1c2e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0011, t01=0x0158}
0x1c2e…1c7a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0012, t01=0x0014}
0x1c7a…1cc6 Head {h00=0x0048, h01=0x0050, text=»* PRINT MAIN ROUTINE PRINTER * «, t00=0x0012, t01=0x0060}
0x1cc6…1d12 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0012, t01=0x00ac}
0x1d12…1d5e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0012, t01=0x00f8}
0x1d5e…1d72 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x0012, t01=0x0144}
0x1d72…1d94 Head {h00=0x001e, h01=0x0050, text=» CF A14,INIT INIT ROUTINE «, t00=0x0012, t01=0x0158}
0x1d94…1da6 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0012, t01=0x017a}
0x1da6…1dd6 Head {h00=0x002c, h01=0x0050, text=» CF A14,OPINIT OPEN CONNECTION INITIATE «, t00=0x0012, t01=0x018c}
0x1dd6…1dfa Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 DC NOT PRESENT«, t00=0x0013, t01=0x002c}
0x1dfa…1e1c Head {h00=0x001e, h01=0x0050, text=» CF A14,OPSYS OPEN SYSTEM «, t00=0x0013, t01=0x0050}
0x1e1c…1e28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0072}
0x1e28…1e3a Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0013, t01=0x007e}
0x1e3a…1e54 Head {h00=0x0016, h01=0x0050, text=» CF A14,OPEN OPEN «, t00=0x0013, t01=0x0090}
0x1e54…1e82 Head {h00=0x002a, h01=0x0050, text=»* CHECK ON DC REMOVED PR. 8623, DK * «, t00=0x0013, t01=0x00aa}
0x1e82…1e96 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x0013, t01=0x00d8}
0x1e96…1ea2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x00ec}
0x1ea2…1eb2 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0013, t01=0x00f8}
0x1eb2…1ebe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0108}
0x1ebe…1eea Head {h00=0x0028, h01=0x0050, text=» LDK A1,SHARED ALWAYS SHARED IN BSC «, t00=0x0013, t01=0x0114}
0x1eea…1f04 Head {h00=0x0016, h01=0x0050, text=» ST A1,PRTMOD,A11 «, t00=0x0013, t01=0x0140}
0x1f04…1f18 Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x0013, t01=0x015a}
0x1f18…1f3c Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE«, t00=0x0013, t01=0x016e}
0x1f3c…1f6c (20, 0, 400) Head {h00=0x002c, h01=0x0050, text=» CF A14,CONCT CONNECT PASSIVE IF PRTR OK«, t00=0x0014, t01=0x0004}
0x1f6c…1f94 Head {h00=0x0024, h01=0x0050, text=» CF A14,SETTIM SET REQUEST TIME «, t00=0x0014, t01=0x0034}
0x1f94…1fa8 Head {h00=0x0010, h01=0x0050, text=»PRI200 EQU *«, t00=0x0014, t01=0x005c}
0x1fa8…1fd6 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOACT ACTIVATE IN CURRENT MODE«, t00=0x0014, t01=0x0070}
0x1fd6…1fee Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0014, t01=0x009e}
0x1fee…2002 Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0014, t01=0x00b6}
0x2002…200e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x00ca}
0x200e…202c Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0014, t01=0x00d6}
0x202c…205a Head {h00=0x002a, h01=0x0050, text=» CF A14,IOCPL COMPLET IN CURRENT MODE «, t00=0x0014, t01=0x00f4}
0x205a…2074 Head {h00=0x0016, h01=0x0050, text=» LD A1,PRTMOD,A11 «, t00=0x0014, t01=0x0122}
0x2074…209a Head {h00=0x0022, h01=0x0050, text=» ANKL A1,PRTERR PRINTER ERROR?«, t00=0x0014, t01=0x013c}
0x209a…20b2 Head {h00=0x0014, h01=0x0050, text=» RB(Z) PRI200 NO«, t00=0x0014, t01=0x0162}
0x20b2…20cc Head {h00=0x0016, h01=0x0050, text=» XRS A1,PRTMOD,A11«, t00=0x0014, t01=0x017a}
0x20cc…20ec (21, 0, 398) Head {h00=0x001c, h01=0x0050, text=» RB PRI100 TRY TO FIX IT«, t00=0x0015, t01=0x0004}
0x20ec…20fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0024}
0x20fa…2148 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0015, t01=0x0032}
0x2148…2196 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0080}
0x2196…21be Head {h00=0x0024, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0015, t01=0x00ce}
0x21be…220c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0015, t01=0x00f6}
0x220c…225a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0015, t01=0x0144}
0x225a…226e (22, 0, 398) Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x0016, t01=0x0004}
0x226e…2280 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0016, t01=0x0018}
0x2280…22aa Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTMOD,A11 SHARED OR LOCAL?«, t00=0x0016, t01=0x002a}
0x22aa…22c6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) IOAC20 LOCAL «, t00=0x0016, t01=0x0054}
0x22c6…22ec Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 ADD NUMBER OF WAITS «, t00=0x0016, t01=0x0070}
0x22ec…2324 Head {h00=0x0034, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY?«, t00=0x0016, t01=0x0096}
0x2324…233e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x0016, t01=0x00ce}
0x233e…2362 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x0016, t01=0x00e8}
0x2362…2386 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0016, t01=0x010c}
0x2386…23a2 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x0016, t01=0x0130}
0x23a2…23b6 Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x0016, t01=0x014c}
0x23b6…23cc Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0016, t01=0x0160}
0x23cc…23ec Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADD MORE WAITS«, t00=0x0016, t01=0x0176}
0x23ec…2410 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+6,A11 ALREADY?«, t00=0x0017, t01=0x0008}
0x2410…242a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC20 YES«, t00=0x0017, t01=0x002c}
0x242a…244e Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x0017, t01=0x0046}
0x244e…2472 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0017, t01=0x006a}
0x2472…248e Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0017, t01=0x008e}
0x248e…249a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00aa}
0x249a…24ae Head {h00=0x0010, h01=0x0050, text=»IOAC20 EQU *«, t00=0x0017, t01=0x00b6}
0x24ae…24c0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x00ca}
0x24c0…24e4 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+2,A11 ALREADY?«, t00=0x0017, t01=0x00dc}
0x24e4…24fe Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC30 YES«, t00=0x0017, t01=0x0100}
0x24fe…2524 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPRED READ INTERTASK «, t00=0x0017, t01=0x011a}
0x2524…2540 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0017, t01=0x0140}
0x2540…2554 Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0017, t01=0x015c}
0x2554…257e Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBBLK,A11 NUMBER OF WAITS «, t00=0x0017, t01=0x0170}
0x257e…258e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x000a}
0x258e…259c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x001a}
0x259c…25ea Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0018, t01=0x0028}
0x25ea…2638 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0018, t01=0x0076}
0x2638…2660 Head {h00=0x0024, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0018, t01=0x00c4}
0x2660…26ae Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0018, t01=0x00ec}
0x26ae…26fc Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0018, t01=0x013a}
0x26fc…2710 Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0018, t01=0x0188}
0x2710…2736 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+2,A11 INTERTASK?«, t00=0x0019, t01=0x000c}
0x2736…2750 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0019, t01=0x0032}
0x2750…2768 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0019, t01=0x004c}
0x2768…278c Head {h00=0x0020, h01=0x0050, text=» CF A14,ICPINP MAKE HARDCOPY«, t00=0x0019, t01=0x0064}
0x278c…279e Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0019, t01=0x0088}
0x279e…27b2 Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0019, t01=0x009a}
0x27b2…27d8 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC LINE 1?«, t00=0x0019, t01=0x00ae}
0x27d8…27ee Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0019, t01=0x00d4}
0x27ee…2808 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x0019, t01=0x00ea}
0x2808…2814 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0104}
0x2814…282a Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0019, t01=0x0110}
0x282a…284e Head {h00=0x0020, h01=0x0050, text=» RF(NE) IOCP90 NO FORGET IT «, t00=0x0019, t01=0x0126}
0x284e…285a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x014a}
0x285a…2872 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x0019, t01=0x0156}
0x2872…2896 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x0019, t01=0x016e}
0x2896…28a8 (26, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF IOCP30«, t00=0x001a, t01=0x0004}
0x28a8…28be Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001a, t01=0x0016}
0x28be…28d2 Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x001a, t01=0x002c}
0x28d2…28f8 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+6,A11 DC LINE 2?«, t00=0x001a, t01=0x0040}
0x28f8…2912 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP90 NO «, t00=0x001a, t01=0x0066}
0x2912…292a Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+6,A11«, t00=0x001a, t01=0x0080}
0x292a…294e Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x001a, t01=0x0098}
0x294e…295a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00bc}
0x295a…296e Head {h00=0x0010, h01=0x0050, text=»IOCP30 EQU *«, t00=0x001a, t01=0x00c8}
0x296e…2994 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCPINP TAKE CARE OF DC«, t00=0x001a, t01=0x00dc}
0x2994…29a8 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x001a, t01=0x0102}
0x29a8…29b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0116}
0x29b8…29c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0126}
0x29c6…2a0e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001a, t01=0x0134}
0x2a0e…2a56 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001a, t01=0x017c}
0x2a56…2a9e Head {h00=0x0044, h01=0x0050, text=»* DCPINP DC PRINTER INPUT * «, t00=0x001b, t01=0x0034}
0x2a9e…2ae6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001b, t01=0x007c}
0x2ae6…2b2e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001b, t01=0x00c4}
0x2b2e…2b42 Head {h00=0x0010, h01=0x0050, text=»DCPINP EQU *«, t00=0x001b, t01=0x010c}
0x2b42…2b6e Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT LOCAL HARD COPY«, t00=0x001b, t01=0x0120}
0x2b6e…2b94 Head {h00=0x0022, h01=0x0050, text=» LDR A7,A7 ALREADY COMPLETED? «, t00=0x001b, t01=0x014c}
0x2b94…2bac Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP100 NO«, t00=0x001b, t01=0x0172}
0x2bac…2bda Head {h00=0x002a, h01=0x0050, text=» CF A14,ICPINP TAKE CARE OF THAT FIRST«, t00=0x001b, t01=0x018a}
0x2bda…2bee Head {h00=0x0010, h01=0x0050, text=»DCP100 EQU *«, t00=0x001c, t01=0x0028}
0x2bee…2c06 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBDC,A11«, t00=0x001c, t01=0x003c}
0x2c06…2c1c Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001c, t01=0x0054}
0x2c1c…2c3a Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 1«, t00=0x001c, t01=0x006a}
0x2c3a…2c54 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP150 YES «, t00=0x001c, t01=0x0088}
0x2c54…2c6e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x001c, t01=0x00a2}
0x2c6e…2c82 Head {h00=0x0010, h01=0x0050, text=»DCP150 EQU *«, t00=0x001c, t01=0x00bc}
0x2c82…2c8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00d0}
0x2c8e…2ca0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001c, t01=0x00dc}
0x2ca0…2cbc Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x001c, t01=0x00ee}
0x2cbc…2cd6 Head {h00=0x0016, h01=0x0050, text=» ANKL A1,/701 OK? «, t00=0x001c, t01=0x010a}
0x2cd6…2cf8 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DCP500 NO STOP IT «, t00=0x001c, t01=0x0124}
0x2cf8…2d04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0146}
0x2d04…2d26 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x001c, t01=0x0152}
0x2d26…2d3a Head {h00=0x0010, h01=0x0050, text=» LDR A3,A12 «, t00=0x001c, t01=0x0174}
0x2d3a…2d62 Head {h00=0x0024, h01=0x0050, text=» CF A14,READW READ FIRST BUFFER «, t00=0x001c, t01=0x0188}
0x2d62…2d7a Head {h00=0x0014, h01=0x0050, text=» ANK A1,3 ERROR?«, t00=0x001d, t01=0x0020}
0x2d7a…2d94 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DCP400 NO «, t00=0x001d, t01=0x0038}
0x2d94…2da6 Head {h00=0x000e, h01=0x0050, text=» RF DCP500«, t00=0x001d, t01=0x0052}
0x2da6…2dba Head {h00=0x0010, h01=0x0050, text=»DCP400 EQU *«, t00=0x001d, t01=0x0064}
0x2dba…2dec Head {h00=0x002e, h01=0x0050, text=» SUR A10,A10 RESET INTERNAL UNPACK STATUS «, t00=0x001d, t01=0x0078}
0x2dec…2e04 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =1 «, t00=0x001d, t01=0x00aa}
0x2e04…2e1a Head {h00=0x0012, h01=0x0050, text=» ANK A1,2 . =1«, t00=0x001d, t01=0x00c2}
0x2e1a…2e34 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP450 . =1«, t00=0x001d, t01=0x00d8}
0x2e34…2e52 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,LICREC . =1 «, t00=0x001d, t01=0x00f2}
0x2e52…2e6c Head {h00=0x0016, h01=0x0050, text=»DCP450 EQU * . =1 «, t00=0x001d, t01=0x0110}
0x2e6c…2e7e Head {h00=0x000e, h01=0x0050, text=» XIF . =1«, t00=0x001d, t01=0x012a}
0x2e7e…2e96 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x001d, t01=0x013c}
0x2e96…2ebc Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x001d, t01=0x0154}
0x2ebc…2eea Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x001d, t01=0x017a}
0x2eea…2efc Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001e, t01=0x0018}
0x2efc…2f26 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET ANOTHER BUFFER «, t00=0x001e, t01=0x002a}
0x2f26…2f38 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x001e, t01=0x0054}
0x2f38…2f60 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x001e, t01=0x0066}
0x2f60…2f6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x008e}
0x2f6c…2f98 Head {h00=0x0028, h01=0x0050, text=» CF A14,UNPACK UPDATE SCREEN BUFFER «, t00=0x001e, t01=0x009a}
0x2f98…2fae Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x001e, t01=0x00c6}
0x2fae…2fd0 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/8 ANY COPY NEEDED«, t00=0x001e, t01=0x00dc}
0x2fd0…2fe8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP500 NO«, t00=0x001e, t01=0x00fe}
0x2fe8…3006 Head {h00=0x001a, h01=0x0050, text=» CF A14,COPP PRINT IT «, t00=0x001e, t01=0x0116}
0x3006…301a Head {h00=0x0010, h01=0x0050, text=»DCP500 EQU *«, t00=0x001e, t01=0x0134}
0x301a…302c Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x001e, t01=0x0148}
0x302c…303e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001e, t01=0x015a}
0x303e…3064 Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x001e, t01=0x016c}
0x3064…3070 (31, 0, 398) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0004}
0x3070…3080 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x0010}
0x3080…308e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0020}
0x308e…30d6 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001f, t01=0x002e}
0x30d6…311e Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0076}
0x311e…3166 Head {h00=0x0044, h01=0x0050, text=»* ICPINP INTERTASK INPUT *«, t00=0x001f, t01=0x00be}
0x3166…31ae Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0106}
0x31ae…31f6 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001f, t01=0x014e}
0x31f6…320a Head {h00=0x0010, h01=0x0050, text=»ICPINP EQU *«, t00=0x0020, t01=0x0008}
0x320a…322c Head {h00=0x001e, h01=0x0050, text=» CF A14,COPP MAKE HARDCOPP«, t00=0x0020, t01=0x001c}
0x322c…325c Head {h00=0x002c, h01=0x0050, text=» ST A1,REGI,A11 RETURN CODE TO TERMINAL «, t00=0x0020, t01=0x003e}
0x325c…3282 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPWRT WRITE INTERTASK«, t00=0x0020, t01=0x006e}
0x3282…3292 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0094}
0x3292…32a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00a4}
0x32a0…32ea Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0020, t01=0x00b2}
0x32ea…3334 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0020, t01=0x00fc}
0x3334…337e Head {h00=0x0046, h01=0x0050, text=»* ICPRED INTERTASK READ *«, t00=0x0020, t01=0x0146}
0x337e…33c8 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0190}
0x33c8…3412 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0021, t01=0x004a}
0x3412…3426 Head {h00=0x0010, h01=0x0050, text=»ICPRED EQU *«, t00=0x0021, t01=0x0094}
0x3426…3440 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0021, t01=0x00a8}
0x3440…3464 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0021, t01=0x00c2}
0x3464…3488 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 NOT ADDRESSED READ«, t00=0x0021, t01=0x00e6}
0x3488…349e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0021, t01=0x010a}
0x349e…34b2 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0021, t01=0x0120}
0x34b2…34cc Head {h00=0x0016, h01=0x0050, text=» LDKL A2,LBVDU+/20«, t00=0x0021, t01=0x0134}
0x34cc…34f2 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0021, t01=0x014e}
0x34f2…3502 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0174}
0x3502…3510 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0184}
0x3510…355c (34, 0, 400) Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0022, t01=0x0004}
0x355c…35a8 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0022, t01=0x0050}
0x35a8…35f4 Head {h00=0x0048, h01=0x0050, text=»* ICPWRT WRITE INTERTASK *«, t00=0x0022, t01=0x009c}
0x35f4…3640 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0022, t01=0x00e8}
0x3640…368c Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0022, t01=0x0134}
0x368c…36a0 Head {h00=0x0010, h01=0x0050, text=»ICPWRT EQU *«, t00=0x0022, t01=0x0180}
0x36a0…36ba (35, 0, 400) Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0023, t01=0x0004}
0x36ba…36de Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0023, t01=0x001e}
0x36de…36f8 Head {h00=0x0016, h01=0x0050, text=» LD A1,ECBICR,A11 «, t00=0x0023, t01=0x0042}
0x36f8…371a Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A1 GET TASKID«, t00=0x0023, t01=0x005c}
0x371a…373a Head {h00=0x001c, h01=0x0050, text=» RF(Z) ICPW90 NOT THERE «, t00=0x0023, t01=0x007e}
0x373a…375c Head {h00=0x001e, h01=0x0050, text=» LDKL A3,REGI RETURN CODE «, t00=0x0023, t01=0x009e}
0x375c…3770 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0023, t01=0x00c0}
0x3770…3788 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0023, t01=0x00d4}
0x3788…37ae Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x0023, t01=0x00ec}
0x37ae…37c2 Head {h00=0x0010, h01=0x0050, text=»ICPW90 EQU *«, t00=0x0023, t01=0x0112}
0x37c2…37d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x0126}
0x37d2…37e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0136}
0x37e0…3826 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0023, t01=0x0144}
0x3826…386c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0023, t01=0x018a}
0x386c…38b2 Head {h00=0x0042, h01=0x0050, text=»* ICABOR INTERTASK ABORT * «, t00=0x0024, t01=0x0040}
0x38b2…38f8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0086}
0x38f8…393e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x00cc}
0x393e…3952 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0024, t01=0x0112}
0x3952…3964 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0024, t01=0x0126}
0x3964…397e Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+IC,A11 «, t00=0x0024, t01=0x0138}
0x397e…3998 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0024, t01=0x0152}
0x3998…39a4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0024, t01=0x016c}
0x39a4…39b4 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0024, t01=0x0178}
0x39b4…39c4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x0188}
0x39c4…39d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0008}
0x39d2…3a20 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x0016}
0x3a20…3a6e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0064}
0x3a6e…3abc Head {h00=0x004a, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER * «, t00=0x0025, t01=0x00b2}
0x3abc…3b0a Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0100}
0x3b0a…3b58 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x014e}
0x3b58…3b7c Head {h00=0x0020, h01=0x0050, text=»* REGISTERS «, t00=0x0026, t01=0x000c}
0x3b7c…3b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0030}
0x3b86…3b9c Head {h00=0x0012, h01=0x0050, text=»* A2= CHAR. «, t00=0x0026, t01=0x003a}
0x3b9c…3bc2 Head {h00=0x0022, h01=0x0050, text=»* A3= SCREEN BUFFER POINTER «, t00=0x0026, t01=0x0050}
0x3bc2…3bec Head {h00=0x0026, h01=0x0050, text=»* A4= REL. SCREEN BUFFER ADDRESS«, t00=0x0026, t01=0x0076}
0x3bec…3c08 Head {h00=0x0018, h01=0x0050, text=»* A5= LINE LENGTH «, t00=0x0026, t01=0x00a0}
0x3c08…3c2a Head {h00=0x001e, h01=0x0050, text=»* A6= CURRENT ATTRIBUTE «, t00=0x0026, t01=0x00bc}
0x3c2a…3c4c Head {h00=0x001e, h01=0x0050, text=»* A8= ECB BUFFER POINTER«, t00=0x0026, t01=0x00de}
0x3c4c…3c6c Head {h00=0x001c, h01=0x0050, text=»* A9= ECB BUFFER INDEX«, t00=0x0026, t01=0x0100}
0x3c6c…3c8c Head {h00=0x001c, h01=0x0050, text=»* A10= INTERNAL STATUS«, t00=0x0026, t01=0x0120}
0x3c8c…3cac Head {h00=0x001c, h01=0x0050, text=»* A11= TASK BLOCK BASE«, t00=0x0026, t01=0x0140}
0x3cac…3cc6 Head {h00=0x0016, h01=0x0050, text=»* A13= ECB BASE «, t00=0x0026, t01=0x0160}
0x3cc6…3cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x017a}
0x3cd0…3d1e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x0184}
0x3d1e…3d36 Head {h00=0x0014, h01=0x0050, text=»COPP EQU * . =2 «, t00=0x0027, t01=0x0042}
0x3d36…3d50 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0027, t01=0x005a}
0x3d50…3d62 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0027, t01=0x0074}
0x3d62…3d84 Head {h00=0x001e, h01=0x0050, text=» LDK A6,0 RESET ATTRIBUTE «, t00=0x0027, t01=0x0086}
0x3d84…3db6 Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0027, t01=0x00a8}
0x3db6…3de0 Head {h00=0x0026, h01=0x0050, text=» CM LINCNT,A11 RESET LINE COUNTER «, t00=0x0027, t01=0x00da}
0x3de0…3df6 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0027, t01=0x0104}
0x3df6…3e18 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/38 MASK RELEVANT «, t00=0x0027, t01=0x011a}
0x3e18…3e2a Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0027, t01=0x013c}
0x3e2a…3e48 Head {h00=0x001a, h01=0x0050, text=» ANK A1,8 START PRINT?«, t00=0x0027, t01=0x014e}
0x3e48…3e6a Head {h00=0x001e, h01=0x0050, text=» RF(Z) COP900 NO FORGET IT«, t00=0x0027, t01=0x016c}
0x3e6a…3e7c Head {h00=0x000e, h01=0x0050, text=» SRL A5,4 «, t00=0x0027, t01=0x018e}
0x3e7c…3ea4 Head {h00=0x0024, h01=0x0050, text=» LC A5,LINLEN,A5 GET LINE LENGTH«, t00=0x0028, t01=0x0010}
0x3ea4…3ed0 Head {h00=0x0028, h01=0x0050, text=» LDR A5,A5 NL,EM AND CR DET. LENGTH?«, t00=0x0028, t01=0x0038}
0x3ed0…3eea Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP100 NO «, t00=0x0028, t01=0x0064}
0x3eea…3f18 Head {h00=0x002a, h01=0x0050, text=» LD A1,PRTTYP,A11 GET MAX LINE LENGTH «, t00=0x0028, t01=0x007e}
0x3f18…3f32 Head {h00=0x0016, h01=0x0050, text=» LC A5,PRTLEN+1,A1«, t00=0x0028, t01=0x00ac}
0x3f32…3f46 Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0028, t01=0x00c6}
0x3f46…3f5c Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0028, t01=0x00da}
0x3f5c…3f70 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0028, t01=0x00f0}
0x3f70…3f88 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBBA,A8 «, t00=0x0028, t01=0x0104}
0x3f88…3fac Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0028, t01=0x011c}
0x3fac…3fbe Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0028, t01=0x0140}
0x3fbe…3fd0 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0028, t01=0x0152}
0x3fd0…3fe2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0028, t01=0x0164}
0x3fe2…3ff4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0028, t01=0x0176}
0x3ff4…4016 Head {h00=0x001e, h01=0x0050, text=» SUR A10,A10 RESET STATUS «, t00=0x0028, t01=0x0188}
0x4016…402a Head {h00=0x0010, h01=0x0050, text=»COP200 EQU *«, t00=0x0029, t01=0x001a}
0x402a…404c Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU ALL PRINTED?«, t00=0x0029, t01=0x002e}
0x404c…4066 Head {h00=0x0016, h01=0x0050, text=» RF(NL) COP850 YES«, t00=0x0029, t01=0x0050}
0x4066…4084 Head {h00=0x001a, h01=0x0050, text=» CWR A9,A5 LINE FULL? «, t00=0x0029, t01=0x006a}
0x4084…409c Head {h00=0x0014, h01=0x0050, text=» RF(L) COP400 NO«, t00=0x0029, t01=0x0088}
0x409c…40be Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x0029, t01=0x00a0}
0x40be…40e0 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0029, t01=0x00c2}
0x40e0…40fa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x0029, t01=0x00e4}
0x40fa…410e Head {h00=0x0010, h01=0x0050, text=»COP400 EQU *«, t00=0x0029, t01=0x00fe}
0x410e…412a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0029, t01=0x0112}
0x412a…413e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0029, t01=0x012e}
0x413e…415e Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP650 NULL CHAR.«, t00=0x0029, t01=0x0142}
0x415e…417e Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0029, t01=0x0162}
0x417e…4196 Head {h00=0x0014, h01=0x0050, text=» RF(L) COP500 NO«, t00=0x0029, t01=0x0182}
0x4196…41ba Head {h00=0x0020, h01=0x0050, text=» LDR A6,A2 GET NEW ATTRIBUTE«, t00=0x002a, t01=0x000a}
0x41ba…41cc Head {h00=0x000e, h01=0x0050, text=» RF COP650«, t00=0x002a, t01=0x002e}
0x41cc…41e0 Head {h00=0x0010, h01=0x0050, text=»COP500 EQU *«, t00=0x002a, t01=0x0040}
0x41e0…41fc Head {h00=0x0018, h01=0x0050, text=» CCK A2,/2020 ORDER?«, t00=0x002a, t01=0x0054}
0x41fc…4216 Head {h00=0x0016, h01=0x0050, text=» RF(L) COP550 YES «, t00=0x002a, t01=0x0070}
0x4216…4234 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,CRREC RESET «, t00=0x002a, t01=0x008a}
0x4234…4246 Head {h00=0x000e, h01=0x0050, text=» RF COP600«, t00=0x002a, t01=0x00a8}
0x4246…425a Head {h00=0x0010, h01=0x0050, text=»COP550 EQU *«, t00=0x002a, t01=0x00ba}
0x425a…4280 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETTAB GET ORDERINDEX «, t00=0x002a, t01=0x00ce}
0x4280…42a6 Head {h00=0x0022, h01=0x0050, text=» CFR A14,A1 TAKE CARE OF ORDER«, t00=0x002a, t01=0x00f4}
0x42a6…42c8 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x002a, t01=0x011a}
0x42c8…42e2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x002a, t01=0x013c}
0x42e2…4300 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A10 GET STATUS«, t00=0x002a, t01=0x0156}
0x4300…4324 Head {h00=0x0020, h01=0x0050, text=» RF(N) COP800 GET NEXT CHAR.«, t00=0x002a, t01=0x0174}
0x4324…4336 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x002b, t01=0x0008}
0x4336…4350 Head {h00=0x0016, h01=0x0050, text=» RF(N) COP850 END «, t00=0x002b, t01=0x001a}
0x4350…4364 Head {h00=0x0010, h01=0x0050, text=»COP600 EQU *«, t00=0x002b, t01=0x0034}
0x4364…4388 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 CHECK IF NONPRINT«, t00=0x002b, t01=0x0048}
0x4388…439a Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x002b, t01=0x006c}
0x439a…43ac Head {h00=0x000e, h01=0x0050, text=» XRK A1,/C«, t00=0x002b, t01=0x007e}
0x43ac…43ca Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP650 NONPRINT«, t00=0x002b, t01=0x0090}
0x43ca…43fa Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INIDICATE NOT ONLY NOT «, t00=0x002b, t01=0x00ae}
0x43fa…440c Head {h00=0x000e, h01=0x0050, text=» RF COP700«, t00=0x002b, t01=0x00de}
0x440c…4420 Head {h00=0x0010, h01=0x0050, text=»COP650 EQU *«, t00=0x002b, t01=0x00f0}
0x4420…4446 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x002b, t01=0x0104}
0x4446…445a Head {h00=0x0010, h01=0x0050, text=»COP700 EQU *«, t00=0x002b, t01=0x012a}
0x445a…446c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A8«, t00=0x002b, t01=0x013e}
0x446c…447e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x002b, t01=0x0150}
0x447e…4490 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x002b, t01=0x0162}
0x4490…44a4 Head {h00=0x0010, h01=0x0050, text=»COP800 EQU *«, t00=0x002b, t01=0x0174}
0x44a4…44c2 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NXTCHA RESET«, t00=0x002b, t01=0x0188}
0x44c2…44d4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002c, t01=0x0016}
0x44d4…44e6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002c, t01=0x0028}
0x44e6…44f8 Head {h00=0x000e, h01=0x0050, text=» RB COP200«, t00=0x002c, t01=0x003a}
0x44f8…450c Head {h00=0x0010, h01=0x0050, text=»COP850 EQU *«, t00=0x002c, t01=0x004c}
0x450c…4538 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A9 SOMETHING LEFT TO PRINT? «, t00=0x002c, t01=0x0060}
0x4538…4550 Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP900 NO«, t00=0x002c, t01=0x008c}
0x4550…4576 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x002c, t01=0x00a4}
0x4576…459a Head {h00=0x0020, h01=0x0050, text=» ANKL A10,ENDPRT END MESS.? «, t00=0x002c, t01=0x00ca}
0x459a…45ba Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP900 NO STOP IT«, t00=0x002c, t01=0x00ee}
0x45ba…45e6 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE «, t00=0x002c, t01=0x010e}
0x45e6…460c Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE EXTRA LINE FEED«, t00=0x002c, t01=0x013a}
0x460c…4620 Head {h00=0x0010, h01=0x0050, text=»COP900 EQU *«, t00=0x002c, t01=0x0160}
0x4620…4642 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER FAILED?«, t00=0x002c, t01=0x0174}
0x4642…465a Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP950 NO«, t00=0x002d, t01=0x0008}
0x465a…4680 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,PRTERR INDICATE ERROR«, t00=0x002d, t01=0x0020}
0x4680…469a Head {h00=0x0016, h01=0x0050, text=» ORS A2,PRTMOD,A11«, t00=0x002d, t01=0x0046}
0x469a…46ae Head {h00=0x0010, h01=0x0050, text=»COP950 EQU *«, t00=0x002d, t01=0x0060}
0x46ae…46be Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x0074}
0x46be…46cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0084}
0x46cc…471c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002d, t01=0x0092}
0x471c…4726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00e2}
0x4726…4748 Head {h00=0x001e, h01=0x0050, text=»* TABLE FOR PRINTERORDERS «, t00=0x002d, t01=0x00ec}
0x4748…4752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x010e}
0x4752…47a2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002d, t01=0x0118}
0x47a2…47b6 Head {h00=0x0010, h01=0x0050, text=»PRTORD EQU *«, t00=0x002d, t01=0x0168}
0x47b6…47e0 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF ORDER CODES «, t00=0x002d, t01=0x017c}
0x47e0…4808 Head {h00=0x0024, h01=0x0050, text=» DATA /0A0A,NL,NL,NL,NL NEW LINE«, t00=0x002e, t01=0x0016}
0x4808…483e Head {h00=0x0032, h01=0x0050, text=» DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED «, t00=0x002e, t01=0x003e}
0x483e…486a Head {h00=0x0028, h01=0x0050, text=» DATA /0D0D,CR,CR,CR,CR CARR. RETURN«, t00=0x002e, t01=0x0074}
0x486a…4896 Head {h00=0x0028, h01=0x0050, text=» DATA /1919,EM,EM,EM,EM END MESSAGE «, t00=0x002e, t01=0x00a0}
0x4896…48bc Head {h00=0x0022, h01=0x0050, text=» DATA INVAL INVALID ORDER CODE«, t00=0x002e, t01=0x00cc}
0x48bc…48ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00f2}
0x48ca…491e Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x002e, t01=0x0100}
0x491e…4972 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0154}
0x4972…49c6 Head {h00=0x0050, h01=0x0050, text=»* NL NEW LINE *«, t00=0x002f, t01=0x0018}
0x49c6…4a1a Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x002f, t01=0x006c}
0x4a1a…4a6e Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x002f, t01=0x00c0}
0x4a6e…4a7e Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x002f, t01=0x0114}
0x4a7e…4aae Head {h00=0x002c, h01=0x0050, text=» CF A14,PRLINE PRINT LINE AFTER NEW LINE«, t00=0x002f, t01=0x0124}
0x4aae…4adc Head {h00=0x002a, h01=0x0050, text=» ORKL A10,NXTCHA+NTONLY GET NEXT CHAR.«, t00=0x002f, t01=0x0154}
0x4adc…4aec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x0182}
0x4aec…4afa (48, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0004}
0x4afa…4b48 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0030, t01=0x0012}
0x4b48…4b96 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0030, t01=0x0060}
0x4b96…4be4 Head {h00=0x004a, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED *«, t00=0x0030, t01=0x00ae}
0x4be4…4c32 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0030, t01=0x00fc}
0x4c32…4c80 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0030, t01=0x014a}
0x4c80…4c94 Head {h00=0x0010, h01=0x0050, text=»FFDUM EQU * «, t00=0x0031, t01=0x0008}
0x4c94…4cc6 Head {h00=0x002e, h01=0x0050, text=» CF A14,FFCHK CHECK IF FORM FEED IS VALID «, t00=0x0031, t01=0x001c}
0x4cc6…4ce0 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0031, t01=0x004e}
0x4ce0…4cfa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD400 NO «, t00=0x0031, t01=0x0068}
0x4cfa…4d12 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 RESET «, t00=0x0031, t01=0x0082}
0x4d12…4d3c Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTTYP,A11 TYPE OF PRINTER «, t00=0x0031, t01=0x009a}
0x4d3c…4d5e Head {h00=0x001e, h01=0x0050, text=» LC A7,PRTLEN,A1 PAGE SIZE«, t00=0x0031, t01=0x00c4}
0x4d5e…4d72 Head {h00=0x0010, h01=0x0050, text=»FFD100 EQU *«, t00=0x0031, t01=0x00e6}
0x4d72…4d96 Head {h00=0x0020, h01=0x0050, text=» CW A7,LINCNT,A11 NEW PAGE? «, t00=0x0031, t01=0x00fa}
0x4d96…4dbc Head {h00=0x0022, h01=0x0050, text=» RF(L) FFD200 YES BUT TO MANY «, t00=0x0031, t01=0x011e}
0x4dbc…4dde Head {h00=0x001e, h01=0x0050, text=» RF(E) FFD300 YES FINISHED«, t00=0x0031, t01=0x0144}
0x4dde…4df6 Head {h00=0x0014, h01=0x0050, text=» ORKL A10,NTONLY«, t00=0x0031, t01=0x0166}
0x4df6…4e12 Head {h00=0x0018, h01=0x0050, text=» ST A7,REGI,A11 SAVE«, t00=0x0031, t01=0x017e}
0x4e12…4e3a Head {h00=0x0024, h01=0x0050, text=» CF A14,PRLINE ADVANCE ONE LINE «, t00=0x0032, t01=0x000a}
0x4e3a…4e5a Head {h00=0x001c, h01=0x0050, text=» LD A7,REGI,A11 RESTORE «, t00=0x0032, t01=0x0032}
0x4e5a…4e7c Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0032, t01=0x0052}
0x4e7c…4e96 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD500 YES«, t00=0x0032, t01=0x0074}
0x4e96…4ea8 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0032, t01=0x008e}
0x4ea8…4ebc Head {h00=0x0010, h01=0x0050, text=»FFD200 EQU *«, t00=0x0032, t01=0x00a0}
0x4ebc…4ece Head {h00=0x000e, h01=0x0050, text=» NGR A1,A7«, t00=0x0032, t01=0x00b4}
0x4ece…4efc Head {h00=0x002a, h01=0x0050, text=» ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE «, t00=0x0032, t01=0x00c6}
0x4efc…4f0e Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0032, t01=0x00f4}
0x4f0e…4f22 Head {h00=0x0010, h01=0x0050, text=»FFD300 EQU *«, t00=0x0032, t01=0x0106}
0x4f22…4f44 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0032, t01=0x011a}
0x4f44…4f6e Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x0032, t01=0x013c}
0x4f6e…4f82 Head {h00=0x0010, h01=0x0050, text=»FFD400 EQU *«, t00=0x0032, t01=0x0166}
0x4f82…4fa0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0032, t01=0x017a}
0x4fa0…4fb4 Head {h00=0x0010, h01=0x0050, text=»FFD500 EQU *«, t00=0x0033, t01=0x0008}
0x4fb4…4fc4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x001c}
0x4fc4…4fd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x002c}
0x4fd2…5020 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0033, t01=0x003a}
0x5020…506e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0033, t01=0x0088}
0x506e…50bc Head {h00=0x004a, h01=0x0050, text=»* FFVAL FORM FEED *«, t00=0x0033, t01=0x00d6}
0x50bc…510a Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0033, t01=0x0124}
0x510a…5158 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0033, t01=0x0172}
0x5158…516c Head {h00=0x0010, h01=0x0050, text=»FFVAL EQU * «, t00=0x0034, t01=0x0030}
0x516c…5194 Head {h00=0x0024, h01=0x0050, text=» CF A14,FFCHK CHECK IF FF VALID «, t00=0x0034, t01=0x0044}
0x5194…51ae Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0034, t01=0x006c}
0x51ae…51c8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFV200 NO «, t00=0x0034, t01=0x0086}
0x51c8…51ea Head {h00=0x001e, h01=0x0050, text=» LDK A1,/31 FORM FEED DK2 «, t00=0x0034, t01=0x00a0}
0x51ea…5216 Head {h00=0x0028, h01=0x0050, text=» SC A1,-1,A8 STORE FF CONTROL CHAR. «, t00=0x0034, t01=0x00c2}
0x5216…5240 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x0034, t01=0x00ee}
0x5240…5262 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0034, t01=0x0118}
0x5262…5276 Head {h00=0x0010, h01=0x0050, text=»FFV200 EQU *«, t00=0x0034, t01=0x013a}
0x5276…5294 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0034, t01=0x014e}
0x5294…52a4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x016c}
0x52a4…52b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x017c}
0x52b2…5300 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0034, t01=0x018a}
0x5300…534e Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0035, t01=0x0048}
0x534e…539c Head {h00=0x004a, h01=0x0050, text=»* CR CARRIAGE RETURN *«, t00=0x0035, t01=0x0096}
0x539c…53ea Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0035, t01=0x00e4}
0x53ea…5438 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0035, t01=0x0132}
0x5438…5448 Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x0035, t01=0x0180}
0x5448…5468 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 GET ATTRIBUTE«, t00=0x0035, t01=0x0190}
0x5468…547a Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0036, t01=0x0020}
0x547a…549c Head {h00=0x001e, h01=0x0050, text=» XRK A1,/C NONPRINT FIELD?«, t00=0x0036, t01=0x0032}
0x549c…54b4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CR100 YES«, t00=0x0036, t01=0x0054}
0x54b4…54ca Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0036, t01=0x006c}
0x54ca…54e8 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/30 FORMATTED?«, t00=0x0036, t01=0x0082}
0x54e8…5500 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) CR100 NO«, t00=0x0036, t01=0x00a0}
0x5500…552a Head {h00=0x0026, h01=0x0050, text=» ORKL A10,NTONLY+CRREC CR RECEIVED«, t00=0x0036, t01=0x00b8}
0x552a…553e Head {h00=0x0010, h01=0x0050, text=»CR100 EQU * «, t00=0x0036, t01=0x00e2}
0x553e…5564 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0036, t01=0x00f6}
0x5564…5582 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0036, t01=0x011c}
0x5582…5592 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x013a}
0x5592…55a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x014a}
0x55a0…55ee Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0036, t01=0x0158}
0x55ee…563a Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0016}
0x563a…5686 Head {h00=0x0048, h01=0x0050, text=»* EM END MESSAGE *«, t00=0x0037, t01=0x0062}
0x5686…56d2 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0037, t01=0x00ae}
0x56d2…571e Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0037, t01=0x00fa}
0x571e…572e Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x0037, t01=0x0146}
0x572e…5754 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,ENDPRT END PRINTING «, t00=0x0037, t01=0x0156}
0x5754…5772 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0037, t01=0x017c}
0x5772…5782 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0038, t01=0x000a}
0x5782…5790 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x001a}
0x5790…57da Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0038, t01=0x0028}
0x57da…5824 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0038, t01=0x0072}
0x5824…586e Head {h00=0x0046, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER *«, t00=0x0038, t01=0x00bc}
0x586e…58b8 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0038, t01=0x0106}
0x58b8…5902 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0038, t01=0x0150}
0x5902…5916 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x0039, t01=0x000a}
0x5916…593c Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0039, t01=0x001e}
0x593c…595e Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0039, t01=0x0044}
0x595e…597c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0039, t01=0x0066}
0x597c…598c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0084}
0x598c…599a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0094}
0x599a…59e4 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0039, t01=0x00a2}
0x59e4…5a2e Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0039, t01=0x00ec}
0x5a2e…5a78 Head {h00=0x0046, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID * «, t00=0x0039, t01=0x0136}
0x5a78…5ac2 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0039, t01=0x0180}
0x5ac2…5b0c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x003a, t01=0x003a}
0x5b0c…5b20 Head {h00=0x0010, h01=0x0050, text=»FFCHK EQU * «, t00=0x003a, t01=0x0084}
0x5b20…5b36 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003a, t01=0x0098}
0x5b36…5b4a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x003a, t01=0x00ae}
0x5b4a…5b68 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 FORMATTED?«, t00=0x003a, t01=0x00c2}
0x5b68…5b9c Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY«, t00=0x003a, t01=0x00e0}
0x5b9c…5bb2 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003a, t01=0x0114}
0x5bb2…5bd6 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 LOCAL HARD COPY?«, t00=0x003a, t01=0x012a}
0x5bd6…5c00 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FFCH20 FF NOT ALLOWED DK3 «, t00=0x003a, t01=0x014e}
0x5c00…5c14 Head {h00=0x0010, h01=0x0050, text=»FFCH10 EQU *«, t00=0x003a, t01=0x0178}
0x5c14…5c32 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 FF ALLOWED «, t00=0x003a, t01=0x018c}
0x5c32…5c4c Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH30 NOT «, t00=0x003b, t01=0x001a}
0x5c4c…5c60 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003b, t01=0x0034}
0x5c60…5c84 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,CRREC CR RECEIVED? «, t00=0x003b, t01=0x0048}
0x5c84…5c9e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFCH30 YES«, t00=0x003b, t01=0x006c}
0x5c9e…5cb2 Head {h00=0x0010, h01=0x0050, text=»FFCH20 EQU *«, t00=0x003b, t01=0x0086}
0x5cb2…5cd8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x003b, t01=0x009a}
0x5cd8…5cf6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x003b, t01=0x00c0}
0x5cf6…5d08 Head {h00=0x000e, h01=0x0050, text=» RF FFCH40«, t00=0x003b, t01=0x00de}
0x5d08…5d1c Head {h00=0x0010, h01=0x0050, text=»FFCH30 EQU *«, t00=0x003b, t01=0x00f0}
0x5d1c…5d3a Head {h00=0x001a, h01=0x0050, text=» XRKL A10,CRREC RESET «, t00=0x003b, t01=0x0104}
0x5d3a…5d58 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 EMPTY LINE «, t00=0x003b, t01=0x0122}
0x5d58…5d72 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH35 YES «, t00=0x003b, t01=0x0140}
0x5d72…5d94 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x003b, t01=0x015a}
0x5d94…5da8 Head {h00=0x0010, h01=0x0050, text=»FFCH35 EQU *«, t00=0x003b, t01=0x017c}
0x5da8…5dc6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x0190}
0x5dc6…5dda Head {h00=0x0010, h01=0x0050, text=»FFCH40 EQU *«, t00=0x003c, t01=0x001e}
0x5dda…5dfc Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x003c, t01=0x0032}
0x5dfc…5e0c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x0054}
0x5e0c…5e1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0064}
0x5e1a…5e62 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x003c, t01=0x0072}
0x5e62…5eaa Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x003c, t01=0x00ba}
0x5eaa…5ef2 Head {h00=0x0044, h01=0x0050, text=»* PRLINE PRINT LINE *«, t00=0x003c, t01=0x0102}
0x5ef2…5f3a Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x003c, t01=0x014a}
0x5f3a…5f82 (61, 0, 400) Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x003d, t01=0x0004}
0x5f82…5f96 Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x003d, t01=0x004c}
0x5f96…5fb0 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x003d, t01=0x0060}
0x5fb0…5fc4 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003d, t01=0x007a}
0x5fc4…5fe8 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,NTONLY ONLY RUBB.? «, t00=0x003d, t01=0x008e}
0x5fe8…6002 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL050 NO «, t00=0x003d, t01=0x00b2}
0x6002…6018 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003d, t01=0x00cc}
0x6018…602a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x003d, t01=0x00e2}
0x602a…603e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x003d, t01=0x00f4}
0x603e…605c Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 HRADCOPY? «, t00=0x003d, t01=0x0108}
0x605c…6076 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x003d, t01=0x0126}
0x6076…6098 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/40 HARDCOPY????? «, t00=0x003d, t01=0x0140}
0x6098…60b2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x003d, t01=0x0162}
0x60b2…60c6 Head {h00=0x0010, h01=0x0050, text=»PRL050 EQU *«, t00=0x003d, t01=0x017c}
0x60c6…60e4 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NTONLY RESET«, t00=0x003d, t01=0x0190}
0x60e4…60fe Head {h00=0x0016, h01=0x0050, text=» IFT SUPSPC=1 DK1«, t00=0x003e, t01=0x001e}
0x60fe…6138 Head {h00=0x0036, h01=0x0050, text=» LD A1,ECBBA,A8 FIND LENGTH AND END OF BUFFER DK1 «, t00=0x003e, t01=0x0038}
0x6138…6162 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 SKIP CONTROL CHARS. DK1 «, t00=0x003e, t01=0x0072}
0x6162…617e Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBA,A8 DK1«, t00=0x003e, t01=0x009c}
0x617e…61a4 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 GET REQ. LENGTH DK1«, t00=0x003e, t01=0x00b8}
0x61a4…61d6 Head {h00=0x002e, h01=0x0050, text=» ADR A1,A2 GET ADDR. TO END OF BUFFER DK1 «, t00=0x003e, t01=0x00de}
0x61d6…6200 Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 CLEAR FOR CHAR. WORK DK1«, t00=0x003e, t01=0x0110}
0x6200…621a Head {h00=0x0016, h01=0x0050, text=»PRL060 EQU * DK1 «, t00=0x003e, t01=0x013a}
0x621a…6240 Head {h00=0x0022, h01=0x0050, text=» LCR A2,A1 GET A CHARACTER DK1«, t00=0x003e, t01=0x0154}
0x6240…6262 Head {h00=0x001e, h01=0x0050, text=» CCK A2,/2020 SPACE ? DK1 «, t00=0x003e, t01=0x017a}
0x6262…628a Head {h00=0x0024, h01=0x0050, text=» RF(NE) PRL070 NO, FINISHED DK1 «, t00=0x003f, t01=0x000c}
0x628a…62ae Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 ADJUST POINTER DK1«, t00=0x003f, t01=0x0034}
0x62ae…62e4 Head {h00=0x0032, h01=0x0050, text=» CW A1,ECBBA,A8 END OF BUFFER,(FRONT-END) DK1 «, t00=0x003f, t01=0x0058}
0x62e4…630c Head {h00=0x0024, h01=0x0050, text=» RF(E) PRL070 YES, FINISHED DK1 «, t00=0x003f, t01=0x008e}
0x630c…632c Head {h00=0x001c, h01=0x0050, text=» RB PRL060 CONTINUE DK1 «, t00=0x003f, t01=0x00b6}
0x632c…6346 Head {h00=0x0016, h01=0x0050, text=»PRL070 EQU * DK1 «, t00=0x003f, t01=0x00d6}
0x6346…6374 Head {h00=0x002a, h01=0x0050, text=» LD A2,ECBBA,A8 COMPUTE NEW LENGTH DK1«, t00=0x003f, t01=0x00f0}
0x6374…638c Head {h00=0x0014, h01=0x0050, text=» SUR A1,A2 DK1 «, t00=0x003f, t01=0x011e}
0x638c…63ba Head {h00=0x002a, h01=0x0050, text=» LDR A9,A1 PUT IN NEW REQ, LENGTH DK1 «, t00=0x003f, t01=0x0136}
0x63ba…63d4 Head {h00=0x0016, h01=0x0050, text=»PRL080 EQU * DK1 «, t00=0x003f, t01=0x0164}
0x63d4…640c Head {h00=0x0034, h01=0x0050, text=» LD A1,ECBBA,A8 RESTORE CONT. CHAR. ADDR. DK1 «, t00=0x003f, t01=0x017e}
0x640c…6422 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 DK1«, t00=0x0040, t01=0x0026}
0x6422…643e Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBA,A8 DK1«, t00=0x0040, t01=0x003c}
0x643e…6450 Head {h00=0x000e, h01=0x0050, text=» XIF DK1«, t00=0x0040, t01=0x0058}
0x6450…6462 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,2«, t00=0x0040, t01=0x006a}
0x6462…647a Head {h00=0x0014, h01=0x0050, text=» ST A9,ECBRL,A8 «, t00=0x0040, t01=0x007c}
0x647a…6494 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/06 PRINT «, t00=0x0040, t01=0x0094}
0x6494…64a0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0040, t01=0x00ae}
0x64a0…64b0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0040, t01=0x00ba}
0x64b0…64d4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,50 NUMBER OF DELAYS «, t00=0x0040, t01=0x00ca}
0x64d4…64e8 Head {h00=0x0010, h01=0x0050, text=»PRL100 EQU *«, t00=0x0040, t01=0x00ee}
0x64e8…650c Head {h00=0x0020, h01=0x0050, text=» LDKL A8,1 WAIT FOR A WHILE «, t00=0x0040, t01=0x0102}
0x650c…6518 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0040, t01=0x0126}
0x6518…6528 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0040, t01=0x0132}
0x6528…6542 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0040, t01=0x0142}
0x6542…6564 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 PRINT COMPL.? «, t00=0x0040, t01=0x015c}
0x6564…657e Head {h00=0x0016, h01=0x0050, text=» RF(N) PRL150 YES «, t00=0x0040, t01=0x017e}
0x657e…65a2 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 MORE TO WAIT FOR? «, t00=0x0041, t01=0x0008}
0x65a2…65bc Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PRL100 YES«, t00=0x0041, t01=0x002c}
0x65bc…65c8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0041, t01=0x0046}
0x65c8…65de Head {h00=0x0012, h01=0x0050, text=» DATA 10 ABORT«, t00=0x0041, t01=0x0052}
0x65de…6604 Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL150 FINSHED AT LAST «, t00=0x0041, t01=0x0068}
0x6604…662e Head {h00=0x0026, h01=0x0050, text=» LDK A1,1 NO CONSIDER IT AS #$&%$ «, t00=0x0041, t01=0x008e}
0x662e…6640 Head {h00=0x000e, h01=0x0050, text=» RF PRL300«, t00=0x0041, t01=0x00b8}
0x6640…6654 Head {h00=0x0010, h01=0x0050, text=»PRL150 EQU *«, t00=0x0041, t01=0x00ca}
0x6654…6662 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0041, t01=0x00de}
0x6662…6680 Head {h00=0x001a, h01=0x0050, text=» DATA 2 RESYNCHRONIZE «, t00=0x0041, t01=0x00ec}
0x6680…66a4 Head {h00=0x0020, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE «, t00=0x0041, t01=0x010a}
0x66a4…66c0 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0041, t01=0x012e}
0x66c0…66da Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL300 NO «, t00=0x0041, t01=0x014a}
0x66da…66ee Head {h00=0x0010, h01=0x0050, text=»PRL200 EQU *«, t00=0x0041, t01=0x0164}
0x66ee…6718 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0041, t01=0x0178}
0x6718…673c Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0042, t01=0x0012}
0x673c…674e Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0042, t01=0x0036}
0x674e…6760 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0042, t01=0x0048}
0x6760…677e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0042, t01=0x005a}
0x677e…6792 Head {h00=0x0010, h01=0x0050, text=»PRL300 EQU *«, t00=0x0042, t01=0x0078}
0x6792…67a2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0042, t01=0x008c}
0x67a2…67b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x009c}
0x67b0…67fc Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0042, t01=0x00aa}
0x67fc…6848 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0042, t01=0x00f6}
0x6848…6894 Head {h00=0x0048, h01=0x0050, text=»* INIT INIT ROUTINE * «, t00=0x0042, t01=0x0142}
0x6894…68e0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0042, t01=0x018e}
0x68e0…692c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0043, t01=0x004a}
0x692c…693e Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x0043, t01=0x0096}
0x693e…6960 Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x0043, t01=0x00a8}
0x6960…6984 Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x0043, t01=0x00ca}
0x6984…6996 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0043, t01=0x00ee}
0x6996…69a8 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0043, t01=0x0100}
0x69a8…69bc Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0043, t01=0x0112}
0x69bc…69e6 Head {h00=0x0026, h01=0x0050, text=» ST A2,PRTID,A11 SAVE WHOLE TASKID«, t00=0x0043, t01=0x0126}
0x69e6…6a1c Head {h00=0x0032, h01=0x0050, text=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX «, t00=0x0043, t01=0x0150}
0x6a1c…6a42 Head {h00=0x0022, h01=0x0050, text=» LD A7,PRTTAB NUMBER OF TYPES «, t00=0x0043, t01=0x0186}
0x6a42…6a72 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,PRTTAB+2 START OF PRINTER TABLE«, t00=0x0044, t01=0x001c}
0x6a72…6a86 Head {h00=0x0010, h01=0x0050, text=»INI100 EQU *«, t00=0x0044, t01=0x004c}
0x6a86…6aae Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CONVERT TYPE TO INDEX«, t00=0x0044, t01=0x0060}
0x6aae…6ac4 Head {h00=0x0012, h01=0x0050, text=» RF(E) INI200 «, t00=0x0044, t01=0x0088}
0x6ac4…6ad6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0044, t01=0x009e}
0x6ad6…6af4 Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ILLEGAL ID? «, t00=0x0044, t01=0x00b0}
0x6af4…6b0e Head {h00=0x0016, h01=0x0050, text=» RB(NZ) INI100 NO «, t00=0x0044, t01=0x00ce}
0x6b0e…6b20 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0044, t01=0x00e8}
0x6b20…6b38 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0044, t01=0x00fa}
0x6b38…6b44 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0044, t01=0x0112}
0x6b44…6b5e Head {h00=0x0016, h01=0x0050, text=» DATA 3 FORGET IT «, t00=0x0044, t01=0x011e}
0x6b5e…6b72 Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x0044, t01=0x0138}
0x6b72…6b86 Head {h00=0x0010, h01=0x0050, text=» LD A1,+2,A1«, t00=0x0044, t01=0x014c}
0x6b86…6bb2 Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTTYP,A11 SAVE PRINTER TYPE «, t00=0x0044, t01=0x0160}
0x6bb2…6bc2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0044, t01=0x018c}
0x6bc2…6bd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x000c}
0x6bd0…6c1a Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0045, t01=0x001a}
0x6c1a…6c64 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0045, t01=0x0064}
0x6c64…6cae Head {h00=0x0046, h01=0x0050, text=»* TSTPRT TEST HARDWARE * «, t00=0x0045, t01=0x00ae}
0x6cae…6cf8 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0045, t01=0x00f8}
0x6cf8…6d42 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0045, t01=0x0142}
0x6d42…6d56 Head {h00=0x0010, h01=0x0050, text=»TSTPRT EQU *«, t00=0x0045, t01=0x018c}
0x6d56…6d68 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0046, t01=0x0010}
0x6d68…6d82 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0046, t01=0x0022}
0x6d82…6da2 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x0046, t01=0x003c}
0x6da2…6db6 Head {h00=0x0010, h01=0x0050, text=»TSTP10 EQU *«, t00=0x0046, t01=0x005c}
0x6db6…6dc2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0046, t01=0x0070}
0x6dc2…6dd2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0046, t01=0x007c}
0x6dd2…6dea Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0046, t01=0x008c}
0x6dea…6e06 Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 OPERABLE? «, t00=0x0046, t01=0x00a4}
0x6e06…6e20 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TSTP80 YES «, t00=0x0046, t01=0x00c0}
0x6e20…6e5c Head {h00=0x0038, h01=0x0050, text=» LD A2,PRTID,A11 NO INDICATE NOT OP. IN DEVICE TABLE«, t00=0x0046, t01=0x00da}
0x6e5c…6e70 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0046, t01=0x0116}
0x6e70…6e84 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0046, t01=0x012a}
0x6e84…6e96 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0046, t01=0x013e}
0x6e96…6eac Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x0046, t01=0x0150}
0x6eac…6ec2 Head {h00=0x0012, h01=0x0050, text=» LDK A1,TSKTAB«, t00=0x0046, t01=0x0166}
0x6ec2…6ed4 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0046, t01=0x017c}
0x6ed4…6ee6 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0046, t01=0x018e}
0x6ee6…6ef8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0047, t01=0x0010}
0x6ef8…6f1e Head {h00=0x0022, h01=0x0050, text=» SC A1,+3,A3 INDICATE NOT OP. «, t00=0x0047, t01=0x0022}
0x6f1e…6f30 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x0047, t01=0x0048}
0x6f30…6f44 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,100«, t00=0x0047, t01=0x005a}
0x6f44…6f50 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0047, t01=0x006e}
0x6f50…6f60 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0047, t01=0x007a}
0x6f60…6f72 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x0047, t01=0x008a}
0x6f72…6f9a Head {h00=0x0024, h01=0x0050, text=» LDK A2,1 INDICATE ONCE NOT OP. «, t00=0x0047, t01=0x009c}
0x6f9a…6fac Head {h00=0x000e, h01=0x0050, text=» RB TSTP10«, t00=0x0047, t01=0x00c4}
0x6fac…6fc0 Head {h00=0x0010, h01=0x0050, text=»TSTP80 EQU *«, t00=0x0047, t01=0x00d6}
0x6fc0…6fe0 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A2 NOT OP. ONCE?«, t00=0x0047, t01=0x00ea}
0x6fe0…6ff8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTP90 NO«, t00=0x0047, t01=0x010a}
0x6ff8…701a Head {h00=0x001e, h01=0x0050, text=» SC A1,+3,A3 RESET STATUS «, t00=0x0047, t01=0x0122}
0x701a…702e Head {h00=0x0010, h01=0x0050, text=»TSTP90 EQU *«, t00=0x0047, t01=0x0144}
0x702e…703e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0047, t01=0x0158}
0x703e…704c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0168}
0x704c…7098 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0047, t01=0x0176}
0x7098…70e4 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0048, t01=0x0032}
0x70e4…7130 Head {h00=0x0048, h01=0x0050, text=»* GETTAB GET ORDER INDEX * «, t00=0x0048, t01=0x007e}
0x7130…717c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0048, t01=0x00ca}
0x717c…71c8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0048, t01=0x0116}
0x71c8…71dc Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x0048, t01=0x0162}
0x71dc…720e Head {h00=0x002e, h01=0x0050, text=» LD A7,PRTORD NUMBER OF VALID ORDER CODES «, t00=0x0048, t01=0x0176}
0x720e…7238 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PRTORD+2 ORDERTABLE BASE «, t00=0x0049, t01=0x0018}
0x7238…724c Head {h00=0x0010, h01=0x0050, text=»GETT10 EQU *«, t00=0x0049, t01=0x0042}
0x724c…727c Head {h00=0x002c, h01=0x0050, text=» CCR A2,A1 CONVERT ORDER CODE TO ADDRESS«, t00=0x0049, t01=0x0056}
0x727c…7292 Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x0049, t01=0x0086}
0x7292…72a8 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0049, t01=0x009c}
0x72a8…72be Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0049, t01=0x00b2}
0x72be…72d0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0049, t01=0x00c8}
0x72d0…72ee Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ORDER FOUND?«, t00=0x0049, t01=0x00da}
0x72ee…730e Head {h00=0x001c, h01=0x0050, text=» RF(Z) GETT30 NO INVALID«, t00=0x0049, t01=0x00f8}
0x730e…732a Head {h00=0x0018, h01=0x0050, text=» RB GETT10 TRY AGAIN«, t00=0x0049, t01=0x0118}
0x732a…733e Head {h00=0x0010, h01=0x0050, text=»GETT20 EQU *«, t00=0x0049, t01=0x0134}
0x733e…7350 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0049, t01=0x0148}
0x7350…736a Head {h00=0x0016, h01=0x0050, text=» LD A2,PRTTYP,A11 «, t00=0x0049, t01=0x015a}
0x736a…737c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0049, t01=0x0174}
0x737c…7390 Head {h00=0x0010, h01=0x0050, text=»GETT30 EQU *«, t00=0x0049, t01=0x0186}
0x7390…73a4 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x004a, t01=0x000a}
0x73a4…73b4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004a, t01=0x001e}
0x73b4…73bc Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x002e}
0x73bc…73c8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004a, t01=0x0036}
0x73c8…73cc Head {h00=0x4004, h01=0x0000}
0x73cc…73d0 00 4a 00 42 ┆ J B┆
0x73d0…73d8 (75, 1, 8) 20 04 00 00 00 4b 00 04 ┆ K ┆
0x73d8…7428 (76, 0, 400) 81 42 00 0c 82 42 00 0a f6 a1 57 24 f0 3a 81 12 99 56 ff f4 81 43 00 10 f6 a1 36 82 01 01 a3 85 50 04 a0 43 00 10 23 30 1b 20 54 0c 81 26 81 43 00 0c a0 43 00 0a f0 3a f6 a1 56 a0 81 43 00 0a 82 43 00 0c f0 3a 00 00 00 00 00 00 00 00 00 00 ┆ B B W$ : V C 6 P C #0 T & C C : V C C : ┆
0x7428…7478 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x7518…7568 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 04 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆