|
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: 30200 (0x75f8)
Notes: pts_type(SC)
Names: »PRINT.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »DRGP02/PRINT.SC«
IDENT PRINT REL 11.0 DK 82-05-26 870150541100 =8, MISSING FIRST NL =7, RECOVERY AFTER PRINT ERR. =6 RETURN CODE AFTER ABORT =5, RETURN CODE DESTROYED =4 FF LP100 + ERROR IN FFCHK =3 TWO DC-LINES 82-03-08 DK1, SUPPRESS TRAILING SPACES =2 NEW LABEL 81-04-08 =1, EOC ON FIRST READ 81-01-26 ******************************************************************* * * * MODULE PRINT : * MODULE HANDLING THE PRINTOUTS BOTH FROM * * DISPLAY AND MAIN-FRAME * * (EMULATION 3270 SNA/SDLC, BSC * * * ******************************************************************* EJECT ******************************************************** * * LIST OF ROUTINES * * PRINT MAIN ROUTINE * IOACT ACTIVATE IN CURRENT MODE * IOCPL COMPLETE IN CURRENT MODE * DCPINP DC PRINTER INPUT * ICPINP INTERTASK INPUT * ICPRED INTERTASK READ * ICPWRT INTERTASK WRITE * ICABOR INTERTASK ABORT * COPP COPY SCREEN BUFFER TO PRINTER * TABLE OF PRINTERORDERS * NL NEW LINE * FFDUM SIMULATED FORM FEED * FFVAL FORM FEED * CR CARRIAGE RETURN * EM END MESSAGE * INVAL INVALID PRINTER ORDER * FFCHK CHECK IF FF IS VALID * PRLINE PRINT LINE * INIT INIT ROUTINE * TSTPRT TEST HARDWARE * GETTAB GET ORDER INDEX * *********************************************************** EJECT ******************************************************************* * * * ENTRY POINTS * * * ******************************************************************* ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2 ******************************************************************* * * * EXTERNAL REFERENCES * * * ******************************************************************* EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA) EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9 EXTRN OPSYS OPEN SYSTEM (DCSNA) EXTRN OPEN OPEN (DCBSC) EXTRN CONCT CONNECT PASSIVE (DCBSC) EXTRN SETTYM SET REQUEST TIMER (DCBSC) EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS EXTRN TSTMES TEST MESSAGE (DCSNA) EXTRN READW READ WITH WAIT (DCSNA) EXTRN READNW READ WITH NO WAIT (DCSNA) EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN UNPACK UNPACK DC BUFFER (PAD) EXTRN ECBINI INIT IF ECB:S (DSPSNA) EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) EXTRN ICWRT INTERTASK WRITE (KEYB) EXTRN ICREAD INTERTASK READ (KEYB) EXTRN SETSTA SET STATUS (DCBSC) EJECT *************************************************************** * * * CONDITIONAL ASSEMBLY * * * *************************************************************** X:A EQU 0 SNA HANDLING IF:=1 SNA EQU 0 X:D EQU 1 NUMBER OF DC LINES (1-2) NBRLIN EQU 2 X:O EQU 0 TEST MODE IF:=1 TEST EQU 0 SUPSPC EQU 1 SUPRESS TRAILING SPACES IF =1 DK1 EJECT ******************************************************************* * * * DECLARATIONS OF DATA AND EQUATES * * ******************************************************************* * * TABLE OF PRINTER TYPES * PRTTAB EQU * DATA /0004 NUMBER OF PRINTERTYPES DATA 'TT',0 GTP DATA 'LL',2 LINE PRINTER DATA 'GG',4 GP 74 DATA 'CC',6 COPY 80 * * DEFAULT VALUES FOR DIFF. PRINTERS * BYTE1= NUMBER OF LINES/PAGE * BYTE2= NUMBER OF CHAR./LINE * PRTLEN DATA /2382 GTP DATA /2382 LP DATA /2382 GP 74 DATA /2382 COPY 80 * * LINE LENGTHS FROM WCC * LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * PRINTER MODES * LOCAL EQU 0 LOCAL MODE SHARED EQU 2 SHARED MODE * * PRINTER STATUS IN PRTMOD * PRTERR EQU /4000 PRINTER ERROR * * COPY INTERNAL STATUS IN A10 * NXTCHA EQU /8000 GET NEXT CHAR. ENDPRT EQU /4000 END PRINTING NTONLY EQU /2000 NOT ONLY SPACES CRREC EQU /1000 CR RECEIVED * * RELATIVE POS. IN ECB-BLOCK * IC EQU 2 INTERTASK * * SCREEN SIZE * LBVDU EQU 1920 * * RECEIVE STATUS * LICREC EQU /2000 . =1 EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * BVDU EQU 2 SCREEN BUFFER WCC EQU BVDU+1950 WCC LINCNT EQU WCC+4 LINE COUNTER DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER PRTID EQU DCLENG+6 PRINTER TASKID PRTTYP EQU PRTID+2 PRINTER TYPE MAIN EQU PRTTYP+4 WHAT DC LINE ECBBLK EQU MAIN+6 ECB BLOCK BUFPNT EQU ECBBLK+14 BUFFER POINTER REGI EQU BUFPNT+2 SAVE AREA PRTMOD EQU REGI+32 PRINTER MODE ECBPRT EQU PRTMOD+4 PRINTER ECB ECBICR EQU ECBPRT+6 INTERTASK READ ECB ECBICW EQU ECBICR+2 INTERTASK WRITE ECB ECBDC EQU ECBICW+2 ECB DC ECBDC1 EQU ECBDC ECB DC LINE 1 ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 26 DEVICE TABLE XIF IFT TEST=1 TSKTAB EQU 219 XIF EJECT ******************************************************************* * * * PRINT MAIN ROUTINE PRINTER * * * ******************************************************************* PRINT EQU * CF A14,INIT INIT ROUTINE IFT SNA=1 CF A14,OPINIT OPEN CONNECTION INITIATE RF(N) PRI100 DC NOT PRESENT CF A14,OPSYS OPEN SYSTEM XIF IFF SNA=1 CF A14,OPEN OPEN * CHECK ON DC REMOVED PR. 8623, DK * LDKL A8,20 LKM DATA 6 XIF LDK A1,SHARED ALWAYS SHARED IN BSC ST A1,PRTMOD,A11 PRI100 EQU * CF A14,TSTPRT TEST HARDWARE CF A14,CONCT CONNECT PASSIVE IF PRTR OK IFT NBRLIN=2 . =3 LDK A1,1 CONNECT FOR OTHER LINE =3 XRS A1,MAIN,A11 . =3 CF A14,CONCT . =3 LDK A1,1 . =3 XRS A1,MAIN,A11 . =3 XIF . =3 CF A14,SETTYM SET REQUEST TIME PRI200 EQU * CF A14,IOACT ACTIVATE IN CURRENT MODE LDKL A7,ECBBLK ADR A7,A11 LKM DATA 7 MULTIPLE WAIT CF A14,IOCPL COMPLET IN CURRENT MODE LD A1,PRTMOD,A11 ANKL A1,PRTERR PRINTER ERROR? RB(Z) PRI200 NO XRS A1,PRTMOD,A11 CF A14,TSTPRT WAIT FOR OPERABLE =7 LDK A1,0 SET DEVICE END =7 CF A14,SETSTA =7 RB PRI200 =7 EJECT ********************************************************************* * * * IOACT ACTIVATE IN CURRENT MODE * * ********************************************************************* IOACT EQU * LDK A4,0 LD A1,PRTMOD,A11 SHARED OR LOCAL? RF(Z) IOAC20 LOCAL ADK A4,1 ADD NUMBER OF WAITS LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY? RF(NZ) IOAC10 YES CM MAIN,A11 INDICATE LINE 1 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+4,A11 IOAC10 EQU * IFT NBRLIN=2 ADK A4,1 ADD MORE WAITS LD A2,ECBBLK+6,A11 ALREADY? RF(NZ) IOAC20 YES IM MAIN,A11 INDICATE LINE 2 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+6,A11 XIF IOAC20 EQU * ADK A4,1 LD A2,ECBBLK+2,A11 ALREADY? RF(NZ) IOAC30 YES CF A14,ICPRED READ INTERTASK ST A8,ECBBLK+2,A11 IOAC30 EQU * ST A4,ECBBLK,A11 NUMBER OF WAITS RTN A14 EJECT ********************************************************************* * * * IOCPL COMPLETE IN CURRENT MODE * * ********************************************************************* IOCPL EQU * CW A8,ECBBLK+2,A11 INTERTASK? RF(NE) IOCP10 NO CM ECBBLK+2,A11 CF A14,ICPINP MAKE HARDCOPY RF IOCP90 IOCP10 EQU * CW A8,ECBBLK+4,A11 DC LINE 1? IFT NBRLIN=2 RF(NE) IOCP20 NO XIF IFF NBRLIN=2 RF(NE) IOCP90 NO FORGET IT XIF CM ECBBLK+4,A11 CM MAIN,A11 INDICATE LINE 1 RF IOCP30 IFT NBRLIN=2 IOCP20 EQU * CW A8,ECBBLK+6,A11 DC LINE 2? RF(NE) IOCP90 NO CM ECBBLK+6,A11 IM MAIN,A11 INDICATE LINE 2 XIF IOCP30 EQU * CF A14,DCPINP TAKE CARE OF DC IOCP90 EQU * RTN A14 EJECT *************************************************************** * * * DCPINP DC PRINTER INPUT * * * *************************************************************** DCPINP EQU * CF A14,ICABOR ABORT LOCAL HARD COPY LDR A7,A7 ALREADY COMPLETED? RF(Z) DCP100 NO CF A14,ICPINP TAKE CARE OF THAT FIRST DCP100 EQU * LD A8,ECBDC,A11 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 1 RF(Z) DCP150 YES LD A8,ECBDC2,A11 DCP150 EQU * XIF IFT SNA=1 LD A1,ECBRC,A8 OK? ANKL A1,/701 OK? RF(NZ) DCP500 NO STOP IT XIF CF A14,GETBUF GET BUFFER LDR A3,A12 CF A14,READW READ FIRST BUFFER ANK A1,3 ERROR? RF(NZ) DCP400 NO RF DCP500 DCP400 EQU * SUR A10,A10 RESET INTERNAL UNPACK STATUS IFT SNA=1 . =1 ANK A1,2 . =1 RF(Z) DCP450 . =1 ORKL A10,LICREC . =1 DCP450 EQU * . =1 XIF . =1 LD A1,ECBEL,A8 ST A1,DCLENG,A11 SAVE LENGTH ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS IFT SNA=1 CF A14,GETBUF GET ANOTHER BUFFER LDR A3,A8 CF A14,READNW READ WITH NO WAIT XIF CF A14,UNPACK UPDATE SCREEN BUFFER LD A1,WCC,A11 ANK A1,/8 ANY COPY NEEDED RF(Z) DCP500 NO CF A14,COPP PRINT IT DCP500 EQU * IFF SNA=1 LDK A1,0 CF A14,SETSTA SET DEVICE END XIF RTN A14 EJECT **************************************************************** * * * ICPINP INTERTASK INPUT * * * **************************************************************** ICPINP EQU * CF A14,COPP MAKE HARDCOPP ST A1,REGI,A11 RETURN CODE TO TERMINAL CF A14,ICPWRT WRITE INTERTASK RTN A14 EJECT ****************************************************************** * * * ICPRED INTERTASK READ * * * ****************************************************************** ICPRED EQU * LD A8,ECBICR,A11 CF A14,ICSET SET NO TIMEOUT LDK A1,0 NOT ADDRESSED READ LDKL A3,BVDU ADR A3,A11 LDKL A2,LBVDU+/20 CF A14,ICREAD READ INTERTASK RTN A14 EJECT ******************************************************************** * * * ICPWRT WRITE INTERTASK * * * ******************************************************************** ICPWRT EQU * LD A8,ECBICW,A11 CF A14,ICSET SET NO TIMEOUT LD A1,ECBICR,A11 LD A1,ECBCW,A1 GET TASKID RF(Z) ICPW90 NOT THERE LDKL A3,REGI RETURN CODE ADR A3,A11 LDK A2,2 LENGTH CF A14,ICWRT WRITE INTERTASK ICPW90 EQU * RTN A14 EJECT ************************************************************* * * * ICABOR INTERTASK ABORT * * * ************************************************************* ICABOR EQU * LDK A7,0 CM ECBBLK+IC,A11 LD A8,ECBICR,A11 LKM DATA 10 RTN A14 EJECT ********************************************************************* * * * COPP COPY SCREEN BUFFER TO PRINTER * * * ********************************************************************* * REGISTERS * * A2= CHAR. * A3= SCREEN BUFFER POINTER * A4= REL. SCREEN BUFFER ADDRESS * A5= LINE LENGTH * A6= CURRENT ATTRIBUTE * A8= ECB BUFFER POINTER * A9= ECB BUFFER INDEX * A10= INTERNAL STATUS * A11= TASK BLOCK BASE * A13= ECB BASE * ********************************************************************* COPP EQU * . =2 LD A8,ECBPRT,A11 LDK A1,0 LDK A6,0 RESET ATTRIBUTE CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS CM LINCNT,A11 RESET LINE COUNTER LD A1,WCC,A11 ANK A1,/38 MASK RELEVANT LDR A5,A1 ANK A1,8 START PRINT? RF(Z) COP900 NO FORGET IT SRL A5,4 LC A5,LINLEN,A5 GET LINE LENGTH LDR A5,A5 NL,EM AND CR DET. LENGTH? RF(NZ) COP100 NO LD A1,PRTTYP,A11 GET MAX LINE LENGTH LC A5,PRTLEN+1,A1 COP100 EQU * LDKL A3,BVDU ADR A3,A11 LD A8,ECBBA,A8 CMR A8 RESET CONTROL CHAR. ADKL A8,2 SUR A9,A9 LDK A2,0 LDK A4,0 SUR A10,A10 RESET STATUS COP200 EQU * CWK A4,LBVDU ALL PRINTED? RF(NL) COP850 YES CWR A9,A5 LINE FULL? RF(L) COP400 NO CF A14,PRLINE PRINT LINE LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES COP400 EQU * LCR A2,A3 GET CHAR. ANK A2,/FF RF(Z) COP650 NULL CHAR. CCK A2,/8000 ATTRIBUTE? RF(L) COP500 NO LDR A6,A2 GET NEW ATTRIBUTE RF COP650 COP500 EQU * CCK A2,/2020 ORDER? RF(L) COP550 YES XRKL A10,CRREC RESET RF COP600 COP550 EQU * CF A14,GETTAB GET ORDERINDEX CFR A14,A1 TAKE CARE OF ORDER LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES LDR A1,A10 GET STATUS RF(N) COP800 GET NEXT CHAR. SLL A1,1 RF(N) COP830 END COP600 EQU * LDR A1,A6 CHECK IF NONPRINT ANK A1,/C XRK A1,/C RF(Z) COP650 NONPRINT ORKL A10,NTONLY INIDICATE NOT ONLY NOT RF COP700 COP650 EQU * LDK A2,/20 REPLACE WITH SPACE COP700 EQU * SCR A2,A8 ADKL A9,1 ADKL A8,1 COP800 EQU * XRKL A10,NXTCHA RESET ADK A3,1 ADK A4,1 RB COP200 COP830 EQU * =5 LDK A1,0 RESTORE RET. CODE. =5 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 * ORKL A10,NTONLY+NXTCHA =8 CF A14,PRLINE PRINT LINE AFTER NEW LINE RTN A14 EJECT ********************************************************************** * * * FFDUM SIMULATED FORM FEED * * * ********************************************************************** FFDUM EQU * CF A14,FFCHK CHECK IF FORM FEED IS VALID LDR A1,A1 VALID? RF(NZ) FFD400 NO LDK A7,0 RESET LD A1,PRTTYP,A11 TYPE OF PRINTER LC A7,PRTLEN,A1 PAGE SIZE FFD100 EQU * CW A7,LINCNT,A11 NEW PAGE? RF(L) FFD200 YES BUT TO MANY RF(E) FFD300 YES FINISHED ORKL A10,NTONLY ST A7,REGI,A11 SAVE CF A14,PRLINE ADVANCE ONE LINE LD A7,REGI,A11 RESTORE LDR A1,A1 PRINTER ERROR? RF(NZ) FFD500 YES RB FFD100 FFD200 EQU * NGR A1,A7 ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE RB FFD100 FFD300 EQU * CM LINCNT,A11 TOP OF PAGE LDK A2,/20 REPLACE FF WITH SPACE FFD400 EQU * LDK A1,0 RETURN CODE FFD500 EQU * RTN A14 EJECT ********************************************************************* * * * FFVAL FORM FEED * * * ********************************************************************* FFVAL EQU * CF A14,FFCHK CHECK IF FF VALID LDR A1,A1 VALID? RF(NZ) FFV200 NO LDK A1,/31 FF LP100 =4 SC A1,-1,A8 STORE FF CONTROL CHAR. ORKL A10,NXTCHA =8 CM LINCNT,A11 TOP OF PAGE FFV200 EQU * LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************** * * * CR CARRIAGE RETURN * * * ********************************************************************** CR EQU * LDR A1,A6 GET ATTRIBUTE ANK A1,/C XRK A1,/C NONPRINT FIELD? RF(Z) CR100 YES LD A1,WCC,A11 ANK A1,/30 FORMATTED? RF(NZ) CR100 NO ORKL A10,NTONLY+CRREC CR RECEIVED CR100 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************* * * * EM END MESSAGE * * * ******************************************************************** EM EQU * ORKL A10,ENDPRT END PRINTING LDK A1,0 RETURN CODE RTN A14 EJECT ****************************************************************** * * * INVAL INVALID PRINTER ORDER * * * ****************************************************************** INVAL EQU * LDK A2,/20 REPLACE WITH SPACE ORKL A10,NTONLY NOT ONLY LDK A1,0 RETURN CODE RTN A14 EJECT ***************************************************************** * * * FFCHK CHECK IF FF IS VALID * * * ***************************************************************** FFCHK EQU * LD A1,WCC,A11 ANK A1,/30 XRK A1,/30 FORMATTED? RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY LD A1,WCC,A11 ANK A1,/40 LOCAL HARD COPY? RF(NZ) FFCH20 YES, FF NOT ALLOWED =4 FFCH10 EQU * LDR A9,A9 FF ALLOWED RF(Z) FFCH30 NOT LDR A1,A10 ANKL A1,CRREC CR RECEIVED? RF(NZ) FFCH30 YES FFCH20 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,1 RETURN CODE RF FFCH40 FFCH30 EQU * XRKL A10,CRREC RESET LDR A9,A9 EMPTY LINE RF(Z) FFCH35 YES CF A14,PRLINE PRINT LINE FFCH35 EQU * LDK A1,0 RETURN CODE FFCH40 EQU * ORKL A10,NTONLY NOT ONLY RTN A14 EJECT **************************************************************** * * * PRLINE PRINT LINE * * * **************************************************************** PRLINE EQU * LD A8,ECBPRT,A11 LDR A1,A10 ANKL A1,NTONLY ONLY RUBB.? RF(NZ) PRL050 NO LD A1,WCC,A11 LDR A2,A1 ANK A1,/30 XRK A1,/30 HRADCOPY? RF(NZ) PRL200 NO ANK A2,/40 HARDCOPY????? RF(NZ) PRL200 NO PRL050 EQU * XRKL A10,NTONLY RESET IFT SUPSPC=1 DK1 LD A1,ECBBA,A8 FIND LENGTH AND END OF BUFFER DK1 ADK A1,1 SKIP CONTROL CHARS. DK1 ST A1,ECBBA,A8 DK1 LDR A2,A9 GET REQ. LENGTH DK1 ADR A1,A2 GET ADDR. TO END OF BUFFER DK1 LDK A2,0 CLEAR FOR CHAR. WORK DK1 PRL060 EQU * DK1 LCR A2,A1 GET A CHARACTER DK1 CCK A2,/2020 SPACE ? DK1 RF(NE) PRL070 NO, FINISHED DK1 SUK A1,1 ADJUST POINTER DK1 CW A1,ECBBA,A8 END OF BUFFER,(FRONT-END) DK1 RF(E) PRL070 YES, FINISHED DK1 RB PRL060 CONTINUE DK1 PRL070 EQU * DK1 LD A2,ECBBA,A8 COMPUTE NEW LENGTH DK1 SUR A1,A2 DK1 LDR A9,A1 PUT IN NEW REQ, LENGTH DK1 PRL080 EQU * DK1 LD A1,ECBBA,A8 RESTORE CONT. CHAR. ADDR. DK1 SUK A1,1 DK1 ST A1,ECBBA,A8 DK1 XIF DK1 ADKL A9,2 ST A9,ECBRL,A8 LDK A7,/06 PRINT LKM DATA 1 LDK A1,50 NUMBER OF DELAYS PRL100 EQU * LDKL A8,1 WAIT FOR A WHILE LKM DATA 6 LD A8,ECBPRT,A11 LDR* A2,A8 PRINT COMPL.? RF(N) PRL150 YES SUK A1,1 MORE TO WAIT FOR? RB(NZ) PRL100 YES LKM DATA 10 ABORT LDR A7,A7 CHECK RETURN VALUE =6 RF(N) PRL150 FINSHED AT LAST LDK A1,1 NO CONSIDER IT AS #$&%$ RF PRL300 PRL150 EQU * LKM DATA 2 RESYNCHRONIZE IM LINCNT,A11 ANOTHER LINE LD A1,ECBRC,A8 OK? RF(NZ) PRL300 NO PRL200 EQU * LD A8,ECBBA,A8 GET BUFFER ADDRESS CMR A8 RESET CONTROL CHAR. SUR A9,A9 ADKL A8,2 LDK A1,0 RETURN CODE PRL300 EQU * RTN A14 EJECT ******************************************************************* * * * INIT INIT ROUTINE * * * ******************************************************************* INIT EQU * CF A14,COMINI COMMON INIT CF A14,ECBINI INIT OF ECB:S LCR A2,A1 SLL A2,8 LC A2,+1,A1 ST A2,PRTID,A11 SAVE WHOLE TASKID LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX LD A7,PRTTAB NUMBER OF TYPES LDKL A1,PRTTAB+2 START OF PRINTER TABLE INI100 EQU * CCR A2,A1 CONVERT TYPE TO INDEX RF(E) INI200 ADK A1,4 SUK A7,1 ILLEGAL ID? RB(NZ) INI100 NO LDKL A1,* ST A1,REGI,A11 LKM DATA 3 FORGET IT INI200 EQU * LD A1,+2,A1 ST A1,PRTTYP,A11 SAVE PRINTER TYPE RTN A14 EJECT ***************************************************************** * * * TSTPRT TEST HARDWARE * * * ***************************************************************** TSTPRT EQU * LDK A2,0 LD A8,ECBPRT,A11 LDK A7,/80 TEST STATUS TSTP10 EQU * LKM DATA 1 LD A1,ECBRC,A8 ANK A1,1 OPERABLE? RF(Z) TSTP80 YES LD A2,PRTID,A11 NO INDICATE NOT OP. IN DEVICE TABLE ANK A2,/FF SUK A2,/30 SLL A2,2 LD A3,+6,A13 LDK A1,TSKTAB ADR A3,A1 ADR A3,A2 LDK A1,1 SC A1,+3,A3 INDICATE NOT OP. LDR A1,A8 LDKL A8,100 LKM DATA 6 LDR A8,A1 LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONCE? RF(Z) TSTP90 NO SC A1,+3,A3 RESET STATUS TSTP90 EQU * RTN A14 EJECT ******************************************************************* * * * GETTAB GET ORDER INDEX * * * ******************************************************************* GETTAB EQU * LD A7,PRTORD NUMBER OF VALID ORDER CODES LDKL A1,PRTORD+2 ORDERTABLE BASE GETT10 EQU * CCR A2,A1 CONVERT ORDER CODE TO ADDRESS RF(E) GETT20 AD A1,PRTTAB AD A1,PRTTAB ADK A1,2 SUK A7,1 ORDER FOUND? RF(Z) GETT30 NO INVALID RB GETT10 TRY AGAIN GETT20 EQU * ADK A1,2 LD A2,PRTTYP,A11 ADR A1,A2 GETT30 EQU * LDR* A1,A1 RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT PRINT REL 11.0 DK 82-05-26 870150541100«, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» =8, MISSING FIRST NL «, t00=0x0000, t01=0x0042}
0x005e…0086 Head {h00=0x0024, h01=0x0050, text=» =7, RECOVERY AFTER PRINT ERR.«, t00=0x0000, t01=0x0062}
0x0086…00ac Head {h00=0x0022, h01=0x0050, text=» =6 RETURN CODE AFTER ABORT «, t00=0x0000, t01=0x008a}
0x00ac…00d0 Head {h00=0x0020, h01=0x0050, text=» =5, RETURN CODE DESTROYED«, t00=0x0000, t01=0x00b0}
0x00d0…00f8 Head {h00=0x0024, h01=0x0050, text=» =4 FF LP100 + ERROR IN FFCHK «, t00=0x0000, t01=0x00d4}
0x00f8…0114 Head {h00=0x0018, h01=0x0050, text=» =3 TWO DC-LINES «, t00=0x0000, t01=0x00fc}
0x0114…0128 Head {h00=0x0010, h01=0x0050, text=» 82-03-08 «, t00=0x0000, t01=0x0118}
0x0128…0150 Head {h00=0x0024, h01=0x0050, text=» DK1, SUPPRESS TRAILING SPACES«, t00=0x0000, t01=0x012c}
0x0150…0168 Head {h00=0x0014, h01=0x0050, text=» =2 NEW LABEL «, t00=0x0000, t01=0x0154}
0x0168…017c Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0000, t01=0x016c}
0x017c…019c Head {h00=0x001c, h01=0x0050, text=» =1, EOC ON FIRST READ«, t00=0x0000, t01=0x0180}
0x019c…01b0 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0001, t01=0x0010}
0x01b0…01fc Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0001, t01=0x0024}
0x01fc…0248 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0070}
0x0248…0294 Head {h00=0x0048, h01=0x0050, text=»* MODULE PRINT : «, t00=0x0001, t01=0x00bc}
0x0294…02e0 Head {h00=0x0048, h01=0x0050, text=»* MODULE HANDLING THE PRINTOUTS BOTH FROM * «, t00=0x0001, t01=0x0108}
0x02e0…032c Head {h00=0x0048, h01=0x0050, text=»* DISPLAY AND MAIN-FRAME * «, t00=0x0001, t01=0x0154}
0x032c…0378 Head {h00=0x0048, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC * «, t00=0x0002, t01=0x0010}
0x0378…03c4 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0002, t01=0x005c}
0x03c4…0410 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0002, t01=0x00a8}
0x0410…041e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00f4}
0x041e…045e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0002, t01=0x0102}
0x045e…0468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0142}
0x0468…048a Head {h00=0x001e, h01=0x0050, text=»* LIST OF ROUTINES «, t00=0x0002, t01=0x014c}
0x048a…0494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016e}
0x0494…04bc Head {h00=0x0024, h01=0x0050, text=»* PRINT MAIN ROUTINE«, t00=0x0002, t01=0x0178}
0x04bc…04f0 Head {h00=0x0030, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0003, t01=0x0010}
0x04f0…0524 Head {h00=0x0030, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0003, t01=0x0044}
0x0524…0550 Head {h00=0x0028, h01=0x0050, text=»* DCPINP DC PRINTER INPUT«, t00=0x0003, t01=0x0078}
0x0550…057c Head {h00=0x0028, h01=0x0050, text=»* ICPINP INTERTASK INPUT «, t00=0x0003, t01=0x00a4}
0x057c…05a6 Head {h00=0x0026, h01=0x0050, text=»* ICPRED INTERTASK READ«, t00=0x0003, t01=0x00d0}
0x05a6…05d2 Head {h00=0x0028, h01=0x0050, text=»* ICPWRT INTERTASK WRITE «, t00=0x0003, t01=0x00fa}
0x05d2…05fe Head {h00=0x0028, h01=0x0050, text=»* ICABOR INTERTASK ABORT «, t00=0x0003, t01=0x0126}
0x05fe…0638 Head {h00=0x0036, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER «, t00=0x0003, t01=0x0152}
0x0638…0660 Head {h00=0x0024, h01=0x0050, text=»* TABLE OF PRINTERORDERS «, t00=0x0003, t01=0x018c}
0x0660…0684 Head {h00=0x0020, h01=0x0050, text=»* NL NEW LINE«, t00=0x0004, t01=0x0024}
0x0684…06b4 Head {h00=0x002c, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED «, t00=0x0004, t01=0x0048}
0x06b4…06da Head {h00=0x0022, h01=0x0050, text=»* FFVAL FORM FEED «, t00=0x0004, t01=0x0078}
0x06da…0706 Head {h00=0x0028, h01=0x0050, text=»* CR CARRIAGE RETURN «, t00=0x0004, t01=0x009e}
0x0706…072e Head {h00=0x0024, h01=0x0050, text=»* EM END MESSAGE «, t00=0x0004, t01=0x00ca}
0x072e…0760 Head {h00=0x002e, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER «, t00=0x0004, t01=0x00f2}
0x0760…0790 Head {h00=0x002c, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID«, t00=0x0004, t01=0x0124}
0x0790…07b6 Head {h00=0x0022, h01=0x0050, text=»* PRLINE PRINT LINE«, t00=0x0004, t01=0x0154}
0x07b6…07de Head {h00=0x0024, h01=0x0050, text=»* INIT INIT ROUTINE«, t00=0x0004, t01=0x017a}
0x07de…0808 Head {h00=0x0026, h01=0x0050, text=»* TSTPRT TEST HARDWARE «, t00=0x0005, t01=0x0012}
0x0808…0834 Head {h00=0x0028, h01=0x0050, text=»* GETTAB GET ORDER INDEX «, t00=0x0005, t01=0x003c}
0x0834…083e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0068}
0x083e…0882 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0005, t01=0x0072}
0x0882…0890 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00b6}
0x0890…08dc Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0005, t01=0x00c4}
0x08dc…0928 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0110}
0x0928…0974 Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0005, t01=0x015c}
0x0974…09c0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0006, t01=0x0018}
0x09c0…0a0c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0006, t01=0x0064}
0x0a0c…0a14 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00b0}
0x0a14…0a50 Head {h00=0x0038, h01=0x0050, text=» ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT)«, t00=0x0006, t01=0x00b8}
0x0a50…0a84 Head {h00=0x0030, h01=0x0050, text=» ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2«, t00=0x0006, t01=0x00f4}
0x0a84…0a8c Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0128}
0x0a8c…0ad8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0006, t01=0x0130}
0x0ad8…0b24 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0006, t01=0x017c}
0x0b24…0b70 Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0007, t01=0x0038}
0x0b70…0bbc Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0084}
0x0bbc…0c08 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x00d0}
0x0c08…0c10 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x011c}
0x0c10…0c46 Head {h00=0x0032, h01=0x0050, text=» EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA)«, t00=0x0007, t01=0x0124}
0x0c46…0c7c Head {h00=0x0032, h01=0x0050, text=» EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9«, t00=0x0007, t01=0x015a}
0x0c7c…0ca4 Head {h00=0x0024, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA)«, t00=0x0007, t01=0x0190}
0x0ca4…0cc4 Head {h00=0x001c, h01=0x0050, text=» EXTRN OPEN OPEN (DCBSC)«, t00=0x0008, t01=0x0028}
0x0cc4…0cf0 Head {h00=0x0028, h01=0x0050, text=» EXTRN CONCT CONNECT PASSIVE (DCBSC)«, t00=0x0008, t01=0x0048}
0x0cf0…0d20 Head {h00=0x002c, h01=0x0050, text=» EXTRN SETTYM SET REQUEST TIMER (DCBSC) «, t00=0x0008, t01=0x0074}
0x0d20…0d50 Head {h00=0x002c, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x0008, t01=0x00a4}
0x0d50…0d7a Head {h00=0x0026, h01=0x0050, text=» EXTRN TSTMES TEST MESSAGE (DCSNA)«, t00=0x0008, t01=0x00d4}
0x0d7a…0da6 Head {h00=0x0028, h01=0x0050, text=» EXTRN READW READ WITH WAIT (DCSNA) «, t00=0x0008, t01=0x00fe}
0x0da6…0dd6 Head {h00=0x002c, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA) «, t00=0x0008, t01=0x012a}
0x0dd6…0dfc Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0008, t01=0x015a}
0x0dfc…0e26 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0008, t01=0x0180}
0x0e26…0e52 Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x0009, t01=0x001a}
0x0e52…0e7e Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBINI INIT IF ECB:S (DSPSNA)«, t00=0x0009, t01=0x0046}
0x0e7e…0eb0 Head {h00=0x002e, h01=0x0050, text=» EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) «, t00=0x0009, t01=0x0072}
0x0eb0…0edc Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x0009, t01=0x00a4}
0x0edc…0f08 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICREAD INTERTASK READ (KEYB) «, t00=0x0009, t01=0x00d0}
0x0f08…0f30 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCBSC)«, t00=0x0009, t01=0x00fc}
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…10e4 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x000a, t01=0x0136}
0x10e4…110e Head {h00=0x0026, h01=0x0050, text=»X:D EQU 1 NUMBER OF DC LINES (1-2)«, t00=0x000a, t01=0x0148}
0x110e…1122 Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x000a, t01=0x0172}
0x1122…1144 Head {h00=0x001e, h01=0x0050, text=»X:O EQU 0 TEST MODE IF:=1 «, t00=0x000a, t01=0x0186}
0x1144…1156 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000b, t01=0x0018}
0x1156…118c Head {h00=0x0032, h01=0x0050, text=»SUPSPC EQU 1 SUPRESS TRAILING SPACES IF =1 DK1«, t00=0x000b, t01=0x002a}
0x118c…119a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0060}
0x119a…11e6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000b, t01=0x006e}
0x11e6…1232 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000b, t01=0x00ba}
0x1232…125c Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000b, t01=0x0106}
0x125c…12a8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0130}
0x12a8…12f4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000b, t01=0x017c}
0x12f4…12fc Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0038}
0x12fc…1306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0040}
0x1306…1326 Head {h00=0x001c, h01=0x0050, text=»* TABLE OF PRINTER TYPES«, t00=0x000c, t01=0x004a}
0x1326…1330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006a}
0x1330…1344 Head {h00=0x0010, h01=0x0050, text=»PRTTAB EQU *«, t00=0x000c, t01=0x0074}
0x1344…136e Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF PRINTERTYPES«, t00=0x000c, t01=0x0088}
0x136e…1386 Head {h00=0x0014, h01=0x0050, text=» DATA 'TT',0 GTP«, t00=0x000c, t01=0x00b2}
0x1386…13a8 Head {h00=0x001e, h01=0x0050, text=» DATA 'LL',2 LINE PRINTER «, t00=0x000c, t01=0x00ca}
0x13a8…13c2 Head {h00=0x0016, h01=0x0050, text=» DATA 'GG',4 GP 74«, t00=0x000c, t01=0x00ec}
0x13c2…13de Head {h00=0x0018, h01=0x0050, text=» DATA 'CC',6 COPY 80«, t00=0x000c, t01=0x0106}
0x13de…13e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0122}
0x13e8…141a Head {h00=0x002e, h01=0x0050, text=»* DEFAULT VALUES FOR DIFF. PRINTERS«, t00=0x000c, t01=0x012c}
0x141a…1440 Head {h00=0x0022, h01=0x0050, text=»* BYTE1= NUMBER OF LINES/PAGE «, t00=0x000c, t01=0x015e}
0x1440…1466 Head {h00=0x0022, h01=0x0050, text=»* BYTE2= NUMBER OF CHAR./LINE «, t00=0x000c, t01=0x0184}
0x1466…1470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001a}
0x1470…148e Head {h00=0x001a, h01=0x0050, text=»PRTLEN DATA /2382 GTP «, t00=0x000d, t01=0x0024}
0x148e…14a4 Head {h00=0x0012, h01=0x0050, text=» DATA /2382 LP«, t00=0x000d, t01=0x0042}
0x14a4…14be Head {h00=0x0016, h01=0x0050, text=» DATA /2382 GP 74 «, t00=0x000d, t01=0x0058}
0x14be…14da Head {h00=0x0018, h01=0x0050, text=» DATA /2382 COPY 80 «, t00=0x000d, t01=0x0072}
0x14da…14e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008e}
0x14e4…150a Head {h00=0x0022, h01=0x0050, text=»* LINE LENGTHS FROM WCC«, t00=0x000d, t01=0x0098}
0x150a…1514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00be}
0x1514…154c Head {h00=0x0034, h01=0x0050, text=»LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE «, t00=0x000d, t01=0x00c8}
0x154c…1556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0100}
0x1556…1580 Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR ECB HANDLING «, t00=0x000d, t01=0x010a}
0x1580…158a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0134}
0x158a…15ac Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000d, t01=0x013e}
0x15ac…15d0 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000d, t01=0x0160}
0x15d0…15f4 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000d, t01=0x0184}
0x15f4…1614 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000e, t01=0x0018}
0x1614…1636 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x000e, t01=0x0038}
0x1636…1640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005a}
0x1640…1658 Head {h00=0x0014, h01=0x0050, text=»* PRINTER MODES «, t00=0x000e, t01=0x0064}
0x1658…1662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007c}
0x1662…1680 Head {h00=0x001a, h01=0x0050, text=»LOCAL EQU 0 LOCAL MODE«, t00=0x000e, t01=0x0086}
0x1680…16a0 Head {h00=0x001c, h01=0x0050, text=»SHARED EQU 2 SHARED MODE«, t00=0x000e, t01=0x00a4}
0x16a0…16aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c4}
0x16aa…16cc Head {h00=0x001e, h01=0x0050, text=»* PRINTER STATUS IN PRTMOD«, t00=0x000e, t01=0x00ce}
0x16cc…16d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f0}
0x16d6…16fc Head {h00=0x0022, h01=0x0050, text=»PRTERR EQU /4000 PRINTER ERROR«, t00=0x000e, t01=0x00fa}
0x16fc…1706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0120}
0x1706…172c Head {h00=0x0022, h01=0x0050, text=»* COPY INTERNAL STATUS IN A10 «, t00=0x000e, t01=0x012a}
0x172c…1736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0150}
0x1736…175e Head {h00=0x0024, h01=0x0050, text=»NXTCHA EQU /8000 GET NEXT CHAR. «, t00=0x000e, t01=0x015a}
0x175e…1784 Head {h00=0x0022, h01=0x0050, text=»ENDPRT EQU /4000 END PRINTING «, t00=0x000e, t01=0x0182}
0x1784…17ac Head {h00=0x0024, h01=0x0050, text=»NTONLY EQU /2000 NOT ONLY SPACES«, t00=0x000f, t01=0x0018}
0x17ac…17d0 Head {h00=0x0020, h01=0x0050, text=»CRREC EQU /1000 CR RECEIVED «, t00=0x000f, t01=0x0040}
0x17d0…17da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0064}
0x17da…1806 Head {h00=0x0028, h01=0x0050, text=»* RELATIVE POS. IN ECB-BLOCK «, t00=0x000f, t01=0x006e}
0x1806…1810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009a}
0x1810…182a Head {h00=0x0016, h01=0x0050, text=»IC EQU 2 INTERTASK«, t00=0x000f, t01=0x00a4}
0x182a…1834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00be}
0x1834…184a Head {h00=0x0012, h01=0x0050, text=»* SCREEN SIZE «, t00=0x000f, t01=0x00c8}
0x184a…1854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00de}
0x1854…186a Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x000f, t01=0x00e8}
0x186a…1874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fe}
0x1874…188c Head {h00=0x0014, h01=0x0050, text=»* RECEIVE STATUS«, t00=0x000f, t01=0x0108}
0x188c…1896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0120}
0x1896…18b4 Head {h00=0x001a, h01=0x0050, text=»LICREC EQU /2000 . =1 «, t00=0x000f, t01=0x012a}
0x18b4…18c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0148}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0156}
0x18cc…18ec Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000f, t01=0x0160}
0x18ec…1908 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x000f, t01=0x0180}
0x1908…1912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000c}
0x1912…1932 Head {h00=0x001c, h01=0x0050, text=»BVDU EQU 2 SCREEN BUFFER«, t00=0x0010, t01=0x0016}
0x1932…1950 Head {h00=0x001a, h01=0x0050, text=»WCC EQU BVDU+1950 WCC «, t00=0x0010, t01=0x0036}
0x1950…1976 Head {h00=0x0022, h01=0x0050, text=»LINCNT EQU WCC+4 LINE COUNTER «, t00=0x0010, t01=0x0054}
0x1976…19ac Head {h00=0x0032, h01=0x0050, text=»DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER «, t00=0x0010, t01=0x007a}
0x19ac…19d6 Head {h00=0x0026, h01=0x0050, text=»PRTID EQU DCLENG+6 PRINTER TASKID «, t00=0x0010, t01=0x00b0}
0x19d6…19fe Head {h00=0x0024, h01=0x0050, text=»PRTTYP EQU PRTID+2 PRINTER TYPE «, t00=0x0010, t01=0x00da}
0x19fe…1a24 Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTTYP+4 WHAT DC LINE«, t00=0x0010, t01=0x0102}
0x1a24…1a48 Head {h00=0x0020, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB BLOCK «, t00=0x0010, t01=0x0128}
0x1a48…1a74 Head {h00=0x0028, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER POINTER «, t00=0x0010, t01=0x014c}
0x1a74…1a98 Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x0010, t01=0x0178}
0x1a98…1ac0 Head {h00=0x0024, h01=0x0050, text=»PRTMOD EQU REGI+32 PRINTER MODE «, t00=0x0011, t01=0x000c}
0x1ac0…1ae8 Head {h00=0x0024, h01=0x0050, text=»ECBPRT EQU PRTMOD+4 PRINTER ECB «, t00=0x0011, t01=0x0034}
0x1ae8…1b16 Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBPRT+6 INTERTASK READ ECB«, t00=0x0011, t01=0x005c}
0x1b16…1b46 Head {h00=0x002c, h01=0x0050, text=»ECBICW EQU ECBICR+2 INTERTASK WRITE ECB «, t00=0x0011, t01=0x008a}
0x1b46…1b68 Head {h00=0x001e, h01=0x0050, text=»ECBDC EQU ECBICW+2 ECB DC «, t00=0x0011, t01=0x00ba}
0x1b68…1b8e Head {h00=0x0022, h01=0x0050, text=»ECBDC1 EQU ECBDC ECB DC LINE 1«, t00=0x0011, t01=0x00dc}
0x1b8e…1bb8 Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x0011, t01=0x0102}
0x1bb8…1bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x012c}
0x1bc2…1be2 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0011, t01=0x0136}
0x1be2…1bfc Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0011, t01=0x0156}
0x1bfc…1c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0170}
0x1c06…1c1a Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0011, t01=0x017a}
0x1c1a…1c3c Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 26 DEVICE TABLE«, t00=0x0011, t01=0x018e}
0x1c3c…1c48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0020}
0x1c48…1c5c Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0012, t01=0x002c}
0x1c5c…1c72 Head {h00=0x0012, h01=0x0050, text=»TSKTAB EQU 219«, t00=0x0012, t01=0x0040}
0x1c72…1c7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0056}
0x1c7e…1c8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0062}
0x1c8c…1cd8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0012, t01=0x0070}
0x1cd8…1d24 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0012, t01=0x00bc}
0x1d24…1d70 Head {h00=0x0048, h01=0x0050, text=»* PRINT MAIN ROUTINE PRINTER * «, t00=0x0012, t01=0x0108}
0x1d70…1dbc Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0012, t01=0x0154}
0x1dbc…1e08 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0013, t01=0x0010}
0x1e08…1e1c Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x0013, t01=0x005c}
0x1e1c…1e3e Head {h00=0x001e, h01=0x0050, text=» CF A14,INIT INIT ROUTINE «, t00=0x0013, t01=0x0070}
0x1e3e…1e50 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0013, t01=0x0092}
0x1e50…1e80 Head {h00=0x002c, h01=0x0050, text=» CF A14,OPINIT OPEN CONNECTION INITIATE «, t00=0x0013, t01=0x00a4}
0x1e80…1ea4 Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 DC NOT PRESENT«, t00=0x0013, t01=0x00d4}
0x1ea4…1ec6 Head {h00=0x001e, h01=0x0050, text=» CF A14,OPSYS OPEN SYSTEM «, t00=0x0013, t01=0x00f8}
0x1ec6…1ed2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x011a}
0x1ed2…1ee4 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0013, t01=0x0126}
0x1ee4…1efe Head {h00=0x0016, h01=0x0050, text=» CF A14,OPEN OPEN «, t00=0x0013, t01=0x0138}
0x1efe…1f2c Head {h00=0x002a, h01=0x0050, text=»* CHECK ON DC REMOVED PR. 8623, DK * «, t00=0x0013, t01=0x0152}
0x1f2c…1f40 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x0013, t01=0x0180}
0x1f40…1f4c (20, 0, 400) Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x0004}
0x1f4c…1f5c Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0014, t01=0x0010}
0x1f5c…1f68 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0020}
0x1f68…1f94 Head {h00=0x0028, h01=0x0050, text=» LDK A1,SHARED ALWAYS SHARED IN BSC «, t00=0x0014, t01=0x002c}
0x1f94…1fae Head {h00=0x0016, h01=0x0050, text=» ST A1,PRTMOD,A11 «, t00=0x0014, t01=0x0058}
0x1fae…1fc2 Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x0014, t01=0x0072}
0x1fc2…1fe6 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE«, t00=0x0014, t01=0x0086}
0x1fe6…2016 Head {h00=0x002c, h01=0x0050, text=» CF A14,CONCT CONNECT PASSIVE IF PRTR OK«, t00=0x0014, t01=0x00aa}
0x2016…2030 Head {h00=0x0016, h01=0x0050, text=» IFT NBRLIN=2 . =3«, t00=0x0014, t01=0x00da}
0x2030…205c Head {h00=0x0028, h01=0x0050, text=» LDK A1,1 CONNECT FOR OTHER LINE =3 «, t00=0x0014, t01=0x00f4}
0x205c…207a Head {h00=0x001a, h01=0x0050, text=» XRS A1,MAIN,A11 . =3 «, t00=0x0014, t01=0x0120}
0x207a…2094 Head {h00=0x0016, h01=0x0050, text=» CF A14,CONCT . =3«, t00=0x0014, t01=0x013e}
0x2094…20aa Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 . =3«, t00=0x0014, t01=0x0158}
0x20aa…20c8 Head {h00=0x001a, h01=0x0050, text=» XRS A1,MAIN,A11 . =3 «, t00=0x0014, t01=0x016e}
0x20c8…20da Head {h00=0x000e, h01=0x0050, text=» XIF . =3«, t00=0x0014, t01=0x018c}
0x20da…2102 Head {h00=0x0024, h01=0x0050, text=» CF A14,SETTYM SET REQUEST TIME «, t00=0x0015, t01=0x000e}
0x2102…2116 Head {h00=0x0010, h01=0x0050, text=»PRI200 EQU *«, t00=0x0015, t01=0x0036}
0x2116…2144 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOACT ACTIVATE IN CURRENT MODE«, t00=0x0015, t01=0x004a}
0x2144…215c Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0015, t01=0x0078}
0x215c…2170 Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0015, t01=0x0090}
0x2170…217c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0015, t01=0x00a4}
0x217c…219a Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0015, t01=0x00b0}
0x219a…21c8 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOCPL COMPLET IN CURRENT MODE «, t00=0x0015, t01=0x00ce}
0x21c8…21e2 Head {h00=0x0016, h01=0x0050, text=» LD A1,PRTMOD,A11 «, t00=0x0015, t01=0x00fc}
0x21e2…2208 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,PRTERR PRINTER ERROR?«, t00=0x0015, t01=0x0116}
0x2208…2220 Head {h00=0x0014, h01=0x0050, text=» RB(Z) PRI200 NO«, t00=0x0015, t01=0x013c}
0x2220…223a Head {h00=0x0016, h01=0x0050, text=» XRS A1,PRTMOD,A11«, t00=0x0015, t01=0x0154}
0x223a…2266 Head {h00=0x0028, h01=0x0050, text=» CF A14,TSTPRT WAIT FOR OPERABLE =7 «, t00=0x0015, t01=0x016e}
0x2266…228a Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 SET DEVICE END =7 «, t00=0x0016, t01=0x000a}
0x228a…22a4 Head {h00=0x0016, h01=0x0050, text=» CF A14,SETSTA =7«, t00=0x0016, t01=0x002e}
0x22a4…22ba Head {h00=0x0012, h01=0x0050, text=» RB PRI200 =7«, t00=0x0016, t01=0x0048}
0x22ba…22c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x005e}
0x22c8…2316 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0016, t01=0x006c}
0x2316…2364 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0016, t01=0x00ba}
0x2364…238c Head {h00=0x0024, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0016, t01=0x0108}
0x238c…23da Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0016, t01=0x0130}
0x23da…2428 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0016, t01=0x017e}
0x2428…243c Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x0017, t01=0x003c}
0x243c…244e Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0017, t01=0x0050}
0x244e…2478 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTMOD,A11 SHARED OR LOCAL?«, t00=0x0017, t01=0x0062}
0x2478…2494 Head {h00=0x0018, h01=0x0050, text=» RF(Z) IOAC20 LOCAL «, t00=0x0017, t01=0x008c}
0x2494…24ba Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 ADD NUMBER OF WAITS «, t00=0x0017, t01=0x00a8}
0x24ba…24f2 Head {h00=0x0034, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY?«, t00=0x0017, t01=0x00ce}
0x24f2…250c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x0017, t01=0x0106}
0x250c…2530 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x0017, t01=0x0120}
0x2530…2554 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0017, t01=0x0144}
0x2554…2570 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x0017, t01=0x0168}
0x2570…2584 Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x0017, t01=0x0184}
0x2584…259a Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0018, t01=0x0008}
0x259a…25ba Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADD MORE WAITS«, t00=0x0018, t01=0x001e}
0x25ba…25de Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+6,A11 ALREADY?«, t00=0x0018, t01=0x003e}
0x25de…25f8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC20 YES«, t00=0x0018, t01=0x0062}
0x25f8…261c Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x0018, t01=0x007c}
0x261c…2640 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0018, t01=0x00a0}
0x2640…265c Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0018, t01=0x00c4}
0x265c…2668 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00e0}
0x2668…267c Head {h00=0x0010, h01=0x0050, text=»IOAC20 EQU *«, t00=0x0018, t01=0x00ec}
0x267c…268e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x0100}
0x268e…26b2 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+2,A11 ALREADY?«, t00=0x0018, t01=0x0112}
0x26b2…26cc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC30 YES«, t00=0x0018, t01=0x0136}
0x26cc…26f2 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPRED READ INTERTASK «, t00=0x0018, t01=0x0150}
0x26f2…270e Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0018, t01=0x0176}
0x270e…2722 (25, 0, 400) Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0019, t01=0x0004}
0x2722…274c Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBBLK,A11 NUMBER OF WAITS «, t00=0x0019, t01=0x0018}
0x274c…275c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x0042}
0x275c…276a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0052}
0x276a…27b8 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0019, t01=0x0060}
0x27b8…2806 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0019, t01=0x00ae}
0x2806…282e Head {h00=0x0024, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0019, t01=0x00fc}
0x282e…287c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0019, t01=0x0124}
0x287c…28ca Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0019, t01=0x0172}
0x28ca…28de Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x001a, t01=0x0030}
0x28de…2904 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+2,A11 INTERTASK?«, t00=0x001a, t01=0x0044}
0x2904…291e Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x001a, t01=0x006a}
0x291e…2936 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x001a, t01=0x0084}
0x2936…295a Head {h00=0x0020, h01=0x0050, text=» CF A14,ICPINP MAKE HARDCOPY«, t00=0x001a, t01=0x009c}
0x295a…296c Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x001a, t01=0x00c0}
0x296c…2980 Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x001a, t01=0x00d2}
0x2980…29a6 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC LINE 1?«, t00=0x001a, t01=0x00e6}
0x29a6…29bc Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001a, t01=0x010c}
0x29bc…29d6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x001a, t01=0x0122}
0x29d6…29e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x013c}
0x29e2…29f8 Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x001a, t01=0x0148}
0x29f8…2a1c Head {h00=0x0020, h01=0x0050, text=» RF(NE) IOCP90 NO FORGET IT «, t00=0x001a, t01=0x015e}
0x2a1c…2a28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0182}
0x2a28…2a40 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x001a, t01=0x018e}
0x2a40…2a64 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x001b, t01=0x0016}
0x2a64…2a76 Head {h00=0x000e, h01=0x0050, text=» RF IOCP30«, t00=0x001b, t01=0x003a}
0x2a76…2a8c Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001b, t01=0x004c}
0x2a8c…2aa0 Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x001b, t01=0x0062}
0x2aa0…2ac6 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+6,A11 DC LINE 2?«, t00=0x001b, t01=0x0076}
0x2ac6…2ae0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP90 NO «, t00=0x001b, t01=0x009c}
0x2ae0…2af8 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+6,A11«, t00=0x001b, t01=0x00b6}
0x2af8…2b1c Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x001b, t01=0x00ce}
0x2b1c…2b28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00f2}
0x2b28…2b3c Head {h00=0x0010, h01=0x0050, text=»IOCP30 EQU *«, t00=0x001b, t01=0x00fe}
0x2b3c…2b62 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCPINP TAKE CARE OF DC«, t00=0x001b, t01=0x0112}
0x2b62…2b76 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x001b, t01=0x0138}
0x2b76…2b86 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x014c}
0x2b86…2b94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x015c}
0x2b94…2bdc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001b, t01=0x016a}
0x2bdc…2c24 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001c, t01=0x0022}
0x2c24…2c6c Head {h00=0x0044, h01=0x0050, text=»* DCPINP DC PRINTER INPUT * «, t00=0x001c, t01=0x006a}
0x2c6c…2cb4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001c, t01=0x00b2}
0x2cb4…2cfc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001c, t01=0x00fa}
0x2cfc…2d10 Head {h00=0x0010, h01=0x0050, text=»DCPINP EQU *«, t00=0x001c, t01=0x0142}
0x2d10…2d3c Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT LOCAL HARD COPY«, t00=0x001c, t01=0x0156}
0x2d3c…2d62 Head {h00=0x0022, h01=0x0050, text=» LDR A7,A7 ALREADY COMPLETED? «, t00=0x001c, t01=0x0182}
0x2d62…2d7a Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP100 NO«, t00=0x001d, t01=0x0018}
0x2d7a…2da8 Head {h00=0x002a, h01=0x0050, text=» CF A14,ICPINP TAKE CARE OF THAT FIRST«, t00=0x001d, t01=0x0030}
0x2da8…2dbc Head {h00=0x0010, h01=0x0050, text=»DCP100 EQU *«, t00=0x001d, t01=0x005e}
0x2dbc…2dd4 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBDC,A11«, t00=0x001d, t01=0x0072}
0x2dd4…2dea Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001d, t01=0x008a}
0x2dea…2e08 Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 1«, t00=0x001d, t01=0x00a0}
0x2e08…2e22 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP150 YES «, t00=0x001d, t01=0x00be}
0x2e22…2e3c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x001d, t01=0x00d8}
0x2e3c…2e50 Head {h00=0x0010, h01=0x0050, text=»DCP150 EQU *«, t00=0x001d, t01=0x00f2}
0x2e50…2e5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0106}
0x2e5c…2e6e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001d, t01=0x0112}
0x2e6e…2e8a Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x001d, t01=0x0124}
0x2e8a…2ea4 Head {h00=0x0016, h01=0x0050, text=» ANKL A1,/701 OK? «, t00=0x001d, t01=0x0140}
0x2ea4…2ec6 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DCP500 NO STOP IT «, t00=0x001d, t01=0x015a}
0x2ec6…2ed2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x017c}
0x2ed2…2ef4 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x001d, t01=0x0188}
0x2ef4…2f08 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A12 «, t00=0x001e, t01=0x001a}
0x2f08…2f30 Head {h00=0x0024, h01=0x0050, text=» CF A14,READW READ FIRST BUFFER «, t00=0x001e, t01=0x002e}
0x2f30…2f48 Head {h00=0x0014, h01=0x0050, text=» ANK A1,3 ERROR?«, t00=0x001e, t01=0x0056}
0x2f48…2f62 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DCP400 NO «, t00=0x001e, t01=0x006e}
0x2f62…2f74 Head {h00=0x000e, h01=0x0050, text=» RF DCP500«, t00=0x001e, t01=0x0088}
0x2f74…2f88 Head {h00=0x0010, h01=0x0050, text=»DCP400 EQU *«, t00=0x001e, t01=0x009a}
0x2f88…2fba Head {h00=0x002e, h01=0x0050, text=» SUR A10,A10 RESET INTERNAL UNPACK STATUS «, t00=0x001e, t01=0x00ae}
0x2fba…2fd2 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =1 «, t00=0x001e, t01=0x00e0}
0x2fd2…2fe8 Head {h00=0x0012, h01=0x0050, text=» ANK A1,2 . =1«, t00=0x001e, t01=0x00f8}
0x2fe8…3002 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP450 . =1«, t00=0x001e, t01=0x010e}
0x3002…3020 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,LICREC . =1 «, t00=0x001e, t01=0x0128}
0x3020…303a Head {h00=0x0016, h01=0x0050, text=»DCP450 EQU * . =1 «, t00=0x001e, t01=0x0146}
0x303a…304c Head {h00=0x000e, h01=0x0050, text=» XIF . =1«, t00=0x001e, t01=0x0160}
0x304c…3064 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x001e, t01=0x0172}
0x3064…308a Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x001e, t01=0x018a}
0x308a…30b8 Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x001f, t01=0x0020}
0x30b8…30ca Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x004e}
0x30ca…30f4 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET ANOTHER BUFFER «, t00=0x001f, t01=0x0060}
0x30f4…3106 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x001f, t01=0x008a}
0x3106…312e Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x001f, t01=0x009c}
0x312e…313a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00c4}
0x313a…3166 Head {h00=0x0028, h01=0x0050, text=» CF A14,UNPACK UPDATE SCREEN BUFFER «, t00=0x001f, t01=0x00d0}
0x3166…317c Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x001f, t01=0x00fc}
0x317c…319e Head {h00=0x001e, h01=0x0050, text=» ANK A1,/8 ANY COPY NEEDED«, t00=0x001f, t01=0x0112}
0x319e…31b6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP500 NO«, t00=0x001f, t01=0x0134}
0x31b6…31d4 Head {h00=0x001a, h01=0x0050, text=» CF A14,COPP PRINT IT «, t00=0x001f, t01=0x014c}
0x31d4…31e8 Head {h00=0x0010, h01=0x0050, text=»DCP500 EQU *«, t00=0x001f, t01=0x016a}
0x31e8…31fa Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x001f, t01=0x017e}
0x31fa…320c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001f, t01=0x0190}
0x320c…3232 Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x0020, t01=0x0012}
0x3232…323e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0038}
0x323e…324e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0044}
0x324e…325c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0054}
0x325c…32a4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0020, t01=0x0062}
0x32a4…32ec Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0020, t01=0x00aa}
0x32ec…3334 Head {h00=0x0044, h01=0x0050, text=»* ICPINP INTERTASK INPUT *«, t00=0x0020, t01=0x00f2}
0x3334…337c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0020, t01=0x013a}
0x337c…33c4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0020, t01=0x0182}
0x33c4…33d8 Head {h00=0x0010, h01=0x0050, text=»ICPINP EQU *«, t00=0x0021, t01=0x003a}
0x33d8…33fa Head {h00=0x001e, h01=0x0050, text=» CF A14,COPP MAKE HARDCOPP«, t00=0x0021, t01=0x004e}
0x33fa…342a Head {h00=0x002c, h01=0x0050, text=» ST A1,REGI,A11 RETURN CODE TO TERMINAL «, t00=0x0021, t01=0x0070}
0x342a…3450 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPWRT WRITE INTERTASK«, t00=0x0021, t01=0x00a0}
0x3450…3460 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x00c6}
0x3460…346e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00d6}
0x346e…34b8 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0021, t01=0x00e4}
0x34b8…3502 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0021, t01=0x012e}
0x3502…354c Head {h00=0x0046, h01=0x0050, text=»* ICPRED INTERTASK READ *«, t00=0x0021, t01=0x0178}
0x354c…3596 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0022, t01=0x0032}
0x3596…35e0 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0022, t01=0x007c}
0x35e0…35f4 Head {h00=0x0010, h01=0x0050, text=»ICPRED EQU *«, t00=0x0022, t01=0x00c6}
0x35f4…360e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0022, t01=0x00da}
0x360e…3632 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0022, t01=0x00f4}
0x3632…3656 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 NOT ADDRESSED READ«, t00=0x0022, t01=0x0118}
0x3656…366c Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0022, t01=0x013c}
0x366c…3680 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0022, t01=0x0152}
0x3680…369a Head {h00=0x0016, h01=0x0050, text=» LDKL A2,LBVDU+/20«, t00=0x0022, t01=0x0166}
0x369a…36c0 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0022, t01=0x0180}
0x36c0…36d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x0016}
0x36d0…36de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0026}
0x36de…372a Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0023, t01=0x0034}
0x372a…3776 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0023, t01=0x0080}
0x3776…37c2 Head {h00=0x0048, h01=0x0050, text=»* ICPWRT WRITE INTERTASK *«, t00=0x0023, t01=0x00cc}
0x37c2…380e Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0023, t01=0x0118}
0x380e…385a Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0023, t01=0x0164}
0x385a…386e Head {h00=0x0010, h01=0x0050, text=»ICPWRT EQU *«, t00=0x0024, t01=0x0020}
0x386e…3888 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0024, t01=0x0034}
0x3888…38ac Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0024, t01=0x004e}
0x38ac…38c6 Head {h00=0x0016, h01=0x0050, text=» LD A1,ECBICR,A11 «, t00=0x0024, t01=0x0072}
0x38c6…38e8 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A1 GET TASKID«, t00=0x0024, t01=0x008c}
0x38e8…3908 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ICPW90 NOT THERE «, t00=0x0024, t01=0x00ae}
0x3908…392a Head {h00=0x001e, h01=0x0050, text=» LDKL A3,REGI RETURN CODE «, t00=0x0024, t01=0x00ce}
0x392a…393e Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0024, t01=0x00f0}
0x393e…3956 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0024, t01=0x0104}
0x3956…397c Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x0024, t01=0x011c}
0x397c…3990 Head {h00=0x0010, h01=0x0050, text=»ICPW90 EQU *«, t00=0x0024, t01=0x0142}
0x3990…39a0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x0156}
0x39a0…39ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0166}
0x39ae…39f4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x0174}
0x39f4…3a3a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0025, t01=0x002a}
0x3a3a…3a80 Head {h00=0x0042, h01=0x0050, text=»* ICABOR INTERTASK ABORT * «, t00=0x0025, t01=0x0070}
0x3a80…3ac6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0025, t01=0x00b6}
0x3ac6…3b0c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0025, t01=0x00fc}
0x3b0c…3b20 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0025, t01=0x0142}
0x3b20…3b32 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0025, t01=0x0156}
0x3b32…3b4c Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+IC,A11 «, t00=0x0025, t01=0x0168}
0x3b4c…3b66 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0025, t01=0x0182}
0x3b66…3b72 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x000c}
0x3b72…3b82 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0026, t01=0x0018}
0x3b82…3b92 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0028}
0x3b92…3ba0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0038}
0x3ba0…3bee Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x0046}
0x3bee…3c3c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0094}
0x3c3c…3c8a Head {h00=0x004a, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER * «, t00=0x0026, t01=0x00e2}
0x3c8a…3cd8 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0130}
0x3cd8…3d26 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x017e}
0x3d26…3d4a Head {h00=0x0020, h01=0x0050, text=»* REGISTERS «, t00=0x0027, t01=0x003c}
0x3d4a…3d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0060}
0x3d54…3d6a Head {h00=0x0012, h01=0x0050, text=»* A2= CHAR. «, t00=0x0027, t01=0x006a}
0x3d6a…3d90 Head {h00=0x0022, h01=0x0050, text=»* A3= SCREEN BUFFER POINTER «, t00=0x0027, t01=0x0080}
0x3d90…3dba Head {h00=0x0026, h01=0x0050, text=»* A4= REL. SCREEN BUFFER ADDRESS«, t00=0x0027, t01=0x00a6}
0x3dba…3dd6 Head {h00=0x0018, h01=0x0050, text=»* A5= LINE LENGTH «, t00=0x0027, t01=0x00d0}
0x3dd6…3df8 Head {h00=0x001e, h01=0x0050, text=»* A6= CURRENT ATTRIBUTE «, t00=0x0027, t01=0x00ec}
0x3df8…3e1a Head {h00=0x001e, h01=0x0050, text=»* A8= ECB BUFFER POINTER«, t00=0x0027, t01=0x010e}
0x3e1a…3e3a Head {h00=0x001c, h01=0x0050, text=»* A9= ECB BUFFER INDEX«, t00=0x0027, t01=0x0130}
0x3e3a…3e5a Head {h00=0x001c, h01=0x0050, text=»* A10= INTERNAL STATUS«, t00=0x0027, t01=0x0150}
0x3e5a…3e7a Head {h00=0x001c, h01=0x0050, text=»* A11= TASK BLOCK BASE«, t00=0x0027, t01=0x0170}
0x3e7a…3e94 Head {h00=0x0016, h01=0x0050, text=»* A13= ECB BASE «, t00=0x0027, t01=0x0190}
0x3e94…3e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x001a}
0x3e9e…3eec Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0028, t01=0x0024}
0x3eec…3f04 Head {h00=0x0014, h01=0x0050, text=»COPP EQU * . =2 «, t00=0x0028, t01=0x0072}
0x3f04…3f1e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0028, t01=0x008a}
0x3f1e…3f30 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0028, t01=0x00a4}
0x3f30…3f52 Head {h00=0x001e, h01=0x0050, text=» LDK A6,0 RESET ATTRIBUTE «, t00=0x0028, t01=0x00b6}
0x3f52…3f84 Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0028, t01=0x00d8}
0x3f84…3fae Head {h00=0x0026, h01=0x0050, text=» CM LINCNT,A11 RESET LINE COUNTER «, t00=0x0028, t01=0x010a}
0x3fae…3fc4 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0028, t01=0x0134}
0x3fc4…3fe6 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/38 MASK RELEVANT «, t00=0x0028, t01=0x014a}
0x3fe6…3ff8 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0028, t01=0x016c}
0x3ff8…4016 Head {h00=0x001a, h01=0x0050, text=» ANK A1,8 START PRINT?«, t00=0x0028, t01=0x017e}
0x4016…4038 Head {h00=0x001e, h01=0x0050, text=» RF(Z) COP900 NO FORGET IT«, t00=0x0029, t01=0x000c}
0x4038…404a Head {h00=0x000e, h01=0x0050, text=» SRL A5,4 «, t00=0x0029, t01=0x002e}
0x404a…4072 Head {h00=0x0024, h01=0x0050, text=» LC A5,LINLEN,A5 GET LINE LENGTH«, t00=0x0029, t01=0x0040}
0x4072…409e Head {h00=0x0028, h01=0x0050, text=» LDR A5,A5 NL,EM AND CR DET. LENGTH?«, t00=0x0029, t01=0x0068}
0x409e…40b8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP100 NO «, t00=0x0029, t01=0x0094}
0x40b8…40e6 Head {h00=0x002a, h01=0x0050, text=» LD A1,PRTTYP,A11 GET MAX LINE LENGTH «, t00=0x0029, t01=0x00ae}
0x40e6…4100 Head {h00=0x0016, h01=0x0050, text=» LC A5,PRTLEN+1,A1«, t00=0x0029, t01=0x00dc}
0x4100…4114 Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0029, t01=0x00f6}
0x4114…412a Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0029, t01=0x010a}
0x412a…413e Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0029, t01=0x0120}
0x413e…4156 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBBA,A8 «, t00=0x0029, t01=0x0134}
0x4156…417a Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0029, t01=0x014c}
0x417a…418c Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0029, t01=0x0170}
0x418c…419e Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0029, t01=0x0182}
0x419e…41b0 (42, 0, 398) Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002a, t01=0x0004}
0x41b0…41c2 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x002a, t01=0x0016}
0x41c2…41e4 Head {h00=0x001e, h01=0x0050, text=» SUR A10,A10 RESET STATUS «, t00=0x002a, t01=0x0028}
0x41e4…41f8 Head {h00=0x0010, h01=0x0050, text=»COP200 EQU *«, t00=0x002a, t01=0x004a}
0x41f8…421a Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU ALL PRINTED?«, t00=0x002a, t01=0x005e}
0x421a…4234 Head {h00=0x0016, h01=0x0050, text=» RF(NL) COP850 YES«, t00=0x002a, t01=0x0080}
0x4234…4252 Head {h00=0x001a, h01=0x0050, text=» CWR A9,A5 LINE FULL? «, t00=0x002a, t01=0x009a}
0x4252…426a Head {h00=0x0014, h01=0x0050, text=» RF(L) COP400 NO«, t00=0x002a, t01=0x00b8}
0x426a…428c Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x002a, t01=0x00d0}
0x428c…42ae Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x002a, t01=0x00f2}
0x42ae…42c8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x002a, t01=0x0114}
0x42c8…42dc Head {h00=0x0010, h01=0x0050, text=»COP400 EQU *«, t00=0x002a, t01=0x012e}
0x42dc…42f8 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x002a, t01=0x0142}
0x42f8…430c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x002a, t01=0x015e}
0x430c…432c Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP650 NULL CHAR.«, t00=0x002a, t01=0x0172}
0x432c…434c (43, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x002b, t01=0x0004}
0x434c…4364 Head {h00=0x0014, h01=0x0050, text=» RF(L) COP500 NO«, t00=0x002b, t01=0x0024}
0x4364…4388 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A2 GET NEW ATTRIBUTE«, t00=0x002b, t01=0x003c}
0x4388…439a Head {h00=0x000e, h01=0x0050, text=» RF COP650«, t00=0x002b, t01=0x0060}
0x439a…43ae Head {h00=0x0010, h01=0x0050, text=»COP500 EQU *«, t00=0x002b, t01=0x0072}
0x43ae…43ca Head {h00=0x0018, h01=0x0050, text=» CCK A2,/2020 ORDER?«, t00=0x002b, t01=0x0086}
0x43ca…43e4 Head {h00=0x0016, h01=0x0050, text=» RF(L) COP550 YES «, t00=0x002b, t01=0x00a2}
0x43e4…4402 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,CRREC RESET «, t00=0x002b, t01=0x00bc}
0x4402…4414 Head {h00=0x000e, h01=0x0050, text=» RF COP600«, t00=0x002b, t01=0x00da}
0x4414…4428 Head {h00=0x0010, h01=0x0050, text=»COP550 EQU *«, t00=0x002b, t01=0x00ec}
0x4428…444e Head {h00=0x0022, h01=0x0050, text=» CF A14,GETTAB GET ORDERINDEX «, t00=0x002b, t01=0x0100}
0x444e…4474 Head {h00=0x0022, h01=0x0050, text=» CFR A14,A1 TAKE CARE OF ORDER«, t00=0x002b, t01=0x0126}
0x4474…4496 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x002b, t01=0x014c}
0x4496…44b0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x002b, t01=0x016e}
0x44b0…44ce Head {h00=0x001a, h01=0x0050, text=» LDR A1,A10 GET STATUS«, t00=0x002b, t01=0x0188}
0x44ce…44f2 Head {h00=0x0020, h01=0x0050, text=» RF(N) COP800 GET NEXT CHAR.«, t00=0x002c, t01=0x0016}
0x44f2…4504 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x002c, t01=0x003a}
0x4504…451e Head {h00=0x0016, h01=0x0050, text=» RF(N) COP830 END «, t00=0x002c, t01=0x004c}
0x451e…4532 Head {h00=0x0010, h01=0x0050, text=»COP600 EQU *«, t00=0x002c, t01=0x0066}
0x4532…4556 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 CHECK IF NONPRINT«, t00=0x002c, t01=0x007a}
0x4556…4568 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x002c, t01=0x009e}
0x4568…457a Head {h00=0x000e, h01=0x0050, text=» XRK A1,/C«, t00=0x002c, t01=0x00b0}
0x457a…4598 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP650 NONPRINT«, t00=0x002c, t01=0x00c2}
0x4598…45c8 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INIDICATE NOT ONLY NOT «, t00=0x002c, t01=0x00e0}
0x45c8…45da Head {h00=0x000e, h01=0x0050, text=» RF COP700«, t00=0x002c, t01=0x0110}
0x45da…45ee Head {h00=0x0010, h01=0x0050, text=»COP650 EQU *«, t00=0x002c, t01=0x0122}
0x45ee…4614 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x002c, t01=0x0136}
0x4614…4628 Head {h00=0x0010, h01=0x0050, text=»COP700 EQU *«, t00=0x002c, t01=0x015c}
0x4628…463a Head {h00=0x000e, h01=0x0050, text=» SCR A2,A8«, t00=0x002c, t01=0x0170}
0x463a…464c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x002c, t01=0x0182}
0x464c…465e (45, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x002d, t01=0x0004}
0x465e…4672 Head {h00=0x0010, h01=0x0050, text=»COP800 EQU *«, t00=0x002d, t01=0x0016}
0x4672…4690 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NXTCHA RESET«, t00=0x002d, t01=0x002a}
0x4690…46a2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002d, t01=0x0048}
0x46a2…46b4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002d, t01=0x005a}
0x46b4…46c6 Head {h00=0x000e, h01=0x0050, text=» RB COP200«, t00=0x002d, t01=0x006c}
0x46c6…46de Head {h00=0x0014, h01=0x0050, text=»COP830 EQU * =5«, t00=0x002d, t01=0x007e}
0x46de…4706 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 RESTORE RET. CODE. =5 «, t00=0x002d, t01=0x0096}
0x4706…471a Head {h00=0x0010, h01=0x0050, text=»COP850 EQU *«, t00=0x002d, t01=0x00be}
0x471a…4746 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A9 SOMETHING LEFT TO PRINT? «, t00=0x002d, t01=0x00d2}
0x4746…475e Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP900 NO«, t00=0x002d, t01=0x00fe}
0x475e…4784 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x002d, t01=0x0116}
0x4784…47a8 Head {h00=0x0020, h01=0x0050, text=» ANKL A10,ENDPRT END MESS.? «, t00=0x002d, t01=0x013c}
0x47a8…47c8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP900 NO STOP IT«, t00=0x002d, t01=0x0160}
0x47c8…47f4 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE «, t00=0x002d, t01=0x0180}
0x47f4…481a Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE EXTRA LINE FEED«, t00=0x002e, t01=0x001c}
0x481a…482e Head {h00=0x0010, h01=0x0050, text=»COP900 EQU *«, t00=0x002e, t01=0x0042}
0x482e…4850 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER FAILED?«, t00=0x002e, t01=0x0056}
0x4850…4868 Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP950 NO«, t00=0x002e, t01=0x0078}
0x4868…488e Head {h00=0x0022, h01=0x0050, text=» LDKL A2,PRTERR INDICATE ERROR«, t00=0x002e, t01=0x0090}
0x488e…48a8 Head {h00=0x0016, h01=0x0050, text=» ORS A2,PRTMOD,A11«, t00=0x002e, t01=0x00b6}
0x48a8…48bc Head {h00=0x0010, h01=0x0050, text=»COP950 EQU *«, t00=0x002e, t01=0x00d0}
0x48bc…48cc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002e, t01=0x00e4}
0x48cc…48da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00f4}
0x48da…492a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002e, t01=0x0102}
0x492a…4934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0152}
0x4934…4956 Head {h00=0x001e, h01=0x0050, text=»* TABLE FOR PRINTERORDERS «, t00=0x002e, t01=0x015c}
0x4956…4960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x017e}
0x4960…49b0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002e, t01=0x0188}
0x49b0…49c4 Head {h00=0x0010, h01=0x0050, text=»PRTORD EQU *«, t00=0x002f, t01=0x0048}
0x49c4…49ee Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF ORDER CODES «, t00=0x002f, t01=0x005c}
0x49ee…4a16 Head {h00=0x0024, h01=0x0050, text=» DATA /0A0A,NL,NL,NL,NL NEW LINE«, t00=0x002f, t01=0x0086}
0x4a16…4a4c Head {h00=0x0032, h01=0x0050, text=» DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED «, t00=0x002f, t01=0x00ae}
0x4a4c…4a78 Head {h00=0x0028, h01=0x0050, text=» DATA /0D0D,CR,CR,CR,CR CARR. RETURN«, t00=0x002f, t01=0x00e4}
0x4a78…4aa4 Head {h00=0x0028, h01=0x0050, text=» DATA /1919,EM,EM,EM,EM END MESSAGE «, t00=0x002f, t01=0x0110}
0x4aa4…4aca Head {h00=0x0022, h01=0x0050, text=» DATA INVAL INVALID ORDER CODE«, t00=0x002f, t01=0x013c}
0x4aca…4ad8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0162}
0x4ad8…4b2c Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x002f, t01=0x0170}
0x4b2c…4b80 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x0030, t01=0x0034}
0x4b80…4bd4 Head {h00=0x0050, h01=0x0050, text=»* NL NEW LINE *«, t00=0x0030, t01=0x0088}
0x4bd4…4c28 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x0030, t01=0x00dc}
0x4c28…4c7c Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x0030, t01=0x0130}
0x4c7c…4c8c Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x0030, t01=0x0184}
0x4c8c…4cb0 (49, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ORKL A10,NTONLY+NXTCHA =8 «, t00=0x0031, t01=0x0004}
0x4cb0…4ce0 Head {h00=0x002c, h01=0x0050, text=» CF A14,PRLINE PRINT LINE AFTER NEW LINE«, t00=0x0031, t01=0x0028}
0x4ce0…4cf0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0058}
0x4cf0…4cfe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0068}
0x4cfe…4d4c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0031, t01=0x0076}
0x4d4c…4d9a Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0031, t01=0x00c4}
0x4d9a…4de8 Head {h00=0x004a, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED *«, t00=0x0031, t01=0x0112}
0x4de8…4e36 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0031, t01=0x0160}
0x4e36…4e84 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0032, t01=0x001e}
0x4e84…4e98 Head {h00=0x0010, h01=0x0050, text=»FFDUM EQU * «, t00=0x0032, t01=0x006c}
0x4e98…4eca Head {h00=0x002e, h01=0x0050, text=» CF A14,FFCHK CHECK IF FORM FEED IS VALID «, t00=0x0032, t01=0x0080}
0x4eca…4ee4 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0032, t01=0x00b2}
0x4ee4…4efe Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD400 NO «, t00=0x0032, t01=0x00cc}
0x4efe…4f16 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 RESET «, t00=0x0032, t01=0x00e6}
0x4f16…4f40 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTTYP,A11 TYPE OF PRINTER «, t00=0x0032, t01=0x00fe}
0x4f40…4f62 Head {h00=0x001e, h01=0x0050, text=» LC A7,PRTLEN,A1 PAGE SIZE«, t00=0x0032, t01=0x0128}
0x4f62…4f76 Head {h00=0x0010, h01=0x0050, text=»FFD100 EQU *«, t00=0x0032, t01=0x014a}
0x4f76…4f9a Head {h00=0x0020, h01=0x0050, text=» CW A7,LINCNT,A11 NEW PAGE? «, t00=0x0032, t01=0x015e}
0x4f9a…4fc0 Head {h00=0x0022, h01=0x0050, text=» RF(L) FFD200 YES BUT TO MANY «, t00=0x0032, t01=0x0182}
0x4fc0…4fe2 Head {h00=0x001e, h01=0x0050, text=» RF(E) FFD300 YES FINISHED«, t00=0x0033, t01=0x0018}
0x4fe2…4ffa Head {h00=0x0014, h01=0x0050, text=» ORKL A10,NTONLY«, t00=0x0033, t01=0x003a}
0x4ffa…5016 Head {h00=0x0018, h01=0x0050, text=» ST A7,REGI,A11 SAVE«, t00=0x0033, t01=0x0052}
0x5016…503e Head {h00=0x0024, h01=0x0050, text=» CF A14,PRLINE ADVANCE ONE LINE «, t00=0x0033, t01=0x006e}
0x503e…505e Head {h00=0x001c, h01=0x0050, text=» LD A7,REGI,A11 RESTORE «, t00=0x0033, t01=0x0096}
0x505e…5080 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0033, t01=0x00b6}
0x5080…509a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD500 YES«, t00=0x0033, t01=0x00d8}
0x509a…50ac Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0033, t01=0x00f2}
0x50ac…50c0 Head {h00=0x0010, h01=0x0050, text=»FFD200 EQU *«, t00=0x0033, t01=0x0104}
0x50c0…50d2 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A7«, t00=0x0033, t01=0x0118}
0x50d2…5100 Head {h00=0x002a, h01=0x0050, text=» ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE «, t00=0x0033, t01=0x012a}
0x5100…5112 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0033, t01=0x0158}
0x5112…5126 Head {h00=0x0010, h01=0x0050, text=»FFD300 EQU *«, t00=0x0033, t01=0x016a}
0x5126…5148 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0033, t01=0x017e}
0x5148…5172 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x0034, t01=0x0010}
0x5172…5186 Head {h00=0x0010, h01=0x0050, text=»FFD400 EQU *«, t00=0x0034, t01=0x003a}
0x5186…51a4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0034, t01=0x004e}
0x51a4…51b8 Head {h00=0x0010, h01=0x0050, text=»FFD500 EQU *«, t00=0x0034, t01=0x006c}
0x51b8…51c8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x0080}
0x51c8…51d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0090}
0x51d6…5224 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0034, t01=0x009e}
0x5224…5272 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x00ec}
0x5272…52c0 Head {h00=0x004a, h01=0x0050, text=»* FFVAL FORM FEED *«, t00=0x0034, t01=0x013a}
0x52c0…530e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x0188}
0x530e…535c Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0035, t01=0x0046}
0x535c…5370 Head {h00=0x0010, h01=0x0050, text=»FFVAL EQU * «, t00=0x0035, t01=0x0094}
0x5370…5398 Head {h00=0x0024, h01=0x0050, text=» CF A14,FFCHK CHECK IF FF VALID «, t00=0x0035, t01=0x00a8}
0x5398…53b2 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0035, t01=0x00d0}
0x53b2…53cc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFV200 NO «, t00=0x0035, t01=0x00ea}
0x53cc…53ec Head {h00=0x001c, h01=0x0050, text=» LDK A1,/31 FF LP100 =4 «, t00=0x0035, t01=0x0104}
0x53ec…5418 Head {h00=0x0028, h01=0x0050, text=» SC A1,-1,A8 STORE FF CONTROL CHAR. «, t00=0x0035, t01=0x0124}
0x5418…5434 Head {h00=0x0018, h01=0x0050, text=» ORKL A10,NXTCHA =8«, t00=0x0035, t01=0x0150}
0x5434…5456 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0035, t01=0x016c}
0x5456…546a Head {h00=0x0010, h01=0x0050, text=»FFV200 EQU *«, t00=0x0035, t01=0x018e}
0x546a…5488 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0036, t01=0x0012}
0x5488…5498 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x0030}
0x5498…54a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0040}
0x54a6…54f4 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0036, t01=0x004e}
0x54f4…5542 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0036, t01=0x009c}
0x5542…5590 Head {h00=0x004a, h01=0x0050, text=»* CR CARRIAGE RETURN *«, t00=0x0036, t01=0x00ea}
0x5590…55de Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0036, t01=0x0138}
0x55de…562c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0036, t01=0x0186}
0x562c…563c Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x0037, t01=0x0044}
0x563c…565c Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 GET ATTRIBUTE«, t00=0x0037, t01=0x0054}
0x565c…566e Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0037, t01=0x0074}
0x566e…5690 Head {h00=0x001e, h01=0x0050, text=» XRK A1,/C NONPRINT FIELD?«, t00=0x0037, t01=0x0086}
0x5690…56a8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CR100 YES«, t00=0x0037, t01=0x00a8}
0x56a8…56be Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0037, t01=0x00c0}
0x56be…56dc Head {h00=0x001a, h01=0x0050, text=» ANK A1,/30 FORMATTED?«, t00=0x0037, t01=0x00d6}
0x56dc…56f4 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) CR100 NO«, t00=0x0037, t01=0x00f4}
0x56f4…571e Head {h00=0x0026, h01=0x0050, text=» ORKL A10,NTONLY+CRREC CR RECEIVED«, t00=0x0037, t01=0x010c}
0x571e…5732 Head {h00=0x0010, h01=0x0050, text=»CR100 EQU * «, t00=0x0037, t01=0x0136}
0x5732…5758 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0037, t01=0x014a}
0x5758…5776 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0037, t01=0x0170}
0x5776…5786 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x018e}
0x5786…5794 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x000e}
0x5794…57e2 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0038, t01=0x001c}
0x57e2…582e Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0038, t01=0x006a}
0x582e…587a Head {h00=0x0048, h01=0x0050, text=»* EM END MESSAGE *«, t00=0x0038, t01=0x00b6}
0x587a…58c6 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0038, t01=0x0102}
0x58c6…5912 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0038, t01=0x014e}
0x5912…5922 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x0039, t01=0x000a}
0x5922…5948 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,ENDPRT END PRINTING «, t00=0x0039, t01=0x001a}
0x5948…5966 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0039, t01=0x0040}
0x5966…5976 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x005e}
0x5976…5984 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x006e}
0x5984…59ce Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0039, t01=0x007c}
0x59ce…5a18 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0039, t01=0x00c6}
0x5a18…5a62 Head {h00=0x0046, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER *«, t00=0x0039, t01=0x0110}
0x5a62…5aac Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0039, t01=0x015a}
0x5aac…5af6 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x003a, t01=0x0014}
0x5af6…5b0a Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x003a, t01=0x005e}
0x5b0a…5b30 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x003a, t01=0x0072}
0x5b30…5b52 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x003a, t01=0x0098}
0x5b52…5b70 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003a, t01=0x00ba}
0x5b70…5b80 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x00d8}
0x5b80…5b8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00e8}
0x5b8e…5bd8 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x003a, t01=0x00f6}
0x5bd8…5c22 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x003a, t01=0x0140}
0x5c22…5c6c Head {h00=0x0046, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID * «, t00=0x003a, t01=0x018a}
0x5c6c…5cb6 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x003b, t01=0x0044}
0x5cb6…5d00 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x003b, t01=0x008e}
0x5d00…5d14 Head {h00=0x0010, h01=0x0050, text=»FFCHK EQU * «, t00=0x003b, t01=0x00d8}
0x5d14…5d2a Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003b, t01=0x00ec}
0x5d2a…5d3e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x003b, t01=0x0102}
0x5d3e…5d5c Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 FORMATTED?«, t00=0x003b, t01=0x0116}
0x5d5c…5d90 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY«, t00=0x003b, t01=0x0134}
0x5d90…5da6 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003b, t01=0x0168}
0x5da6…5dca Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 LOCAL HARD COPY?«, t00=0x003b, t01=0x017e}
0x5dca…5df8 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) FFCH20 YES, FF NOT ALLOWED =4 «, t00=0x003c, t01=0x0012}
0x5df8…5e0c Head {h00=0x0010, h01=0x0050, text=»FFCH10 EQU *«, t00=0x003c, t01=0x0040}
0x5e0c…5e2a Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 FF ALLOWED «, t00=0x003c, t01=0x0054}
0x5e2a…5e44 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH30 NOT «, t00=0x003c, t01=0x0072}
0x5e44…5e58 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003c, t01=0x008c}
0x5e58…5e7c Head {h00=0x0020, h01=0x0050, text=» ANKL A1,CRREC CR RECEIVED? «, t00=0x003c, t01=0x00a0}
0x5e7c…5e96 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFCH30 YES«, t00=0x003c, t01=0x00c4}
0x5e96…5eaa Head {h00=0x0010, h01=0x0050, text=»FFCH20 EQU *«, t00=0x003c, t01=0x00de}
0x5eaa…5ed0 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x003c, t01=0x00f2}
0x5ed0…5eee Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x003c, t01=0x0118}
0x5eee…5f00 Head {h00=0x000e, h01=0x0050, text=» RF FFCH40«, t00=0x003c, t01=0x0136}
0x5f00…5f14 Head {h00=0x0010, h01=0x0050, text=»FFCH30 EQU *«, t00=0x003c, t01=0x0148}
0x5f14…5f32 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,CRREC RESET «, t00=0x003c, t01=0x015c}
0x5f32…5f50 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 EMPTY LINE «, t00=0x003c, t01=0x017a}
0x5f50…5f6a Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH35 YES «, t00=0x003d, t01=0x0008}
0x5f6a…5f8c Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x003d, t01=0x0022}
0x5f8c…5fa0 Head {h00=0x0010, h01=0x0050, text=»FFCH35 EQU *«, t00=0x003d, t01=0x0044}
0x5fa0…5fbe Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003d, t01=0x0058}
0x5fbe…5fd2 Head {h00=0x0010, h01=0x0050, text=»FFCH40 EQU *«, t00=0x003d, t01=0x0076}
0x5fd2…5ff4 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x003d, t01=0x008a}
0x5ff4…6004 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x00ac}
0x6004…6012 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00bc}
0x6012…605a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x003d, t01=0x00ca}
0x605a…60a2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x003d, t01=0x0112}
0x60a2…60ea Head {h00=0x0044, h01=0x0050, text=»* PRLINE PRINT LINE *«, t00=0x003d, t01=0x015a}
0x60ea…6132 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x003e, t01=0x0012}
0x6132…617a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x003e, t01=0x005a}
0x617a…618e Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x003e, t01=0x00a2}
0x618e…61a8 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x003e, t01=0x00b6}
0x61a8…61bc Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003e, t01=0x00d0}
0x61bc…61e0 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,NTONLY ONLY RUBB.? «, t00=0x003e, t01=0x00e4}
0x61e0…61fa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL050 NO «, t00=0x003e, t01=0x0108}
0x61fa…6210 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003e, t01=0x0122}
0x6210…6222 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x003e, t01=0x0138}
0x6222…6236 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x003e, t01=0x014a}
0x6236…6254 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 HRADCOPY? «, t00=0x003e, t01=0x015e}
0x6254…626e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x003e, t01=0x017c}
0x626e…6290 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/40 HARDCOPY????? «, t00=0x003f, t01=0x0008}
0x6290…62aa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x003f, t01=0x002a}
0x62aa…62be Head {h00=0x0010, h01=0x0050, text=»PRL050 EQU *«, t00=0x003f, t01=0x0044}
0x62be…62dc Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NTONLY RESET«, t00=0x003f, t01=0x0058}
0x62dc…62f6 Head {h00=0x0016, h01=0x0050, text=» IFT SUPSPC=1 DK1«, t00=0x003f, t01=0x0076}
0x62f6…6330 Head {h00=0x0036, h01=0x0050, text=» LD A1,ECBBA,A8 FIND LENGTH AND END OF BUFFER DK1 «, t00=0x003f, t01=0x0090}
0x6330…635a Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 SKIP CONTROL CHARS. DK1 «, t00=0x003f, t01=0x00ca}
0x635a…6376 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBA,A8 DK1«, t00=0x003f, t01=0x00f4}
0x6376…639c Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 GET REQ. LENGTH DK1«, t00=0x003f, t01=0x0110}
0x639c…63ce Head {h00=0x002e, h01=0x0050, text=» ADR A1,A2 GET ADDR. TO END OF BUFFER DK1 «, t00=0x003f, t01=0x0136}
0x63ce…63f8 Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 CLEAR FOR CHAR. WORK DK1«, t00=0x003f, t01=0x0168}
0x63f8…6412 (64, 0, 400) Head {h00=0x0016, h01=0x0050, text=»PRL060 EQU * DK1 «, t00=0x0040, t01=0x0004}
0x6412…6438 Head {h00=0x0022, h01=0x0050, text=» LCR A2,A1 GET A CHARACTER DK1«, t00=0x0040, t01=0x001e}
0x6438…645a Head {h00=0x001e, h01=0x0050, text=» CCK A2,/2020 SPACE ? DK1 «, t00=0x0040, t01=0x0044}
0x645a…6482 Head {h00=0x0024, h01=0x0050, text=» RF(NE) PRL070 NO, FINISHED DK1 «, t00=0x0040, t01=0x0066}
0x6482…64a6 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 ADJUST POINTER DK1«, t00=0x0040, t01=0x008e}
0x64a6…64dc Head {h00=0x0032, h01=0x0050, text=» CW A1,ECBBA,A8 END OF BUFFER,(FRONT-END) DK1 «, t00=0x0040, t01=0x00b2}
0x64dc…6504 Head {h00=0x0024, h01=0x0050, text=» RF(E) PRL070 YES, FINISHED DK1 «, t00=0x0040, t01=0x00e8}
0x6504…6524 Head {h00=0x001c, h01=0x0050, text=» RB PRL060 CONTINUE DK1 «, t00=0x0040, t01=0x0110}
0x6524…653e Head {h00=0x0016, h01=0x0050, text=»PRL070 EQU * DK1 «, t00=0x0040, t01=0x0130}
0x653e…656c Head {h00=0x002a, h01=0x0050, text=» LD A2,ECBBA,A8 COMPUTE NEW LENGTH DK1«, t00=0x0040, t01=0x014a}
0x656c…6584 Head {h00=0x0014, h01=0x0050, text=» SUR A1,A2 DK1 «, t00=0x0040, t01=0x0178}
0x6584…65b2 Head {h00=0x002a, h01=0x0050, text=» LDR A9,A1 PUT IN NEW REQ, LENGTH DK1 «, t00=0x0040, t01=0x0190}
0x65b2…65cc Head {h00=0x0016, h01=0x0050, text=»PRL080 EQU * DK1 «, t00=0x0041, t01=0x002e}
0x65cc…6604 Head {h00=0x0034, h01=0x0050, text=» LD A1,ECBBA,A8 RESTORE CONT. CHAR. ADDR. DK1 «, t00=0x0041, t01=0x0048}
0x6604…661a Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 DK1«, t00=0x0041, t01=0x0080}
0x661a…6636 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBA,A8 DK1«, t00=0x0041, t01=0x0096}
0x6636…6648 Head {h00=0x000e, h01=0x0050, text=» XIF DK1«, t00=0x0041, t01=0x00b2}
0x6648…665a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,2«, t00=0x0041, t01=0x00c4}
0x665a…6672 Head {h00=0x0014, h01=0x0050, text=» ST A9,ECBRL,A8 «, t00=0x0041, t01=0x00d6}
0x6672…668c Head {h00=0x0016, h01=0x0050, text=» LDK A7,/06 PRINT «, t00=0x0041, t01=0x00ee}
0x668c…6698 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0041, t01=0x0108}
0x6698…66a8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0041, t01=0x0114}
0x66a8…66cc Head {h00=0x0020, h01=0x0050, text=» LDK A1,50 NUMBER OF DELAYS «, t00=0x0041, t01=0x0124}
0x66cc…66e0 Head {h00=0x0010, h01=0x0050, text=»PRL100 EQU *«, t00=0x0041, t01=0x0148}
0x66e0…6704 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,1 WAIT FOR A WHILE «, t00=0x0041, t01=0x015c}
0x6704…6710 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0041, t01=0x0180}
0x6710…6720 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0041, t01=0x018c}
0x6720…673a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0042, t01=0x000c}
0x673a…675c Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 PRINT COMPL.? «, t00=0x0042, t01=0x0026}
0x675c…6776 Head {h00=0x0016, h01=0x0050, text=» RF(N) PRL150 YES «, t00=0x0042, t01=0x0048}
0x6776…679a Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 MORE TO WAIT FOR? «, t00=0x0042, t01=0x0062}
0x679a…67b4 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PRL100 YES«, t00=0x0042, t01=0x0086}
0x67b4…67c0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0042, t01=0x00a0}
0x67c0…67d6 Head {h00=0x0012, h01=0x0050, text=» DATA 10 ABORT«, t00=0x0042, t01=0x00ac}
0x67d6…67fe Head {h00=0x0024, h01=0x0050, text=» LDR A7,A7 CHECK RETURN VALUE =6«, t00=0x0042, t01=0x00c2}
0x67fe…6824 Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL150 FINSHED AT LAST «, t00=0x0042, t01=0x00ea}
0x6824…684e Head {h00=0x0026, h01=0x0050, text=» LDK A1,1 NO CONSIDER IT AS #$&%$ «, t00=0x0042, t01=0x0110}
0x684e…6860 Head {h00=0x000e, h01=0x0050, text=» RF PRL300«, t00=0x0042, t01=0x013a}
0x6860…6874 Head {h00=0x0010, h01=0x0050, text=»PRL150 EQU *«, t00=0x0042, t01=0x014c}
0x6874…6882 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0042, t01=0x0160}
0x6882…68a0 Head {h00=0x001a, h01=0x0050, text=» DATA 2 RESYNCHRONIZE «, t00=0x0042, t01=0x016e}
0x68a0…68c4 Head {h00=0x0020, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE «, t00=0x0042, t01=0x018c}
0x68c4…68e0 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0043, t01=0x0020}
0x68e0…68fa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL300 NO «, t00=0x0043, t01=0x003c}
0x68fa…690e Head {h00=0x0010, h01=0x0050, text=»PRL200 EQU *«, t00=0x0043, t01=0x0056}
0x690e…6938 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0043, t01=0x006a}
0x6938…695c Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0043, t01=0x0094}
0x695c…696e Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0043, t01=0x00b8}
0x696e…6980 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0043, t01=0x00ca}
0x6980…699e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0043, t01=0x00dc}
0x699e…69b2 Head {h00=0x0010, h01=0x0050, text=»PRL300 EQU *«, t00=0x0043, t01=0x00fa}
0x69b2…69c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x010e}
0x69c2…69d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x011e}
0x69d0…6a1c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0043, t01=0x012c}
0x6a1c…6a68 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0178}
0x6a68…6ab4 Head {h00=0x0048, h01=0x0050, text=»* INIT INIT ROUTINE * «, t00=0x0044, t01=0x0034}
0x6ab4…6b00 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0044, t01=0x0080}
0x6b00…6b4c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0044, t01=0x00cc}
0x6b4c…6b5e Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x0044, t01=0x0118}
0x6b5e…6b80 Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x0044, t01=0x012a}
0x6b80…6ba4 Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x0044, t01=0x014c}
0x6ba4…6bb6 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0044, t01=0x0170}
0x6bb6…6bc8 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0044, t01=0x0182}
0x6bc8…6bdc (69, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0045, t01=0x0004}
0x6bdc…6c06 Head {h00=0x0026, h01=0x0050, text=» ST A2,PRTID,A11 SAVE WHOLE TASKID«, t00=0x0045, t01=0x0018}
0x6c06…6c3c Head {h00=0x0032, h01=0x0050, text=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX «, t00=0x0045, t01=0x0042}
0x6c3c…6c62 Head {h00=0x0022, h01=0x0050, text=» LD A7,PRTTAB NUMBER OF TYPES «, t00=0x0045, t01=0x0078}
0x6c62…6c92 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,PRTTAB+2 START OF PRINTER TABLE«, t00=0x0045, t01=0x009e}
0x6c92…6ca6 Head {h00=0x0010, h01=0x0050, text=»INI100 EQU *«, t00=0x0045, t01=0x00ce}
0x6ca6…6cce Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CONVERT TYPE TO INDEX«, t00=0x0045, t01=0x00e2}
0x6cce…6ce4 Head {h00=0x0012, h01=0x0050, text=» RF(E) INI200 «, t00=0x0045, t01=0x010a}
0x6ce4…6cf6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0045, t01=0x0120}
0x6cf6…6d14 Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ILLEGAL ID? «, t00=0x0045, t01=0x0132}
0x6d14…6d2e Head {h00=0x0016, h01=0x0050, text=» RB(NZ) INI100 NO «, t00=0x0045, t01=0x0150}
0x6d2e…6d40 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0045, t01=0x016a}
0x6d40…6d58 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0045, t01=0x017c}
0x6d58…6d64 (70, 0, 400) Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0046, t01=0x0004}
0x6d64…6d7e Head {h00=0x0016, h01=0x0050, text=» DATA 3 FORGET IT «, t00=0x0046, t01=0x0010}
0x6d7e…6d92 Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x0046, t01=0x002a}
0x6d92…6da6 Head {h00=0x0010, h01=0x0050, text=» LD A1,+2,A1«, t00=0x0046, t01=0x003e}
0x6da6…6dd2 Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTTYP,A11 SAVE PRINTER TYPE «, t00=0x0046, t01=0x0052}
0x6dd2…6de2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x007e}
0x6de2…6df0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x008e}
0x6df0…6e3a Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0046, t01=0x009c}
0x6e3a…6e84 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0046, t01=0x00e6}
0x6e84…6ece Head {h00=0x0046, h01=0x0050, text=»* TSTPRT TEST HARDWARE * «, t00=0x0046, t01=0x0130}
0x6ece…6f18 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0046, t01=0x017a}
0x6f18…6f62 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0047, t01=0x0034}
0x6f62…6f76 Head {h00=0x0010, h01=0x0050, text=»TSTPRT EQU *«, t00=0x0047, t01=0x007e}
0x6f76…6f88 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0047, t01=0x0092}
0x6f88…6fa2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0047, t01=0x00a4}
0x6fa2…6fc2 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x0047, t01=0x00be}
0x6fc2…6fd6 Head {h00=0x0010, h01=0x0050, text=»TSTP10 EQU *«, t00=0x0047, t01=0x00de}
0x6fd6…6fe2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0047, t01=0x00f2}
0x6fe2…6ff2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0047, t01=0x00fe}
0x6ff2…700a Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0047, t01=0x010e}
0x700a…7026 Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 OPERABLE? «, t00=0x0047, t01=0x0126}
0x7026…7040 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TSTP80 YES «, t00=0x0047, t01=0x0142}
0x7040…707c Head {h00=0x0038, h01=0x0050, text=» LD A2,PRTID,A11 NO INDICATE NOT OP. IN DEVICE TABLE«, t00=0x0047, t01=0x015c}
0x707c…7090 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0048, t01=0x0008}
0x7090…70a4 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0048, t01=0x001c}
0x70a4…70b6 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0048, t01=0x0030}
0x70b6…70cc Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x0048, t01=0x0042}
0x70cc…70e2 Head {h00=0x0012, h01=0x0050, text=» LDK A1,TSKTAB«, t00=0x0048, t01=0x0058}
0x70e2…70f4 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0048, t01=0x006e}
0x70f4…7106 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0048, t01=0x0080}
0x7106…7118 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0048, t01=0x0092}
0x7118…713e Head {h00=0x0022, h01=0x0050, text=» SC A1,+3,A3 INDICATE NOT OP. «, t00=0x0048, t01=0x00a4}
0x713e…7150 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x0048, t01=0x00ca}
0x7150…7164 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,100«, t00=0x0048, t01=0x00dc}
0x7164…7170 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0048, t01=0x00f0}
0x7170…7180 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0048, t01=0x00fc}
0x7180…7192 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x0048, t01=0x010c}
0x7192…71ba Head {h00=0x0024, h01=0x0050, text=» LDK A2,1 INDICATE ONCE NOT OP. «, t00=0x0048, t01=0x011e}
0x71ba…71cc Head {h00=0x000e, h01=0x0050, text=» RB TSTP10«, t00=0x0048, t01=0x0146}
0x71cc…71e0 Head {h00=0x0010, h01=0x0050, text=»TSTP80 EQU *«, t00=0x0048, t01=0x0158}
0x71e0…7200 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A2 NOT OP. ONCE?«, t00=0x0048, t01=0x016c}
0x7200…7218 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTP90 NO«, t00=0x0048, t01=0x018c}
0x7218…723a Head {h00=0x001e, h01=0x0050, text=» SC A1,+3,A3 RESET STATUS «, t00=0x0049, t01=0x0014}
0x723a…724e Head {h00=0x0010, h01=0x0050, text=»TSTP90 EQU *«, t00=0x0049, t01=0x0036}
0x724e…725e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0049, t01=0x004a}
0x725e…726c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x005a}
0x726c…72b8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0049, t01=0x0068}
0x72b8…7304 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x00b4}
0x7304…7350 Head {h00=0x0048, h01=0x0050, text=»* GETTAB GET ORDER INDEX * «, t00=0x0049, t01=0x0100}
0x7350…739c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x014c}
0x739c…73e8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004a, t01=0x0008}
0x73e8…73fc Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x004a, t01=0x0054}
0x73fc…742e Head {h00=0x002e, h01=0x0050, text=» LD A7,PRTORD NUMBER OF VALID ORDER CODES «, t00=0x004a, t01=0x0068}
0x742e…7458 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PRTORD+2 ORDERTABLE BASE «, t00=0x004a, t01=0x009a}
0x7458…746c Head {h00=0x0010, h01=0x0050, text=»GETT10 EQU *«, t00=0x004a, t01=0x00c4}
0x746c…749c Head {h00=0x002c, h01=0x0050, text=» CCR A2,A1 CONVERT ORDER CODE TO ADDRESS«, t00=0x004a, t01=0x00d8}
0x749c…74b2 Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x004a, t01=0x0108}
0x74b2…74c8 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x004a, t01=0x011e}
0x74c8…74de Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x004a, t01=0x0134}
0x74de…74f0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x004a, t01=0x014a}
0x74f0…750e Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ORDER FOUND?«, t00=0x004a, t01=0x015c}
0x750e…752e Head {h00=0x001c, h01=0x0050, text=» RF(Z) GETT30 NO INVALID«, t00=0x004a, t01=0x017a}
0x752e…754a Head {h00=0x0018, h01=0x0050, text=» RB GETT10 TRY AGAIN«, t00=0x004b, t01=0x000a}
0x754a…755e Head {h00=0x0010, h01=0x0050, text=»GETT20 EQU *«, t00=0x004b, t01=0x0026}
0x755e…7570 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x004b, t01=0x003a}
0x7570…758a Head {h00=0x0016, h01=0x0050, text=» LD A2,PRTTYP,A11 «, t00=0x004b, t01=0x004c}
0x758a…759c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x004b, t01=0x0066}
0x759c…75b0 Head {h00=0x0010, h01=0x0050, text=»GETT30 EQU *«, t00=0x004b, t01=0x0078}
0x75b0…75c4 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x004b, t01=0x008c}
0x75c4…75d4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004b, t01=0x00a0}
0x75d4…75dc Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00b0}
0x75dc…75e8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004b, t01=0x00b8}
0x75e8…75ec Head {h00=0x4004, h01=0x0000}
0x75ec…75f0 00 4b 00 c4 ┆ K ┆
0x75f0…75f8 (76, 1, 8) 20 04 00 00 00 4c 00 04 ┆ L ┆