|
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: 29850 (0x749a)
Notes: pts_type(SC)
Names: »PRINT.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »U3270.2/PRINT.SC«
IDENT PRINT REL 11.1 82-02-12 870150541110 =7 TEST PRINTER BEFORE CONNECT =6 SET PRINTER STATUS =5 DIFFERENT FF CH FOR GP74 82-01-26 =4 NATIONAL CHAR 81-11-20 =3 SPACE SUPRESSION 81-05-12 =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) EXTRN CONNAT TRANSFORM OF NAT CHAR =4 EJECT *************************************************************** * * * CONDITIONAL ASSEMBLY * * * *************************************************************** X:A EQU 0 SNA HANDLING IF:=1 SNA EQU X:A X:D EQU 1 NUMBER OF DC LINES (1-2) NBRLIN EQU X:D X:O EQU 0 TEST MODE IF:=1 TEST EQU X:O X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4 TRANAT EQU X:R . =4 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 CF A14,TSTPRT TEST HARDWARE =7 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 RF(N) PRI100 NO DC INVOLVED LDKL A8,20 LKM DATA 6 CF A14,CONCT CONNECT PASSIVE CF A14,SETTIM SET REQUEST TIMEOUT XIF LDK A1,SHARED ALWAYS SHARED IN BSC ST A1,PRTMOD,A11 PRI100 EQU * CF A14,TSTPRT TEST HARDWARE 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,A8 CF A14,READW READ FIRST BUFFER ANK A1,3 ERROR? RF(NZ) DCP400 NO LDR A8,A12 CF A14,RELBUF RELEASE BUFFER 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 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 CM ECBRL,A8 RESET PRINT LENGTH =3 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 ANKL A10,/FFFF-CRREC RESET CR RCV =3 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 * IFF TRANAT=0 . =4 LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4 XIF . =4 SCR A2,A8 ADKL A9,1 ADKL A8,1 CCK A2,/2020 SPACE? =3 RF(E) COP800 YES, DON'T UPDATE LENGTH =3 LD A1,ECBPRT,A11 GET ECB =3 ST A9,ECBRL,A1 UPDATE LAST POS. NOT SPACE =3 COP800 EQU * ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3 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,/0C LDR* A2,A11 GET TASKID =5 SRL A2,8 . =5 CCK A2,'GG' GP74? =5 RF(NE) FFV100 NO! =5 LDK A1,/31 YES!DIFF. FF CONTROL CH =5 FFV100 EQU * . =5 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(Z) FFCH20 YES, FF NOT ALLOWED 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 * ANKL A10,/FFFF-CRREC RESET CR RCV =3 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 * ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 ADS A9,ECBRL,A8 . =3 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 CM ECBRL,A8 RESET PRINT LENGTH =3 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 RF PRL900 . =6 PRL300 EQU * LD A2,PRTID,A11 GET PRINTER TASKID =6 ANK A2,/FF . =6 SUK A2,/30 . =6 SLL A2,2 . =6 LD A3,+6,A13 COMMON BLOCK BASE =6 ADK A3,TSKTAB . =6 ADR A3,A2 . =6 SC A1,+3,A3 SET PRINTER STATUS =6 PRL900 EQU * . =6 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 * . =6 LD A8,ECBPRT,A11 LDK A7,/80 TEST STATUS TSTP10 EQU * LKM DATA 1 LD A4,ECBRC,A8 . =6 ANK A4,1 . =6 . =6 LD A2,PRTID,A11 . =6 ANK A2,/FF SUK A2,/30 SLL A2,2 LD A3,+6,A13 LDK A1,TSKTAB ADR A3,A1 ADR A3,A2 . =6 SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6 ANK A4,1 OPERABLE? =6 RF(Z) TSTP90 YES! =6 LDR A1,A8 LDKL A8,100 LKM DATA 6 LDR A8,A1 . =6 RB TSTP10 . =6 . =6 . =6 . =6 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…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT PRINT REL 11.1 82-02-12 870150541110 «, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x0038}
0x003c…0066 Head {h00=0x0026, h01=0x0050, text=» =7 TEST PRINTER BEFORE CONNECT «, t00=0x0000, t01=0x0040}
0x0066…0086 Head {h00=0x001c, h01=0x0050, text=» =6 SET PRINTER STATUS«, t00=0x0000, t01=0x006a}
0x0086…00ac Head {h00=0x0022, h01=0x0050, text=» =5 DIFFERENT FF CH FOR GP74«, t00=0x0000, t01=0x008a}
0x00ac…00c0 Head {h00=0x0010, h01=0x0050, text=» 82-01-26 «, t00=0x0000, t01=0x00b0}
0x00c0…00dc Head {h00=0x0018, h01=0x0050, text=» =4 NATIONAL CHAR «, t00=0x0000, t01=0x00c4}
0x00dc…00f0 Head {h00=0x0010, h01=0x0050, text=» 81-11-20 «, t00=0x0000, t01=0x00e0}
0x00f0…010e Head {h00=0x001a, h01=0x0050, text=» =3 SPACE SUPRESSION«, t00=0x0000, t01=0x00f4}
0x010e…0122 Head {h00=0x0010, h01=0x0050, text=» 81-05-12 «, t00=0x0000, t01=0x0112}
0x0122…013a Head {h00=0x0014, h01=0x0050, text=» =2 NEW LABEL «, t00=0x0000, t01=0x0126}
0x013a…014e Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0000, t01=0x013e}
0x014e…016e Head {h00=0x001c, h01=0x0050, text=» =1, EOC ON FIRST READ«, t00=0x0000, t01=0x0152}
0x016e…0182 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0172}
0x0182…01ce Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0000, t01=0x0186}
0x01ce…021a Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0001, t01=0x0042}
0x021a…0266 Head {h00=0x0048, h01=0x0043, text=»* MODULE PRINT : «, t00=0x0001, t01=0x008e}
0x0266…02b2 Head {h00=0x0048, h01=0x0043, text=»* MODULE HANDLING THE PRINTOUTS BOTH FROM * «, t00=0x0001, t01=0x00da}
0x02b2…02fe Head {h00=0x0048, h01=0x0043, text=»* DISPLAY AND MAIN-FRAME * «, t00=0x0001, t01=0x0126}
0x02fe…034a Head {h00=0x0048, h01=0x0043, text=»* (EMULATION 3270 SNA/SDLC, BSC * «, t00=0x0001, t01=0x0172}
0x034a…0396 Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0002, t01=0x002e}
0x0396…03e2 Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0002, t01=0x007a}
0x03e2…03f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00c6}
0x03f0…0430 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0002, t01=0x00d4}
0x0430…043a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0114}
0x043a…045c Head {h00=0x001e, h01=0x0050, text=»* LIST OF ROUTINES «, t00=0x0002, t01=0x011e}
0x045c…0466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0466…048e Head {h00=0x0024, h01=0x0050, text=»* PRINT MAIN ROUTINE«, t00=0x0002, t01=0x014a}
0x048e…04c2 Head {h00=0x0030, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0002, t01=0x0172}
0x04c2…04f6 Head {h00=0x0030, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0003, t01=0x0016}
0x04f6…0522 Head {h00=0x0028, h01=0x0050, text=»* DCPINP DC PRINTER INPUT«, t00=0x0003, t01=0x004a}
0x0522…054e Head {h00=0x0028, h01=0x0050, text=»* ICPINP INTERTASK INPUT «, t00=0x0003, t01=0x0076}
0x054e…0578 Head {h00=0x0026, h01=0x0050, text=»* ICPRED INTERTASK READ«, t00=0x0003, t01=0x00a2}
0x0578…05a4 Head {h00=0x0028, h01=0x0050, text=»* ICPWRT INTERTASK WRITE «, t00=0x0003, t01=0x00cc}
0x05a4…05d0 Head {h00=0x0028, h01=0x0050, text=»* ICABOR INTERTASK ABORT «, t00=0x0003, t01=0x00f8}
0x05d0…060a Head {h00=0x0036, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER «, t00=0x0003, t01=0x0124}
0x060a…0632 Head {h00=0x0024, h01=0x0050, text=»* TABLE OF PRINTERORDERS «, t00=0x0003, t01=0x015e}
0x0632…0656 Head {h00=0x0020, h01=0x0050, text=»* NL NEW LINE«, t00=0x0003, t01=0x0186}
0x0656…0686 Head {h00=0x002c, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED «, t00=0x0004, t01=0x001a}
0x0686…06ac Head {h00=0x0022, h01=0x0050, text=»* FFVAL FORM FEED «, t00=0x0004, t01=0x004a}
0x06ac…06d8 Head {h00=0x0028, h01=0x0050, text=»* CR CARRIAGE RETURN «, t00=0x0004, t01=0x0070}
0x06d8…0700 Head {h00=0x0024, h01=0x0050, text=»* EM END MESSAGE «, t00=0x0004, t01=0x009c}
0x0700…0732 Head {h00=0x002e, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER «, t00=0x0004, t01=0x00c4}
0x0732…0762 Head {h00=0x002c, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID«, t00=0x0004, t01=0x00f6}
0x0762…0788 Head {h00=0x0022, h01=0x0050, text=»* PRLINE PRINT LINE«, t00=0x0004, t01=0x0126}
0x0788…07b0 Head {h00=0x0024, h01=0x0050, text=»* INIT INIT ROUTINE«, t00=0x0004, t01=0x014c}
0x07b0…07da Head {h00=0x0026, h01=0x0050, text=»* TSTPRT TEST HARDWARE «, t00=0x0004, t01=0x0174}
0x07da…0806 Head {h00=0x0028, h01=0x0050, text=»* GETTAB GET ORDER INDEX «, t00=0x0005, t01=0x000e}
0x0806…0810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003a}
0x0810…0854 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0005, t01=0x0044}
0x0854…0862 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0005, t01=0x0088}
0x0862…08ae Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0005, t01=0x0096}
0x08ae…08fa Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0005, t01=0x00e2}
0x08fa…0946 Head {h00=0x0048, h01=0x0043, text=»* ENTRY POINTS * «, t00=0x0005, t01=0x012e}
0x0946…0992 Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0005, t01=0x017a}
0x0992…09de Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0006, t01=0x0036}
0x09de…09e6 Head {h00=0x0004, h01=0x0002, t00=0x0006, t01=0x0082}
0x09e6…0a22 Head {h00=0x0038, h01=0x0034, text=» ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT)«, t00=0x0006, t01=0x008a}
0x0a22…0a56 Head {h00=0x0030, h01=0x0050, text=» ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2«, t00=0x0006, t01=0x00c6}
0x0a56…0a5e Head {h00=0x0004, h01=0x0002, t00=0x0006, t01=0x00fa}
0x0a5e…0aaa Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0006, t01=0x0102}
0x0aaa…0af6 Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0006, t01=0x014e}
0x0af6…0b42 Head {h00=0x0048, h01=0x0043, text=»* EXTERNAL REFERENCES * «, t00=0x0007, t01=0x000a}
0x0b42…0b8e Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0007, t01=0x0056}
0x0b8e…0bda Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0007, t01=0x00a2}
0x0bda…0be2 Head {h00=0x0004, h01=0x0002, t00=0x0007, t01=0x00ee}
0x0be2…0c18 Head {h00=0x0032, h01=0x002e, text=» EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA)«, t00=0x0007, t01=0x00f6}
0x0c18…0c4e Head {h00=0x0032, h01=0x002e, text=» EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9«, t00=0x0007, t01=0x012c}
0x0c4e…0c76 Head {h00=0x0024, h01=0x0020, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA)«, t00=0x0007, t01=0x0162}
0x0c76…0c96 Head {h00=0x001c, h01=0x0050, text=» EXTRN OPEN OPEN (DCBSC)«, t00=0x0007, t01=0x018a}
0x0c96…0cc2 Head {h00=0x0028, h01=0x0050, text=» EXTRN CONCT CONNECT PASSIVE (DCBSC)«, t00=0x0008, t01=0x001a}
0x0cc2…0cf2 Head {h00=0x002c, h01=0x0050, text=» EXTRN SETTIM SET REQUEST TIMER (DCBSC) «, t00=0x0008, t01=0x0046}
0x0cf2…0d22 Head {h00=0x002c, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x0008, t01=0x0076}
0x0d22…0d4c Head {h00=0x0026, h01=0x0050, text=» EXTRN TSTMES TEST MESSAGE (DCSNA)«, t00=0x0008, t01=0x00a6}
0x0d4c…0d78 Head {h00=0x0028, h01=0x0050, text=» EXTRN READW READ WITH WAIT (DCSNA) «, t00=0x0008, t01=0x00d0}
0x0d78…0da8 Head {h00=0x002c, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA) «, t00=0x0008, t01=0x00fc}
0x0da8…0dce Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0008, t01=0x012c}
0x0dce…0df8 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0008, t01=0x0152}
0x0df8…0e24 Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x0008, t01=0x017c}
0x0e24…0e50 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBINI INIT IF ECB:S (DSPSNA)«, t00=0x0009, t01=0x0018}
0x0e50…0e82 Head {h00=0x002e, h01=0x0050, text=» EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) «, t00=0x0009, t01=0x0044}
0x0e82…0eae Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x0009, t01=0x0076}
0x0eae…0eda Head {h00=0x0028, h01=0x0050, text=» EXTRN ICREAD INTERTASK READ (KEYB) «, t00=0x0009, t01=0x00a2}
0x0eda…0f02 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCBSC)«, t00=0x0009, t01=0x00ce}
0x0f02…0f30 Head {h00=0x002a, h01=0x0050, text=» EXTRN CONNAT TRANSFORM OF NAT CHAR =4«, t00=0x0009, t01=0x00f6}
0x0f30…0f3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0124}
0x0f3e…0f86 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0009, t01=0x0132}
0x0f86…0fce Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0009, t01=0x017a}
0x0fce…1016 Head {h00=0x0044, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000a, t01=0x0032}
0x1016…105e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000a, t01=0x007a}
0x105e…10a6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000a, t01=0x00c2}
0x10a6…10ae Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x010a}
0x10ae…10d2 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000a, t01=0x0112}
0x10d2…10e6 Head {h00=0x0010, h01=0x0050, text=»SNA EQU X:A «, t00=0x000a, t01=0x0136}
0x10e6…1110 Head {h00=0x0026, h01=0x0050, text=»X:D EQU 1 NUMBER OF DC LINES (1-2)«, t00=0x000a, t01=0x014a}
0x1110…1126 Head {h00=0x0012, h01=0x0050, text=»NBRLIN EQU X:D«, t00=0x000a, t01=0x0174}
0x1126…1148 Head {h00=0x001e, h01=0x0050, text=»X:O EQU 0 TEST MODE IF:=1 «, t00=0x000a, t01=0x018a}
0x1148…115c Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x000b, t01=0x001c}
0x115c…118c Head {h00=0x002c, h01=0x0050, text=»X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4«, t00=0x000b, t01=0x0030}
0x118c…11a8 Head {h00=0x0018, h01=0x0050, text=»TRANAT EQU X:R . =4 «, t00=0x000b, t01=0x0060}
0x11a8…11b6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000b, t01=0x007c}
0x11b6…1202 Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x000b, t01=0x008a}
0x1202…124e Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x000b, t01=0x00d6}
0x124e…1278 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000b, t01=0x0122}
0x1278…12c4 Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x000b, t01=0x014c}
0x12c4…1310 Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x000c, t01=0x0008}
0x1310…1318 Head {h00=0x0004, h01=0x0002, t00=0x000c, t01=0x0054}
0x1318…1322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005c}
0x1322…1342 Head {h00=0x001c, h01=0x0050, text=»* TABLE OF PRINTER TYPES«, t00=0x000c, t01=0x0066}
0x1342…134c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0086}
0x134c…1360 Head {h00=0x0010, h01=0x0050, text=»PRTTAB EQU *«, t00=0x000c, t01=0x0090}
0x1360…138a Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF PRINTERTYPES«, t00=0x000c, t01=0x00a4}
0x138a…13a2 Head {h00=0x0014, h01=0x0050, text=» DATA 'TT',0 GTP«, t00=0x000c, t01=0x00ce}
0x13a2…13c4 Head {h00=0x001e, h01=0x0050, text=» DATA 'LL',2 LINE PRINTER «, t00=0x000c, t01=0x00e6}
0x13c4…13de Head {h00=0x0016, h01=0x0050, text=» DATA 'GG',4 GP 74«, t00=0x000c, t01=0x0108}
0x13de…13fa Head {h00=0x0018, h01=0x0050, text=» DATA 'CC',6 COPY 80«, t00=0x000c, t01=0x0122}
0x13fa…1404 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x013e}
0x1404…1436 Head {h00=0x002e, h01=0x002a, text=»* DEFAULT VALUES FOR DIFF. PRINTERS«, t00=0x000c, t01=0x0148}
0x1436…145c Head {h00=0x0022, h01=0x0050, text=»* BYTE1= NUMBER OF LINES/PAGE «, t00=0x000c, t01=0x017a}
0x145c…1482 Head {h00=0x0022, h01=0x0050, text=»* BYTE2= NUMBER OF CHAR./LINE «, t00=0x000d, t01=0x0010}
0x1482…148c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0036}
0x148c…14aa Head {h00=0x001a, h01=0x0050, text=»PRTLEN DATA /2382 GTP «, t00=0x000d, t01=0x0040}
0x14aa…14c0 Head {h00=0x0012, h01=0x0050, text=» DATA /2382 LP«, t00=0x000d, t01=0x005e}
0x14c0…14da Head {h00=0x0016, h01=0x0050, text=» DATA /2382 GP 74 «, t00=0x000d, t01=0x0074}
0x14da…14f6 Head {h00=0x0018, h01=0x0050, text=» DATA /2382 COPY 80 «, t00=0x000d, t01=0x008e}
0x14f6…1500 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x00aa}
0x1500…1526 Head {h00=0x0022, h01=0x001e, text=»* LINE LENGTHS FROM WCC«, t00=0x000d, t01=0x00b4}
0x1526…1530 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x00da}
0x1530…1568 Head {h00=0x0034, h01=0x002f, text=»LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE «, t00=0x000d, t01=0x00e4}
0x1568…1572 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x011c}
0x1572…159c Head {h00=0x0026, h01=0x0021, text=»* EQUATES FOR ECB HANDLING «, t00=0x000d, t01=0x0126}
0x159c…15a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0150}
0x15a6…15c8 Head {h00=0x001e, h01=0x001a, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000d, t01=0x015a}
0x15c8…15ec Head {h00=0x0020, h01=0x001c, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000d, t01=0x017c}
0x15ec…1610 Head {h00=0x0020, h01=0x001c, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000e, t01=0x0010}
0x1610…1630 Head {h00=0x001c, h01=0x0017, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000e, t01=0x0034}
0x1630…1652 Head {h00=0x001e, h01=0x0019, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x000e, t01=0x0054}
0x1652…165c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0076}
0x165c…1674 Head {h00=0x0014, h01=0x0050, text=»* PRINTER MODES «, t00=0x000e, t01=0x0080}
0x1674…167e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0098}
0x167e…169c Head {h00=0x001a, h01=0x0016, text=»LOCAL EQU 0 LOCAL MODE«, t00=0x000e, t01=0x00a2}
0x169c…16bc Head {h00=0x001c, h01=0x0018, text=»SHARED EQU 2 SHARED MODE«, t00=0x000e, t01=0x00c0}
0x16bc…16c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e0}
0x16c6…16e8 Head {h00=0x001e, h01=0x0050, text=»* PRINTER STATUS IN PRTMOD«, t00=0x000e, t01=0x00ea}
0x16e8…16f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010c}
0x16f2…1718 Head {h00=0x0022, h01=0x0050, text=»PRTERR EQU /4000 PRINTER ERROR«, t00=0x000e, t01=0x0116}
0x1718…1722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013c}
0x1722…1748 Head {h00=0x0022, h01=0x0050, text=»* COPY INTERNAL STATUS IN A10 «, t00=0x000e, t01=0x0146}
0x1748…1752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016c}
0x1752…177a Head {h00=0x0024, h01=0x0050, text=»NXTCHA EQU /8000 GET NEXT CHAR. «, t00=0x000e, t01=0x0176}
0x177a…17a0 Head {h00=0x0022, h01=0x0050, text=»ENDPRT EQU /4000 END PRINTING «, t00=0x000f, t01=0x000e}
0x17a0…17c8 Head {h00=0x0024, h01=0x0050, text=»NTONLY EQU /2000 NOT ONLY SPACES«, t00=0x000f, t01=0x0034}
0x17c8…17ec Head {h00=0x0020, h01=0x0050, text=»CRREC EQU /1000 CR RECEIVED «, t00=0x000f, t01=0x005c}
0x17ec…17f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0080}
0x17f6…1822 Head {h00=0x0028, h01=0x0023, text=»* RELATIVE POS. IN ECB-BLOCK «, t00=0x000f, t01=0x008a}
0x1822…182c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x00b6}
0x182c…1846 Head {h00=0x0016, h01=0x0012, text=»IC EQU 2 INTERTASK«, t00=0x000f, t01=0x00c0}
0x1846…1850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00da}
0x1850…1866 Head {h00=0x0012, h01=0x0050, text=»* SCREEN SIZE «, t00=0x000f, t01=0x00e4}
0x1866…1870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fa}
0x1870…1886 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x000f, t01=0x0104}
0x1886…1890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011a}
0x1890…18a8 Head {h00=0x0014, h01=0x0050, text=»* RECEIVE STATUS«, t00=0x000f, t01=0x0124}
0x18a8…18b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013c}
0x18b2…18d0 Head {h00=0x001a, h01=0x0050, text=»LICREC EQU /2000 . =1 «, t00=0x000f, t01=0x0146}
0x18d0…18de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0164}
0x18de…18e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0172}
0x18e8…1908 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000f, t01=0x017c}
0x1908…1924 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0010, t01=0x000c}
0x1924…192e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0028}
0x192e…194e Head {h00=0x001c, h01=0x0050, text=»BVDU EQU 2 SCREEN BUFFER«, t00=0x0010, t01=0x0032}
0x194e…196c Head {h00=0x001a, h01=0x0050, text=»WCC EQU BVDU+1950 WCC «, t00=0x0010, t01=0x0052}
0x196c…1992 Head {h00=0x0022, h01=0x0050, text=»LINCNT EQU WCC+4 LINE COUNTER «, t00=0x0010, t01=0x0070}
0x1992…19c8 Head {h00=0x0032, h01=0x0050, text=»DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER «, t00=0x0010, t01=0x0096}
0x19c8…19f2 Head {h00=0x0026, h01=0x0050, text=»PRTID EQU DCLENG+6 PRINTER TASKID «, t00=0x0010, t01=0x00cc}
0x19f2…1a1a Head {h00=0x0024, h01=0x0050, text=»PRTTYP EQU PRTID+2 PRINTER TYPE «, t00=0x0010, t01=0x00f6}
0x1a1a…1a40 Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTTYP+4 WHAT DC LINE«, t00=0x0010, t01=0x011e}
0x1a40…1a64 Head {h00=0x0020, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB BLOCK «, t00=0x0010, t01=0x0144}
0x1a64…1a90 Head {h00=0x0028, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER POINTER «, t00=0x0010, t01=0x0168}
0x1a90…1ab4 (17, 0, 398) Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x0011, t01=0x0004}
0x1ab4…1adc Head {h00=0x0024, h01=0x0050, text=»PRTMOD EQU REGI+32 PRINTER MODE «, t00=0x0011, t01=0x0028}
0x1adc…1b04 Head {h00=0x0024, h01=0x0050, text=»ECBPRT EQU PRTMOD+4 PRINTER ECB «, t00=0x0011, t01=0x0050}
0x1b04…1b32 Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBPRT+6 INTERTASK READ ECB«, t00=0x0011, t01=0x0078}
0x1b32…1b62 Head {h00=0x002c, h01=0x0050, text=»ECBICW EQU ECBICR+2 INTERTASK WRITE ECB «, t00=0x0011, t01=0x00a6}
0x1b62…1b84 Head {h00=0x001e, h01=0x0050, text=»ECBDC EQU ECBICW+2 ECB DC «, t00=0x0011, t01=0x00d6}
0x1b84…1baa Head {h00=0x0022, h01=0x0050, text=»ECBDC1 EQU ECBDC ECB DC LINE 1«, t00=0x0011, t01=0x00f8}
0x1baa…1bd4 Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x0011, t01=0x011e}
0x1bd4…1bde Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0148}
0x1bde…1bfe Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0011, t01=0x0152}
0x1bfe…1c18 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0011, t01=0x0172}
0x1c18…1c22 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x018c}
0x1c22…1c36 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0012, t01=0x0008}
0x1c36…1c58 Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 24 DEVICE TABLE«, t00=0x0012, t01=0x001c}
0x1c58…1c64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x003e}
0x1c64…1c78 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0012, t01=0x004a}
0x1c78…1c8e Head {h00=0x0012, h01=0x0050, text=»TSKTAB EQU 219«, t00=0x0012, t01=0x005e}
0x1c8e…1c9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0074}
0x1c9a…1ca8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0012, t01=0x0080}
0x1ca8…1cf4 Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0012, t01=0x008e}
0x1cf4…1d40 Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0012, t01=0x00da}
0x1d40…1d8c Head {h00=0x0048, h01=0x0043, text=»* PRINT MAIN ROUTINE PRINTER * «, t00=0x0012, t01=0x0126}
0x1d8c…1dd8 Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0012, t01=0x0172}
0x1dd8…1e24 Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0013, t01=0x002e}
0x1e24…1e38 Head {h00=0x0010, h01=0x000b, text=»PRINT EQU * «, t00=0x0013, t01=0x007a}
0x1e38…1e5a Head {h00=0x001e, h01=0x0019, text=» CF A14,INIT INIT ROUTINE «, t00=0x0013, t01=0x008e}
0x1e5a…1e82 Head {h00=0x0024, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE =7 «, t00=0x0013, t01=0x00b0}
0x1e82…1e94 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0013, t01=0x00d8}
0x1e94…1ec4 Head {h00=0x002c, h01=0x0027, text=» CF A14,OPINIT OPEN CONNECTION INITIATE «, t00=0x0013, t01=0x00ea}
0x1ec4…1ee8 Head {h00=0x0020, h01=0x001c, text=» RF(N) PRI100 DC NOT PRESENT«, t00=0x0013, t01=0x011a}
0x1ee8…1f0a Head {h00=0x001e, h01=0x0050, text=» CF A14,OPSYS OPEN SYSTEM «, t00=0x0013, t01=0x013e}
0x1f0a…1f16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0160}
0x1f16…1f28 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0013, t01=0x016c}
0x1f28…1f42 Head {h00=0x0016, h01=0x0050, text=» CF A14,OPEN OPEN «, t00=0x0013, t01=0x017e}
0x1f42…1f66 Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 NO DC INVOLVED«, t00=0x0014, t01=0x0008}
0x1f66…1f7a Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x0014, t01=0x002c}
0x1f7a…1f86 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x0040}
0x1f86…1f96 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0014, t01=0x004c}
0x1f96…1fbc Head {h00=0x0022, h01=0x0050, text=» CF A14,CONCT CONNECT PASSIVE «, t00=0x0014, t01=0x005c}
0x1fbc…1fe6 Head {h00=0x0026, h01=0x0050, text=» CF A14,SETTIM SET REQUEST TIMEOUT«, t00=0x0014, t01=0x0082}
0x1fe6…1ff2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00ac}
0x1ff2…201e Head {h00=0x0028, h01=0x0050, text=» LDK A1,SHARED ALWAYS SHARED IN BSC «, t00=0x0014, t01=0x00b8}
0x201e…2038 Head {h00=0x0016, h01=0x0050, text=» ST A1,PRTMOD,A11 «, t00=0x0014, t01=0x00e4}
0x2038…204c Head {h00=0x0010, h01=0x000c, text=»PRI100 EQU *«, t00=0x0014, t01=0x00fe}
0x204c…2070 Head {h00=0x0020, h01=0x001c, text=» CF A14,TSTPRT TEST HARDWARE«, t00=0x0014, t01=0x0112}
0x2070…2084 Head {h00=0x0010, h01=0x000c, text=»PRI200 EQU *«, t00=0x0014, t01=0x0136}
0x2084…20b2 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOACT ACTIVATE IN CURRENT MODE«, t00=0x0014, t01=0x014a}
0x20b2…20ca Head {h00=0x0014, h01=0x000f, text=» LDKL A7,ECBBLK «, t00=0x0014, t01=0x0178}
0x20ca…20de Head {h00=0x0010, h01=0x000b, text=» ADR A7,A11 «, t00=0x0014, t01=0x0190}
0x20de…20ea Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x0015, t01=0x0014}
0x20ea…2108 Head {h00=0x001a, h01=0x0015, text=» DATA 7 MULTIPLE WAIT «, t00=0x0015, t01=0x0020}
0x2108…2136 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOCPL COMPLET IN CURRENT MODE «, t00=0x0015, t01=0x003e}
0x2136…2150 Head {h00=0x0016, h01=0x0050, text=» LD A1,PRTMOD,A11 «, t00=0x0015, t01=0x006c}
0x2150…2176 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,PRTERR PRINTER ERROR?«, t00=0x0015, t01=0x0086}
0x2176…218e Head {h00=0x0014, h01=0x0050, text=» RB(Z) PRI200 NO«, t00=0x0015, t01=0x00ac}
0x218e…21a8 Head {h00=0x0016, h01=0x0050, text=» XRS A1,PRTMOD,A11«, t00=0x0015, t01=0x00c4}
0x21a8…21c8 Head {h00=0x001c, h01=0x0050, text=» RB PRI100 TRY TO FIX IT«, t00=0x0015, t01=0x00de}
0x21c8…21d6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0015, t01=0x00fe}
0x21d6…2224 Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0015, t01=0x010c}
0x2224…2272 Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0015, t01=0x015a}
0x2272…229a Head {h00=0x0024, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0016, t01=0x0018}
0x229a…22e8 Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0016, t01=0x0040}
0x22e8…2336 Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0016, t01=0x008e}
0x2336…234a Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x0016, t01=0x00dc}
0x234a…235c Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0016, t01=0x00f0}
0x235c…2386 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTMOD,A11 SHARED OR LOCAL?«, t00=0x0016, t01=0x0102}
0x2386…23a2 Head {h00=0x0018, h01=0x0050, text=» RF(Z) IOAC20 LOCAL «, t00=0x0016, t01=0x012c}
0x23a2…23c8 Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 ADD NUMBER OF WAITS «, t00=0x0016, t01=0x0148}
0x23c8…2400 Head {h00=0x0034, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY?«, t00=0x0016, t01=0x016e}
0x2400…241a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x0017, t01=0x0016}
0x241a…243e Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x0017, t01=0x0030}
0x243e…2462 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0017, t01=0x0054}
0x2462…247e Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x0017, t01=0x0078}
0x247e…2492 Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x0017, t01=0x0094}
0x2492…24a8 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0017, t01=0x00a8}
0x24a8…24c8 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADD MORE WAITS«, t00=0x0017, t01=0x00be}
0x24c8…24ec Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+6,A11 ALREADY?«, t00=0x0017, t01=0x00de}
0x24ec…2506 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC20 YES«, t00=0x0017, t01=0x0102}
0x2506…252a Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x0017, t01=0x011c}
0x252a…254e Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0017, t01=0x0140}
0x254e…256a Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0017, t01=0x0164}
0x256a…2576 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0180}
0x2576…258a Head {h00=0x0010, h01=0x0050, text=»IOAC20 EQU *«, t00=0x0017, t01=0x018c}
0x258a…259c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x0010}
0x259c…25c0 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+2,A11 ALREADY?«, t00=0x0018, t01=0x0022}
0x25c0…25da Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC30 YES«, t00=0x0018, t01=0x0046}
0x25da…2600 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPRED READ INTERTASK «, t00=0x0018, t01=0x0060}
0x2600…261c Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0018, t01=0x0086}
0x261c…2630 Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0018, t01=0x00a2}
0x2630…265a Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBBLK,A11 NUMBER OF WAITS «, t00=0x0018, t01=0x00b6}
0x265a…266a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x00e0}
0x266a…2678 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0018, t01=0x00f0}
0x2678…26c6 Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0018, t01=0x00fe}
0x26c6…2714 Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0018, t01=0x014c}
0x2714…273c Head {h00=0x0024, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0019, t01=0x000a}
0x273c…278a Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0019, t01=0x0032}
0x278a…27d8 Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0019, t01=0x0080}
0x27d8…27ec Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0019, t01=0x00ce}
0x27ec…2812 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+2,A11 INTERTASK?«, t00=0x0019, t01=0x00e2}
0x2812…282c Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0019, t01=0x0108}
0x282c…2844 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0019, t01=0x0122}
0x2844…2868 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICPINP MAKE HARDCOPY«, t00=0x0019, t01=0x013a}
0x2868…287a Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0019, t01=0x015e}
0x287a…288e Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0019, t01=0x0170}
0x288e…28b4 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC LINE 1?«, t00=0x0019, t01=0x0184}
0x28b4…28ca Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001a, t01=0x001a}
0x28ca…28e4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x001a, t01=0x0030}
0x28e4…28f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x004a}
0x28f0…2906 Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x001a, t01=0x0056}
0x2906…292a Head {h00=0x0020, h01=0x0050, text=» RF(NE) IOCP90 NO FORGET IT «, t00=0x001a, t01=0x006c}
0x292a…2936 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0090}
0x2936…294e Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x001a, t01=0x009c}
0x294e…2972 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x001a, t01=0x00b4}
0x2972…2984 Head {h00=0x000e, h01=0x0050, text=» RF IOCP30«, t00=0x001a, t01=0x00d8}
0x2984…299a Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001a, t01=0x00ea}
0x299a…29ae Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x001a, t01=0x0100}
0x29ae…29d4 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+6,A11 DC LINE 2?«, t00=0x001a, t01=0x0114}
0x29d4…29ee Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP90 NO «, t00=0x001a, t01=0x013a}
0x29ee…2a06 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+6,A11«, t00=0x001a, t01=0x0154}
0x2a06…2a2a Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x001a, t01=0x016c}
0x2a2a…2a36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0190}
0x2a36…2a4a Head {h00=0x0010, h01=0x0050, text=»IOCP30 EQU *«, t00=0x001b, t01=0x000c}
0x2a4a…2a70 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCPINP TAKE CARE OF DC«, t00=0x001b, t01=0x0020}
0x2a70…2a84 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x001b, t01=0x0046}
0x2a84…2a94 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x005a}
0x2a94…2aa2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x006a}
0x2aa2…2aea Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001b, t01=0x0078}
0x2aea…2b32 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001b, t01=0x00c0}
0x2b32…2b7a Head {h00=0x0044, h01=0x0050, text=»* DCPINP DC PRINTER INPUT * «, t00=0x001b, t01=0x0108}
0x2b7a…2bc2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0150}
0x2bc2…2c0a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001c, t01=0x0008}
0x2c0a…2c1e Head {h00=0x0010, h01=0x0050, text=»DCPINP EQU *«, t00=0x001c, t01=0x0050}
0x2c1e…2c4a Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT LOCAL HARD COPY«, t00=0x001c, t01=0x0064}
0x2c4a…2c70 Head {h00=0x0022, h01=0x0050, text=» LDR A7,A7 ALREADY COMPLETED? «, t00=0x001c, t01=0x0090}
0x2c70…2c88 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP100 NO«, t00=0x001c, t01=0x00b6}
0x2c88…2cb6 Head {h00=0x002a, h01=0x0050, text=» CF A14,ICPINP TAKE CARE OF THAT FIRST«, t00=0x001c, t01=0x00ce}
0x2cb6…2cca Head {h00=0x0010, h01=0x0050, text=»DCP100 EQU *«, t00=0x001c, t01=0x00fc}
0x2cca…2ce2 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBDC,A11«, t00=0x001c, t01=0x0110}
0x2ce2…2cf8 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001c, t01=0x0128}
0x2cf8…2d16 Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 1«, t00=0x001c, t01=0x013e}
0x2d16…2d30 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP150 YES «, t00=0x001c, t01=0x015c}
0x2d30…2d4a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x001c, t01=0x0176}
0x2d4a…2d5e Head {h00=0x0010, h01=0x0050, text=»DCP150 EQU *«, t00=0x001c, t01=0x0190}
0x2d5e…2d6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0014}
0x2d6a…2d7c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001d, t01=0x0020}
0x2d7c…2d98 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x001d, t01=0x0032}
0x2d98…2db2 Head {h00=0x0016, h01=0x0050, text=» ANKL A1,/701 OK? «, t00=0x001d, t01=0x004e}
0x2db2…2dd4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DCP500 NO STOP IT «, t00=0x001d, t01=0x0068}
0x2dd4…2de0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x008a}
0x2de0…2e02 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x001d, t01=0x0096}
0x2e02…2e14 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x001d, t01=0x00b8}
0x2e14…2e3c Head {h00=0x0024, h01=0x0050, text=» CF A14,READW READ FIRST BUFFER «, t00=0x001d, t01=0x00ca}
0x2e3c…2e54 Head {h00=0x0014, h01=0x0050, text=» ANK A1,3 ERROR?«, t00=0x001d, t01=0x00f2}
0x2e54…2e6e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DCP400 NO «, t00=0x001d, t01=0x010a}
0x2e6e…2e82 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x001d, t01=0x0124}
0x2e82…2ea8 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x001d, t01=0x0138}
0x2ea8…2eba Head {h00=0x000e, h01=0x0050, text=» RF DCP500«, t00=0x001d, t01=0x015e}
0x2eba…2ece Head {h00=0x0010, h01=0x0050, text=»DCP400 EQU *«, t00=0x001d, t01=0x0170}
0x2ece…2f00 Head {h00=0x002e, h01=0x0050, text=» SUR A10,A10 RESET INTERNAL UNPACK STATUS «, t00=0x001d, t01=0x0184}
0x2f00…2f18 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =1 «, t00=0x001e, t01=0x0026}
0x2f18…2f2e Head {h00=0x0012, h01=0x0050, text=» ANK A1,2 . =1«, t00=0x001e, t01=0x003e}
0x2f2e…2f48 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP450 . =1«, t00=0x001e, t01=0x0054}
0x2f48…2f66 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,LICREC . =1 «, t00=0x001e, t01=0x006e}
0x2f66…2f80 Head {h00=0x0016, h01=0x0050, text=»DCP450 EQU * . =1 «, t00=0x001e, t01=0x008c}
0x2f80…2f92 Head {h00=0x000e, h01=0x0050, text=» XIF . =1«, t00=0x001e, t01=0x00a6}
0x2f92…2faa Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x001e, t01=0x00b8}
0x2faa…2fd0 Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x001e, t01=0x00d0}
0x2fd0…2ffe Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x001e, t01=0x00f6}
0x2ffe…3010 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001e, t01=0x0124}
0x3010…303a Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET ANOTHER BUFFER «, t00=0x001e, t01=0x0136}
0x303a…304c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x001e, t01=0x0160}
0x304c…3074 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x001e, t01=0x0172}
0x3074…3080 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x000a}
0x3080…30ac Head {h00=0x0028, h01=0x0050, text=» CF A14,UNPACK UPDATE SCREEN BUFFER «, t00=0x001f, t01=0x0016}
0x30ac…30c0 Head {h00=0x0010, h01=0x0050, text=»DCP500 EQU *«, t00=0x001f, t01=0x0042}
0x30c0…30d2 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x001f, t01=0x0056}
0x30d2…30e4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001f, t01=0x0068}
0x30e4…310a Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x001f, t01=0x007a}
0x310a…3116 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00a0}
0x3116…3126 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x00ac}
0x3126…3134 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00bc}
0x3134…317c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001f, t01=0x00ca}
0x317c…31c4 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0112}
0x31c4…320c Head {h00=0x0044, h01=0x0050, text=»* ICPINP INTERTASK INPUT *«, t00=0x001f, t01=0x015a}
0x320c…3254 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0012}
0x3254…329c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0020, t01=0x005a}
0x329c…32b0 Head {h00=0x0010, h01=0x0050, text=»ICPINP EQU *«, t00=0x0020, t01=0x00a2}
0x32b0…32d2 Head {h00=0x001e, h01=0x0050, text=» CF A14,COPP MAKE HARDCOPP«, t00=0x0020, t01=0x00b6}
0x32d2…3302 Head {h00=0x002c, h01=0x0050, text=» ST A1,REGI,A11 RETURN CODE TO TERMINAL «, t00=0x0020, t01=0x00d8}
0x3302…3328 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPWRT WRITE INTERTASK«, t00=0x0020, t01=0x0108}
0x3328…3338 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x012e}
0x3338…3346 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x013e}
0x3346…3390 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0020, t01=0x014c}
0x3390…33da Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0008}
0x33da…3424 Head {h00=0x0046, h01=0x0050, text=»* ICPRED INTERTASK READ *«, t00=0x0021, t01=0x0052}
0x3424…346e Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0021, t01=0x009c}
0x346e…34b8 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0021, t01=0x00e6}
0x34b8…34cc Head {h00=0x0010, h01=0x0050, text=»ICPRED EQU *«, t00=0x0021, t01=0x0130}
0x34cc…34e6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0021, t01=0x0144}
0x34e6…350a Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0021, t01=0x015e}
0x350a…352e Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 NOT ADDRESSED READ«, t00=0x0021, t01=0x0182}
0x352e…3544 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0022, t01=0x0016}
0x3544…3558 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0022, t01=0x002c}
0x3558…3572 Head {h00=0x0016, h01=0x0050, text=» LDKL A2,LBVDU+/20«, t00=0x0022, t01=0x0040}
0x3572…3598 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0022, t01=0x005a}
0x3598…35a8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x0080}
0x35a8…35b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0090}
0x35b6…3602 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0022, t01=0x009e}
0x3602…364e Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0022, t01=0x00ea}
0x364e…369a Head {h00=0x0048, h01=0x0050, text=»* ICPWRT WRITE INTERTASK *«, t00=0x0022, t01=0x0136}
0x369a…36e6 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0022, t01=0x0182}
0x36e6…3732 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0023, t01=0x003e}
0x3732…3746 Head {h00=0x0010, h01=0x0050, text=»ICPWRT EQU *«, t00=0x0023, t01=0x008a}
0x3746…3760 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0023, t01=0x009e}
0x3760…3784 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0023, t01=0x00b8}
0x3784…379e Head {h00=0x0016, h01=0x0050, text=» LD A1,ECBICR,A11 «, t00=0x0023, t01=0x00dc}
0x379e…37c0 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A1 GET TASKID«, t00=0x0023, t01=0x00f6}
0x37c0…37e0 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ICPW90 NOT THERE «, t00=0x0023, t01=0x0118}
0x37e0…3802 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,REGI RETURN CODE «, t00=0x0023, t01=0x0138}
0x3802…3816 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0023, t01=0x015a}
0x3816…382e Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0023, t01=0x016e}
0x382e…3854 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x0023, t01=0x0186}
0x3854…3868 Head {h00=0x0010, h01=0x0050, text=»ICPW90 EQU *«, t00=0x0024, t01=0x001c}
0x3868…3878 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x0030}
0x3878…3886 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0040}
0x3886…38cc Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x004e}
0x38cc…3912 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0094}
0x3912…3958 Head {h00=0x0042, h01=0x0050, text=»* ICABOR INTERTASK ABORT * «, t00=0x0024, t01=0x00da}
0x3958…399e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0120}
0x399e…39e4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x0166}
0x39e4…39f8 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0025, t01=0x001c}
0x39f8…3a0a Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0025, t01=0x0030}
0x3a0a…3a24 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+IC,A11 «, t00=0x0025, t01=0x0042}
0x3a24…3a3e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0025, t01=0x005c}
0x3a3e…3a4a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0025, t01=0x0076}
0x3a4a…3a5a Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0025, t01=0x0082}
0x3a5a…3a6a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0025, t01=0x0092}
0x3a6a…3a78 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0025, t01=0x00a2}
0x3a78…3ac6 Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0025, t01=0x00b0}
0x3ac6…3b14 Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0025, t01=0x00fe}
0x3b14…3b62 Head {h00=0x004a, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER * «, t00=0x0025, t01=0x014c}
0x3b62…3bb0 Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0026, t01=0x000a}
0x3bb0…3bfe Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0026, t01=0x0058}
0x3bfe…3c22 Head {h00=0x0020, h01=0x001b, text=»* REGISTERS «, t00=0x0026, t01=0x00a6}
0x3c22…3c2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0026, t01=0x00ca}
0x3c2c…3c42 Head {h00=0x0012, h01=0x0050, text=»* A2= CHAR. «, t00=0x0026, t01=0x00d4}
0x3c42…3c68 Head {h00=0x0022, h01=0x0050, text=»* A3= SCREEN BUFFER POINTER «, t00=0x0026, t01=0x00ea}
0x3c68…3c92 Head {h00=0x0026, h01=0x0050, text=»* A4= REL. SCREEN BUFFER ADDRESS«, t00=0x0026, t01=0x0110}
0x3c92…3cae Head {h00=0x0018, h01=0x0050, text=»* A5= LINE LENGTH «, t00=0x0026, t01=0x013a}
0x3cae…3cd0 Head {h00=0x001e, h01=0x0050, text=»* A6= CURRENT ATTRIBUTE «, t00=0x0026, t01=0x0156}
0x3cd0…3cf2 Head {h00=0x001e, h01=0x0050, text=»* A8= ECB BUFFER POINTER«, t00=0x0026, t01=0x0178}
0x3cf2…3d12 Head {h00=0x001c, h01=0x0050, text=»* A9= ECB BUFFER INDEX«, t00=0x0027, t01=0x000a}
0x3d12…3d32 Head {h00=0x001c, h01=0x0050, text=»* A10= INTERNAL STATUS«, t00=0x0027, t01=0x002a}
0x3d32…3d52 Head {h00=0x001c, h01=0x0050, text=»* A11= TASK BLOCK BASE«, t00=0x0027, t01=0x004a}
0x3d52…3d6c Head {h00=0x0016, h01=0x0050, text=»* A13= ECB BASE «, t00=0x0027, t01=0x006a}
0x3d6c…3d76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x0084}
0x3d76…3dc4 Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0027, t01=0x008e}
0x3dc4…3ddc Head {h00=0x0014, h01=0x0050, text=»COPP EQU * . =2 «, t00=0x0027, t01=0x00dc}
0x3ddc…3df6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0027, t01=0x00f4}
0x3df6…3e20 Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x0027, t01=0x010e}
0x3e20…3e32 Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x0027, t01=0x0138}
0x3e32…3e54 Head {h00=0x001e, h01=0x0050, text=» LDK A6,0 RESET ATTRIBUTE «, t00=0x0027, t01=0x014a}
0x3e54…3e86 Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0027, t01=0x016c}
0x3e86…3eb0 Head {h00=0x0026, h01=0x0050, text=» CM LINCNT,A11 RESET LINE COUNTER «, t00=0x0028, t01=0x000e}
0x3eb0…3ec6 Head {h00=0x0012, h01=0x000e, text=» LD A1,WCC,A11«, t00=0x0028, t01=0x0038}
0x3ec6…3ee8 Head {h00=0x001e, h01=0x0019, text=» ANK A1,/38 MASK RELEVANT «, t00=0x0028, t01=0x004e}
0x3ee8…3efa Head {h00=0x000e, h01=0x000a, text=» LDR A5,A1«, t00=0x0028, t01=0x0070}
0x3efa…3f18 Head {h00=0x001a, h01=0x0050, text=» ANK A1,8 START PRINT?«, t00=0x0028, t01=0x0082}
0x3f18…3f3a Head {h00=0x001e, h01=0x0050, text=» RF(Z) COP900 NO FORGET IT«, t00=0x0028, t01=0x00a0}
0x3f3a…3f4c Head {h00=0x000e, h01=0x0050, text=» SRL A5,4 «, t00=0x0028, t01=0x00c2}
0x3f4c…3f74 Head {h00=0x0024, h01=0x0050, text=» LC A5,LINLEN,A5 GET LINE LENGTH«, t00=0x0028, t01=0x00d4}
0x3f74…3fa0 Head {h00=0x0028, h01=0x0024, text=» LDR A5,A5 NL,EM AND CR DET. LENGTH?«, t00=0x0028, t01=0x00fc}
0x3fa0…3fba Head {h00=0x0016, h01=0x0011, text=» RF(NZ) COP100 NO «, t00=0x0028, t01=0x0128}
0x3fba…3fe8 Head {h00=0x002a, h01=0x0025, text=» LD A1,PRTTYP,A11 GET MAX LINE LENGTH «, t00=0x0028, t01=0x0142}
0x3fe8…4002 Head {h00=0x0016, h01=0x0050, text=» LC A5,PRTLEN+1,A1«, t00=0x0028, t01=0x0170}
0x4002…4016 Head {h00=0x0010, h01=0x000c, text=»COP100 EQU *«, t00=0x0028, t01=0x018a}
0x4016…402c Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0029, t01=0x000e}
0x402c…4040 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0029, t01=0x0024}
0x4040…4058 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBBA,A8 «, t00=0x0029, t01=0x0038}
0x4058…407c Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0029, t01=0x0050}
0x407c…408e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0029, t01=0x0074}
0x408e…40a0 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0029, t01=0x0086}
0x40a0…40b2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0029, t01=0x0098}
0x40b2…40c4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0029, t01=0x00aa}
0x40c4…40e6 Head {h00=0x001e, h01=0x0050, text=» SUR A10,A10 RESET STATUS «, t00=0x0029, t01=0x00bc}
0x40e6…40fa Head {h00=0x0010, h01=0x0050, text=»COP200 EQU *«, t00=0x0029, t01=0x00de}
0x40fa…411c Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU ALL PRINTED?«, t00=0x0029, t01=0x00f2}
0x411c…4136 Head {h00=0x0016, h01=0x0050, text=» RF(NL) COP850 YES«, t00=0x0029, t01=0x0114}
0x4136…4154 Head {h00=0x001a, h01=0x0050, text=» CWR A9,A5 LINE FULL? «, t00=0x0029, t01=0x012e}
0x4154…416c Head {h00=0x0014, h01=0x0050, text=» RF(L) COP400 NO«, t00=0x0029, t01=0x014c}
0x416c…418e Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x0029, t01=0x0164}
0x418e…41b0 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0029, t01=0x0186}
0x41b0…41ca Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x002a, t01=0x0018}
0x41ca…41de Head {h00=0x0010, h01=0x0050, text=»COP400 EQU *«, t00=0x002a, t01=0x0032}
0x41de…41fa Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x002a, t01=0x0046}
0x41fa…420e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x002a, t01=0x0062}
0x420e…422e Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP650 NULL CHAR.«, t00=0x002a, t01=0x0076}
0x422e…424e Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x002a, t01=0x0096}
0x424e…4266 Head {h00=0x0014, h01=0x0050, text=» RF(L) COP500 NO«, t00=0x002a, t01=0x00b6}
0x4266…428a Head {h00=0x0020, h01=0x0050, text=» LDR A6,A2 GET NEW ATTRIBUTE«, t00=0x002a, t01=0x00ce}
0x428a…429c Head {h00=0x000e, h01=0x0050, text=» RF COP650«, t00=0x002a, t01=0x00f2}
0x429c…42b0 Head {h00=0x0010, h01=0x0050, text=»COP500 EQU *«, t00=0x002a, t01=0x0104}
0x42b0…42cc Head {h00=0x0018, h01=0x0050, text=» CCK A2,/2020 ORDER?«, t00=0x002a, t01=0x0118}
0x42cc…42e6 Head {h00=0x0016, h01=0x0050, text=» RF(L) COP550 YES «, t00=0x002a, t01=0x0134}
0x42e6…4314 Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x002a, t01=0x014e}
0x4314…4326 Head {h00=0x000e, h01=0x0050, text=» RF COP600«, t00=0x002a, t01=0x017c}
0x4326…433a Head {h00=0x0010, h01=0x0050, text=»COP550 EQU *«, t00=0x002a, t01=0x018e}
0x433a…4360 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETTAB GET ORDERINDEX «, t00=0x002b, t01=0x0012}
0x4360…4386 Head {h00=0x0022, h01=0x0050, text=» CFR A14,A1 TAKE CARE OF ORDER«, t00=0x002b, t01=0x0038}
0x4386…43a8 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x002b, t01=0x005e}
0x43a8…43c2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x002b, t01=0x0080}
0x43c2…43e0 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A10 GET STATUS«, t00=0x002b, t01=0x009a}
0x43e0…4404 Head {h00=0x0020, h01=0x0050, text=» RF(N) COP800 GET NEXT CHAR.«, t00=0x002b, t01=0x00b8}
0x4404…4416 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x002b, t01=0x00dc}
0x4416…4430 Head {h00=0x0016, h01=0x0050, text=» RF(N) COP850 END «, t00=0x002b, t01=0x00ee}
0x4430…4444 Head {h00=0x0010, h01=0x0050, text=»COP600 EQU *«, t00=0x002b, t01=0x0108}
0x4444…4468 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 CHECK IF NONPRINT«, t00=0x002b, t01=0x011c}
0x4468…447a Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x002b, t01=0x0140}
0x447a…448c Head {h00=0x000e, h01=0x0050, text=» XRK A1,/C«, t00=0x002b, t01=0x0152}
0x448c…44aa Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP650 NONPRINT«, t00=0x002b, t01=0x0164}
0x44aa…44da Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INIDICATE NOT ONLY NOT «, t00=0x002b, t01=0x0182}
0x44da…44ec Head {h00=0x000e, h01=0x0050, text=» RF COP700«, t00=0x002c, t01=0x0022}
0x44ec…4500 Head {h00=0x0010, h01=0x0050, text=»COP650 EQU *«, t00=0x002c, t01=0x0034}
0x4500…4526 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x002c, t01=0x0048}
0x4526…453a Head {h00=0x0010, h01=0x0050, text=»COP700 EQU *«, t00=0x002c, t01=0x006e}
0x453a…4554 Head {h00=0x0016, h01=0x0050, text=» IFF TRANAT=0 . =4«, t00=0x002c, t01=0x0082}
0x4554…4582 Head {h00=0x002a, h01=0x0050, text=» LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4«, t00=0x002c, t01=0x009c}
0x4582…4594 Head {h00=0x000e, h01=0x0050, text=» XIF . =4«, t00=0x002c, t01=0x00ca}
0x4594…45a6 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A8«, t00=0x002c, t01=0x00dc}
0x45a6…45b8 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x002c, t01=0x00ee}
0x45b8…45ca Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x002c, t01=0x0100}
0x45ca…45ea Head {h00=0x001c, h01=0x0050, text=» CCK A2,/2020 SPACE? =3 «, t00=0x002c, t01=0x0112}
0x45ea…461c Head {h00=0x002e, h01=0x0050, text=» RF(E) COP800 YES, DON'T UPDATE LENGTH =3 «, t00=0x002c, t01=0x0132}
0x461c…4640 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBPRT,A11 GET ECB =3«, t00=0x002c, t01=0x0164}
0x4640…4676 Head {h00=0x0032, h01=0x0050, text=» ST A9,ECBRL,A1 UPDATE LAST POS. NOT SPACE =3 «, t00=0x002c, t01=0x0188}
0x4676…468a Head {h00=0x0010, h01=0x0050, text=»COP800 EQU *«, t00=0x002d, t01=0x002e}
0x468a…46c0 Head {h00=0x0032, h01=0x0050, text=» ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3«, t00=0x002d, t01=0x0042}
0x46c0…46d2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002d, t01=0x0078}
0x46d2…46e4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002d, t01=0x008a}
0x46e4…46f6 Head {h00=0x000e, h01=0x0050, text=» RB COP200«, t00=0x002d, t01=0x009c}
0x46f6…470a Head {h00=0x0010, h01=0x0050, text=»COP850 EQU *«, t00=0x002d, t01=0x00ae}
0x470a…4736 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A9 SOMETHING LEFT TO PRINT? «, t00=0x002d, t01=0x00c2}
0x4736…474e Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP900 NO«, t00=0x002d, t01=0x00ee}
0x474e…4774 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x002d, t01=0x0106}
0x4774…4798 Head {h00=0x0020, h01=0x0050, text=» ANKL A10,ENDPRT END MESS.? «, t00=0x002d, t01=0x012c}
0x4798…47b8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP900 NO STOP IT«, t00=0x002d, t01=0x0150}
0x47b8…47e4 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE «, t00=0x002d, t01=0x0170}
0x47e4…480a Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE EXTRA LINE FEED«, t00=0x002e, t01=0x000c}
0x480a…481e Head {h00=0x0010, h01=0x0050, text=»COP900 EQU *«, t00=0x002e, t01=0x0032}
0x481e…4840 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER FAILED?«, t00=0x002e, t01=0x0046}
0x4840…4858 Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP950 NO«, t00=0x002e, t01=0x0068}
0x4858…487e Head {h00=0x0022, h01=0x0050, text=» LDKL A2,PRTERR INDICATE ERROR«, t00=0x002e, t01=0x0080}
0x487e…4898 Head {h00=0x0016, h01=0x0050, text=» ORS A2,PRTMOD,A11«, t00=0x002e, t01=0x00a6}
0x4898…48ac Head {h00=0x0010, h01=0x0050, text=»COP950 EQU *«, t00=0x002e, t01=0x00c0}
0x48ac…48bc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002e, t01=0x00d4}
0x48bc…48ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00e4}
0x48ca…491a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002e, t01=0x00f2}
0x491a…4924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0142}
0x4924…4946 Head {h00=0x001e, h01=0x0050, text=»* TABLE FOR PRINTERORDERS «, t00=0x002e, t01=0x014c}
0x4946…4950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x016e}
0x4950…49a0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002e, t01=0x0178}
0x49a0…49b4 Head {h00=0x0010, h01=0x0050, text=»PRTORD EQU *«, t00=0x002f, t01=0x0038}
0x49b4…49de Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF ORDER CODES «, t00=0x002f, t01=0x004c}
0x49de…4a06 Head {h00=0x0024, h01=0x0050, text=» DATA /0A0A,NL,NL,NL,NL NEW LINE«, t00=0x002f, t01=0x0076}
0x4a06…4a3c Head {h00=0x0032, h01=0x0050, text=» DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED «, t00=0x002f, t01=0x009e}
0x4a3c…4a68 Head {h00=0x0028, h01=0x0050, text=» DATA /0D0D,CR,CR,CR,CR CARR. RETURN«, t00=0x002f, t01=0x00d4}
0x4a68…4a94 Head {h00=0x0028, h01=0x0050, text=» DATA /1919,EM,EM,EM,EM END MESSAGE «, t00=0x002f, t01=0x0100}
0x4a94…4aba Head {h00=0x0022, h01=0x0050, text=» DATA INVAL INVALID ORDER CODE«, t00=0x002f, t01=0x012c}
0x4aba…4ac8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0152}
0x4ac8…4b1c Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x002f, t01=0x0160}
0x4b1c…4b70 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x0030, t01=0x0024}
0x4b70…4bc4 Head {h00=0x0050, h01=0x0050, text=»* NL NEW LINE *«, t00=0x0030, t01=0x0078}
0x4bc4…4c18 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x0030, t01=0x00cc}
0x4c18…4c6c Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x0030, t01=0x0120}
0x4c6c…4c7c Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x0030, t01=0x0174}
0x4c7c…4cac Head {h00=0x002c, h01=0x0050, text=» CF A14,PRLINE PRINT LINE AFTER NEW LINE«, t00=0x0030, t01=0x0184}
0x4cac…4cda Head {h00=0x002a, h01=0x0050, text=» ORKL A10,NXTCHA+NTONLY GET NEXT CHAR.«, t00=0x0031, t01=0x0024}
0x4cda…4cea Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0052}
0x4cea…4cf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0062}
0x4cf8…4d46 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0031, t01=0x0070}
0x4d46…4d94 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0031, t01=0x00be}
0x4d94…4de2 Head {h00=0x004a, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED *«, t00=0x0031, t01=0x010c}
0x4de2…4e30 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0031, t01=0x015a}
0x4e30…4e7e Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0032, t01=0x0018}
0x4e7e…4e92 Head {h00=0x0010, h01=0x0050, text=»FFDUM EQU * «, t00=0x0032, t01=0x0066}
0x4e92…4ec4 Head {h00=0x002e, h01=0x0050, text=» CF A14,FFCHK CHECK IF FORM FEED IS VALID «, t00=0x0032, t01=0x007a}
0x4ec4…4ede Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0032, t01=0x00ac}
0x4ede…4ef8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD400 NO «, t00=0x0032, t01=0x00c6}
0x4ef8…4f10 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 RESET «, t00=0x0032, t01=0x00e0}
0x4f10…4f3a Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTTYP,A11 TYPE OF PRINTER «, t00=0x0032, t01=0x00f8}
0x4f3a…4f5c Head {h00=0x001e, h01=0x0050, text=» LC A7,PRTLEN,A1 PAGE SIZE«, t00=0x0032, t01=0x0122}
0x4f5c…4f70 Head {h00=0x0010, h01=0x0050, text=»FFD100 EQU *«, t00=0x0032, t01=0x0144}
0x4f70…4f94 Head {h00=0x0020, h01=0x0050, text=» CW A7,LINCNT,A11 NEW PAGE? «, t00=0x0032, t01=0x0158}
0x4f94…4fba Head {h00=0x0022, h01=0x0050, text=» RF(L) FFD200 YES BUT TO MANY «, t00=0x0032, t01=0x017c}
0x4fba…4fdc Head {h00=0x001e, h01=0x0050, text=» RF(E) FFD300 YES FINISHED«, t00=0x0033, t01=0x0012}
0x4fdc…4ff4 Head {h00=0x0014, h01=0x0050, text=» ORKL A10,NTONLY«, t00=0x0033, t01=0x0034}
0x4ff4…5010 Head {h00=0x0018, h01=0x0050, text=» ST A7,REGI,A11 SAVE«, t00=0x0033, t01=0x004c}
0x5010…5038 Head {h00=0x0024, h01=0x0050, text=» CF A14,PRLINE ADVANCE ONE LINE «, t00=0x0033, t01=0x0068}
0x5038…5058 Head {h00=0x001c, h01=0x0050, text=» LD A7,REGI,A11 RESTORE «, t00=0x0033, t01=0x0090}
0x5058…507a Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0033, t01=0x00b0}
0x507a…5094 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD500 YES«, t00=0x0033, t01=0x00d2}
0x5094…50a6 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0033, t01=0x00ec}
0x50a6…50ba Head {h00=0x0010, h01=0x0050, text=»FFD200 EQU *«, t00=0x0033, t01=0x00fe}
0x50ba…50cc Head {h00=0x000e, h01=0x0050, text=» NGR A1,A7«, t00=0x0033, t01=0x0112}
0x50cc…50fa Head {h00=0x002a, h01=0x0050, text=» ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE «, t00=0x0033, t01=0x0124}
0x50fa…510c Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0033, t01=0x0152}
0x510c…5120 Head {h00=0x0010, h01=0x0050, text=»FFD300 EQU *«, t00=0x0033, t01=0x0164}
0x5120…5142 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0033, t01=0x0178}
0x5142…516c Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x0034, t01=0x000a}
0x516c…5180 Head {h00=0x0010, h01=0x0050, text=»FFD400 EQU *«, t00=0x0034, t01=0x0034}
0x5180…519e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0034, t01=0x0048}
0x519e…51b2 Head {h00=0x0010, h01=0x0050, text=»FFD500 EQU *«, t00=0x0034, t01=0x0066}
0x51b2…51c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x007a}
0x51c2…51d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x008a}
0x51d0…521e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0034, t01=0x0098}
0x521e…526c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x00e6}
0x526c…52ba Head {h00=0x004a, h01=0x0050, text=»* FFVAL FORM FEED *«, t00=0x0034, t01=0x0134}
0x52ba…5308 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x0182}
0x5308…5356 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0035, t01=0x0040}
0x5356…536a Head {h00=0x0010, h01=0x0050, text=»FFVAL EQU * «, t00=0x0035, t01=0x008e}
0x536a…5392 Head {h00=0x0024, h01=0x0050, text=» CF A14,FFCHK CHECK IF FF VALID «, t00=0x0035, t01=0x00a2}
0x5392…53ac Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0035, t01=0x00ca}
0x53ac…53c6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFV200 NO «, t00=0x0035, t01=0x00e4}
0x53c6…53da Head {h00=0x0010, h01=0x0050, text=» LDK A1,/0C «, t00=0x0035, t01=0x00fe}
0x53da…53fc Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A11 GET TASKID =5«, t00=0x0035, t01=0x0112}
0x53fc…5412 Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 . =5«, t00=0x0035, t01=0x0134}
0x5412…5430 Head {h00=0x001a, h01=0x0050, text=» CCK A2,'GG' GP74? =5 «, t00=0x0035, t01=0x014a}
0x5430…544e Head {h00=0x001a, h01=0x0050, text=» RF(NE) FFV100 NO! =5 «, t00=0x0035, t01=0x0168}
0x544e…547c Head {h00=0x002a, h01=0x0050, text=» LDK A1,/31 YES!DIFF. FF CONTROL CH =5«, t00=0x0035, t01=0x0186}
0x547c…5496 Head {h00=0x0016, h01=0x0050, text=»FFV100 EQU * . =5 «, t00=0x0036, t01=0x0024}
0x5496…54c2 Head {h00=0x0028, h01=0x0050, text=» SC A1,-1,A8 STORE FF CONTROL CHAR. «, t00=0x0036, t01=0x003e}
0x54c2…54ec Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x0036, t01=0x006a}
0x54ec…550e Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0036, t01=0x0094}
0x550e…5522 Head {h00=0x0010, h01=0x0050, text=»FFV200 EQU *«, t00=0x0036, t01=0x00b6}
0x5522…5540 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0036, t01=0x00ca}
0x5540…5550 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x00e8}
0x5550…555e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00f8}
0x555e…55ac Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0036, t01=0x0106}
0x55ac…55fa Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0036, t01=0x0154}
0x55fa…5648 Head {h00=0x004a, h01=0x0050, text=»* CR CARRIAGE RETURN *«, t00=0x0037, t01=0x0012}
0x5648…5696 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0060}
0x5696…56e4 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0037, t01=0x00ae}
0x56e4…56f4 Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x0037, t01=0x00fc}
0x56f4…5714 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 GET ATTRIBUTE«, t00=0x0037, t01=0x010c}
0x5714…5726 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0037, t01=0x012c}
0x5726…5748 Head {h00=0x001e, h01=0x0050, text=» XRK A1,/C NONPRINT FIELD?«, t00=0x0037, t01=0x013e}
0x5748…5760 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CR100 YES«, t00=0x0037, t01=0x0160}
0x5760…5776 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0037, t01=0x0178}
0x5776…5794 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/30 FORMATTED?«, t00=0x0037, t01=0x018e}
0x5794…57ac Head {h00=0x0014, h01=0x0050, text=» RF(NZ) CR100 NO«, t00=0x0038, t01=0x001c}
0x57ac…57d6 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,NTONLY+CRREC CR RECEIVED«, t00=0x0038, t01=0x0034}
0x57d6…57ea Head {h00=0x0010, h01=0x0050, text=»CR100 EQU * «, t00=0x0038, t01=0x005e}
0x57ea…5810 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0038, t01=0x0072}
0x5810…582e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0038, t01=0x0098}
0x582e…583e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0038, t01=0x00b6}
0x583e…584c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00c6}
0x584c…589a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0038, t01=0x00d4}
0x589a…58e6 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0038, t01=0x0122}
0x58e6…5932 Head {h00=0x0048, h01=0x0050, text=»* EM END MESSAGE *«, t00=0x0038, t01=0x016e}
0x5932…597e Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0039, t01=0x002a}
0x597e…59ca Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0039, t01=0x0076}
0x59ca…59da Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x0039, t01=0x00c2}
0x59da…5a00 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,ENDPRT END PRINTING «, t00=0x0039, t01=0x00d2}
0x5a00…5a1e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0039, t01=0x00f8}
0x5a1e…5a2e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0116}
0x5a2e…5a3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0126}
0x5a3c…5a86 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0039, t01=0x0134}
0x5a86…5ad0 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0039, t01=0x017e}
0x5ad0…5b1a Head {h00=0x0046, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER *«, t00=0x003a, t01=0x0038}
0x5b1a…5b64 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0082}
0x5b64…5bae Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x003a, t01=0x00cc}
0x5bae…5bc2 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x003a, t01=0x0116}
0x5bc2…5be8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x003a, t01=0x012a}
0x5be8…5c0a Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x003a, t01=0x0150}
0x5c0a…5c28 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003a, t01=0x0172}
0x5c28…5c38 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x0190}
0x5c38…5c46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0010}
0x5c46…5c90 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x003b, t01=0x001e}
0x5c90…5cda Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x003b, t01=0x0068}
0x5cda…5d24 Head {h00=0x0046, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID * «, t00=0x003b, t01=0x00b2}
0x5d24…5d6e Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x003b, t01=0x00fc}
0x5d6e…5db8 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x003b, t01=0x0146}
0x5db8…5dcc Head {h00=0x0010, h01=0x0050, text=»FFCHK EQU * «, t00=0x003b, t01=0x0190}
0x5dcc…5de2 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003c, t01=0x0014}
0x5de2…5df6 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x003c, t01=0x002a}
0x5df6…5e14 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 FORMATTED?«, t00=0x003c, t01=0x003e}
0x5e14…5e48 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY«, t00=0x003c, t01=0x005c}
0x5e48…5e5e Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003c, t01=0x0090}
0x5e5e…5e82 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 LOCAL HARD COPY?«, t00=0x003c, t01=0x00a6}
0x5e82…5eac Head {h00=0x0026, h01=0x0050, text=» RF(Z) FFCH20 YES, FF NOT ALLOWED «, t00=0x003c, t01=0x00ca}
0x5eac…5ec0 Head {h00=0x0010, h01=0x0050, text=»FFCH10 EQU *«, t00=0x003c, t01=0x00f4}
0x5ec0…5ede Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 FF ALLOWED «, t00=0x003c, t01=0x0108}
0x5ede…5ef8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH30 NOT «, t00=0x003c, t01=0x0126}
0x5ef8…5f0c Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003c, t01=0x0140}
0x5f0c…5f30 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,CRREC CR RECEIVED? «, t00=0x003c, t01=0x0154}
0x5f30…5f4a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFCH30 YES«, t00=0x003c, t01=0x0178}
0x5f4a…5f5e (61, 0, 400) Head {h00=0x0010, h01=0x0050, text=»FFCH20 EQU *«, t00=0x003d, t01=0x0004}
0x5f5e…5f84 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x003d, t01=0x0018}
0x5f84…5fa2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x003d, t01=0x003e}
0x5fa2…5fb4 Head {h00=0x000e, h01=0x0050, text=» RF FFCH40«, t00=0x003d, t01=0x005c}
0x5fb4…5fc8 Head {h00=0x0010, h01=0x0050, text=»FFCH30 EQU *«, t00=0x003d, t01=0x006e}
0x5fc8…5ff6 Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x003d, t01=0x0082}
0x5ff6…6014 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 EMPTY LINE «, t00=0x003d, t01=0x00b0}
0x6014…602e Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH35 YES «, t00=0x003d, t01=0x00ce}
0x602e…6050 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x003d, t01=0x00e8}
0x6050…6064 Head {h00=0x0010, h01=0x0050, text=»FFCH35 EQU *«, t00=0x003d, t01=0x010a}
0x6064…6082 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003d, t01=0x011e}
0x6082…6096 Head {h00=0x0010, h01=0x0050, text=»FFCH40 EQU *«, t00=0x003d, t01=0x013c}
0x6096…60b8 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x003d, t01=0x0150}
0x60b8…60c8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x0172}
0x60c8…60d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0182}
0x60d6…611e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x003d, t01=0x0190}
0x611e…6166 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x003e, t01=0x0048}
0x6166…61ae Head {h00=0x0044, h01=0x0050, text=»* PRLINE PRINT LINE *«, t00=0x003e, t01=0x0090}
0x61ae…61f6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x003e, t01=0x00d8}
0x61f6…623e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x003e, t01=0x0120}
0x623e…6252 Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x003e, t01=0x0168}
0x6252…626c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x003e, t01=0x017c}
0x626c…6280 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003f, t01=0x0008}
0x6280…62a4 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,NTONLY ONLY RUBB.? «, t00=0x003f, t01=0x001c}
0x62a4…62be Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL050 NO «, t00=0x003f, t01=0x0040}
0x62be…62d4 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003f, t01=0x005a}
0x62d4…62e6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x003f, t01=0x0070}
0x62e6…62fa Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x003f, t01=0x0082}
0x62fa…6318 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 HRADCOPY? «, t00=0x003f, t01=0x0096}
0x6318…6332 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x003f, t01=0x00b4}
0x6332…6354 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/40 HARDCOPY????? «, t00=0x003f, t01=0x00ce}
0x6354…636e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x003f, t01=0x00f0}
0x636e…6382 Head {h00=0x0010, h01=0x0050, text=»PRL050 EQU *«, t00=0x003f, t01=0x010a}
0x6382…63be Head {h00=0x0038, h01=0x0050, text=» ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 «, t00=0x003f, t01=0x011e}
0x63be…63f0 Head {h00=0x002e, h01=0x0050, text=» LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 «, t00=0x003f, t01=0x015a}
0x63f0…640e Head {h00=0x001a, h01=0x0050, text=» ADS A9,ECBRL,A8 . =3 «, t00=0x003f, t01=0x018c}
0x640e…6428 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/06 PRINT «, t00=0x0040, t01=0x001a}
0x6428…6434 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0040, t01=0x0034}
0x6434…6444 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0040, t01=0x0040}
0x6444…6468 Head {h00=0x0020, h01=0x0050, text=» LDK A1,50 NUMBER OF DELAYS «, t00=0x0040, t01=0x0050}
0x6468…647c Head {h00=0x0010, h01=0x0050, text=»PRL100 EQU *«, t00=0x0040, t01=0x0074}
0x647c…64a0 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,1 WAIT FOR A WHILE «, t00=0x0040, t01=0x0088}
0x64a0…64ac Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0040, t01=0x00ac}
0x64ac…64bc Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0040, t01=0x00b8}
0x64bc…64d6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0040, t01=0x00c8}
0x64d6…64f8 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 PRINT COMPL.? «, t00=0x0040, t01=0x00e2}
0x64f8…6512 Head {h00=0x0016, h01=0x0050, text=» RF(N) PRL150 YES «, t00=0x0040, t01=0x0104}
0x6512…6536 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 MORE TO WAIT FOR? «, t00=0x0040, t01=0x011e}
0x6536…6550 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PRL100 YES«, t00=0x0040, t01=0x0142}
0x6550…655c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0040, t01=0x015c}
0x655c…6572 Head {h00=0x0012, h01=0x0050, text=» DATA 10 ABORT«, t00=0x0040, t01=0x0168}
0x6572…6598 Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL150 FINSHED AT LAST «, t00=0x0040, t01=0x017e}
0x6598…65c2 Head {h00=0x0026, h01=0x0050, text=» LDK A1,1 NO CONSIDER IT AS #$&%$ «, t00=0x0041, t01=0x0014}
0x65c2…65d4 Head {h00=0x000e, h01=0x0050, text=» RF PRL300«, t00=0x0041, t01=0x003e}
0x65d4…65e8 Head {h00=0x0010, h01=0x0050, text=»PRL150 EQU *«, t00=0x0041, t01=0x0050}
0x65e8…65f6 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0041, t01=0x0064}
0x65f6…6614 Head {h00=0x001a, h01=0x0050, text=» DATA 2 RESYNCHRONIZE «, t00=0x0041, t01=0x0072}
0x6614…6638 Head {h00=0x0020, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE «, t00=0x0041, t01=0x0090}
0x6638…6662 Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x0041, t01=0x00b4}
0x6662…667e Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0041, t01=0x00de}
0x667e…6698 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL300 NO «, t00=0x0041, t01=0x00fa}
0x6698…66ac Head {h00=0x0010, h01=0x0050, text=»PRL200 EQU *«, t00=0x0041, t01=0x0114}
0x66ac…66d6 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0041, t01=0x0128}
0x66d6…66fa Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0041, t01=0x0152}
0x66fa…670c Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0041, t01=0x0176}
0x670c…671e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0041, t01=0x0188}
0x671e…673c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0042, t01=0x000a}
0x673c…6754 Head {h00=0x0014, h01=0x0050, text=» RF PRL900 . =6 «, t00=0x0042, t01=0x0028}
0x6754…6768 Head {h00=0x0010, h01=0x0050, text=»PRL300 EQU *«, t00=0x0042, t01=0x0040}
0x6768…6796 Head {h00=0x002a, h01=0x0050, text=» LD A2,PRTID,A11 GET PRINTER TASKID =6«, t00=0x0042, t01=0x0054}
0x6796…67ae Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF . =6«, t00=0x0042, t01=0x0082}
0x67ae…67c6 Head {h00=0x0014, h01=0x0050, text=» SUK A2,/30 . =6«, t00=0x0042, t01=0x009a}
0x67c6…67dc Head {h00=0x0012, h01=0x0050, text=» SLL A2,2 . =6«, t00=0x0042, t01=0x00b2}
0x67dc…6806 Head {h00=0x0026, h01=0x0050, text=» LD A3,+6,A13 COMMON BLOCK BASE =6«, t00=0x0042, t01=0x00c8}
0x6806…6822 Head {h00=0x0018, h01=0x0050, text=» ADK A3,TSKTAB . =6 «, t00=0x0042, t01=0x00f2}
0x6822…683a Head {h00=0x0014, h01=0x0050, text=» ADR A3,A2 . =6 «, t00=0x0042, t01=0x010e}
0x683a…6864 Head {h00=0x0026, h01=0x0050, text=» SC A1,+3,A3 SET PRINTER STATUS =6«, t00=0x0042, t01=0x0126}
0x6864…687e Head {h00=0x0016, h01=0x0050, text=»PRL900 EQU * . =6 «, t00=0x0042, t01=0x0150}
0x687e…688e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0042, t01=0x016a}
0x688e…689c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0042, t01=0x017a}
0x689c…68e8 Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0042, t01=0x0188}
0x68e8…6934 Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0043, t01=0x0044}
0x6934…6980 Head {h00=0x0048, h01=0x0043, text=»* INIT INIT ROUTINE * «, t00=0x0043, t01=0x0090}
0x6980…69cc Head {h00=0x0048, h01=0x0043, text=»* * «, t00=0x0043, t01=0x00dc}
0x69cc…6a18 Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0043, t01=0x0128}
0x6a18…6a2a Head {h00=0x000e, h01=0x000a, text=»INIT EQU *«, t00=0x0043, t01=0x0174}
0x6a2a…6a4c Head {h00=0x001e, h01=0x001a, text=» CF A14,COMINI COMMON INIT«, t00=0x0043, t01=0x0186}
0x6a4c…6a70 Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x0044, t01=0x0018}
0x6a70…6a82 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0044, t01=0x003c}
0x6a82…6a94 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0044, t01=0x004e}
0x6a94…6aa8 Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0044, t01=0x0060}
0x6aa8…6ad2 Head {h00=0x0026, h01=0x0050, text=» ST A2,PRTID,A11 SAVE WHOLE TASKID«, t00=0x0044, t01=0x0074}
0x6ad2…6b08 Head {h00=0x0032, h01=0x002d, text=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX «, t00=0x0044, t01=0x009e}
0x6b08…6b2e Head {h00=0x0022, h01=0x0050, text=» LD A7,PRTTAB NUMBER OF TYPES «, t00=0x0044, t01=0x00d4}
0x6b2e…6b5e Head {h00=0x002c, h01=0x0050, text=» LDKL A1,PRTTAB+2 START OF PRINTER TABLE«, t00=0x0044, t01=0x00fa}
0x6b5e…6b72 Head {h00=0x0010, h01=0x0050, text=»INI100 EQU *«, t00=0x0044, t01=0x012a}
0x6b72…6b9a Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CONVERT TYPE TO INDEX«, t00=0x0044, t01=0x013e}
0x6b9a…6bb0 Head {h00=0x0012, h01=0x0050, text=» RF(E) INI200 «, t00=0x0044, t01=0x0166}
0x6bb0…6bc2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0044, t01=0x017c}
0x6bc2…6be0 Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ILLEGAL ID? «, t00=0x0044, t01=0x018e}
0x6be0…6bfa Head {h00=0x0016, h01=0x0050, text=» RB(NZ) INI100 NO «, t00=0x0045, t01=0x001c}
0x6bfa…6c0c Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0045, t01=0x0036}
0x6c0c…6c24 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0045, t01=0x0048}
0x6c24…6c30 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0045, t01=0x0060}
0x6c30…6c4a Head {h00=0x0016, h01=0x0050, text=» DATA 3 FORGET IT «, t00=0x0045, t01=0x006c}
0x6c4a…6c5e Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x0045, t01=0x0086}
0x6c5e…6c72 Head {h00=0x0010, h01=0x0050, text=» LD A1,+2,A1«, t00=0x0045, t01=0x009a}
0x6c72…6c9e Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTTYP,A11 SAVE PRINTER TYPE «, t00=0x0045, t01=0x00ae}
0x6c9e…6cae Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0045, t01=0x00da}
0x6cae…6cbc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0045, t01=0x00ea}
0x6cbc…6d06 Head {h00=0x0046, h01=0x0041, text=»***************************************************************** «, t00=0x0045, t01=0x00f8}
0x6d06…6d50 Head {h00=0x0046, h01=0x0041, text=»* * «, t00=0x0045, t01=0x0142}
0x6d50…6d9a Head {h00=0x0046, h01=0x0041, text=»* TSTPRT TEST HARDWARE * «, t00=0x0045, t01=0x018c}
0x6d9a…6de4 Head {h00=0x0046, h01=0x0041, text=»* * «, t00=0x0046, t01=0x0046}
0x6de4…6e2e Head {h00=0x0046, h01=0x0041, text=»***************************************************************** «, t00=0x0046, t01=0x0090}
0x6e2e…6e42 Head {h00=0x0010, h01=0x000c, text=»TSTPRT EQU *«, t00=0x0046, t01=0x00da}
0x6e42…6e52 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0046, t01=0x00ee}
0x6e52…6e6c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0046, t01=0x00fe}
0x6e6c…6e8c Head {h00=0x001c, h01=0x0017, text=» LDK A7,/80 TEST STATUS «, t00=0x0046, t01=0x0118}
0x6e8c…6ea0 Head {h00=0x0010, h01=0x000c, text=»TSTP10 EQU *«, t00=0x0046, t01=0x0138}
0x6ea0…6eac Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x0046, t01=0x014c}
0x6eac…6ebc Head {h00=0x000c, h01=0x0007, text=» DATA 1 «, t00=0x0046, t01=0x0158}
0x6ebc…6ed8 Head {h00=0x0018, h01=0x0050, text=» LD A4,ECBRC,A8 . =6«, t00=0x0046, t01=0x0168}
0x6ed8…6eee Head {h00=0x0012, h01=0x0050, text=» ANK A4,1 . =6«, t00=0x0046, t01=0x0184}
0x6eee…6efe Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0047, t01=0x000a}
0x6efe…6f1c Head {h00=0x001a, h01=0x0050, text=» LD A2,PRTID,A11 . =6 «, t00=0x0047, t01=0x001a}
0x6f1c…6f30 Head {h00=0x0010, h01=0x000b, text=» ANK A2,/FF «, t00=0x0047, t01=0x0038}
0x6f30…6f44 Head {h00=0x0010, h01=0x000b, text=» SUK A2,/30 «, t00=0x0047, t01=0x004c}
0x6f44…6f56 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0047, t01=0x0060}
0x6f56…6f6c Head {h00=0x0012, h01=0x000d, text=» LD A3,+6,A13 «, t00=0x0047, t01=0x0072}
0x6f6c…6f82 Head {h00=0x0012, h01=0x000e, text=» LDK A1,TSKTAB«, t00=0x0047, t01=0x0088}
0x6f82…6f94 Head {h00=0x000e, h01=0x000a, text=» ADR A3,A1«, t00=0x0047, t01=0x009e}
0x6f94…6fa6 Head {h00=0x000e, h01=0x000a, text=» ADR A3,A2«, t00=0x0047, t01=0x00b0}
0x6fa6…6fb6 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0047, t01=0x00c2}
0x6fb6…6fea Head {h00=0x0030, h01=0x0050, text=» SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6«, t00=0x0047, t01=0x00d2}
0x6fea…7008 Head {h00=0x001a, h01=0x0050, text=» ANK A4,1 OPERABLE? =6«, t00=0x0047, t01=0x0106}
0x7008…7026 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TSTP90 YES! =6 «, t00=0x0047, t01=0x0124}
0x7026…7038 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x0047, t01=0x0142}
0x7038…704c Head {h00=0x0010, h01=0x0050, text=» LDKL A8,100«, t00=0x0047, t01=0x0154}
0x704c…7058 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0047, t01=0x0168}
0x7058…7068 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0047, t01=0x0174}
0x7068…707a Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x0047, t01=0x0184}
0x707a…708a Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0048, t01=0x0008}
0x708a…709c Head {h00=0x000e, h01=0x000a, text=» RB TSTP10«, t00=0x0048, t01=0x0018}
0x709c…70ac Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0048, t01=0x002a}
0x70ac…70bc Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0048, t01=0x003a}
0x70bc…70cc Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0048, t01=0x004a}
0x70cc…70dc Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0048, t01=0x005a}
0x70dc…70f0 Head {h00=0x0010, h01=0x000c, text=»TSTP90 EQU *«, t00=0x0048, t01=0x006a}
0x70f0…7100 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0048, t01=0x007e}
0x7100…710e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x008e}
0x710e…715a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0048, t01=0x009c}
0x715a…71a6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0048, t01=0x00e8}
0x71a6…71f2 Head {h00=0x0048, h01=0x0050, text=»* GETTAB GET ORDER INDEX * «, t00=0x0048, t01=0x0134}
0x71f2…723e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0048, t01=0x0180}
0x723e…728a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0049, t01=0x003c}
0x728a…729e Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x0049, t01=0x0088}
0x729e…72d0 Head {h00=0x002e, h01=0x0050, text=» LD A7,PRTORD NUMBER OF VALID ORDER CODES «, t00=0x0049, t01=0x009c}
0x72d0…72fa Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PRTORD+2 ORDERTABLE BASE «, t00=0x0049, t01=0x00ce}
0x72fa…730e Head {h00=0x0010, h01=0x0050, text=»GETT10 EQU *«, t00=0x0049, t01=0x00f8}
0x730e…733e Head {h00=0x002c, h01=0x0050, text=» CCR A2,A1 CONVERT ORDER CODE TO ADDRESS«, t00=0x0049, t01=0x010c}
0x733e…7354 Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x0049, t01=0x013c}
0x7354…736a Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0049, t01=0x0152}
0x736a…7380 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0049, t01=0x0168}
0x7380…7392 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0049, t01=0x017e}
0x7392…73b0 Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ORDER FOUND?«, t00=0x0049, t01=0x0190}
0x73b0…73d0 Head {h00=0x001c, h01=0x0050, text=» RF(Z) GETT30 NO INVALID«, t00=0x004a, t01=0x001e}
0x73d0…73ec Head {h00=0x0018, h01=0x0050, text=» RB GETT10 TRY AGAIN«, t00=0x004a, t01=0x003e}
0x73ec…7400 Head {h00=0x0010, h01=0x0050, text=»GETT20 EQU *«, t00=0x004a, t01=0x005a}
0x7400…7412 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x004a, t01=0x006e}
0x7412…742c Head {h00=0x0016, h01=0x0050, text=» LD A2,PRTTYP,A11 «, t00=0x004a, t01=0x0080}
0x742c…743e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x004a, t01=0x009a}
0x743e…7452 Head {h00=0x0010, h01=0x0050, text=»GETT30 EQU *«, t00=0x004a, t01=0x00ac}
0x7452…7466 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x004a, t01=0x00c0}
0x7466…7476 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004a, t01=0x00d4}
0x7476…747e Head {h00=0x0004, h01=0x0002, t00=0x004a, t01=0x00e4}
0x747e…748a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x004a, t01=0x00ec}
0x748a…748e Head {h00=0x4004, h01=0x0000}
0x748e…7490 00 4a ┆ J┆
0x7490…7492 00 f8 ┆ ┆
0x7492…749a (75, 1, 8) 20 04 00 00 00 4b 00 04 ┆ K ┆