|
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: 30252 (0x762c)
Notes: pts_type(SC)
Names: »PRINT.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »UPDATE/PRINT.SC«
IDENT PRINT REL 11.0 DK 81-10-11 870150541100 =2 NEW LABEL 81-04-08 =1, EOC ON FIRST READ 81-01-26 ******************************************************************* * * * MODULE PRINT : * MODULE HANDLING THE PRINTOUTS BOTH FROM * * DISPLAY AND MAIN-FRAME * * (EMULATION 3270 SNA/SDLC, BSC * * * ******************************************************************* EJECT ******************************************************** * * LIST OF ROUTINES * * PRINT MAIN ROUTINE * IOACT ACTIVATE IN CURRENT MODE * IOCPL COMPLETE IN CURRENT MODE * DCPINP DC PRINTER INPUT * ICPINP INTERTASK INPUT * ICPRED INTERTASK READ * ICPWRT INTERTASK WRITE * ICABOR INTERTASK ABORT * COPP COPY SCREEN BUFFER TO PRINTER * TABLE OF PRINTERORDERS * NL NEW LINE * FFDUM SIMULATED FORM FEED * FFVAL FORM FEED * CR CARRIAGE RETURN * EM END MESSAGE * INVAL INVALID PRINTER ORDER * FFCHK CHECK IF FF IS VALID * PRLINE PRINT LINE * INIT INIT ROUTINE * TSTPRT TEST HARDWARE * GETTAB GET ORDER INDEX * *********************************************************** EJECT ******************************************************************* * * * ENTRY POINTS * * * ******************************************************************* ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2 ******************************************************************* * * * EXTERNAL REFERENCES * * * ******************************************************************* EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA) EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9 EXTRN OPSYS OPEN SYSTEM (DCSNA) EXTRN OPEN OPEN (DCBSC) EXTRN CONCT CONNECT PASSIVE (DCBSC) EXTRN SETTIM SET REQUEST TIMER (DCBSC) EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS EXTRN TSTMES TEST MESSAGE (DCSNA) EXTRN READW READ WITH WAIT (DCSNA) EXTRN READNW READ WITH NO WAIT (DCSNA) EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN UNPACK UNPACK DC BUFFER (PAD) EXTRN ECBINI INIT IF ECB:S (DSPSNA) EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) EXTRN ICWRT INTERTASK WRITE (KEYB) EXTRN ICREAD INTERTASK READ (KEYB) EXTRN SETSTA SET STATUS (DCBSC) EJECT *************************************************************** * * * CONDITIONAL ASSEMBLY * * * *************************************************************** X:A EQU 0 SNA HANDLING IF:=1 SNA EQU 0 X:D EQU 1 NUMBER OF DC LINES (1-2) NBRLIN EQU 1 X:O EQU 0 TEST MODE IF:=1 TEST EQU 0 EJECT ******************************************************************* * * * DECLARATIONS OF DATA AND EQUATES * * ******************************************************************* * * TABLE OF PRINTER TYPES * PRTTAB EQU * DATA /0004 NUMBER OF PRINTERTYPES DATA 'TT',0 GTP DATA 'LL',2 LINE PRINTER DATA 'GG',4 GP 74 DATA 'CC',6 COPY 80 * * DEFAULT VALUES FOR DIFF. PRINTERS * BYTE1= NUMBER OF LINES/PAGE * BYTE2= NUMBER OF CHAR./LINE * PRTLEN DATA /2382 GTP DATA /2382 LP DATA /2382 GP 74 DATA /2382 COPY 80 * * LINE LENGTHS FROM WCC * LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * PRINTER MODES * LOCAL EQU 0 LOCAL MODE SHARED EQU 2 SHARED MODE * * PRINTER STATUS IN PRTMOD * PRTERR EQU /4000 PRINTER ERROR * * COPY INTERNAL STATUS IN A10 * NXTCHA EQU /8000 GET NEXT CHAR. ENDPRT EQU /4000 END PRINTING NTONLY EQU /2000 NOT ONLY SPACES CRREC EQU /1000 CR RECEIVED * * RELATIVE POS. IN ECB-BLOCK * IC EQU 2 INTERTASK * * SCREEN SIZE * LBVDU EQU 1920 * * RECEIVE STATUS * LICREC EQU /2000 . =1 EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * BVDU EQU 2 SCREEN BUFFER WCC EQU BVDU+1950 WCC LINCNT EQU WCC+4 LINE COUNTER DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER PRTID EQU DCLENG+6 PRINTER TASKID PRTTYP EQU PRTID+2 PRINTER TYPE MAIN EQU PRTTYP+4 WHAT DC LINE ECBBLK EQU MAIN+6 ECB BLOCK BUFPNT EQU ECBBLK+14 BUFFER POINTER REGI EQU BUFPNT+2 SAVE AREA PRTMOD EQU REGI+32 PRINTER MODE ECBPRT EQU PRTMOD+4 PRINTER ECB ECBICR EQU ECBPRT+6 INTERTASK READ ECB ECBICW EQU ECBICR+2 INTERTASK WRITE ECB ECBDC EQU ECBICW+2 ECB DC ECBDC1 EQU ECBDC ECB DC LINE 1 ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 24 DEVICE TABLE XIF IFT TEST=1 TSKTAB EQU 219 XIF EJECT ******************************************************************* * * * PRINT MAIN ROUTINE PRINTER * * * ******************************************************************* PRINT EQU * CF A14,INIT INIT ROUTINE IFT SNA=1 CF A14,OPINIT OPEN CONNECTION INITIATE RF(N) PRI100 DC NOT PRESENT CF A14,OPSYS OPEN SYSTEM XIF IFF SNA=1 CF A14,OPEN OPEN * CHECK ON DC REMOVED PR. 8623, DK * LDKL A8,20 LKM DATA 6 CF A14,CONCT CONNECT PASSIVE CF A14,SETTIM SET REQUEST TIMEOUT XIF LDK A1,SHARED ALWAYS SHARED IN BSC ST A1,PRTMOD,A11 PRI100 EQU * CF A14,TSTPRT TEST HARDWARE PRI200 EQU * CF A14,IOACT ACTIVATE IN CURRENT MODE LDKL A7,ECBBLK ADR A7,A11 LKM DATA 7 MULTIPLE WAIT CF A14,IOCPL COMPLET IN CURRENT MODE LD A1,PRTMOD,A11 ANKL A1,PRTERR PRINTER ERROR? RB(Z) PRI200 NO XRS A1,PRTMOD,A11 RB PRI100 TRY TO FIX IT EJECT ********************************************************************* * * * IOACT ACTIVATE IN CURRENT MODE * * ********************************************************************* IOACT EQU * LDK A4,0 LD A1,PRTMOD,A11 SHARED OR LOCAL? RF(Z) IOAC20 LOCAL ADK A4,1 ADD NUMBER OF WAITS LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY? RF(NZ) IOAC10 YES CM MAIN,A11 INDICATE LINE 1 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+4,A11 IOAC10 EQU * IFT NBRLIN=2 ADK A4,1 ADD MORE WAITS LD A2,ECBBLK+6,A11 ALREADY? RF(NZ) IOAC20 YES IM MAIN,A11 INDICATE LINE 2 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+6,A11 XIF IOAC20 EQU * ADK A4,1 LD A2,ECBBLK+2,A11 ALREADY? RF(NZ) IOAC30 YES CF A14,ICPRED READ INTERTASK ST A8,ECBBLK+2,A11 IOAC30 EQU * ST A4,ECBBLK,A11 NUMBER OF WAITS RTN A14 EJECT ********************************************************************* * * * IOCPL COMPLETE IN CURRENT MODE * * ********************************************************************* IOCPL EQU * CW A8,ECBBLK+2,A11 INTERTASK? RF(NE) IOCP10 NO CM ECBBLK+2,A11 CF A14,ICPINP MAKE HARDCOPY RF IOCP90 IOCP10 EQU * CW A8,ECBBLK+4,A11 DC LINE 1? IFT NBRLIN=2 RF(NE) IOCP20 NO XIF IFF NBRLIN=2 RF(NE) IOCP90 NO FORGET IT XIF CM ECBBLK+4,A11 CM MAIN,A11 INDICATE LINE 1 RF IOCP30 IFT NBRLIN=2 IOCP20 EQU * CW A8,ECBBLK+6,A11 DC LINE 2? RF(NE) IOCP90 NO CM ECBBLK+6,A11 IM MAIN,A11 INDICATE LINE 2 XIF IOCP30 EQU * CF A14,DCPINP TAKE CARE OF DC IOCP90 EQU * RTN A14 EJECT *************************************************************** * * * DCPINP DC PRINTER INPUT * * * *************************************************************** DCPINP EQU * CF A14,ICABOR ABORT LOCAL HARD COPY LDR A7,A7 ALREADY COMPLETED? RF(Z) DCP100 NO CF A14,ICPINP TAKE CARE OF THAT FIRST DCP100 EQU * LD A8,ECBDC,A11 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 1 RF(Z) DCP150 YES LD A8,ECBDC2,A11 DCP150 EQU * XIF IFT SNA=1 LD A1,ECBRC,A8 OK? ANKL A1,/701 OK? RF(NZ) DCP500 NO STOP IT XIF CF A14,GETBUF GET BUFFER LDR A3,A8 CF A14,READW READ FIRST BUFFER ANK A1,3 ERROR? RF(NZ) DCP400 NO LDR A8,A12 CF A14,RELBUF RELEASE BUFFER RF DCP500 DCP400 EQU * SUR A10,A10 RESET INTERNAL UNPACK STATUS IFT SNA=1 . =1 ANK A1,2 . =1 RF(Z) DCP450 . =1 ORKL A10,LICREC . =1 DCP450 EQU * . =1 XIF . =1 LD A1,ECBEL,A8 ST A1,DCLENG,A11 SAVE LENGTH ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS IFT SNA=1 CF A14,GETBUF GET ANOTHER BUFFER LDR A3,A8 CF A14,READNW READ WITH NO WAIT XIF CF A14,UNPACK UPDATE SCREEN BUFFER LD A1,WCC,A11 ANK A1,/8 ANY COPY NEEDED RF(Z) DCP500 NO CF A14,COPP PRINT IT DCP500 EQU * IFF SNA=1 LDK A1,0 CF A14,SETSTA SET DEVICE END XIF RTN A14 EJECT **************************************************************** * * * ICPINP INTERTASK INPUT * * * **************************************************************** ICPINP EQU * CF A14,COPP MAKE HARDCOPP ST A1,REGI,A11 RETURN CODE TO TERMINAL CF A14,ICPWRT WRITE INTERTASK RTN A14 EJECT ****************************************************************** * * * ICPRED INTERTASK READ * * * ****************************************************************** ICPRED EQU * LD A8,ECBICR,A11 CF A14,ICSET SET NO TIMEOUT LDK A1,0 NOT ADDRESSED READ LDKL A3,BVDU ADR A3,A11 LDKL A2,LBVDU+/20 CF A14,ICREAD READ INTERTASK RTN A14 EJECT ******************************************************************** * * * ICPWRT WRITE INTERTASK * * * ******************************************************************** ICPWRT EQU * LD A8,ECBICW,A11 CF A14,ICSET SET NO TIMEOUT LD A1,ECBICR,A11 LD A1,ECBCW,A1 GET TASKID RF(Z) ICPW90 NOT THERE LDKL A3,REGI RETURN CODE ADR A3,A11 LDK A2,2 LENGTH CF A14,ICWRT WRITE INTERTASK ICPW90 EQU * RTN A14 EJECT ************************************************************* * * * ICABOR INTERTASK ABORT * * * ************************************************************* ICABOR EQU * LDK A7,0 CM ECBBLK+IC,A11 LD A8,ECBICR,A11 LKM DATA 10 RTN A14 EJECT ********************************************************************* * * * COPP COPY SCREEN BUFFER TO PRINTER * * * ********************************************************************* * REGISTERS * * A2= CHAR. * A3= SCREEN BUFFER POINTER * A4= REL. SCREEN BUFFER ADDRESS * A5= LINE LENGTH * A6= CURRENT ATTRIBUTE * A8= ECB BUFFER POINTER * A9= ECB BUFFER INDEX * A10= INTERNAL STATUS * A11= TASK BLOCK BASE * A13= ECB BASE * ********************************************************************* COPP EQU * . =2 LD A8,ECBPRT,A11 LDK A1,0 LDK A6,0 RESET ATTRIBUTE CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS CM LINCNT,A11 RESET LINE COUNTER LD A1,WCC,A11 ANK A1,/38 MASK RELEVANT LDR A5,A1 ANK A1,8 START PRINT? RF(Z) COP900 NO FORGET IT SRL A5,4 LC A5,LINLEN,A5 GET LINE LENGTH LDR A5,A5 NL,EM AND CR DET. LENGTH? RF(NZ) COP100 NO LD A1,PRTTYP,A11 GET MAX LINE LENGTH LC A5,PRTLEN+1,A1 COP100 EQU * LDKL A3,BVDU ADR A3,A11 LD A8,ECBBA,A8 CMR A8 RESET CONTROL CHAR. ADKL A8,2 SUR A9,A9 LDK A2,0 LDK A4,0 SUR A10,A10 RESET STATUS COP200 EQU * CWK A4,LBVDU ALL PRINTED? RF(NL) COP850 YES CWR A9,A5 LINE FULL? RF(L) COP400 NO CF A14,PRLINE PRINT LINE LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES COP400 EQU * LCR A2,A3 GET CHAR. ANK A2,/FF RF(Z) COP650 NULL CHAR. CCK A2,/8000 ATTRIBUTE? RF(L) COP500 NO LDR A6,A2 GET NEW ATTRIBUTE RF COP650 COP500 EQU * CCK A2,/2020 ORDER? RF(L) COP550 YES XRKL A10,CRREC RESET RF COP600 COP550 EQU * CF A14,GETTAB GET ORDERINDEX CFR A14,A1 TAKE CARE OF ORDER LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES LDR A1,A10 GET STATUS RF(N) COP800 GET NEXT CHAR. SLL A1,1 RF(N) COP850 END COP600 EQU * LDR A1,A6 CHECK IF NONPRINT ANK A1,/C XRK A1,/C RF(Z) COP650 NONPRINT ORKL A10,NTONLY INIDICATE NOT ONLY NOT RF COP700 COP650 EQU * LDK A2,/20 REPLACE WITH SPACE COP700 EQU * SCR A2,A8 ADKL A9,1 ADKL A8,1 COP800 EQU * XRKL A10,NXTCHA RESET ADK A3,1 ADK A4,1 RB COP200 COP850 EQU * LDR A9,A9 SOMETHING LEFT TO PRINT? RF(Z) COP900 NO CF A14,PRLINE PRINT LAST LINE ANKL A10,ENDPRT END MESS.? RF(Z) COP900 NO STOP IT ORKL A10,NTONLY INDICATE PRINTABLE CF A14,PRLINE EXTRA LINE FEED COP900 EQU * LDR A1,A1 PRINTER FAILED? RF(Z) COP950 NO LDKL A2,PRTERR INDICATE ERROR ORS A2,PRTMOD,A11 COP950 EQU * RTN A14 EJECT ************************************************************************ * * TABLE FOR PRINTERORDERS * ************************************************************************ PRTORD EQU * DATA /0004 NUMBER OF ORDER CODES DATA /0A0A,NL,NL,NL,NL NEW LINE DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED DATA /0D0D,CR,CR,CR,CR CARR. RETURN DATA /1919,EM,EM,EM,EM END MESSAGE DATA INVAL INVALID ORDER CODE EJECT **************************************************************************** * * * NL NEW LINE * * * **************************************************************************** NL EQU * CF A14,PRLINE PRINT LINE AFTER NEW LINE ORKL A10,NXTCHA+NTONLY GET NEXT CHAR. RTN A14 EJECT ********************************************************************** * * * FFDUM SIMULATED FORM FEED * * * ********************************************************************** FFDUM EQU * CF A14,FFCHK CHECK IF FORM FEED IS VALID LDR A1,A1 VALID? RF(NZ) FFD400 NO LDK A7,0 RESET LD A1,PRTTYP,A11 TYPE OF PRINTER LC A7,PRTLEN,A1 PAGE SIZE FFD100 EQU * CW A7,LINCNT,A11 NEW PAGE? RF(L) FFD200 YES BUT TO MANY RF(E) FFD300 YES FINISHED ORKL A10,NTONLY ST A7,REGI,A11 SAVE CF A14,PRLINE ADVANCE ONE LINE LD A7,REGI,A11 RESTORE LDR A1,A1 PRINTER ERROR? RF(NZ) FFD500 YES RB FFD100 FFD200 EQU * NGR A1,A7 ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE RB FFD100 FFD300 EQU * CM LINCNT,A11 TOP OF PAGE LDK A2,/20 REPLACE FF WITH SPACE FFD400 EQU * LDK A1,0 RETURN CODE FFD500 EQU * RTN A14 EJECT ********************************************************************* * * * FFVAL FORM FEED * * * ********************************************************************* FFVAL EQU * CF A14,FFCHK CHECK IF FF VALID LDR A1,A1 VALID? RF(NZ) FFV200 NO LDK A1,/0C SC A1,-1,A8 STORE FF CONTROL CHAR. LDK A2,/20 REPLACE FF WITH SPACE CM LINCNT,A11 TOP OF PAGE FFV200 EQU * LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************** * * * CR CARRIAGE RETURN * * * ********************************************************************** CR EQU * LDR A1,A6 GET ATTRIBUTE ANK A1,/C XRK A1,/C NONPRINT FIELD? RF(Z) CR100 YES LD A1,WCC,A11 ANK A1,/30 FORMATTED? RF(NZ) CR100 NO ORKL A10,NTONLY+CRREC CR RECEIVED CR100 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************* * * * EM END MESSAGE * * * ******************************************************************** EM EQU * ORKL A10,ENDPRT END PRINTING LDK A1,0 RETURN CODE RTN A14 EJECT ****************************************************************** * * * INVAL INVALID PRINTER ORDER * * * ****************************************************************** INVAL EQU * LDK A2,/20 REPLACE WITH SPACE ORKL A10,NTONLY NOT ONLY LDK A1,0 RETURN CODE RTN A14 EJECT ***************************************************************** * * * FFCHK CHECK IF FF IS VALID * * * ***************************************************************** FFCHK EQU * LD A1,WCC,A11 ANK A1,/30 XRK A1,/30 FORMATTED? RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY LD A1,WCC,A11 ANK A1,/40 LOCAL HARD COPY? RF(Z) FFCH20 YES, FF NOT ALLOWED FFCH10 EQU * LDR A9,A9 FF ALLOWED RF(Z) FFCH30 NOT LDR A1,A10 ANKL A1,CRREC CR RECEIVED? RF(NZ) FFCH30 YES FFCH20 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,1 RETURN CODE RF FFCH40 FFCH30 EQU * 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 ADKL A9,2 ST A9,ECBRL,A8 LDK A7,/06 PRINT LKM DATA 1 LDK A1,50 NUMBER OF DELAYS PRL100 EQU * LDKL A8,1 WAIT FOR A WHILE LKM DATA 6 LD A8,ECBPRT,A11 LDR* A2,A8 PRINT COMPL.? RF(N) PRL150 YES SUK A1,1 MORE TO WAIT FOR? RB(NZ) PRL100 YES LKM DATA 10 ABORT RF(N) PRL150 FINSHED AT LAST LDK A1,1 NO CONSIDER IT AS #$&%$ RF PRL300 PRL150 EQU * LKM DATA 2 RESYNCHRONIZE IM LINCNT,A11 ANOTHER LINE LD A1,ECBRC,A8 OK? RF(NZ) PRL300 NO PRL200 EQU * LD A8,ECBBA,A8 GET BUFFER ADDRESS CMR A8 RESET CONTROL CHAR. SUR A9,A9 ADKL A8,2 LDK A1,0 RETURN CODE PRL300 EQU * RTN A14 EJECT ******************************************************************* * * * INIT INIT ROUTINE * * * ******************************************************************* INIT EQU * CF A14,COMINI COMMON INIT CF A14,ECBINI INIT OF ECB:S LCR A2,A1 SLL A2,8 LC A2,+1,A1 ST A2,PRTID,A11 SAVE WHOLE TASKID LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX LD A7,PRTTAB NUMBER OF TYPES LDKL A1,PRTTAB+2 START OF PRINTER TABLE INI100 EQU * CCR A2,A1 CONVERT TYPE TO INDEX RF(E) INI200 ADK A1,4 SUK A7,1 ILLEGAL ID? RB(NZ) INI100 NO LDKL A1,* ST A1,REGI,A11 LKM DATA 3 FORGET IT INI200 EQU * LD A1,+2,A1 ST A1,PRTTYP,A11 SAVE PRINTER TYPE RTN A14 EJECT ***************************************************************** * * * TSTPRT TEST HARDWARE * * * ***************************************************************** TSTPRT EQU * LDK A2,0 LD A8,ECBPRT,A11 LDK A7,/80 TEST STATUS TSTP10 EQU * LKM DATA 1 LD A1,ECBRC,A8 ANK A1,1 OPERABLE? RF(Z) TSTP80 YES LD A2,PRTID,A11 NO INDICATE NOT OP. IN DEVICE TABLE ANK A2,/FF SUK A2,/30 SLL A2,2 LD A3,+6,A13 LDK A1,TSKTAB ADR A3,A1 ADR A3,A2 LDK A1,1 SC A1,+3,A3 INDICATE NOT OP. LDR A1,A8 LDKL A8,100 LKM DATA 6 LDR A8,A1 LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONCE? RF(Z) TSTP90 NO SC A1,+3,A3 RESET STATUS TSTP90 EQU * RTN A14 EJECT ******************************************************************* * * * GETTAB GET ORDER INDEX * * * ******************************************************************* GETTAB EQU * LD A7,PRTORD NUMBER OF VALID ORDER CODES LDKL A1,PRTORD+2 ORDERTABLE BASE GETT10 EQU * CCR A2,A1 CONVERT ORDER CODE TO ADDRESS RF(E) GETT20 AD A1,PRTTAB AD A1,PRTTAB ADK A1,2 SUK A7,1 ORDER FOUND? RF(Z) GETT30 NO INVALID RB GETT10 TRY AGAIN GETT20 EQU * ADK A1,2 LD A2,PRTTYP,A11 ADR A1,A2 GETT30 EQU * LDR* A1,A1 RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT PRINT REL 11.0 DK 81-10-11 870150541100«, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0056 Head {h00=0x0014, h01=0x0050, text=» =2 NEW LABEL «, t00=0x0000, t01=0x0042}
0x0056…006a Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0000, t01=0x005a}
0x006a…008a Head {h00=0x001c, h01=0x0050, text=» =1, EOC ON FIRST READ«, t00=0x0000, t01=0x006e}
0x008a…009e Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x008e}
0x009e…00ea Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0000, t01=0x00a2}
0x00ea…0136 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0000, t01=0x00ee}
0x0136…0182 Head {h00=0x0048, h01=0x0050, text=»* MODULE PRINT : «, t00=0x0000, t01=0x013a}
0x0182…01ce Head {h00=0x0048, h01=0x0050, text=»* MODULE HANDLING THE PRINTOUTS BOTH FROM * «, t00=0x0000, t01=0x0186}
0x01ce…021a Head {h00=0x0048, h01=0x0050, text=»* DISPLAY AND MAIN-FRAME * «, t00=0x0001, t01=0x0042}
0x021a…0266 Head {h00=0x0048, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC * «, t00=0x0001, t01=0x008e}
0x0266…02b2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0001, t01=0x00da}
0x02b2…02fe Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0001, t01=0x0126}
0x02fe…030c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0172}
0x030c…034c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0001, t01=0x0180}
0x034c…0356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0030}
0x0356…0378 Head {h00=0x001e, h01=0x0050, text=»* LIST OF ROUTINES «, t00=0x0002, t01=0x003a}
0x0378…0382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x0382…03aa Head {h00=0x0024, h01=0x0050, text=»* PRINT MAIN ROUTINE«, t00=0x0002, t01=0x0066}
0x03aa…03de Head {h00=0x0030, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0002, t01=0x008e}
0x03de…0412 Head {h00=0x0030, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0002, t01=0x00c2}
0x0412…043e Head {h00=0x0028, h01=0x0050, text=»* DCPINP DC PRINTER INPUT«, t00=0x0002, t01=0x00f6}
0x043e…046a Head {h00=0x0028, h01=0x0050, text=»* ICPINP INTERTASK INPUT «, t00=0x0002, t01=0x0122}
0x046a…0494 Head {h00=0x0026, h01=0x0050, text=»* ICPRED INTERTASK READ«, t00=0x0002, t01=0x014e}
0x0494…04c0 Head {h00=0x0028, h01=0x0050, text=»* ICPWRT INTERTASK WRITE «, t00=0x0002, t01=0x0178}
0x04c0…04ec Head {h00=0x0028, h01=0x0050, text=»* ICABOR INTERTASK ABORT «, t00=0x0003, t01=0x0014}
0x04ec…0526 Head {h00=0x0036, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER «, t00=0x0003, t01=0x0040}
0x0526…054e Head {h00=0x0024, h01=0x0050, text=»* TABLE OF PRINTERORDERS «, t00=0x0003, t01=0x007a}
0x054e…0572 Head {h00=0x0020, h01=0x0050, text=»* NL NEW LINE«, t00=0x0003, t01=0x00a2}
0x0572…05a2 Head {h00=0x002c, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED «, t00=0x0003, t01=0x00c6}
0x05a2…05c8 Head {h00=0x0022, h01=0x0050, text=»* FFVAL FORM FEED «, t00=0x0003, t01=0x00f6}
0x05c8…05f4 Head {h00=0x0028, h01=0x0050, text=»* CR CARRIAGE RETURN «, t00=0x0003, t01=0x011c}
0x05f4…061c Head {h00=0x0024, h01=0x0050, text=»* EM END MESSAGE «, t00=0x0003, t01=0x0148}
0x061c…064e Head {h00=0x002e, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER «, t00=0x0003, t01=0x0170}
0x064e…067e Head {h00=0x002c, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID«, t00=0x0004, t01=0x0012}
0x067e…06a4 Head {h00=0x0022, h01=0x0050, text=»* PRLINE PRINT LINE«, t00=0x0004, t01=0x0042}
0x06a4…06cc Head {h00=0x0024, h01=0x0050, text=»* INIT INIT ROUTINE«, t00=0x0004, t01=0x0068}
0x06cc…06f6 Head {h00=0x0026, h01=0x0050, text=»* TSTPRT TEST HARDWARE «, t00=0x0004, t01=0x0090}
0x06f6…0722 Head {h00=0x0028, h01=0x0050, text=»* GETTAB GET ORDER INDEX «, t00=0x0004, t01=0x00ba}
0x0722…072c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e6}
0x072c…0770 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0004, t01=0x00f0}
0x0770…077e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0134}
0x077e…07ca Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0004, t01=0x0142}
0x07ca…0816 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0004, t01=0x018e}
0x0816…0862 Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0005, t01=0x004a}
0x0862…08ae Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0096}
0x08ae…08fa Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0005, t01=0x00e2}
0x08fa…0902 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x012e}
0x0902…093e Head {h00=0x0038, h01=0x0050, text=» ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT)«, t00=0x0005, t01=0x0136}
0x093e…0972 Head {h00=0x0030, h01=0x0050, text=» ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2«, t00=0x0005, t01=0x0172}
0x0972…097a Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0016}
0x097a…09c6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0006, t01=0x001e}
0x09c6…0a12 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0006, t01=0x006a}
0x0a12…0a5e Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0006, t01=0x00b6}
0x0a5e…0aaa Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0006, t01=0x0102}
0x0aaa…0af6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0006, t01=0x014e}
0x0af6…0afe Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x000a}
0x0afe…0b34 Head {h00=0x0032, h01=0x0050, text=» EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA)«, t00=0x0007, t01=0x0012}
0x0b34…0b6a Head {h00=0x0032, h01=0x0050, text=» EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9«, t00=0x0007, t01=0x0048}
0x0b6a…0b92 Head {h00=0x0024, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA)«, t00=0x0007, t01=0x007e}
0x0b92…0bb2 Head {h00=0x001c, h01=0x0050, text=» EXTRN OPEN OPEN (DCBSC)«, t00=0x0007, t01=0x00a6}
0x0bb2…0bde Head {h00=0x0028, h01=0x0050, text=» EXTRN CONCT CONNECT PASSIVE (DCBSC)«, t00=0x0007, t01=0x00c6}
0x0bde…0c0e Head {h00=0x002c, h01=0x0050, text=» EXTRN SETTIM SET REQUEST TIMER (DCBSC) «, t00=0x0007, t01=0x00f2}
0x0c0e…0c3e Head {h00=0x002c, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x0007, t01=0x0122}
0x0c3e…0c68 Head {h00=0x0026, h01=0x0050, text=» EXTRN TSTMES TEST MESSAGE (DCSNA)«, t00=0x0007, t01=0x0152}
0x0c68…0c94 Head {h00=0x0028, h01=0x0050, text=» EXTRN READW READ WITH WAIT (DCSNA) «, t00=0x0007, t01=0x017c}
0x0c94…0cc4 Head {h00=0x002c, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA) «, t00=0x0008, t01=0x0018}
0x0cc4…0cea Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0008, t01=0x0048}
0x0cea…0d14 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0008, t01=0x006e}
0x0d14…0d40 Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x0008, t01=0x0098}
0x0d40…0d6c Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBINI INIT IF ECB:S (DSPSNA)«, t00=0x0008, t01=0x00c4}
0x0d6c…0d9e Head {h00=0x002e, h01=0x0050, text=» EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) «, t00=0x0008, t01=0x00f0}
0x0d9e…0dca Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x0008, t01=0x0122}
0x0dca…0df6 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICREAD INTERTASK READ (KEYB) «, t00=0x0008, t01=0x014e}
0x0df6…0e1e Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCBSC)«, t00=0x0008, t01=0x017a}
0x0e1e…0e2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0012}
0x0e2c…0e74 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0009, t01=0x0020}
0x0e74…0ebc Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0068}
0x0ebc…0f04 Head {h00=0x0044, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x0009, t01=0x00b0}
0x0f04…0f4c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0009, t01=0x00f8}
0x0f4c…0f94 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0009, t01=0x0140}
0x0f94…0f9c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0188}
0x0f9c…0fc0 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x0009, t01=0x0190}
0x0fc0…0fd2 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x000a, t01=0x0024}
0x0fd2…0ffc Head {h00=0x0026, h01=0x0050, text=»X:D EQU 1 NUMBER OF DC LINES (1-2)«, t00=0x000a, t01=0x0036}
0x0ffc…1010 Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 1«, t00=0x000a, t01=0x0060}
0x1010…1032 Head {h00=0x001e, h01=0x0050, text=»X:O EQU 0 TEST MODE IF:=1 «, t00=0x000a, t01=0x0074}
0x1032…1044 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000a, t01=0x0096}
0x1044…1052 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00a8}
0x1052…109e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000a, t01=0x00b6}
0x109e…10ea Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0102}
0x10ea…1114 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000a, t01=0x014e}
0x1114…1160 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0178}
0x1160…11ac Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000b, t01=0x0034}
0x11ac…11b4 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0080}
0x11b4…11be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0088}
0x11be…11de Head {h00=0x001c, h01=0x0050, text=»* TABLE OF PRINTER TYPES«, t00=0x000b, t01=0x0092}
0x11de…11e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b2}
0x11e8…11fc Head {h00=0x0010, h01=0x0050, text=»PRTTAB EQU *«, t00=0x000b, t01=0x00bc}
0x11fc…1226 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF PRINTERTYPES«, t00=0x000b, t01=0x00d0}
0x1226…123e Head {h00=0x0014, h01=0x0050, text=» DATA 'TT',0 GTP«, t00=0x000b, t01=0x00fa}
0x123e…1260 Head {h00=0x001e, h01=0x0050, text=» DATA 'LL',2 LINE PRINTER «, t00=0x000b, t01=0x0112}
0x1260…127a Head {h00=0x0016, h01=0x0050, text=» DATA 'GG',4 GP 74«, t00=0x000b, t01=0x0134}
0x127a…1296 Head {h00=0x0018, h01=0x0050, text=» DATA 'CC',6 COPY 80«, t00=0x000b, t01=0x014e}
0x1296…12a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016a}
0x12a0…12d2 Head {h00=0x002e, h01=0x0050, text=»* DEFAULT VALUES FOR DIFF. PRINTERS«, t00=0x000b, t01=0x0174}
0x12d2…12f8 Head {h00=0x0022, h01=0x0050, text=»* BYTE1= NUMBER OF LINES/PAGE «, t00=0x000c, t01=0x0016}
0x12f8…131e Head {h00=0x0022, h01=0x0050, text=»* BYTE2= NUMBER OF CHAR./LINE «, t00=0x000c, t01=0x003c}
0x131e…1328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0062}
0x1328…1346 Head {h00=0x001a, h01=0x0050, text=»PRTLEN DATA /2382 GTP «, t00=0x000c, t01=0x006c}
0x1346…135c Head {h00=0x0012, h01=0x0050, text=» DATA /2382 LP«, t00=0x000c, t01=0x008a}
0x135c…1376 Head {h00=0x0016, h01=0x0050, text=» DATA /2382 GP 74 «, t00=0x000c, t01=0x00a0}
0x1376…1392 Head {h00=0x0018, h01=0x0050, text=» DATA /2382 COPY 80 «, t00=0x000c, t01=0x00ba}
0x1392…139c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d6}
0x139c…13c2 Head {h00=0x0022, h01=0x0050, text=»* LINE LENGTHS FROM WCC«, t00=0x000c, t01=0x00e0}
0x13c2…13cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0106}
0x13cc…1404 Head {h00=0x0034, h01=0x0050, text=»LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE «, t00=0x000c, t01=0x0110}
0x1404…140e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0148}
0x140e…1438 Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR ECB HANDLING «, t00=0x000c, t01=0x0152}
0x1438…1442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x017c}
0x1442…1464 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000c, t01=0x0186}
0x1464…1488 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000d, t01=0x0018}
0x1488…14ac Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000d, t01=0x003c}
0x14ac…14cc Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000d, t01=0x0060}
0x14cc…14ee Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x000d, t01=0x0080}
0x14ee…14f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a2}
0x14f8…1510 Head {h00=0x0014, h01=0x0050, text=»* PRINTER MODES «, t00=0x000d, t01=0x00ac}
0x1510…151a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x151a…1538 Head {h00=0x001a, h01=0x0050, text=»LOCAL EQU 0 LOCAL MODE«, t00=0x000d, t01=0x00ce}
0x1538…1558 Head {h00=0x001c, h01=0x0050, text=»SHARED EQU 2 SHARED MODE«, t00=0x000d, t01=0x00ec}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010c}
0x1562…1584 Head {h00=0x001e, h01=0x0050, text=»* PRINTER STATUS IN PRTMOD«, t00=0x000d, t01=0x0116}
0x1584…158e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0138}
0x158e…15b4 Head {h00=0x0022, h01=0x0050, text=»PRTERR EQU /4000 PRINTER ERROR«, t00=0x000d, t01=0x0142}
0x15b4…15be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0168}
0x15be…15e4 Head {h00=0x0022, h01=0x0050, text=»* COPY INTERNAL STATUS IN A10 «, t00=0x000d, t01=0x0172}
0x15e4…15ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15ee…1616 Head {h00=0x0024, h01=0x0050, text=»NXTCHA EQU /8000 GET NEXT CHAR. «, t00=0x000e, t01=0x0012}
0x1616…163c Head {h00=0x0022, h01=0x0050, text=»ENDPRT EQU /4000 END PRINTING «, t00=0x000e, t01=0x003a}
0x163c…1664 Head {h00=0x0024, h01=0x0050, text=»NTONLY EQU /2000 NOT ONLY SPACES«, t00=0x000e, t01=0x0060}
0x1664…1688 Head {h00=0x0020, h01=0x0050, text=»CRREC EQU /1000 CR RECEIVED «, t00=0x000e, t01=0x0088}
0x1688…1692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ac}
0x1692…16be Head {h00=0x0028, h01=0x0050, text=»* RELATIVE POS. IN ECB-BLOCK «, t00=0x000e, t01=0x00b6}
0x16be…16c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e2}
0x16c8…16e2 Head {h00=0x0016, h01=0x0050, text=»IC EQU 2 INTERTASK«, t00=0x000e, t01=0x00ec}
0x16e2…16ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0106}
0x16ec…1702 Head {h00=0x0012, h01=0x0050, text=»* SCREEN SIZE «, t00=0x000e, t01=0x0110}
0x1702…170c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0126}
0x170c…1722 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x000e, t01=0x0130}
0x1722…172c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0146}
0x172c…1744 Head {h00=0x0014, h01=0x0050, text=»* RECEIVE STATUS«, t00=0x000e, t01=0x0150}
0x1744…174e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0168}
0x174e…176c Head {h00=0x001a, h01=0x0050, text=»LICREC EQU /2000 . =1 «, t00=0x000e, t01=0x0172}
0x176c…177a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0190}
0x177a…1784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000e}
0x1784…17a4 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000f, t01=0x0018}
0x17a4…17c0 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x000f, t01=0x0038}
0x17c0…17ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0054}
0x17ca…17ea Head {h00=0x001c, h01=0x0050, text=»BVDU EQU 2 SCREEN BUFFER«, t00=0x000f, t01=0x005e}
0x17ea…1808 Head {h00=0x001a, h01=0x0050, text=»WCC EQU BVDU+1950 WCC «, t00=0x000f, t01=0x007e}
0x1808…182e Head {h00=0x0022, h01=0x0050, text=»LINCNT EQU WCC+4 LINE COUNTER «, t00=0x000f, t01=0x009c}
0x182e…1864 Head {h00=0x0032, h01=0x0050, text=»DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER «, t00=0x000f, t01=0x00c2}
0x1864…188e Head {h00=0x0026, h01=0x0050, text=»PRTID EQU DCLENG+6 PRINTER TASKID «, t00=0x000f, t01=0x00f8}
0x188e…18b6 Head {h00=0x0024, h01=0x0050, text=»PRTTYP EQU PRTID+2 PRINTER TYPE «, t00=0x000f, t01=0x0122}
0x18b6…18dc Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTTYP+4 WHAT DC LINE«, t00=0x000f, t01=0x014a}
0x18dc…1900 Head {h00=0x0020, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB BLOCK «, t00=0x000f, t01=0x0170}
0x1900…192c (16, 0, 400) Head {h00=0x0028, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER POINTER «, t00=0x0010, t01=0x0004}
0x192c…1950 Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x0010, t01=0x0030}
0x1950…1978 Head {h00=0x0024, h01=0x0050, text=»PRTMOD EQU REGI+32 PRINTER MODE «, t00=0x0010, t01=0x0054}
0x1978…19a0 Head {h00=0x0024, h01=0x0050, text=»ECBPRT EQU PRTMOD+4 PRINTER ECB «, t00=0x0010, t01=0x007c}
0x19a0…19ce Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBPRT+6 INTERTASK READ ECB«, t00=0x0010, t01=0x00a4}
0x19ce…19fe Head {h00=0x002c, h01=0x0050, text=»ECBICW EQU ECBICR+2 INTERTASK WRITE ECB «, t00=0x0010, t01=0x00d2}
0x19fe…1a20 Head {h00=0x001e, h01=0x0050, text=»ECBDC EQU ECBICW+2 ECB DC «, t00=0x0010, t01=0x0102}
0x1a20…1a46 Head {h00=0x0022, h01=0x0050, text=»ECBDC1 EQU ECBDC ECB DC LINE 1«, t00=0x0010, t01=0x0124}
0x1a46…1a70 Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x0010, t01=0x014a}
0x1a70…1a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0174}
0x1a7a…1a9a Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0010, t01=0x017e}
0x1a9a…1ab4 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0011, t01=0x000e}
0x1ab4…1abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0028}
0x1abe…1ad2 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0011, t01=0x0032}
0x1ad2…1af4 Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 24 DEVICE TABLE«, t00=0x0011, t01=0x0046}
0x1af4…1b00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0068}
0x1b00…1b14 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0011, t01=0x0074}
0x1b14…1b2a Head {h00=0x0012, h01=0x0050, text=»TSKTAB EQU 219«, t00=0x0011, t01=0x0088}
0x1b2a…1b36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x009e}
0x1b36…1b44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00aa}
0x1b44…1b90 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0011, t01=0x00b8}
0x1b90…1bdc Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0011, t01=0x0104}
0x1bdc…1c28 Head {h00=0x0048, h01=0x0050, text=»* PRINT MAIN ROUTINE PRINTER * «, t00=0x0011, t01=0x0150}
0x1c28…1c74 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0012, t01=0x000c}
0x1c74…1cc0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0012, t01=0x0058}
0x1cc0…1cd4 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x0012, t01=0x00a4}
0x1cd4…1cf6 Head {h00=0x001e, h01=0x0050, text=» CF A14,INIT INIT ROUTINE «, t00=0x0012, t01=0x00b8}
0x1cf6…1d08 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0012, t01=0x00da}
0x1d08…1d38 Head {h00=0x002c, h01=0x0050, text=» CF A14,OPINIT OPEN CONNECTION INITIATE «, t00=0x0012, t01=0x00ec}
0x1d38…1d5c Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 DC NOT PRESENT«, t00=0x0012, t01=0x011c}
0x1d5c…1d7e Head {h00=0x001e, h01=0x0050, text=» CF A14,OPSYS OPEN SYSTEM «, t00=0x0012, t01=0x0140}
0x1d7e…1d8a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0162}
0x1d8a…1d9c Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0012, t01=0x016e}
0x1d9c…1db6 Head {h00=0x0016, h01=0x0050, text=» CF A14,OPEN OPEN «, t00=0x0012, t01=0x0180}
0x1db6…1de4 Head {h00=0x002a, h01=0x0050, text=»* CHECK ON DC REMOVED PR. 8623, DK * «, t00=0x0013, t01=0x000a}
0x1de4…1df8 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x0013, t01=0x0038}
0x1df8…1e04 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x004c}
0x1e04…1e14 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0013, t01=0x0058}
0x1e14…1e3a Head {h00=0x0022, h01=0x0050, text=» CF A14,CONCT CONNECT PASSIVE «, t00=0x0013, t01=0x0068}
0x1e3a…1e64 Head {h00=0x0026, h01=0x0050, text=» CF A14,SETTIM SET REQUEST TIMEOUT«, t00=0x0013, t01=0x008e}
0x1e64…1e70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00b8}
0x1e70…1e9c Head {h00=0x0028, h01=0x0050, text=» LDK A1,SHARED ALWAYS SHARED IN BSC «, t00=0x0013, t01=0x00c4}
0x1e9c…1eb6 Head {h00=0x0016, h01=0x0050, text=» ST A1,PRTMOD,A11 «, t00=0x0013, t01=0x00f0}
0x1eb6…1eca Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x0013, t01=0x010a}
0x1eca…1eee Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE«, t00=0x0013, t01=0x011e}
0x1eee…1f02 Head {h00=0x0010, h01=0x0050, text=»PRI200 EQU *«, t00=0x0013, t01=0x0142}
0x1f02…1f30 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOACT ACTIVATE IN CURRENT MODE«, t00=0x0013, t01=0x0156}
0x1f30…1f48 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0013, t01=0x0184}
0x1f48…1f5c Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0014, t01=0x000c}
0x1f5c…1f68 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x0020}
0x1f68…1f86 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0014, t01=0x002c}
0x1f86…1fb4 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOCPL COMPLET IN CURRENT MODE «, t00=0x0014, t01=0x004a}
0x1fb4…1fce Head {h00=0x0016, h01=0x0050, text=» LD A1,PRTMOD,A11 «, t00=0x0014, t01=0x0078}
0x1fce…1ff4 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,PRTERR PRINTER ERROR?«, t00=0x0014, t01=0x0092}
0x1ff4…200c Head {h00=0x0014, h01=0x0050, text=» RB(Z) PRI200 NO«, t00=0x0014, t01=0x00b8}
0x200c…2026 Head {h00=0x0016, h01=0x0050, text=» XRS A1,PRTMOD,A11«, t00=0x0014, t01=0x00d0}
0x2026…2046 Head {h00=0x001c, h01=0x0050, text=» RB PRI100 TRY TO FIX IT«, t00=0x0014, t01=0x00ea}
0x2046…2054 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x010a}
0x2054…20a2 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0014, t01=0x0118}
0x20a2…20f0 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0166}
0x20f0…2118 Head {h00=0x0024, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0015, t01=0x0024}
0x2118…2166 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0015, t01=0x004c}
0x2166…21b4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0015, t01=0x009a}
0x21b4…21c8 Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x0015, t01=0x00e8}
0x21c8…21da Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0015, t01=0x00fc}
0x21da…2204 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTMOD,A11 SHARED OR LOCAL?«, t00=0x0015, t01=0x010e}
0x2204…2220 Head {h00=0x0018, h01=0x0050, text=» RF(Z) IOAC20 LOCAL «, t00=0x0015, t01=0x0138}
0x2220…2246 Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 ADD NUMBER OF WAITS «, t00=0x0015, t01=0x0154}
0x2246…227e Head {h00=0x0034, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY?«, t00=0x0015, t01=0x017a}
0x227e…2298 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x0016, t01=0x0022}
0x2298…22bc Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x0016, t01=0x003c}
0x22bc…22e0 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0016, t01=0x0060}
0x22e0…22fc Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x0016, t01=0x0084}
0x22fc…2310 Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x0016, t01=0x00a0}
0x2310…2326 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0016, t01=0x00b4}
0x2326…2346 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADD MORE WAITS«, t00=0x0016, t01=0x00ca}
0x2346…236a Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+6,A11 ALREADY?«, t00=0x0016, t01=0x00ea}
0x236a…2384 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC20 YES«, t00=0x0016, t01=0x010e}
0x2384…23a8 Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x0016, t01=0x0128}
0x23a8…23cc Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0016, t01=0x014c}
0x23cc…23e8 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0016, t01=0x0170}
0x23e8…23f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x018c}
0x23f4…2408 Head {h00=0x0010, h01=0x0050, text=»IOAC20 EQU *«, t00=0x0017, t01=0x0008}
0x2408…241a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x001c}
0x241a…243e Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+2,A11 ALREADY?«, t00=0x0017, t01=0x002e}
0x243e…2458 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC30 YES«, t00=0x0017, t01=0x0052}
0x2458…247e Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPRED READ INTERTASK «, t00=0x0017, t01=0x006c}
0x247e…249a Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0017, t01=0x0092}
0x249a…24ae Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0017, t01=0x00ae}
0x24ae…24d8 Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBBLK,A11 NUMBER OF WAITS «, t00=0x0017, t01=0x00c2}
0x24d8…24e8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x00ec}
0x24e8…24f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00fc}
0x24f6…2544 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0017, t01=0x010a}
0x2544…2592 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0017, t01=0x0158}
0x2592…25ba Head {h00=0x0024, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0018, t01=0x0016}
0x25ba…2608 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0018, t01=0x003e}
0x2608…2656 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0018, t01=0x008c}
0x2656…266a Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0018, t01=0x00da}
0x266a…2690 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+2,A11 INTERTASK?«, t00=0x0018, t01=0x00ee}
0x2690…26aa Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0018, t01=0x0114}
0x26aa…26c2 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0018, t01=0x012e}
0x26c2…26e6 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICPINP MAKE HARDCOPY«, t00=0x0018, t01=0x0146}
0x26e6…26f8 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0018, t01=0x016a}
0x26f8…270c Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0018, t01=0x017c}
0x270c…2732 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC LINE 1?«, t00=0x0018, t01=0x0190}
0x2732…2748 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0019, t01=0x0026}
0x2748…2762 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x0019, t01=0x003c}
0x2762…276e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0056}
0x276e…2784 Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0019, t01=0x0062}
0x2784…27a8 Head {h00=0x0020, h01=0x0050, text=» RF(NE) IOCP90 NO FORGET IT «, t00=0x0019, t01=0x0078}
0x27a8…27b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x009c}
0x27b4…27cc Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x0019, t01=0x00a8}
0x27cc…27f0 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x0019, t01=0x00c0}
0x27f0…2802 Head {h00=0x000e, h01=0x0050, text=» RF IOCP30«, t00=0x0019, t01=0x00e4}
0x2802…2818 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0019, t01=0x00f6}
0x2818…282c Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x0019, t01=0x010c}
0x282c…2852 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+6,A11 DC LINE 2?«, t00=0x0019, t01=0x0120}
0x2852…286c Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP90 NO «, t00=0x0019, t01=0x0146}
0x286c…2884 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+6,A11«, t00=0x0019, t01=0x0160}
0x2884…28a8 Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x0019, t01=0x0178}
0x28a8…28b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x000c}
0x28b4…28c8 Head {h00=0x0010, h01=0x0050, text=»IOCP30 EQU *«, t00=0x001a, t01=0x0018}
0x28c8…28ee Head {h00=0x0022, h01=0x0050, text=» CF A14,DCPINP TAKE CARE OF DC«, t00=0x001a, t01=0x002c}
0x28ee…2902 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x001a, t01=0x0052}
0x2902…2912 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0066}
0x2912…2920 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0076}
0x2920…2968 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001a, t01=0x0084}
0x2968…29b0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001a, t01=0x00cc}
0x29b0…29f8 Head {h00=0x0044, h01=0x0050, text=»* DCPINP DC PRINTER INPUT * «, t00=0x001a, t01=0x0114}
0x29f8…2a40 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001a, t01=0x015c}
0x2a40…2a88 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001b, t01=0x0014}
0x2a88…2a9c Head {h00=0x0010, h01=0x0050, text=»DCPINP EQU *«, t00=0x001b, t01=0x005c}
0x2a9c…2ac8 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT LOCAL HARD COPY«, t00=0x001b, t01=0x0070}
0x2ac8…2aee Head {h00=0x0022, h01=0x0050, text=» LDR A7,A7 ALREADY COMPLETED? «, t00=0x001b, t01=0x009c}
0x2aee…2b06 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP100 NO«, t00=0x001b, t01=0x00c2}
0x2b06…2b34 Head {h00=0x002a, h01=0x0050, text=» CF A14,ICPINP TAKE CARE OF THAT FIRST«, t00=0x001b, t01=0x00da}
0x2b34…2b48 Head {h00=0x0010, h01=0x0050, text=»DCP100 EQU *«, t00=0x001b, t01=0x0108}
0x2b48…2b60 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBDC,A11«, t00=0x001b, t01=0x011c}
0x2b60…2b76 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001b, t01=0x0134}
0x2b76…2b94 Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 1«, t00=0x001b, t01=0x014a}
0x2b94…2bae Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP150 YES «, t00=0x001b, t01=0x0168}
0x2bae…2bc8 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x001b, t01=0x0182}
0x2bc8…2bdc Head {h00=0x0010, h01=0x0050, text=»DCP150 EQU *«, t00=0x001c, t01=0x000c}
0x2bdc…2be8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0020}
0x2be8…2bfa Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001c, t01=0x002c}
0x2bfa…2c16 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x001c, t01=0x003e}
0x2c16…2c30 Head {h00=0x0016, h01=0x0050, text=» ANKL A1,/701 OK? «, t00=0x001c, t01=0x005a}
0x2c30…2c52 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DCP500 NO STOP IT «, t00=0x001c, t01=0x0074}
0x2c52…2c5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0096}
0x2c5e…2c80 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x001c, t01=0x00a2}
0x2c80…2c92 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x001c, t01=0x00c4}
0x2c92…2cba Head {h00=0x0024, h01=0x0050, text=» CF A14,READW READ FIRST BUFFER «, t00=0x001c, t01=0x00d6}
0x2cba…2cd2 Head {h00=0x0014, h01=0x0050, text=» ANK A1,3 ERROR?«, t00=0x001c, t01=0x00fe}
0x2cd2…2cec Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DCP400 NO «, t00=0x001c, t01=0x0116}
0x2cec…2d00 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x001c, t01=0x0130}
0x2d00…2d26 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x001c, t01=0x0144}
0x2d26…2d38 Head {h00=0x000e, h01=0x0050, text=» RF DCP500«, t00=0x001c, t01=0x016a}
0x2d38…2d4c Head {h00=0x0010, h01=0x0050, text=»DCP400 EQU *«, t00=0x001c, t01=0x017c}
0x2d4c…2d7e Head {h00=0x002e, h01=0x0050, text=» SUR A10,A10 RESET INTERNAL UNPACK STATUS «, t00=0x001c, t01=0x0190}
0x2d7e…2d96 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =1 «, t00=0x001d, t01=0x0032}
0x2d96…2dac Head {h00=0x0012, h01=0x0050, text=» ANK A1,2 . =1«, t00=0x001d, t01=0x004a}
0x2dac…2dc6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP450 . =1«, t00=0x001d, t01=0x0060}
0x2dc6…2de4 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,LICREC . =1 «, t00=0x001d, t01=0x007a}
0x2de4…2dfe Head {h00=0x0016, h01=0x0050, text=»DCP450 EQU * . =1 «, t00=0x001d, t01=0x0098}
0x2dfe…2e10 Head {h00=0x000e, h01=0x0050, text=» XIF . =1«, t00=0x001d, t01=0x00b2}
0x2e10…2e28 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x001d, t01=0x00c4}
0x2e28…2e4e Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x001d, t01=0x00dc}
0x2e4e…2e7c Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x001d, t01=0x0102}
0x2e7c…2e8e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001d, t01=0x0130}
0x2e8e…2eb8 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET ANOTHER BUFFER «, t00=0x001d, t01=0x0142}
0x2eb8…2eca Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x001d, t01=0x016c}
0x2eca…2ef2 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x001d, t01=0x017e}
0x2ef2…2efe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0016}
0x2efe…2f2a Head {h00=0x0028, h01=0x0050, text=» CF A14,UNPACK UPDATE SCREEN BUFFER «, t00=0x001e, t01=0x0022}
0x2f2a…2f40 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x001e, t01=0x004e}
0x2f40…2f62 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/8 ANY COPY NEEDED«, t00=0x001e, t01=0x0064}
0x2f62…2f7a Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP500 NO«, t00=0x001e, t01=0x0086}
0x2f7a…2f98 Head {h00=0x001a, h01=0x0050, text=» CF A14,COPP PRINT IT «, t00=0x001e, t01=0x009e}
0x2f98…2fac Head {h00=0x0010, h01=0x0050, text=»DCP500 EQU *«, t00=0x001e, t01=0x00bc}
0x2fac…2fbe Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x001e, t01=0x00d0}
0x2fbe…2fd0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001e, t01=0x00e2}
0x2fd0…2ff6 Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x001e, t01=0x00f4}
0x2ff6…3002 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x011a}
0x3002…3012 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x0126}
0x3012…3020 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0136}
0x3020…3068 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001e, t01=0x0144}
0x3068…30b0 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001e, t01=0x018c}
0x30b0…30f8 Head {h00=0x0044, h01=0x0050, text=»* ICPINP INTERTASK INPUT *«, t00=0x001f, t01=0x0044}
0x30f8…3140 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001f, t01=0x008c}
0x3140…3188 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001f, t01=0x00d4}
0x3188…319c Head {h00=0x0010, h01=0x0050, text=»ICPINP EQU *«, t00=0x001f, t01=0x011c}
0x319c…31be Head {h00=0x001e, h01=0x0050, text=» CF A14,COPP MAKE HARDCOPP«, t00=0x001f, t01=0x0130}
0x31be…31ee Head {h00=0x002c, h01=0x0050, text=» ST A1,REGI,A11 RETURN CODE TO TERMINAL «, t00=0x001f, t01=0x0152}
0x31ee…3214 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPWRT WRITE INTERTASK«, t00=0x001f, t01=0x0182}
0x3214…3224 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0018}
0x3224…3232 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0028}
0x3232…327c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0020, t01=0x0036}
0x327c…32c6 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0080}
0x32c6…3310 Head {h00=0x0046, h01=0x0050, text=»* ICPRED INTERTASK READ *«, t00=0x0020, t01=0x00ca}
0x3310…335a Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0114}
0x335a…33a4 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0020, t01=0x015e}
0x33a4…33b8 Head {h00=0x0010, h01=0x0050, text=»ICPRED EQU *«, t00=0x0021, t01=0x0018}
0x33b8…33d2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0021, t01=0x002c}
0x33d2…33f6 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0021, t01=0x0046}
0x33f6…341a Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 NOT ADDRESSED READ«, t00=0x0021, t01=0x006a}
0x341a…3430 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0021, t01=0x008e}
0x3430…3444 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0021, t01=0x00a4}
0x3444…345e Head {h00=0x0016, h01=0x0050, text=» LDKL A2,LBVDU+/20«, t00=0x0021, t01=0x00b8}
0x345e…3484 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0021, t01=0x00d2}
0x3484…3494 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x00f8}
0x3494…34a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0108}
0x34a2…34ee Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0021, t01=0x0116}
0x34ee…353a Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0162}
0x353a…3586 Head {h00=0x0048, h01=0x0050, text=»* ICPWRT WRITE INTERTASK *«, t00=0x0022, t01=0x001e}
0x3586…35d2 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0022, t01=0x006a}
0x35d2…361e Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0022, t01=0x00b6}
0x361e…3632 Head {h00=0x0010, h01=0x0050, text=»ICPWRT EQU *«, t00=0x0022, t01=0x0102}
0x3632…364c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0022, t01=0x0116}
0x364c…3670 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0022, t01=0x0130}
0x3670…368a Head {h00=0x0016, h01=0x0050, text=» LD A1,ECBICR,A11 «, t00=0x0022, t01=0x0154}
0x368a…36ac Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A1 GET TASKID«, t00=0x0022, t01=0x016e}
0x36ac…36cc Head {h00=0x001c, h01=0x0050, text=» RF(Z) ICPW90 NOT THERE «, t00=0x0022, t01=0x0190}
0x36cc…36ee Head {h00=0x001e, h01=0x0050, text=» LDKL A3,REGI RETURN CODE «, t00=0x0023, t01=0x0020}
0x36ee…3702 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0023, t01=0x0042}
0x3702…371a Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0023, t01=0x0056}
0x371a…3740 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x0023, t01=0x006e}
0x3740…3754 Head {h00=0x0010, h01=0x0050, text=»ICPW90 EQU *«, t00=0x0023, t01=0x0094}
0x3754…3764 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x00a8}
0x3764…3772 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00b8}
0x3772…37b8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0023, t01=0x00c6}
0x37b8…37fe Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0023, t01=0x010c}
0x37fe…3844 Head {h00=0x0042, h01=0x0050, text=»* ICABOR INTERTASK ABORT * «, t00=0x0023, t01=0x0152}
0x3844…388a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0008}
0x388a…38d0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x004e}
0x38d0…38e4 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0024, t01=0x0094}
0x38e4…38f6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0024, t01=0x00a8}
0x38f6…3910 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+IC,A11 «, t00=0x0024, t01=0x00ba}
0x3910…392a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0024, t01=0x00d4}
0x392a…3936 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0024, t01=0x00ee}
0x3936…3946 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0024, t01=0x00fa}
0x3946…3956 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x010a}
0x3956…3964 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x011a}
0x3964…39b2 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0024, t01=0x0128}
0x39b2…3a00 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0176}
0x3a00…3a4e Head {h00=0x004a, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER * «, t00=0x0025, t01=0x0034}
0x3a4e…3a9c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0082}
0x3a9c…3aea Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x00d0}
0x3aea…3b0e Head {h00=0x0020, h01=0x0050, text=»* REGISTERS «, t00=0x0025, t01=0x011e}
0x3b0e…3b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0142}
0x3b18…3b2e Head {h00=0x0012, h01=0x0050, text=»* A2= CHAR. «, t00=0x0025, t01=0x014c}
0x3b2e…3b54 Head {h00=0x0022, h01=0x0050, text=»* A3= SCREEN BUFFER POINTER «, t00=0x0025, t01=0x0162}
0x3b54…3b7e Head {h00=0x0026, h01=0x0050, text=»* A4= REL. SCREEN BUFFER ADDRESS«, t00=0x0025, t01=0x0188}
0x3b7e…3b9a Head {h00=0x0018, h01=0x0050, text=»* A5= LINE LENGTH «, t00=0x0026, t01=0x0022}
0x3b9a…3bbc Head {h00=0x001e, h01=0x0050, text=»* A6= CURRENT ATTRIBUTE «, t00=0x0026, t01=0x003e}
0x3bbc…3bde Head {h00=0x001e, h01=0x0050, text=»* A8= ECB BUFFER POINTER«, t00=0x0026, t01=0x0060}
0x3bde…3bfe Head {h00=0x001c, h01=0x0050, text=»* A9= ECB BUFFER INDEX«, t00=0x0026, t01=0x0082}
0x3bfe…3c1e Head {h00=0x001c, h01=0x0050, text=»* A10= INTERNAL STATUS«, t00=0x0026, t01=0x00a2}
0x3c1e…3c3e Head {h00=0x001c, h01=0x0050, text=»* A11= TASK BLOCK BASE«, t00=0x0026, t01=0x00c2}
0x3c3e…3c58 Head {h00=0x0016, h01=0x0050, text=»* A13= ECB BASE «, t00=0x0026, t01=0x00e2}
0x3c58…3c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00fc}
0x3c62…3cb0 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x0106}
0x3cb0…3cc8 Head {h00=0x0014, h01=0x0050, text=»COPP EQU * . =2 «, t00=0x0026, t01=0x0154}
0x3cc8…3ce2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0026, t01=0x016c}
0x3ce2…3cf4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0026, t01=0x0186}
0x3cf4…3d16 Head {h00=0x001e, h01=0x0050, text=» LDK A6,0 RESET ATTRIBUTE «, t00=0x0027, t01=0x0008}
0x3d16…3d48 Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0027, t01=0x002a}
0x3d48…3d72 Head {h00=0x0026, h01=0x0050, text=» CM LINCNT,A11 RESET LINE COUNTER «, t00=0x0027, t01=0x005c}
0x3d72…3d88 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0027, t01=0x0086}
0x3d88…3daa Head {h00=0x001e, h01=0x0050, text=» ANK A1,/38 MASK RELEVANT «, t00=0x0027, t01=0x009c}
0x3daa…3dbc Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0027, t01=0x00be}
0x3dbc…3dda Head {h00=0x001a, h01=0x0050, text=» ANK A1,8 START PRINT?«, t00=0x0027, t01=0x00d0}
0x3dda…3dfc Head {h00=0x001e, h01=0x0050, text=» RF(Z) COP900 NO FORGET IT«, t00=0x0027, t01=0x00ee}
0x3dfc…3e0e Head {h00=0x000e, h01=0x0050, text=» SRL A5,4 «, t00=0x0027, t01=0x0110}
0x3e0e…3e36 Head {h00=0x0024, h01=0x0050, text=» LC A5,LINLEN,A5 GET LINE LENGTH«, t00=0x0027, t01=0x0122}
0x3e36…3e62 Head {h00=0x0028, h01=0x0050, text=» LDR A5,A5 NL,EM AND CR DET. LENGTH?«, t00=0x0027, t01=0x014a}
0x3e62…3e7c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP100 NO «, t00=0x0027, t01=0x0176}
0x3e7c…3eaa Head {h00=0x002a, h01=0x0050, text=» LD A1,PRTTYP,A11 GET MAX LINE LENGTH «, t00=0x0027, t01=0x0190}
0x3eaa…3ec4 Head {h00=0x0016, h01=0x0050, text=» LC A5,PRTLEN+1,A1«, t00=0x0028, t01=0x002e}
0x3ec4…3ed8 Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0028, t01=0x0048}
0x3ed8…3eee Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0028, t01=0x005c}
0x3eee…3f02 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0028, t01=0x0072}
0x3f02…3f1a Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBBA,A8 «, t00=0x0028, t01=0x0086}
0x3f1a…3f3e Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0028, t01=0x009e}
0x3f3e…3f50 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0028, t01=0x00c2}
0x3f50…3f62 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0028, t01=0x00d4}
0x3f62…3f74 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0028, t01=0x00e6}
0x3f74…3f86 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0028, t01=0x00f8}
0x3f86…3fa8 Head {h00=0x001e, h01=0x0050, text=» SUR A10,A10 RESET STATUS «, t00=0x0028, t01=0x010a}
0x3fa8…3fbc Head {h00=0x0010, h01=0x0050, text=»COP200 EQU *«, t00=0x0028, t01=0x012c}
0x3fbc…3fde Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU ALL PRINTED?«, t00=0x0028, t01=0x0140}
0x3fde…3ff8 Head {h00=0x0016, h01=0x0050, text=» RF(NL) COP850 YES«, t00=0x0028, t01=0x0162}
0x3ff8…4016 Head {h00=0x001a, h01=0x0050, text=» CWR A9,A5 LINE FULL? «, t00=0x0028, t01=0x017c}
0x4016…402e Head {h00=0x0014, h01=0x0050, text=» RF(L) COP400 NO«, t00=0x0029, t01=0x000a}
0x402e…4050 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x0029, t01=0x0022}
0x4050…4072 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0029, t01=0x0044}
0x4072…408c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x0029, t01=0x0066}
0x408c…40a0 Head {h00=0x0010, h01=0x0050, text=»COP400 EQU *«, t00=0x0029, t01=0x0080}
0x40a0…40bc Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0029, t01=0x0094}
0x40bc…40d0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0029, t01=0x00b0}
0x40d0…40f0 Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP650 NULL CHAR.«, t00=0x0029, t01=0x00c4}
0x40f0…4110 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0029, t01=0x00e4}
0x4110…4128 Head {h00=0x0014, h01=0x0050, text=» RF(L) COP500 NO«, t00=0x0029, t01=0x0104}
0x4128…414c Head {h00=0x0020, h01=0x0050, text=» LDR A6,A2 GET NEW ATTRIBUTE«, t00=0x0029, t01=0x011c}
0x414c…415e Head {h00=0x000e, h01=0x0050, text=» RF COP650«, t00=0x0029, t01=0x0140}
0x415e…4172 Head {h00=0x0010, h01=0x0050, text=»COP500 EQU *«, t00=0x0029, t01=0x0152}
0x4172…418e Head {h00=0x0018, h01=0x0050, text=» CCK A2,/2020 ORDER?«, t00=0x0029, t01=0x0166}
0x418e…41a8 Head {h00=0x0016, h01=0x0050, text=» RF(L) COP550 YES «, t00=0x0029, t01=0x0182}
0x41a8…41c6 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,CRREC RESET «, t00=0x002a, t01=0x000c}
0x41c6…41d8 Head {h00=0x000e, h01=0x0050, text=» RF COP600«, t00=0x002a, t01=0x002a}
0x41d8…41ec Head {h00=0x0010, h01=0x0050, text=»COP550 EQU *«, t00=0x002a, t01=0x003c}
0x41ec…4212 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETTAB GET ORDERINDEX «, t00=0x002a, t01=0x0050}
0x4212…4238 Head {h00=0x0022, h01=0x0050, text=» CFR A14,A1 TAKE CARE OF ORDER«, t00=0x002a, t01=0x0076}
0x4238…425a Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x002a, t01=0x009c}
0x425a…4274 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x002a, t01=0x00be}
0x4274…4292 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A10 GET STATUS«, t00=0x002a, t01=0x00d8}
0x4292…42b6 Head {h00=0x0020, h01=0x0050, text=» RF(N) COP800 GET NEXT CHAR.«, t00=0x002a, t01=0x00f6}
0x42b6…42c8 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x002a, t01=0x011a}
0x42c8…42e2 Head {h00=0x0016, h01=0x0050, text=» RF(N) COP850 END «, t00=0x002a, t01=0x012c}
0x42e2…42f6 Head {h00=0x0010, h01=0x0050, text=»COP600 EQU *«, t00=0x002a, t01=0x0146}
0x42f6…431a Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 CHECK IF NONPRINT«, t00=0x002a, t01=0x015a}
0x431a…432c Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x002a, t01=0x017e}
0x432c…433e Head {h00=0x000e, h01=0x0050, text=» XRK A1,/C«, t00=0x002a, t01=0x0190}
0x433e…435c Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP650 NONPRINT«, t00=0x002b, t01=0x0012}
0x435c…438c Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INIDICATE NOT ONLY NOT «, t00=0x002b, t01=0x0030}
0x438c…439e Head {h00=0x000e, h01=0x0050, text=» RF COP700«, t00=0x002b, t01=0x0060}
0x439e…43b2 Head {h00=0x0010, h01=0x0050, text=»COP650 EQU *«, t00=0x002b, t01=0x0072}
0x43b2…43d8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x002b, t01=0x0086}
0x43d8…43ec Head {h00=0x0010, h01=0x0050, text=»COP700 EQU *«, t00=0x002b, t01=0x00ac}
0x43ec…43fe Head {h00=0x000e, h01=0x0050, text=» SCR A2,A8«, t00=0x002b, t01=0x00c0}
0x43fe…4410 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x002b, t01=0x00d2}
0x4410…4422 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x002b, t01=0x00e4}
0x4422…4436 Head {h00=0x0010, h01=0x0050, text=»COP800 EQU *«, t00=0x002b, t01=0x00f6}
0x4436…4454 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NXTCHA RESET«, t00=0x002b, t01=0x010a}
0x4454…4466 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002b, t01=0x0128}
0x4466…4478 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002b, t01=0x013a}
0x4478…448a Head {h00=0x000e, h01=0x0050, text=» RB COP200«, t00=0x002b, t01=0x014c}
0x448a…449e Head {h00=0x0010, h01=0x0050, text=»COP850 EQU *«, t00=0x002b, t01=0x015e}
0x449e…44ca Head {h00=0x0028, h01=0x0050, text=» LDR A9,A9 SOMETHING LEFT TO PRINT? «, t00=0x002b, t01=0x0172}
0x44ca…44e2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP900 NO«, t00=0x002c, t01=0x000e}
0x44e2…4508 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x002c, t01=0x0026}
0x4508…452c Head {h00=0x0020, h01=0x0050, text=» ANKL A10,ENDPRT END MESS.? «, t00=0x002c, t01=0x004c}
0x452c…454c Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP900 NO STOP IT«, t00=0x002c, t01=0x0070}
0x454c…4578 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE «, t00=0x002c, t01=0x0090}
0x4578…459e Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE EXTRA LINE FEED«, t00=0x002c, t01=0x00bc}
0x459e…45b2 Head {h00=0x0010, h01=0x0050, text=»COP900 EQU *«, t00=0x002c, t01=0x00e2}
0x45b2…45d4 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER FAILED?«, t00=0x002c, t01=0x00f6}
0x45d4…45ec Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP950 NO«, t00=0x002c, t01=0x0118}
0x45ec…4612 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,PRTERR INDICATE ERROR«, t00=0x002c, t01=0x0130}
0x4612…462c Head {h00=0x0016, h01=0x0050, text=» ORS A2,PRTMOD,A11«, t00=0x002c, t01=0x0156}
0x462c…4640 Head {h00=0x0010, h01=0x0050, text=»COP950 EQU *«, t00=0x002c, t01=0x0170}
0x4640…4650 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x0184}
0x4650…465e (45, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0004}
0x465e…46ae Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002d, t01=0x0012}
0x46ae…46b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0062}
0x46b8…46da Head {h00=0x001e, h01=0x0050, text=»* TABLE FOR PRINTERORDERS «, t00=0x002d, t01=0x006c}
0x46da…46e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x008e}
0x46e4…4734 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002d, t01=0x0098}
0x4734…4748 Head {h00=0x0010, h01=0x0050, text=»PRTORD EQU *«, t00=0x002d, t01=0x00e8}
0x4748…4772 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF ORDER CODES «, t00=0x002d, t01=0x00fc}
0x4772…479a Head {h00=0x0024, h01=0x0050, text=» DATA /0A0A,NL,NL,NL,NL NEW LINE«, t00=0x002d, t01=0x0126}
0x479a…47d0 Head {h00=0x0032, h01=0x0050, text=» DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED «, t00=0x002d, t01=0x014e}
0x47d0…47fc Head {h00=0x0028, h01=0x0050, text=» DATA /0D0D,CR,CR,CR,CR CARR. RETURN«, t00=0x002d, t01=0x0184}
0x47fc…4828 Head {h00=0x0028, h01=0x0050, text=» DATA /1919,EM,EM,EM,EM END MESSAGE «, t00=0x002e, t01=0x0020}
0x4828…484e Head {h00=0x0022, h01=0x0050, text=» DATA INVAL INVALID ORDER CODE«, t00=0x002e, t01=0x004c}
0x484e…485c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0072}
0x485c…48b0 Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x002e, t01=0x0080}
0x48b0…4904 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x002e, t01=0x00d4}
0x4904…4958 Head {h00=0x0050, h01=0x0050, text=»* NL NEW LINE *«, t00=0x002e, t01=0x0128}
0x4958…49ac Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x002e, t01=0x017c}
0x49ac…4a00 Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x002f, t01=0x0040}
0x4a00…4a10 Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x002f, t01=0x0094}
0x4a10…4a40 Head {h00=0x002c, h01=0x0050, text=» CF A14,PRLINE PRINT LINE AFTER NEW LINE«, t00=0x002f, t01=0x00a4}
0x4a40…4a6e Head {h00=0x002a, h01=0x0050, text=» ORKL A10,NXTCHA+NTONLY GET NEXT CHAR.«, t00=0x002f, t01=0x00d4}
0x4a6e…4a7e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x0102}
0x4a7e…4a8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0112}
0x4a8c…4ada Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x002f, t01=0x0120}
0x4ada…4b28 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x002f, t01=0x016e}
0x4b28…4b76 Head {h00=0x004a, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED *«, t00=0x0030, t01=0x002c}
0x4b76…4bc4 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0030, t01=0x007a}
0x4bc4…4c12 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0030, t01=0x00c8}
0x4c12…4c26 Head {h00=0x0010, h01=0x0050, text=»FFDUM EQU * «, t00=0x0030, t01=0x0116}
0x4c26…4c58 Head {h00=0x002e, h01=0x0050, text=» CF A14,FFCHK CHECK IF FORM FEED IS VALID «, t00=0x0030, t01=0x012a}
0x4c58…4c72 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0030, t01=0x015c}
0x4c72…4c8c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD400 NO «, t00=0x0030, t01=0x0176}
0x4c8c…4ca4 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 RESET «, t00=0x0030, t01=0x0190}
0x4ca4…4cce Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTTYP,A11 TYPE OF PRINTER «, t00=0x0031, t01=0x0018}
0x4cce…4cf0 Head {h00=0x001e, h01=0x0050, text=» LC A7,PRTLEN,A1 PAGE SIZE«, t00=0x0031, t01=0x0042}
0x4cf0…4d04 Head {h00=0x0010, h01=0x0050, text=»FFD100 EQU *«, t00=0x0031, t01=0x0064}
0x4d04…4d28 Head {h00=0x0020, h01=0x0050, text=» CW A7,LINCNT,A11 NEW PAGE? «, t00=0x0031, t01=0x0078}
0x4d28…4d4e Head {h00=0x0022, h01=0x0050, text=» RF(L) FFD200 YES BUT TO MANY «, t00=0x0031, t01=0x009c}
0x4d4e…4d70 Head {h00=0x001e, h01=0x0050, text=» RF(E) FFD300 YES FINISHED«, t00=0x0031, t01=0x00c2}
0x4d70…4d88 Head {h00=0x0014, h01=0x0050, text=» ORKL A10,NTONLY«, t00=0x0031, t01=0x00e4}
0x4d88…4da4 Head {h00=0x0018, h01=0x0050, text=» ST A7,REGI,A11 SAVE«, t00=0x0031, t01=0x00fc}
0x4da4…4dcc Head {h00=0x0024, h01=0x0050, text=» CF A14,PRLINE ADVANCE ONE LINE «, t00=0x0031, t01=0x0118}
0x4dcc…4dec Head {h00=0x001c, h01=0x0050, text=» LD A7,REGI,A11 RESTORE «, t00=0x0031, t01=0x0140}
0x4dec…4e0e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0031, t01=0x0160}
0x4e0e…4e28 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD500 YES«, t00=0x0031, t01=0x0182}
0x4e28…4e3a Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0032, t01=0x000c}
0x4e3a…4e4e Head {h00=0x0010, h01=0x0050, text=»FFD200 EQU *«, t00=0x0032, t01=0x001e}
0x4e4e…4e60 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A7«, t00=0x0032, t01=0x0032}
0x4e60…4e8e Head {h00=0x002a, h01=0x0050, text=» ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE «, t00=0x0032, t01=0x0044}
0x4e8e…4ea0 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0032, t01=0x0072}
0x4ea0…4eb4 Head {h00=0x0010, h01=0x0050, text=»FFD300 EQU *«, t00=0x0032, t01=0x0084}
0x4eb4…4ed6 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0032, t01=0x0098}
0x4ed6…4f00 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x0032, t01=0x00ba}
0x4f00…4f14 Head {h00=0x0010, h01=0x0050, text=»FFD400 EQU *«, t00=0x0032, t01=0x00e4}
0x4f14…4f32 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0032, t01=0x00f8}
0x4f32…4f46 Head {h00=0x0010, h01=0x0050, text=»FFD500 EQU *«, t00=0x0032, t01=0x0116}
0x4f46…4f56 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0032, t01=0x012a}
0x4f56…4f64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x013a}
0x4f64…4fb2 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0032, t01=0x0148}
0x4fb2…5000 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0033, t01=0x0008}
0x5000…504e Head {h00=0x004a, h01=0x0050, text=»* FFVAL FORM FEED *«, t00=0x0033, t01=0x0056}
0x504e…509c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0033, t01=0x00a4}
0x509c…50ea Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0033, t01=0x00f2}
0x50ea…50fe Head {h00=0x0010, h01=0x0050, text=»FFVAL EQU * «, t00=0x0033, t01=0x0140}
0x50fe…5126 Head {h00=0x0024, h01=0x0050, text=» CF A14,FFCHK CHECK IF FF VALID «, t00=0x0033, t01=0x0154}
0x5126…5140 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0033, t01=0x017c}
0x5140…515a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFV200 NO «, t00=0x0034, t01=0x0008}
0x515a…516e Head {h00=0x0010, h01=0x0050, text=» LDK A1,/0C «, t00=0x0034, t01=0x0022}
0x516e…519a Head {h00=0x0028, h01=0x0050, text=» SC A1,-1,A8 STORE FF CONTROL CHAR. «, t00=0x0034, t01=0x0036}
0x519a…51c4 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x0034, t01=0x0062}
0x51c4…51e6 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0034, t01=0x008c}
0x51e6…51fa Head {h00=0x0010, h01=0x0050, text=»FFV200 EQU *«, t00=0x0034, t01=0x00ae}
0x51fa…5218 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0034, t01=0x00c2}
0x5218…5228 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x00e0}
0x5228…5236 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x00f0}
0x5236…5284 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0034, t01=0x00fe}
0x5284…52d2 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0034, t01=0x014c}
0x52d2…5320 Head {h00=0x004a, h01=0x0050, text=»* CR CARRIAGE RETURN *«, t00=0x0035, t01=0x000a}
0x5320…536e Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0035, t01=0x0058}
0x536e…53bc Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0035, t01=0x00a6}
0x53bc…53cc Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x0035, t01=0x00f4}
0x53cc…53ec Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 GET ATTRIBUTE«, t00=0x0035, t01=0x0104}
0x53ec…53fe Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0035, t01=0x0124}
0x53fe…5420 Head {h00=0x001e, h01=0x0050, text=» XRK A1,/C NONPRINT FIELD?«, t00=0x0035, t01=0x0136}
0x5420…5438 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CR100 YES«, t00=0x0035, t01=0x0158}
0x5438…544e Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0035, t01=0x0170}
0x544e…546c Head {h00=0x001a, h01=0x0050, text=» ANK A1,/30 FORMATTED?«, t00=0x0035, t01=0x0186}
0x546c…5484 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) CR100 NO«, t00=0x0036, t01=0x0014}
0x5484…54ae Head {h00=0x0026, h01=0x0050, text=» ORKL A10,NTONLY+CRREC CR RECEIVED«, t00=0x0036, t01=0x002c}
0x54ae…54c2 Head {h00=0x0010, h01=0x0050, text=»CR100 EQU * «, t00=0x0036, t01=0x0056}
0x54c2…54e8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0036, t01=0x006a}
0x54e8…5506 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0036, t01=0x0090}
0x5506…5516 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x00ae}
0x5516…5524 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00be}
0x5524…5572 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0036, t01=0x00cc}
0x5572…55be Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0036, t01=0x011a}
0x55be…560a Head {h00=0x0048, h01=0x0050, text=»* EM END MESSAGE *«, t00=0x0036, t01=0x0166}
0x560a…5656 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0022}
0x5656…56a2 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0037, t01=0x006e}
0x56a2…56b2 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x0037, t01=0x00ba}
0x56b2…56d8 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,ENDPRT END PRINTING «, t00=0x0037, t01=0x00ca}
0x56d8…56f6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0037, t01=0x00f0}
0x56f6…5706 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x010e}
0x5706…5714 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x011e}
0x5714…575e Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0037, t01=0x012c}
0x575e…57a8 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0176}
0x57a8…57f2 Head {h00=0x0046, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER *«, t00=0x0038, t01=0x0030}
0x57f2…583c Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0038, t01=0x007a}
0x583c…5886 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0038, t01=0x00c4}
0x5886…589a Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x0038, t01=0x010e}
0x589a…58c0 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0038, t01=0x0122}
0x58c0…58e2 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0038, t01=0x0148}
0x58e2…5900 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0038, t01=0x016a}
0x5900…5910 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0038, t01=0x0188}
0x5910…591e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0008}
0x591e…5968 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0039, t01=0x0016}
0x5968…59b2 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0039, t01=0x0060}
0x59b2…59fc Head {h00=0x0046, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID * «, t00=0x0039, t01=0x00aa}
0x59fc…5a46 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0039, t01=0x00f4}
0x5a46…5a90 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0039, t01=0x013e}
0x5a90…5aa4 Head {h00=0x0010, h01=0x0050, text=»FFCHK EQU * «, t00=0x0039, t01=0x0188}
0x5aa4…5aba Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003a, t01=0x000c}
0x5aba…5ace Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x003a, t01=0x0022}
0x5ace…5aec Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 FORMATTED?«, t00=0x003a, t01=0x0036}
0x5aec…5b20 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY«, t00=0x003a, t01=0x0054}
0x5b20…5b36 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003a, t01=0x0088}
0x5b36…5b5a Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 LOCAL HARD COPY?«, t00=0x003a, t01=0x009e}
0x5b5a…5b84 Head {h00=0x0026, h01=0x0050, text=» RF(Z) FFCH20 YES, FF NOT ALLOWED «, t00=0x003a, t01=0x00c2}
0x5b84…5b98 Head {h00=0x0010, h01=0x0050, text=»FFCH10 EQU *«, t00=0x003a, t01=0x00ec}
0x5b98…5bb6 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 FF ALLOWED «, t00=0x003a, t01=0x0100}
0x5bb6…5bd0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH30 NOT «, t00=0x003a, t01=0x011e}
0x5bd0…5be4 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003a, t01=0x0138}
0x5be4…5c08 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,CRREC CR RECEIVED? «, t00=0x003a, t01=0x014c}
0x5c08…5c22 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFCH30 YES«, t00=0x003a, t01=0x0170}
0x5c22…5c36 Head {h00=0x0010, h01=0x0050, text=»FFCH20 EQU *«, t00=0x003a, t01=0x018a}
0x5c36…5c5c Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x003b, t01=0x000e}
0x5c5c…5c7a Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x003b, t01=0x0034}
0x5c7a…5c8c Head {h00=0x000e, h01=0x0050, text=» RF FFCH40«, t00=0x003b, t01=0x0052}
0x5c8c…5ca0 Head {h00=0x0010, h01=0x0050, text=»FFCH30 EQU *«, t00=0x003b, t01=0x0064}
0x5ca0…5cbe Head {h00=0x001a, h01=0x0050, text=» XRKL A10,CRREC RESET «, t00=0x003b, t01=0x0078}
0x5cbe…5cdc Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 EMPTY LINE «, t00=0x003b, t01=0x0096}
0x5cdc…5cf6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH35 YES «, t00=0x003b, t01=0x00b4}
0x5cf6…5d18 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x003b, t01=0x00ce}
0x5d18…5d2c Head {h00=0x0010, h01=0x0050, text=»FFCH35 EQU *«, t00=0x003b, t01=0x00f0}
0x5d2c…5d4a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x0104}
0x5d4a…5d5e Head {h00=0x0010, h01=0x0050, text=»FFCH40 EQU *«, t00=0x003b, t01=0x0122}
0x5d5e…5d80 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x003b, t01=0x0136}
0x5d80…5d90 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x0158}
0x5d90…5d9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0168}
0x5d9e…5de6 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x003b, t01=0x0176}
0x5de6…5e2e Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x003c, t01=0x002e}
0x5e2e…5e76 Head {h00=0x0044, h01=0x0050, text=»* PRLINE PRINT LINE *«, t00=0x003c, t01=0x0076}
0x5e76…5ebe Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x003c, t01=0x00be}
0x5ebe…5f06 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x003c, t01=0x0106}
0x5f06…5f1a Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x003c, t01=0x014e}
0x5f1a…5f34 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x003c, t01=0x0162}
0x5f34…5f48 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003c, t01=0x017c}
0x5f48…5f6c Head {h00=0x0020, h01=0x0050, text=» ANKL A1,NTONLY ONLY RUBB.? «, t00=0x003c, t01=0x0190}
0x5f6c…5f86 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL050 NO «, t00=0x003d, t01=0x0024}
0x5f86…5f9c Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003d, t01=0x003e}
0x5f9c…5fae Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x003d, t01=0x0054}
0x5fae…5fc2 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x003d, t01=0x0066}
0x5fc2…5fe0 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 HRADCOPY? «, t00=0x003d, t01=0x007a}
0x5fe0…5ffa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x003d, t01=0x0098}
0x5ffa…601c Head {h00=0x001e, h01=0x0050, text=» ANK A2,/40 HARDCOPY????? «, t00=0x003d, t01=0x00b2}
0x601c…6036 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x003d, t01=0x00d4}
0x6036…604a Head {h00=0x0010, h01=0x0050, text=»PRL050 EQU *«, t00=0x003d, t01=0x00ee}
0x604a…6068 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NTONLY RESET«, t00=0x003d, t01=0x0102}
0x6068…607a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,2«, t00=0x003d, t01=0x0120}
0x607a…6092 Head {h00=0x0014, h01=0x0050, text=» ST A9,ECBRL,A8 «, t00=0x003d, t01=0x0132}
0x6092…60ac Head {h00=0x0016, h01=0x0050, text=» LDK A7,/06 PRINT «, t00=0x003d, t01=0x014a}
0x60ac…60b8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x0164}
0x60b8…60c8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0170}
0x60c8…60ec Head {h00=0x0020, h01=0x0050, text=» LDK A1,50 NUMBER OF DELAYS «, t00=0x003d, t01=0x0180}
0x60ec…6100 Head {h00=0x0010, h01=0x0050, text=»PRL100 EQU *«, t00=0x003e, t01=0x0014}
0x6100…6124 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,1 WAIT FOR A WHILE «, t00=0x003e, t01=0x0028}
0x6124…6130 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003e, t01=0x004c}
0x6130…6140 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x003e, t01=0x0058}
0x6140…615a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x003e, t01=0x0068}
0x615a…617c Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 PRINT COMPL.? «, t00=0x003e, t01=0x0082}
0x617c…6196 Head {h00=0x0016, h01=0x0050, text=» RF(N) PRL150 YES «, t00=0x003e, t01=0x00a4}
0x6196…61ba Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 MORE TO WAIT FOR? «, t00=0x003e, t01=0x00be}
0x61ba…61d4 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PRL100 YES«, t00=0x003e, t01=0x00e2}
0x61d4…61e0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003e, t01=0x00fc}
0x61e0…61f6 Head {h00=0x0012, h01=0x0050, text=» DATA 10 ABORT«, t00=0x003e, t01=0x0108}
0x61f6…621c Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL150 FINSHED AT LAST «, t00=0x003e, t01=0x011e}
0x621c…6246 Head {h00=0x0026, h01=0x0050, text=» LDK A1,1 NO CONSIDER IT AS #$&%$ «, t00=0x003e, t01=0x0144}
0x6246…6258 Head {h00=0x000e, h01=0x0050, text=» RF PRL300«, t00=0x003e, t01=0x016e}
0x6258…626c Head {h00=0x0010, h01=0x0050, text=»PRL150 EQU *«, t00=0x003e, t01=0x0180}
0x626c…627a (63, 0, 400) Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x003f, t01=0x0004}
0x627a…6298 Head {h00=0x001a, h01=0x0050, text=» DATA 2 RESYNCHRONIZE «, t00=0x003f, t01=0x0012}
0x6298…62bc Head {h00=0x0020, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE «, t00=0x003f, t01=0x0030}
0x62bc…62d8 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x003f, t01=0x0054}
0x62d8…62f2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL300 NO «, t00=0x003f, t01=0x0070}
0x62f2…6306 Head {h00=0x0010, h01=0x0050, text=»PRL200 EQU *«, t00=0x003f, t01=0x008a}
0x6306…6330 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x003f, t01=0x009e}
0x6330…6354 Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x003f, t01=0x00c8}
0x6354…6366 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x003f, t01=0x00ec}
0x6366…6378 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x003f, t01=0x00fe}
0x6378…6396 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003f, t01=0x0110}
0x6396…63aa Head {h00=0x0010, h01=0x0050, text=»PRL300 EQU *«, t00=0x003f, t01=0x012e}
0x63aa…63ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x0142}
0x63ba…63c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0152}
0x63c8…6414 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x003f, t01=0x0160}
0x6414…6460 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0040, t01=0x001c}
0x6460…64ac Head {h00=0x0048, h01=0x0050, text=»* INIT INIT ROUTINE * «, t00=0x0040, t01=0x0068}
0x64ac…64f8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0040, t01=0x00b4}
0x64f8…6544 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0040, t01=0x0100}
0x6544…6556 Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x0040, t01=0x014c}
0x6556…6578 Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x0040, t01=0x015e}
0x6578…659c Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x0040, t01=0x0180}
0x659c…65ae Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0041, t01=0x0014}
0x65ae…65c0 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0041, t01=0x0026}
0x65c0…65d4 Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0041, t01=0x0038}
0x65d4…65fe Head {h00=0x0026, h01=0x0050, text=» ST A2,PRTID,A11 SAVE WHOLE TASKID«, t00=0x0041, t01=0x004c}
0x65fe…6634 Head {h00=0x0032, h01=0x0050, text=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX «, t00=0x0041, t01=0x0076}
0x6634…665a Head {h00=0x0022, h01=0x0050, text=» LD A7,PRTTAB NUMBER OF TYPES «, t00=0x0041, t01=0x00ac}
0x665a…668a Head {h00=0x002c, h01=0x0050, text=» LDKL A1,PRTTAB+2 START OF PRINTER TABLE«, t00=0x0041, t01=0x00d2}
0x668a…669e Head {h00=0x0010, h01=0x0050, text=»INI100 EQU *«, t00=0x0041, t01=0x0102}
0x669e…66c6 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CONVERT TYPE TO INDEX«, t00=0x0041, t01=0x0116}
0x66c6…66dc Head {h00=0x0012, h01=0x0050, text=» RF(E) INI200 «, t00=0x0041, t01=0x013e}
0x66dc…66ee Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0041, t01=0x0154}
0x66ee…670c Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ILLEGAL ID? «, t00=0x0041, t01=0x0166}
0x670c…6726 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) INI100 NO «, t00=0x0041, t01=0x0184}
0x6726…6738 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0042, t01=0x000e}
0x6738…6750 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0042, t01=0x0020}
0x6750…675c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0042, t01=0x0038}
0x675c…6776 Head {h00=0x0016, h01=0x0050, text=» DATA 3 FORGET IT «, t00=0x0042, t01=0x0044}
0x6776…678a Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x0042, t01=0x005e}
0x678a…679e Head {h00=0x0010, h01=0x0050, text=» LD A1,+2,A1«, t00=0x0042, t01=0x0072}
0x679e…67ca Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTTYP,A11 SAVE PRINTER TYPE «, t00=0x0042, t01=0x0086}
0x67ca…67da Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0042, t01=0x00b2}
0x67da…67e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x00c2}
0x67e8…6832 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0042, t01=0x00d0}
0x6832…687c Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0042, t01=0x011a}
0x687c…68c6 Head {h00=0x0046, h01=0x0050, text=»* TSTPRT TEST HARDWARE * «, t00=0x0042, t01=0x0164}
0x68c6…6910 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0043, t01=0x001e}
0x6910…695a Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0043, t01=0x0068}
0x695a…696e Head {h00=0x0010, h01=0x0050, text=»TSTPRT EQU *«, t00=0x0043, t01=0x00b2}
0x696e…6980 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0043, t01=0x00c6}
0x6980…699a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0043, t01=0x00d8}
0x699a…69ba Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x0043, t01=0x00f2}
0x69ba…69ce Head {h00=0x0010, h01=0x0050, text=»TSTP10 EQU *«, t00=0x0043, t01=0x0112}
0x69ce…69da Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0043, t01=0x0126}
0x69da…69ea Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0043, t01=0x0132}
0x69ea…6a02 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0043, t01=0x0142}
0x6a02…6a1e Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 OPERABLE? «, t00=0x0043, t01=0x015a}
0x6a1e…6a38 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TSTP80 YES «, t00=0x0043, t01=0x0176}
0x6a38…6a74 Head {h00=0x0038, h01=0x0050, text=» LD A2,PRTID,A11 NO INDICATE NOT OP. IN DEVICE TABLE«, t00=0x0043, t01=0x0190}
0x6a74…6a88 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0044, t01=0x003c}
0x6a88…6a9c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0044, t01=0x0050}
0x6a9c…6aae Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0044, t01=0x0064}
0x6aae…6ac4 Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x0044, t01=0x0076}
0x6ac4…6ada Head {h00=0x0012, h01=0x0050, text=» LDK A1,TSKTAB«, t00=0x0044, t01=0x008c}
0x6ada…6aec Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0044, t01=0x00a2}
0x6aec…6afe Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0044, t01=0x00b4}
0x6afe…6b10 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0044, t01=0x00c6}
0x6b10…6b36 Head {h00=0x0022, h01=0x0050, text=» SC A1,+3,A3 INDICATE NOT OP. «, t00=0x0044, t01=0x00d8}
0x6b36…6b48 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x0044, t01=0x00fe}
0x6b48…6b5c Head {h00=0x0010, h01=0x0050, text=» LDKL A8,100«, t00=0x0044, t01=0x0110}
0x6b5c…6b68 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0044, t01=0x0124}
0x6b68…6b78 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0044, t01=0x0130}
0x6b78…6b8a Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x0044, t01=0x0140}
0x6b8a…6bb2 Head {h00=0x0024, h01=0x0050, text=» LDK A2,1 INDICATE ONCE NOT OP. «, t00=0x0044, t01=0x0152}
0x6bb2…6bc4 Head {h00=0x000e, h01=0x0050, text=» RB TSTP10«, t00=0x0044, t01=0x017a}
0x6bc4…6bd8 Head {h00=0x0010, h01=0x0050, text=»TSTP80 EQU *«, t00=0x0044, t01=0x018c}
0x6bd8…6bf8 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A2 NOT OP. ONCE?«, t00=0x0045, t01=0x0010}
0x6bf8…6c10 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTP90 NO«, t00=0x0045, t01=0x0030}
0x6c10…6c32 Head {h00=0x001e, h01=0x0050, text=» SC A1,+3,A3 RESET STATUS «, t00=0x0045, t01=0x0048}
0x6c32…6c46 Head {h00=0x0010, h01=0x0050, text=»TSTP90 EQU *«, t00=0x0045, t01=0x006a}
0x6c46…6c56 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0045, t01=0x007e}
0x6c56…6c64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x008e}
0x6c64…6cb0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0045, t01=0x009c}
0x6cb0…6cfc Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0045, t01=0x00e8}
0x6cfc…6d48 Head {h00=0x0048, h01=0x0050, text=»* GETTAB GET ORDER INDEX * «, t00=0x0045, t01=0x0134}
0x6d48…6d94 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0045, t01=0x0180}
0x6d94…6de0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0046, t01=0x003c}
0x6de0…6df4 Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x0046, t01=0x0088}
0x6df4…6e26 Head {h00=0x002e, h01=0x0050, text=» LD A7,PRTORD NUMBER OF VALID ORDER CODES «, t00=0x0046, t01=0x009c}
0x6e26…6e50 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PRTORD+2 ORDERTABLE BASE «, t00=0x0046, t01=0x00ce}
0x6e50…6e64 Head {h00=0x0010, h01=0x0050, text=»GETT10 EQU *«, t00=0x0046, t01=0x00f8}
0x6e64…6e94 Head {h00=0x002c, h01=0x0050, text=» CCR A2,A1 CONVERT ORDER CODE TO ADDRESS«, t00=0x0046, t01=0x010c}
0x6e94…6eaa Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x0046, t01=0x013c}
0x6eaa…6ec0 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0046, t01=0x0152}
0x6ec0…6ed6 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0046, t01=0x0168}
0x6ed6…6ee8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0046, t01=0x017e}
0x6ee8…6f06 Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ORDER FOUND?«, t00=0x0046, t01=0x0190}
0x6f06…6f26 Head {h00=0x001c, h01=0x0050, text=» RF(Z) GETT30 NO INVALID«, t00=0x0047, t01=0x001e}
0x6f26…6f42 Head {h00=0x0018, h01=0x0050, text=» RB GETT10 TRY AGAIN«, t00=0x0047, t01=0x003e}
0x6f42…6f56 Head {h00=0x0010, h01=0x0050, text=»GETT20 EQU *«, t00=0x0047, t01=0x005a}
0x6f56…6f68 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0047, t01=0x006e}
0x6f68…6f82 Head {h00=0x0016, h01=0x0050, text=» LD A2,PRTTYP,A11 «, t00=0x0047, t01=0x0080}
0x6f82…6f94 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0047, t01=0x009a}
0x6f94…6fa8 Head {h00=0x0010, h01=0x0050, text=»GETT30 EQU *«, t00=0x0047, t01=0x00ac}
0x6fa8…6fbc Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x0047, t01=0x00c0}
0x6fbc…6fcc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0047, t01=0x00d4}
0x6fcc…6fd4 Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x00e4}
0x6fd4…6fe0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0047, t01=0x00ec}
0x6fe0…6fe4 Head {h00=0x4004, h01=0x0000}
0x6fe4…6fe8 00 47 00 f8 ┆ G ┆
0x6fe8…6ff0 (72, 1, 8) 20 04 00 00 00 48 00 04 ┆ H ┆
0x6ff0…7040 (73, 0, 400) 00 90 01 86 00 0e 00 50 5c 52 42 5c 49 44 45 4e 35 30 00 91 00 08 00 10 00 50 49 44 45 4e 38 30 5c 45 51 55 5c 2a 00 91 00 1a 00 22 00 50 5c 4c 43 52 5c 41 31 2c 41 33 5c 47 45 54 20 50 52 49 4e 54 45 52 20 54 4f 20 53 41 56 45 00 91 00 2e ┆ P RB IDEN50 PIDEN80 EQU * " P LCR A1,A3 GET PRINTER TO SAVE .┆
0x7040…7090 00 0e 00 50 5c 53 4c 4c 5c 41 31 2c 38 20 00 91 00 54 00 10 00 50 5c 4c 43 5c 41 31 2c 2b 31 2c 41 33 00 91 00 66 00 28 00 50 5c 53 54 5c 41 31 2c 50 52 54 49 44 2c 41 31 31 5c 4e 45 57 20 48 41 52 44 43 4f 50 59 20 54 41 53 4b 49 44 00 91 ┆ P SLL A1,8 T P LC A1,+1,A3 f ( P ST A1,PRTID,A11 NEW HARDCOPY TASKID ┆
0x7090…70e0 00 7a 00 10 00 50 49 44 45 4e 39 30 5c 45 51 55 5c 2a 00 91 00 a6 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 91 00 ba 00 0a 00 50 5c 45 4a 45 43 54 00 91 00 ca 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ z PIDEN90 EQU * P RTN A14 P EJECT B P************************┆
0x70e0…7130 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 91 00 d8 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆************************************* B P* ┆
0x7130…7180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 91 01 1e 00 42 00 50 2a 20 20 20 20 20 20 20 20 4b 45 59 4c 20 20 20 20 20 20 20 4b 45 59 4c 4f 43 4b 20 53 54 41 54 55 53 20 20 20 20 20 20 20 20 20 20 ┆ * B P* KEYL KEYLOCK STATUS ┆
0x7180…71d0 (74, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 91 01 64 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * d B P* ┆
0x71d0…7220 20 20 20 20 20 20 2a 20 00 92 00 1a 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 92 ┆ * B P************************************************************* ┆
0x7220…7270 00 60 00 10 00 50 2a 5c 5c 52 45 47 49 53 54 45 52 53 00 92 00 a6 00 06 00 50 2a 20 00 92 00 ba 00 18 00 50 2a 5c 41 32 3d 20 4b 45 59 4c 4f 43 4b 20 56 41 4c 55 45 20 00 92 00 c4 00 1c 00 50 2a 5c 41 31 31 3d 20 43 52 45 44 49 54 20 57 4f ┆ ` P* REGISTERS P* P* A2= KEYLOCK VALUE P* A11= CREDIT WO┆
0x7270…72c0 52 4b 20 41 52 45 41 20 00 92 00 e0 00 14 00 50 2a 5c 41 31 33 3d 20 52 45 53 45 52 56 45 44 20 00 92 01 00 00 06 00 50 2a 20 00 92 01 18 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RK AREA P* A13= RESERVED P* B P******************************┆
0x72c0…7310 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 92 01 22 00 12 00 50 5c 49 46 54 5c 4b 45 59 4c 53 54 3d 31 20 00 92 01 68 00 12 00 50 5c 49 46 54 5c 4b 42 36 32 37 32 3d 31 20 00 92 01 7e ┆******************************** " P IFT KEYLST=1 h P IFT KB6272=1 ~┆
0x7310…7360 (75, 0, 398) 00 0e 00 50 4b 45 59 4c 5c 45 51 55 5c 2a 00 93 00 04 00 2a 00 50 5c 53 55 4b 5c 41 32 2c 4c 4b 4c 4b 45 59 5c 47 45 54 20 4e 45 47 20 4b 45 59 20 4c 4f 43 4b 20 56 41 4c 55 45 20 00 93 00 16 00 1e 00 50 5c 4c 44 5c 41 33 2c 4b 45 59 53 2c ┆ PKEYL EQU * * P SUK A2,LKLKEY GET NEG KEY LOCK VALUE P LD A3,KEYS,┆
0x7360…73b0 41 31 31 5c 4f 4c 44 20 53 54 41 54 55 53 00 93 00 44 00 10 00 50 5c 4c 44 4b 5c 41 34 2c 2f 31 30 20 00 93 00 66 00 10 00 50 4b 45 59 4c 31 30 5c 45 51 55 5c 2a 00 93 00 7a 00 0e 00 50 5c 53 52 4c 5c 41 34 2c 31 20 00 93 00 8e 00 1c 00 50 ┆A11 OLD STATUS D P LDK A4,/10 f PKEYL10 EQU * z P SRL A4,1 P┆
0x73b0…7400 5c 41 44 4b 5c 41 32 2c 32 5c 31 20 3d 20 4f 46 46 2c 30 20 3d 20 4f 4e 00 93 00 a0 00 12 00 50 5c 52 42 28 4e 29 5c 4b 45 59 4c 31 30 20 00 93 00 c0 00 20 00 50 5c 41 4e 52 5c 41 33 2c 41 34 5c 43 48 45 43 4b 20 4f 4c 44 20 4b 45 59 20 50 ┆ ADK A2,2 1 = OFF,0 = ON P RB(N) KEYL10 P ANR A3,A4 CHECK OLD KEY P┆
0x7400…7450 4f 53 00 93 00 d6 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 4b 45 59 4c 32 30 5c 57 41 53 20 4f 4e 20 00 93 00 fa 00 16 00 50 5c 4c 44 52 5c 41 32 2c 41 32 5c 57 41 53 20 4f 46 46 00 93 01 18 00 26 00 50 5c 52 46 28 4e 5a 29 5c 4b 45 59 4c 39 39 ┆OS P RF(NZ) KEYL20 WAS ON P LDR A2,A2 WAS OFF & P RF(NZ) KEYL99┆
0x7450…749e 5c 4e 4f 57 20 4f 46 46 2c 20 4e 4f 20 43 48 41 4e 47 45 20 00 93 01 32 00 16 00 50 5c 52 46 5c 4b 45 59 4c 33 30 5c 4e 4f 57 20 4f 4e 20 00 93 01 5c 00 18 00 50 4b 45 59 4c 32 30 5c 45 51 55 5c 2a 5c 57 41 53 20 4f 4e 20 00 93 01 76 ┆ NOW OFF, NO CHANGE 2 P RF KEYL30 NOW ON PKEYL20 EQU * WAS ON v┆
0x749e…74ee (76, 0, 398) 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 32 00 94 00 04 00 24 00 50 5c 52 46 28 5a 29 5c 4b 45 59 4c 39 39 5c 4e 4f 57 20 4f 4e 2c 20 4e 4f 20 43 48 41 4e 47 45 20 00 94 00 16 00 18 00 50 4b 45 59 4c 33 30 5c 45 51 55 5c 2a 20 5c 43 48 41 4e ┆ P LDR A2,A2 $ P RF(Z) KEYL99 NOW ON, NO CHANGE PKEYL30 EQU * CHAN┆
0x74ee…753e 47 45 00 94 00 3e 00 14 00 50 5c 4c 44 5c 41 33 2c 4b 45 59 53 2c 41 31 31 20 00 94 00 5a 00 1c 00 50 5c 58 52 52 5c 41 33 2c 41 34 5c 43 48 41 4e 47 45 20 53 54 41 54 55 53 00 94 00 72 00 24 00 50 5c 53 54 5c 41 33 2c 4b 45 59 53 2c 41 31 ┆GE > P LD A3,KEYS,A11 Z P XRR A3,A4 CHANGE STATUS r $ P ST A3,KEYS,A1┆
0x753e…758e 31 5c 53 54 4f 52 45 20 4e 45 57 20 53 54 41 54 55 53 00 94 00 92 00 06 00 50 2a 20 00 94 00 ba 00 1c 00 50 2a 20 4b 45 59 4c 4f 43 4b 20 53 54 41 54 55 53 20 43 48 41 4e 47 45 44 00 94 00 c4 00 4a 00 50 2a 20 20 20 41 33 20 3d 20 4e 45 57 ┆1 STORE NEW STATUS P* P* KEYLOCK STATUS CHANGED J P* A3 = NEW┆
0x758e…75de 20 53 54 41 54 55 53 2c 20 52 49 47 48 54 4d 4f 53 54 20 42 49 54 20 3d 20 52 49 47 48 54 4d 4f 53 54 20 4c 4f 43 4b 2c 20 42 49 54 20 4f 4e 20 3d 20 4c 4f 43 4b 20 4f 4e 20 00 94 00 e4 00 2a 00 50 2a 20 20 20 41 34 20 3d 20 4b 45 59 4c 4f ┆ STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON * P* A4 = KEYLO┆
0x75de…762c 43 4b 20 43 48 41 4e 47 45 44 2c 20 4c 41 59 4f 55 54 20 41 53 20 41 33 00 94 01 32 00 28 00 50 2a 20 20 20 41 32 20 3d 20 31 2c 20 49 46 20 43 48 41 4e 47 45 44 20 54 4f 20 4f 46 46 20 45 4c 53 45 20 30 00 94 01 60 00 06 00 50 2a 20 ┆CK CHANGED, LAYOUT AS A3 2 ( P* A2 = 1, IF CHANGED TO OFF ELSE 0 ` P* ┆