|
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: 39276 (0x996c)
Notes: pts_type(SC)
Names: »PRINT.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PT3272/PRINT.SC«
IDENT PRINT REL 11.1 82-07-16 DK 870150541110 =DK38,LF ON END MESS. =37 DUP OR FM CHAR ON PRINTER =36 IMPROVEMENT OF =24 82-06-28 =35 IMPROVEMENT OF =24 =32 MISSING PRINTING AFTER PRINTER ERROR =31 PAPER OUT ON COPY80 (SUM) 82-06-21 =30 IMPROVEMENT OF =5 =27 NO STATUS CHECK AFTER ABORT =26 LONG SNA CH STRING =25 LEFT MARGIN FOR PRINTER 82-05-12 =24 BASIC WRITE ON PRINTER 82-04-28 =23 PRINTER RETURN CODE =19 ERRONEOUS PRINTER STATUS =18 DOUBLE SETTIM ENTRIES =17 TWO DC LINES 82-04-16 =15 CORRECTION OF =7 FOR SNA 82-02-12 =7 TEST PRINTER BEFORE CONNECT =6 SET PRINTER STATUS =5 DIFFERENT FF CH FOR GP74 82-01-26 =4 NATIONAL CHAR 81-11-20 =3 SPACE SUPRESSION 81-05-12 =2 NEW LABEL 81-04-08 =1, EOC ON FIRST READ 81-01-26 ******************************************************************* * * * MODULE PRINT : * MODULE HANDLING THE PRINTOUTS BOTH FROM * * DISPLAY AND MAIN-FRAME * * (EMULATION 3270 SNA/SDLC, BSC * * * ******************************************************************* EJECT ******************************************************** * * LIST OF ROUTINES * * PRINT MAIN ROUTINE * IOACT ACTIVATE IN CURRENT MODE * IOCPL COMPLETE IN CURRENT MODE * DCPINP DC PRINTER INPUT * ICPINP INTERTASK INPUT * ICPRED INTERTASK READ * ICPWRT INTERTASK WRITE * ICABOR INTERTASK ABORT * COPP COPY SCREEN BUFFER TO PRINTER * TABLE OF PRINTERORDERS * NL NEW LINE * FFDUM SIMULATED FORM FEED * FFVAL FORM FEED * CR CARRIAGE RETURN * EM END MESSAGE * INVAL INVALID PRINTER ORDER * FFCHK CHECK IF FF IS VALID * PRLINE PRINT LINE * INIT INIT ROUTINE * TSTPRT TEST HARDWARE * GETTAB GET ORDER INDEX * *********************************************************** EJECT ******************************************************************* * * * ENTRY POINTS * * * ******************************************************************* ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2 ******************************************************************* * * * EXTERNAL REFERENCES * * * ******************************************************************* EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA) EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9 EXTRN OPSYS OPEN SYSTEM (DCSNA) EXTRN OPEN OPEN (DCBSC) EXTRN CONCT CONNECT PASSIVE (DCBSC) EXTRN SETTYM SET REQUEST TIMER (DCBSC) =18 EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS EXTRN TSTMES TEST MESSAGE (DCSNA) EXTRN READW READ WITH WAIT (DCSNA) EXTRN READNW READ WITH NO WAIT (DCSNA) EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN UNPACK UNPACK DC BUFFER (PAD) EXTRN ECBINI INIT IF ECB:S (DSPSNA) EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) EXTRN ICWRT INTERTASK WRITE (KEYB) EXTRN ICREAD INTERTASK READ (KEYB) EXTRN SETSTA SET STATUS (DCBSC) EXTRN CONNAT TRANSFORM OF NAT CHAR =4 EXTRN RFMDUP REPLACE FM OR DUP CHAR =37 EJECT *************************************************************** * * * CONDITIONAL ASSEMBLY * * * *************************************************************** X:A EQU 0 SNA HANDLING IF:=1 SNA EQU X:A X:D EQU 1 NUMBER OF DC LINES (1-2) NBRLIN EQU 2 X:O EQU 0 TEST MODE IF:=1 TEST EQU X:O X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4 TRANAT EQU X:R . =4 * BASWRI EQU 1 BASIC WRITE ON PRINTER =24 SCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 LMARG EQU 0 LEFT MARGIN FOR PRINTER =25 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 IFF LMARG=0 . =25 LMARGT EQU * NO. OF POSITIONS IN LEFT MARGIN =25 DATA 0 GTP =25 DATA 0 LP =25 DATA 3 GP74 =25 DATA 0 COPY80 =25 XIF . =25 * =24 IFF BASWRI=1 . =36 PRBFL EQU 132 PRINTER BUFFER LENGTH =24 =BUFL-2 (IN DATXXX) =24 XIF . =36 IFT BASWRI=1 . =36 PRBFL EQU 256 PRINTER BUFFER LENGTH =36 =BUFL IN DATXXX =36 XIF . =36 * * 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 FFCCH EQU /0800 FF CCH IND. =36 NOEMLF EQU /0400 NO EXTRA LINE FEED(EM) DK38 * * 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 IFF SNA=1 . =24 PRCCCT EQU ECBDC2+2 CHARACTER COUNTER =24 XIF . =24 IFT SNA=1 . =24 PRCCCT EQU ECBDC+14 CHARACTER COUNTER =24 XIF . =24 PRBA EQU PRCCCT+2 PRINTER BUFFER ADDRESS =24 PRLMAR EQU PRBA+2 NO. OF POS IN LEFT MARGIN =25 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 26 DEVICE TABLE =17 XIF IFT TEST=1 TSKTAB EQU 221 . =17 XIF EJECT ******************************************************************* * * * PRINT MAIN ROUTINE PRINTER * * * ******************************************************************* PRINT EQU * CF A14,INIT INIT ROUTINE IFF SNA=1 . =15 CF A14,TSTPRT TEST HARDWARE =7 XIF . =15 IFT SNA=1 CF A14,OPINIT OPEN CONNECTION INITIATE RF(N) PRI100 DC NOT PRESENT CF A14,OPSYS OPEN SYSTEM XIF IFF SNA=1 CF A14,OPEN OPEN RF(N) PRI100 NO DC INVOLVED LDKL A8,20 LKM DATA 6 CF A14,CONCT CONNECT PASSIVE IFT NBRLIN=2 . =17 LDK A1,1 CONNECT FOR SECOND LINE =17 XRS A1,MAIN,A11 . =17 CF A14,CONCT . =17 LDK A1,1 . =17 XRS A1,MAIN,A11 INDICATE FIRST LINE AGAIN =17 XIF . =17 IFF SNA=1 . =17 CF A14,SETTYM SET REQUEST TIMEOUT =18 XIF LDK A1,SHARED ALWAYS SHARED IN BSC ST A1,PRTMOD,A11 PRI100 EQU * CF A14,TSTPRT TEST HARDWARE PRI200 EQU * CF A14,IOACT ACTIVATE IN CURRENT MODE LDKL A7,ECBBLK ADR A7,A11 LKM DATA 7 MULTIPLE WAIT CF A14,IOCPL COMPLET IN CURRENT MODE LD A1,PRTMOD,A11 ANKL A1,PRTERR PRINTER ERROR? RB(Z) PRI200 NO XRS A1,PRTMOD,A11 RB PRI100 TRY TO FIX IT EJECT ********************************************************************* * * * IOACT ACTIVATE IN CURRENT MODE * * ********************************************************************* IOACT EQU * LDK A4,0 LD A1,PRTMOD,A11 SHARED OR LOCAL? RF(Z) IOAC20 LOCAL ADK A4,1 ADD NUMBER OF WAITS LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY? RF(NZ) IOAC10 YES CM MAIN,A11 INDICATE LINE 1 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+4,A11 IOAC10 EQU * IFT NBRLIN=2 ADK A4,1 ADD MORE WAITS LD A2,ECBBLK+6,A11 ALREADY? RF(NZ) IOAC20 YES IM MAIN,A11 INDICATE LINE 2 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+6,A11 XIF IOAC20 EQU * ADK A4,1 LD A2,ECBBLK+2,A11 ALREADY? RF(NZ) IOAC30 YES CF A14,ICPRED READ INTERTASK ST A8,ECBBLK+2,A11 IOAC30 EQU * ST A4,ECBBLK,A11 NUMBER OF WAITS RTN A14 EJECT ********************************************************************* * * * IOCPL COMPLETE IN CURRENT MODE * * ********************************************************************* IOCPL EQU * CW A8,ECBBLK+2,A11 INTERTASK? RF(NE) IOCP10 NO CM ECBBLK+2,A11 CF A14,ICPINP MAKE HARDCOPY RF IOCP90 IOCP10 EQU * CW A8,ECBBLK+4,A11 DC LINE 1? IFT NBRLIN=2 RF(NE) IOCP20 NO XIF IFF NBRLIN=2 RF(NE) IOCP90 NO FORGET IT XIF CM ECBBLK+4,A11 CM MAIN,A11 INDICATE LINE 1 RF IOCP30 IFT NBRLIN=2 IOCP20 EQU * CW A8,ECBBLK+6,A11 DC LINE 2? RF(NE) IOCP90 NO CM ECBBLK+6,A11 IM MAIN,A11 INDICATE LINE 2 XIF IOCP30 EQU * CF A14,DCPINP TAKE CARE OF DC IOCP90 EQU * RTN A14 EJECT *************************************************************** * * * DCPINP DC PRINTER INPUT * * * *************************************************************** DCPINP EQU * CF A14,ICABOR ABORT LOCAL HARD COPY LDR A7,A7 ALREADY COMPLETED? RF(Z) DCP100 NO CF A14,ICPINP TAKE CARE OF THAT FIRST DCP100 EQU * LD A8,ECBDC,A11 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 1 RF(Z) DCP150 YES LD A8,ECBDC2,A11 DCP150 EQU * XIF IFT SNA=1 LD A1,ECBRC,A8 OK? ANKL A1,/701 OK? RF(NZ) DCP500 NO STOP IT XIF CF A14,GETBUF GET BUFFER LDR A3,A8 CF A14,READW READ FIRST BUFFER ANK A1,3 ERROR? RF(NZ) DCP400 NO LDR A8,A12 CF A14,RELBUF RELEASE BUFFER RF DCP500 DCP400 EQU * SUR A10,A10 RESET INTERNAL UNPACK STATUS IFT SNA=1 . =1 ANK A1,2 . =1 RF(Z) DCP450 . =1 ORKL A10,LICREC . =1 DCP450 EQU * . =1 XIF . =1 LD A1,ECBEL,A8 ST A1,DCLENG,A11 SAVE LENGTH ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS IFT SNA=1 CF A14,GETBUF GET ANOTHER BUFFER LDR A3,A8 CF A14,READNW READ WITH NO WAIT XIF CF A14,UNPACK UPDATE SCREEN BUFFER DCP500 EQU * IFF SNA=1 LDK A1,0 CF A14,SETSTA SET DEVICE END XIF RTN A14 EJECT **************************************************************** * * * ICPINP INTERTASK INPUT * * * **************************************************************** ICPINP EQU * CF A14,COPP MAKE HARDCOPP ST A1,REGI,A11 RETURN CODE TO TERMINAL CF A14,ICPWRT WRITE INTERTASK RTN A14 EJECT ****************************************************************** * * * ICPRED INTERTASK READ * * * ****************************************************************** ICPRED EQU * LD A8,ECBICR,A11 CF A14,ICSET SET NO TIMEOUT LDK A1,0 NOT ADDRESSED READ LDKL A3,BVDU ADR A3,A11 LDKL A2,LBVDU+/20 CF A14,ICREAD READ INTERTASK RTN A14 EJECT ******************************************************************** * * * ICPWRT WRITE INTERTASK * * * ******************************************************************** ICPWRT EQU * LD A8,ECBICW,A11 CF A14,ICSET SET NO TIMEOUT LD A1,ECBICR,A11 LD A1,ECBCW,A1 GET TASKID RF(Z) ICPW90 NOT THERE LDKL A3,REGI RETURN CODE ADR A3,A11 LDK A2,2 LENGTH CF A14,ICWRT WRITE INTERTASK ICPW90 EQU * RTN A14 EJECT ************************************************************* * * * ICABOR INTERTASK ABORT * * * ************************************************************* ICABOR EQU * LDK A7,0 CM ECBBLK+IC,A11 LD A8,ECBICR,A11 LKM DATA 10 RTN A14 EJECT ********************************************************************* * * * COPP COPY SCREEN BUFFER TO PRINTER * * * ********************************************************************* * REGISTERS * * A2= CHAR. * A3= SCREEN BUFFER POINTER * A4= REL. SCREEN BUFFER ADDRESS * A5= LINE LENGTH * A6= CURRENT ATTRIBUTE * A8= ECB BUFFER POINTER * A9= ECB BUFFER INDEX * A10= INTERNAL STATUS * A11= TASK BLOCK BASE * A13= ECB BASE * ********************************************************************* COPP EQU * . =2 LD A8,ECBPRT,A11 CM ECBRL,A8 RESET PRINT LENGTH =3 LDK A1,0 LDK A6,0 RESET ATTRIBUTE CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS CM LINCNT,A11 RESET LINE COUNTER LD A1,WCC,A11 ANK A1,/38 MASK RELEVANT LDR A5,A1 ANK A1,8 START PRINT? ABL(Z) COP950 NO FORGET IT =19 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 IFT BASWRI=1 . =24 LDR A1,A8 . =24 LD A8,PRBA,A11 PRINTER BUFFER ADDRESS =24 ST A8,ECBBA,A1 STORE IN ECB =24 AD A8,PRLMAR,A11 ALLOW LEFT MARG/CR =25 CM PRCCCT,A11 CLEAR BUFFER CHARACTER COUNTER =36 XIF . =24 IFF BASWRI=1 . =24 LD A8,ECBBA,A8 CMR A8 RESET CONTROL CHAR. ADKL A8,2 XIF . =24 SUR A9,A9 LDK A2,0 LDK A4,0 SUR A10,A10 RESET STATUS COP200 EQU * CWK A4,LBVDU ALL PRINTED? RF(NL) COP850 YES CWR A9,A5 LINE FULL? RF(L) COP400 NO CF A14,PRLINE PRINT LINE LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES COP400 EQU * LCR A2,A3 GET CHAR. ANK A2,/FF RF(Z) COP650 NULL CHAR. CCK A2,/8000 ATTRIBUTE? RF(L) COP500 NO LDR A6,A2 GET NEW ATTRIBUTE RF COP650 COP500 EQU * CCK A2,/2020 ORDER? RF(L) COP550 YES ANKL A10,/FFFF-CRREC RESET CR RCV =3 RF COP600 COP550 EQU * CF A14,GETTAB GET ORDERINDEX CFR A14,A1 TAKE CARE OF ORDER LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES LDR A1,A10 GET STATUS RF(N) COP800 GET NEXT CHAR. SLL A1,1 RF(N) COP850 END COP600 EQU * LDR A1,A6 CHECK IF NONPRINT ANK A1,/C XRK A1,/C RF(Z) COP650 NONPRINT ORKL A10,NTONLY INIDICATE NOT ONLY NOT RF COP700 COP650 EQU * LDK A2,/20 REPLACE WITH SPACE COP700 EQU * IFF TRANAT=0 . =4 LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4 XIF . =4 SCR A2,A8 ADKL A9,1 ADKL A8,1 CCK A2,/2020 SPACE? =3 RF(E) COP800 YES, DON'T UPDATE LENGTH =3 LD A1,ECBPRT,A11 GET ECB =3 ST A9,ECBRL,A1 UPDATE LAST POS. NOT SPACE =3 COP800 EQU * ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3 ADK A3,1 ADK A4,1 RB COP200 COP850 EQU * IFF BASWRI=1 . =24 LDR A9,A9 SOMETHING LEFT TO PRINT? RF(Z) COP950 NO! =19 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 XIF . =24 IFT BASWRI=1 . =24 LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 RF(Z) COP860 NO! =24 CF A14,PRLINE PRINT TEXT =24 COP860 EQU * . =24 IFF SCS=1 . =26 LDR A1,A10 TEST END MESS. DK38 ANKL A1,ENDPRT DK38 RF(Z) COP870 DK38 ANKL A10,NOEMLF TEST IF EXTRA LF NECESS. DK38 RF(NZ) COP870 NO, SKIP IT DK38 ORKL A10,NTONLY INDICATE PRINTABLE =24 CF A14,PRLINE EXTRA LINEFEED =24 XIF . =26 IFT BASWRI=1 . =26 COP870 EQU * . =24 CF A14,PRCCH CONTROL CH:S TO PRINTER =24 XIF . =24 COP900 EQU * LDR A1,A1 PRINTER FAILED? RF(Z) COP950 NO LD A2,WCC,A11 . =32 CWK A2,/38 LOCAL HARDCOPY? =32 RF(E) COP910 YES. SKIP PRINTING =32 CF A14,TSTPRT WAIT UNTIL PRINTER OPERABLE =32 ABL COPP RESUME PRINTING =34 COP910 EQU * . =32 LDKL A2,PRTERR INDICATE ERROR ORS A2,PRTMOD,A11 COP950 EQU * RTN A14 EJECT ************************************************************************ * * TABLE FOR PRINTERORDERS * ************************************************************************ PRTORD EQU * DATA /0004 NUMBER OF ORDER CODES DATA /0A0A,NL,NL,NL,NL NEW LINE DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED DATA /0D0D,CR,CR,CR,CR CARR. RETURN DATA /1919,EM,EM,EM,EM END MESSAGE DATA INVAL INVALID ORDER CODE EJECT **************************************************************************** * * * NL NEW LINE * * * **************************************************************************** NL EQU * ORKL A10,NXTCHA+NTONLY GET NEXT CHAR. ADK A3,1 GET NEXT CHAR. DK38 LCR A1,A3 DK38 ANK A1,/FF MASK IT DK38 CWK A1,/19 END MESS.? DK38 RF(E) NL005 YES, FLAG IT DK38 ANKL A10,/FFFF-NOEMLF NO, CLEAR FLAG DK38 RF NL010 DK38 NL005 EQU * DK38 ORKL A10,NOEMLF INDICATE NO LF DK38 NL010 EQU * DK38 SUK A3,1 RESTORE POINTER DK38 CF A14,PRLINE PRINT LINE AFTER NEW LINE . =DK 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 . =36 IFF BASWRI=1 . =30 LDK A1,/31 FF FOR STANDARD WRITE =30 SC A1,-1,A8 STORE FF CONTROL CHAR. XIF . =24 IFT BASWRI=1 . =24 ORKL A10,FFCCH IND. FF CCH =36 CF A14,PRLINE PRINT LINE =36 XIF . =24 ORKL A10,NXTCHA . =DK 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 * * * ****************************************************************** * * ALSO HANDLING: * DUP & FM CHARACTERS * INVAL EQU * LDR A1,A2 SAVE CHAR =37 CF A14,RFMDUP REPLACE IF DUP OR FM =37 SUR A1,A2 REPLACED? =37 RF(NZ) INVA10 YES! =37 NO! I.E. INVALID ORDER =37 LDK A2,/20 REPLACE WITH SPACE INVA10 EQU * . =37 ORKL A10,NTONLY NOT ONLY LDK A1,0 RETURN CODE RTN A14 EJECT ***************************************************************** * * * FFCHK CHECK IF FF IS VALID * * * ***************************************************************** FFCHK EQU * LD A1,WCC,A11 ANK A1,/30 XRK A1,/30 FORMATTED? RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY LD A1,WCC,A11 ANK A1,/40 LOCAL HARD COPY? RF(Z) FFCH20 YES, FF NOT ALLOWED FFCH10 EQU * LDR A9,A9 FF ALLOWED RF(Z) FFCH30 NOT LDR A1,A10 ANKL A1,CRREC CR RECEIVED? RF(NZ) FFCH30 YES FFCH20 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,1 RETURN CODE RF FFCH40 FFCH30 EQU * ANKL A10,/FFFF-CRREC RESET CR RCV =3 LDR A9,A9 EMPTY LINE RF(Z) FFCH35 YES CF A14,PRLINE PRINT LINE FFCH35 EQU * LDK A1,0 RETURN CODE FFCH40 EQU * ORKL A10,NTONLY NOT ONLY RTN A14 EJECT **************************************************************** * * * PRLINE PRINT LINE * * * **************************************************************** PRLINE EQU * LD A8,ECBPRT,A11 LDR A1,A10 ANKL A1,NTONLY ONLY RUBB.? RF(NZ) PRL050 NO LD A1,WCC,A11 LDR A2,A1 ANK A1,/30 XRK A1,/30 HRADCOPY? RF(NZ) PRL200 NO ANK A2,/40 HARDCOPY????? RF(NZ) PRL200 NO PRL050 EQU * ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 IFF BASWRI=1 . =24 LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 ADS A9,ECBRL,A8 . =3 LDK A7,/06 PRINT LKM DATA 1 XIF . =24 IFT BASWRI=1 . =24 LD A1,ECBRL,A8 TEXT TO PRINT? =24 RF(Z) PRL070 NO! JUST CONTROL CH =24 EJECT HANDLING A TEXT LINE =36 PREPARE LINE. FIRST LEFT MARGIN =36 IFF LMARG=0 . =36 LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 LD A1,PRLMAR,A11 . =36 AD A1,ECBBA,A8 . =36 SUK A1,1 . =36 PRL055 EQU * . =36 SCR A7,A1 . =36 SUK A1,1 . =36 CW A1,ECBBA,A8 FINISHED? =36 RB(G) PRL055 NO! =36 XIF . =36 IFT BASWRI=1 . =36 . =36 LDK A7,/0D CR CCH =36 SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 IM LINCNT,A11 ANOTHER LINE =24 LDK A1,/0A LF CCH =24 LD A7,ECBRL,A8 . =24 AD A7,ECBBA,A8 . =24 AD A7,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25 SCR A1,A7 LF CCH LAST IN BUF =25 . =35 CALCULATE LINE LENGTH =36 LDK A1,1 ALLOW FOR LF =36 AD A1,ECBRL,A8 ALLOW FOR TEXT =36 AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36 ADS A1,ECBBA,A8 UPDATE POINTER TO BUFFER =36 EJECT . =36 PRL060 EQU * ENOUGH SPACE FOR ANOTHER LINE? =36 LDKL A1,PRBFL BUFFER LENGTH =36 SU A1,PRCCCT,A11 USED PART OF BUFFER =36 SUR A1,A5 MAX. LINE LENGTH =36 SU A1,PRLMAR,A11 LEFT MARGIN =36 RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 . =36 PRL065 EQU * PRINT BUFFER =36 LD A1,PRCCCT,A11 . =36 ST A1,ECBRL,A8 REQ. LENGTH =36 LD A1,PRBA,A11 . =36 ST A1,ECBBA,A8 BUFFER ADDRESS =36 LDK A7,/05 BASIC WRITE =24 LKM . =24 DATA 1 . =24 CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24 RF PRL090 . =24 EJECT HANDLING A CONTROL CHARACTER =36 PRL070 EQU * STORE CCH IN BUFFER =24 IM LINCNT,A11 ANOTHER LINE =24 LDK A7,/0A LF CCH =24 LDR A1,A10 . =36 ANKL A1,FFCCH FORM FEED? =36 RF(Z) PRL075 NO =36 LDK A7,/0C YES. FF CCH =36 ANKL A10,/FFFF-FFCCH RESET FF IND. =36 PRL075 EQU * . =36 SC* A7,ECBBA,A8 CCH TO BUFFER =36 IM ECBBA,A8 STEP BUFFER ADDRESS =36 IM PRCCCT,A11 STEP NO. OF CH:S IN BUFFER =36 ADKL A8,1 STEP BUFFER POINTER =36 RB PRL060 CHECK IF END OF BUFFER =36 EJECT . =36 PRL090 EQU * . =24 XIF . =24 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 . =27 LDK A1,1 INDICATE ERROR =27 RF PRL300 PRL150 EQU * LKM DATA 2 RESYNCHRONIZE IFF BASWRI=1 . =24 IM LINCNT,A11 ANOTHER LINE CM ECBRL,A8 RESET PRINT LENGTH =3 XIF . =36 LD A1,ECBRC,A8 OK? ANKL A1,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 RF(NZ) PRL300 YES! =23 PRL200 EQU * IFT BASWRI=1 . =24 CM ECBRL,A8 RESET PRINT LENGTH =36 LD A8,ECBBA,A8 SET BUFFER POINTER =36 AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25 XIF . =24 IFF BASWRI=1 . =24 LD A8,ECBBA,A8 GET BUFFER ADDRESS CMR A8 RESET CONTROL CHAR. XIF . =24 SUR A9,A9 IFF BASWRI=1 . =24 ADKL A8,2 XIF . =24 LDK A1,0 RETURN CODE RF PRL900 . =6 PRL300 EQU * LD A2,PRTID,A11 GET PRINTER TASKID =6 ANK A2,/FF . =6 SUK A2,/30 . =6 SLL A2,2 . =6 LD A3,+6,A13 COMMON BLOCK BASE =6 ADK A3,TSKTAB . =6 ADR A3,A2 . =6 SC A1,+3,A3 SET PRINTER STATUS =6 PRL900 EQU * . =6 RTN A14 IFT BASWRI=1 . =24 EJECT . =24 ************************************************************************ * * PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER * ************************************************************************ * PRCCH EQU * . =24 LD A1,PRCCCT,A11 ANYTHING TO SEND? =24 RB(Z) PRL900 NO! RETURN =24 LD A8,ECBPRT,A11 ECB ADDRESS =24 RB PRL065 SEND CH:S TO PRINTER =36 XIF . =24 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 IFT BASWRI=1 . =24 LD A2,ECBPRT,A11 PRINTER ECB ADDRESS =24 LD A2,ECBBA,A2 PRINTER BUFFER ADDRESS =24 ST A2,PRBA,A11 SAVE IT IN WORK AREA =24 LDK A2,1 . =25 ST A2,PRLMAR,A11 ALLOW FOR CR =25 IFF LMARG=0 LEFT MARGIN FOR PRINTER =25 LD A1,LMARGT,A1 . =25 ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25 XIF . =24 RTN A14 EJECT ***************************************************************** * * * TSTPRT TEST HARDWARE * * * ***************************************************************** TSTPRT EQU * . =6 LD A8,ECBPRT,A11 LDK A7,/80 TEST STATUS TSTP10 EQU * LKM DATA 1 LD A4,ECBRC,A8 . =6 ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 RF(Z) TSTP20 NO! =31 LDK A4,1 YES. INDICATE ERROR =31 TSTP20 EQU * . =31 . =6 LD A2,PRTID,A11 . =6 ANK A2,/FF SUK A2,/30 SLL A2,2 LD A3,+6,A13 LDK A1,TSKTAB ADR A3,A1 ADR A3,A2 . =6 SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6 ANK A4,1 OPERABLE? =6 RF(Z) TSTP90 YES! =6 LDR A1,A8 LDKL A8,100 LKM DATA 6 LDR A8,A1 . =6 RB TSTP10 . =6 . =6 . =6 . =6 TSTP90 EQU * RTN A14 EJECT ******************************************************************* * * * GETTAB GET ORDER INDEX * * * ******************************************************************* GETTAB EQU * LD A7,PRTORD NUMBER OF VALID ORDER CODES LDKL A1,PRTORD+2 ORDERTABLE BASE GETT10 EQU * CCR A2,A1 CONVERT ORDER CODE TO ADDRESS RF(E) GETT20 AD A1,PRTTAB AD A1,PRTTAB ADK A1,2 SUK A7,1 ORDER FOUND? RF(Z) GETT30 NO INVALID RB GETT10 TRY AGAIN GETT20 EQU * ADK A1,2 LD A2,PRTTYP,A11 ADR A1,A2 GETT30 EQU * LDR* A1,A1 RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT PRINT REL 11.1 82-07-16 DK 870150541110«, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» =DK38,LF ON END MESS.«, t00=0x0000, t01=0x0042}
0x005e…0086 Head {h00=0x0024, h01=0x0050, text=» =37 DUP OR FM CHAR ON PRINTER«, t00=0x0000, t01=0x0062}
0x0086…00a8 Head {h00=0x001e, h01=0x0050, text=» =36 IMPROVEMENT OF =24 «, t00=0x0000, t01=0x008a}
0x00a8…00bc Head {h00=0x0010, h01=0x0050, text=» 82-06-28 «, t00=0x0000, t01=0x00ac}
0x00bc…00de Head {h00=0x001e, h01=0x0050, text=» =35 IMPROVEMENT OF =24 «, t00=0x0000, t01=0x00c0}
0x00de…0112 Head {h00=0x0030, h01=0x0050, text=» =32 MISSING PRINTING AFTER PRINTER ERROR «, t00=0x0000, t01=0x00e2}
0x0112…013a Head {h00=0x0024, h01=0x0050, text=» =31 PAPER OUT ON COPY80 (SUM)«, t00=0x0000, t01=0x0116}
0x013a…014e Head {h00=0x0010, h01=0x0050, text=» 82-06-21 «, t00=0x0000, t01=0x013e}
0x014e…016e Head {h00=0x001c, h01=0x0050, text=» =30 IMPROVEMENT OF =5«, t00=0x0000, t01=0x0152}
0x016e…0198 Head {h00=0x0026, h01=0x0050, text=» =27 NO STATUS CHECK AFTER ABORT«, t00=0x0000, t01=0x0172}
0x0198…01ba Head {h00=0x001e, h01=0x0050, text=» =26 LONG SNA CH STRING «, t00=0x0001, t01=0x000c}
0x01ba…01e0 Head {h00=0x0022, h01=0x0050, text=» =25 LEFT MARGIN FOR PRINTER«, t00=0x0001, t01=0x002e}
0x01e0…01f4 Head {h00=0x0010, h01=0x0050, text=» 82-05-12 «, t00=0x0001, t01=0x0054}
0x01f4…021a Head {h00=0x0022, h01=0x0050, text=» =24 BASIC WRITE ON PRINTER «, t00=0x0001, t01=0x0068}
0x021a…022e Head {h00=0x0010, h01=0x0050, text=» 82-04-28 «, t00=0x0001, t01=0x008e}
0x022e…0250 Head {h00=0x001e, h01=0x0050, text=» =23 PRINTER RETURN CODE«, t00=0x0001, t01=0x00a2}
0x0250…0278 Head {h00=0x0024, h01=0x0050, text=» =19 ERRONEOUS PRINTER STATUS «, t00=0x0001, t01=0x00c4}
0x0278…029c Head {h00=0x0020, h01=0x0050, text=» =18 DOUBLE SETTIM ENTRIES«, t00=0x0001, t01=0x00ec}
0x029c…02b8 Head {h00=0x0018, h01=0x0050, text=» =17 TWO DC LINES «, t00=0x0001, t01=0x0110}
0x02b8…02cc Head {h00=0x0010, h01=0x0050, text=» 82-04-16 «, t00=0x0001, t01=0x012c}
0x02cc…02f4 Head {h00=0x0024, h01=0x0050, text=» =15 CORRECTION OF =7 FOR SNA «, t00=0x0001, t01=0x0140}
0x02f4…0308 Head {h00=0x0010, h01=0x0050, text=» 82-02-12 «, t00=0x0001, t01=0x0168}
0x0308…0332 Head {h00=0x0026, h01=0x0050, text=» =7 TEST PRINTER BEFORE CONNECT «, t00=0x0001, t01=0x017c}
0x0332…0352 Head {h00=0x001c, h01=0x0050, text=» =6 SET PRINTER STATUS«, t00=0x0002, t01=0x0016}
0x0352…0378 Head {h00=0x0022, h01=0x0050, text=» =5 DIFFERENT FF CH FOR GP74«, t00=0x0002, t01=0x0036}
0x0378…038c Head {h00=0x0010, h01=0x0050, text=» 82-01-26 «, t00=0x0002, t01=0x005c}
0x038c…03a8 Head {h00=0x0018, h01=0x0050, text=» =4 NATIONAL CHAR «, t00=0x0002, t01=0x0070}
0x03a8…03bc Head {h00=0x0010, h01=0x0050, text=» 81-11-20 «, t00=0x0002, t01=0x008c}
0x03bc…03da Head {h00=0x001a, h01=0x0050, text=» =3 SPACE SUPRESSION«, t00=0x0002, t01=0x00a0}
0x03da…03ee Head {h00=0x0010, h01=0x0050, text=» 81-05-12 «, t00=0x0002, t01=0x00be}
0x03ee…0406 Head {h00=0x0014, h01=0x0050, text=» =2 NEW LABEL «, t00=0x0002, t01=0x00d2}
0x0406…041a Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0002, t01=0x00ea}
0x041a…043a Head {h00=0x001c, h01=0x0050, text=» =1, EOC ON FIRST READ«, t00=0x0002, t01=0x00fe}
0x043a…044e Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0002, t01=0x011e}
0x044e…049a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0002, t01=0x0132}
0x049a…04e6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0002, t01=0x017e}
0x04e6…0532 Head {h00=0x0048, h01=0x0050, text=»* MODULE PRINT : «, t00=0x0003, t01=0x003a}
0x0532…057e Head {h00=0x0048, h01=0x0050, text=»* MODULE HANDLING THE PRINTOUTS BOTH FROM * «, t00=0x0003, t01=0x0086}
0x057e…05ca Head {h00=0x0048, h01=0x0050, text=»* DISPLAY AND MAIN-FRAME * «, t00=0x0003, t01=0x00d2}
0x05ca…0616 Head {h00=0x0048, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC * «, t00=0x0003, t01=0x011e}
0x0616…0662 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0003, t01=0x016a}
0x0662…06ae Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0004, t01=0x0026}
0x06ae…06bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0072}
0x06bc…06fc Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0004, t01=0x0080}
0x06fc…0706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c0}
0x0706…0728 Head {h00=0x001e, h01=0x0050, text=»* LIST OF ROUTINES «, t00=0x0004, t01=0x00ca}
0x0728…0732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ec}
0x0732…075a Head {h00=0x0024, h01=0x0050, text=»* PRINT MAIN ROUTINE«, t00=0x0004, t01=0x00f6}
0x075a…078e Head {h00=0x0030, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0004, t01=0x011e}
0x078e…07c2 Head {h00=0x0030, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0004, t01=0x0152}
0x07c2…07ee Head {h00=0x0028, h01=0x0050, text=»* DCPINP DC PRINTER INPUT«, t00=0x0004, t01=0x0186}
0x07ee…081a Head {h00=0x0028, h01=0x0050, text=»* ICPINP INTERTASK INPUT «, t00=0x0005, t01=0x0022}
0x081a…0844 Head {h00=0x0026, h01=0x0050, text=»* ICPRED INTERTASK READ«, t00=0x0005, t01=0x004e}
0x0844…0870 Head {h00=0x0028, h01=0x0050, text=»* ICPWRT INTERTASK WRITE «, t00=0x0005, t01=0x0078}
0x0870…089c Head {h00=0x0028, h01=0x0050, text=»* ICABOR INTERTASK ABORT «, t00=0x0005, t01=0x00a4}
0x089c…08d6 Head {h00=0x0036, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER «, t00=0x0005, t01=0x00d0}
0x08d6…08fe Head {h00=0x0024, h01=0x0050, text=»* TABLE OF PRINTERORDERS «, t00=0x0005, t01=0x010a}
0x08fe…0922 Head {h00=0x0020, h01=0x0050, text=»* NL NEW LINE«, t00=0x0005, t01=0x0132}
0x0922…0952 Head {h00=0x002c, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED «, t00=0x0005, t01=0x0156}
0x0952…0978 Head {h00=0x0022, h01=0x0050, text=»* FFVAL FORM FEED «, t00=0x0005, t01=0x0186}
0x0978…09a4 Head {h00=0x0028, h01=0x0050, text=»* CR CARRIAGE RETURN «, t00=0x0006, t01=0x001c}
0x09a4…09cc Head {h00=0x0024, h01=0x0050, text=»* EM END MESSAGE «, t00=0x0006, t01=0x0048}
0x09cc…09fe Head {h00=0x002e, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER «, t00=0x0006, t01=0x0070}
0x09fe…0a2e Head {h00=0x002c, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID«, t00=0x0006, t01=0x00a2}
0x0a2e…0a54 Head {h00=0x0022, h01=0x0050, text=»* PRLINE PRINT LINE«, t00=0x0006, t01=0x00d2}
0x0a54…0a7c Head {h00=0x0024, h01=0x0050, text=»* INIT INIT ROUTINE«, t00=0x0006, t01=0x00f8}
0x0a7c…0aa6 Head {h00=0x0026, h01=0x0050, text=»* TSTPRT TEST HARDWARE «, t00=0x0006, t01=0x0120}
0x0aa6…0ad2 Head {h00=0x0028, h01=0x0050, text=»* GETTAB GET ORDER INDEX «, t00=0x0006, t01=0x014a}
0x0ad2…0adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0176}
0x0adc…0b20 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0006, t01=0x0180}
0x0b20…0b2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0034}
0x0b2e…0b7a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x0042}
0x0b7a…0bc6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0007, t01=0x008e}
0x0bc6…0c12 Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0007, t01=0x00da}
0x0c12…0c5e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0126}
0x0c5e…0caa Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x0172}
0x0caa…0cb2 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x002e}
0x0cb2…0cee Head {h00=0x0038, h01=0x0050, text=» ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT)«, t00=0x0008, t01=0x0036}
0x0cee…0d22 Head {h00=0x0030, h01=0x0050, text=» ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2«, t00=0x0008, t01=0x0072}
0x0d22…0d2a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00a6}
0x0d2a…0d76 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0008, t01=0x00ae}
0x0d76…0dc2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0008, t01=0x00fa}
0x0dc2…0e0e Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0008, t01=0x0146}
0x0e0e…0e5a (9, 0, 400) Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0004}
0x0e5a…0ea6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0009, t01=0x0050}
0x0ea6…0eae Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x009c}
0x0eae…0ee4 Head {h00=0x0032, h01=0x0050, text=» EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA)«, t00=0x0009, t01=0x00a4}
0x0ee4…0f1a Head {h00=0x0032, h01=0x0050, text=» EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9«, t00=0x0009, t01=0x00da}
0x0f1a…0f42 Head {h00=0x0024, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA)«, t00=0x0009, t01=0x0110}
0x0f42…0f62 Head {h00=0x001c, h01=0x0050, text=» EXTRN OPEN OPEN (DCBSC)«, t00=0x0009, t01=0x0138}
0x0f62…0f8e Head {h00=0x0028, h01=0x0050, text=» EXTRN CONCT CONNECT PASSIVE (DCBSC)«, t00=0x0009, t01=0x0158}
0x0f8e…0fc2 Head {h00=0x0030, h01=0x0050, text=» EXTRN SETTYM SET REQUEST TIMER (DCBSC) =18 «, t00=0x0009, t01=0x0184}
0x0fc2…0ff2 Head {h00=0x002c, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x000a, t01=0x0028}
0x0ff2…101c Head {h00=0x0026, h01=0x0050, text=» EXTRN TSTMES TEST MESSAGE (DCSNA)«, t00=0x000a, t01=0x0058}
0x101c…1048 Head {h00=0x0028, h01=0x0050, text=» EXTRN READW READ WITH WAIT (DCSNA) «, t00=0x000a, t01=0x0082}
0x1048…1078 Head {h00=0x002c, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA) «, t00=0x000a, t01=0x00ae}
0x1078…109e Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x000a, t01=0x00de}
0x109e…10c8 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x000a, t01=0x0104}
0x10c8…10f4 Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x000a, t01=0x012e}
0x10f4…1120 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBINI INIT IF ECB:S (DSPSNA)«, t00=0x000a, t01=0x015a}
0x1120…1152 Head {h00=0x002e, h01=0x0050, text=» EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) «, t00=0x000a, t01=0x0186}
0x1152…117e Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000b, t01=0x0028}
0x117e…11aa Head {h00=0x0028, h01=0x0050, text=» EXTRN ICREAD INTERTASK READ (KEYB) «, t00=0x000b, t01=0x0054}
0x11aa…11d2 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCBSC)«, t00=0x000b, t01=0x0080}
0x11d2…1200 Head {h00=0x002a, h01=0x0050, text=» EXTRN CONNAT TRANSFORM OF NAT CHAR =4«, t00=0x000b, t01=0x00a8}
0x1200…1230 Head {h00=0x002c, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM OR DUP CHAR =37«, t00=0x000b, t01=0x00d6}
0x1230…123e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0106}
0x123e…1286 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000b, t01=0x0114}
0x1286…12ce Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000b, t01=0x015c}
0x12ce…1316 Head {h00=0x0044, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000c, t01=0x0014}
0x1316…135e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000c, t01=0x005c}
0x135e…13a6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000c, t01=0x00a4}
0x13a6…13ae Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00ec}
0x13ae…13d2 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000c, t01=0x00f4}
0x13d2…13e6 Head {h00=0x0010, h01=0x0050, text=»SNA EQU X:A «, t00=0x000c, t01=0x0118}
0x13e6…1410 Head {h00=0x0026, h01=0x0050, text=»X:D EQU 1 NUMBER OF DC LINES (1-2)«, t00=0x000c, t01=0x012c}
0x1410…1424 Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x000c, t01=0x0156}
0x1424…1446 Head {h00=0x001e, h01=0x0050, text=»X:O EQU 0 TEST MODE IF:=1 «, t00=0x000c, t01=0x016a}
0x1446…145a Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x000c, t01=0x018c}
0x145a…148a Head {h00=0x002c, h01=0x0050, text=»X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4«, t00=0x000d, t01=0x0010}
0x148a…14a6 Head {h00=0x0018, h01=0x0050, text=»TRANAT EQU X:R . =4 «, t00=0x000d, t01=0x0040}
0x14a6…14b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005c}
0x14b0…14e0 Head {h00=0x002c, h01=0x0050, text=»BASWRI EQU 1 BASIC WRITE ON PRINTER =24 «, t00=0x000d, t01=0x0066}
0x14e0…1514 Head {h00=0x0030, h01=0x0050, text=»SCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 «, t00=0x000d, t01=0x0096}
0x1514…1544 Head {h00=0x002c, h01=0x0050, text=»LMARG EQU 0 LEFT MARGIN FOR PRINTER =25 «, t00=0x000d, t01=0x00ca}
0x1544…1552 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00fa}
0x1552…159e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000d, t01=0x0108}
0x159e…15ea Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0154}
0x15ea…1614 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000e, t01=0x0010}
0x1614…1660 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000e, t01=0x003a}
0x1660…16ac Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000e, t01=0x0086}
0x16ac…16b4 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00d2}
0x16b4…16be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00da}
0x16be…16de Head {h00=0x001c, h01=0x0050, text=»* TABLE OF PRINTER TYPES«, t00=0x000e, t01=0x00e4}
0x16de…16e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0104}
0x16e8…16fc Head {h00=0x0010, h01=0x0050, text=»PRTTAB EQU *«, t00=0x000e, t01=0x010e}
0x16fc…1726 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF PRINTERTYPES«, t00=0x000e, t01=0x0122}
0x1726…173e Head {h00=0x0014, h01=0x0050, text=» DATA 'TT',0 GTP«, t00=0x000e, t01=0x014c}
0x173e…1760 Head {h00=0x001e, h01=0x0050, text=» DATA 'LL',2 LINE PRINTER «, t00=0x000e, t01=0x0164}
0x1760…177a Head {h00=0x0016, h01=0x0050, text=» DATA 'GG',4 GP 74«, t00=0x000e, t01=0x0186}
0x177a…1796 Head {h00=0x0018, h01=0x0050, text=» DATA 'CC',6 COPY 80«, t00=0x000f, t01=0x0010}
0x1796…17a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002c}
0x17a0…17d2 Head {h00=0x002e, h01=0x0050, text=»* DEFAULT VALUES FOR DIFF. PRINTERS«, t00=0x000f, t01=0x0036}
0x17d2…17f8 Head {h00=0x0022, h01=0x0050, text=»* BYTE1= NUMBER OF LINES/PAGE «, t00=0x000f, t01=0x0068}
0x17f8…181e Head {h00=0x0022, h01=0x0050, text=»* BYTE2= NUMBER OF CHAR./LINE «, t00=0x000f, t01=0x008e}
0x181e…1828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b4}
0x1828…1846 Head {h00=0x001a, h01=0x0050, text=»PRTLEN DATA /2382 GTP «, t00=0x000f, t01=0x00be}
0x1846…185c Head {h00=0x0012, h01=0x0050, text=» DATA /2382 LP«, t00=0x000f, t01=0x00dc}
0x185c…1876 Head {h00=0x0016, h01=0x0050, text=» DATA /2382 GP 74 «, t00=0x000f, t01=0x00f2}
0x1876…1892 Head {h00=0x0018, h01=0x0050, text=» DATA /2382 COPY 80 «, t00=0x000f, t01=0x010c}
0x1892…18ac Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =25«, t00=0x000f, t01=0x0128}
0x18ac…18e4 Head {h00=0x0034, h01=0x0050, text=»LMARGT EQU * NO. OF POSITIONS IN LEFT MARGIN =25«, t00=0x000f, t01=0x0142}
0x18e4…18fc Head {h00=0x0014, h01=0x0050, text=» DATA 0 GTP =25 «, t00=0x000f, t01=0x017a}
0x18fc…1912 (16, 0, 400) Head {h00=0x0012, h01=0x0050, text=» DATA 0 LP =25«, t00=0x0010, t01=0x0004}
0x1912…192a Head {h00=0x0014, h01=0x0050, text=» DATA 3 GP74 =25«, t00=0x0010, t01=0x001a}
0x192a…1944 Head {h00=0x0016, h01=0x0050, text=» DATA 0 COPY80 =25«, t00=0x0010, t01=0x0032}
0x1944…1958 Head {h00=0x0010, h01=0x0050, text=» XIF . =25 «, t00=0x0010, t01=0x004c}
0x1958…1968 Head {h00=0x000c, h01=0x0050, text=»* =24«, t00=0x0010, t01=0x0060}
0x1968…1984 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =36 «, t00=0x0010, t01=0x0070}
0x1984…19b4 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 132 PRINTER BUFFER LENGTH =24 «, t00=0x0010, t01=0x008c}
0x19b4…19d6 Head {h00=0x001e, h01=0x0050, text=» =BUFL-2 (IN DATXXX) =24«, t00=0x0010, t01=0x00bc}
0x19d6…19ea Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0010, t01=0x00de}
0x19ea…1a06 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x0010, t01=0x00f2}
0x1a06…1a36 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 256 PRINTER BUFFER LENGTH =36 «, t00=0x0010, t01=0x010e}
0x1a36…1a54 Head {h00=0x001a, h01=0x0050, text=» =BUFL IN DATXXX =36«, t00=0x0010, t01=0x013e}
0x1a54…1a68 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0010, t01=0x015c}
0x1a68…1a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0170}
0x1a72…1a98 Head {h00=0x0022, h01=0x0050, text=»* LINE LENGTHS FROM WCC«, t00=0x0010, t01=0x017a}
0x1a98…1aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0010}
0x1aa2…1ada Head {h00=0x0034, h01=0x0050, text=»LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE «, t00=0x0011, t01=0x001a}
0x1ada…1ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0052}
0x1ae4…1b0e Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR ECB HANDLING «, t00=0x0011, t01=0x005c}
0x1b0e…1b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0086}
0x1b18…1b3a Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0011, t01=0x0090}
0x1b3a…1b5e Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0011, t01=0x00b2}
0x1b5e…1b82 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0011, t01=0x00d6}
0x1b82…1ba2 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0011, t01=0x00fa}
0x1ba2…1bc4 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0011, t01=0x011a}
0x1bc4…1bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x013c}
0x1bce…1be6 Head {h00=0x0014, h01=0x0050, text=»* PRINTER MODES «, t00=0x0011, t01=0x0146}
0x1be6…1bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015e}
0x1bf0…1c0e Head {h00=0x001a, h01=0x0050, text=»LOCAL EQU 0 LOCAL MODE«, t00=0x0011, t01=0x0168}
0x1c0e…1c2e Head {h00=0x001c, h01=0x0050, text=»SHARED EQU 2 SHARED MODE«, t00=0x0011, t01=0x0186}
0x1c2e…1c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0016}
0x1c38…1c5a Head {h00=0x001e, h01=0x0050, text=»* PRINTER STATUS IN PRTMOD«, t00=0x0012, t01=0x0020}
0x1c5a…1c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0042}
0x1c64…1c8a Head {h00=0x0022, h01=0x0050, text=»PRTERR EQU /4000 PRINTER ERROR«, t00=0x0012, t01=0x004c}
0x1c8a…1c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0072}
0x1c94…1cba Head {h00=0x0022, h01=0x0050, text=»* COPY INTERNAL STATUS IN A10 «, t00=0x0012, t01=0x007c}
0x1cba…1cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a2}
0x1cc4…1cec Head {h00=0x0024, h01=0x0050, text=»NXTCHA EQU /8000 GET NEXT CHAR. «, t00=0x0012, t01=0x00ac}
0x1cec…1d12 Head {h00=0x0022, h01=0x0050, text=»ENDPRT EQU /4000 END PRINTING «, t00=0x0012, t01=0x00d4}
0x1d12…1d3a Head {h00=0x0024, h01=0x0050, text=»NTONLY EQU /2000 NOT ONLY SPACES«, t00=0x0012, t01=0x00fa}
0x1d3a…1d5e Head {h00=0x0020, h01=0x0050, text=»CRREC EQU /1000 CR RECEIVED «, t00=0x0012, t01=0x0122}
0x1d5e…1d86 Head {h00=0x0024, h01=0x0050, text=»FFCCH EQU /0800 FF CCH IND. =36 «, t00=0x0012, t01=0x0146}
0x1d86…1dba Head {h00=0x0030, h01=0x0050, text=»NOEMLF EQU /0400 NO EXTRA LINE FEED(EM) DK38«, t00=0x0012, t01=0x016e}
0x1dba…1dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0012}
0x1dc4…1df0 Head {h00=0x0028, h01=0x0050, text=»* RELATIVE POS. IN ECB-BLOCK «, t00=0x0013, t01=0x001c}
0x1df0…1dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0048}
0x1dfa…1e14 Head {h00=0x0016, h01=0x0050, text=»IC EQU 2 INTERTASK«, t00=0x0013, t01=0x0052}
0x1e14…1e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006c}
0x1e1e…1e34 Head {h00=0x0012, h01=0x0050, text=»* SCREEN SIZE «, t00=0x0013, t01=0x0076}
0x1e34…1e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x008c}
0x1e3e…1e54 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x0013, t01=0x0096}
0x1e54…1e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ac}
0x1e5e…1e76 Head {h00=0x0014, h01=0x0050, text=»* RECEIVE STATUS«, t00=0x0013, t01=0x00b6}
0x1e76…1e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e80…1e9e Head {h00=0x001a, h01=0x0050, text=»LICREC EQU /2000 . =1 «, t00=0x0013, t01=0x00d8}
0x1e9e…1eac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00f6}
0x1eac…1eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eb6…1ed6 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0013, t01=0x010e}
0x1ed6…1ef2 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0013, t01=0x012e}
0x1ef2…1efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014a}
0x1efc…1f1c Head {h00=0x001c, h01=0x0050, text=»BVDU EQU 2 SCREEN BUFFER«, t00=0x0013, t01=0x0154}
0x1f1c…1f3a Head {h00=0x001a, h01=0x0050, text=»WCC EQU BVDU+1950 WCC «, t00=0x0013, t01=0x0174}
0x1f3a…1f60 (20, 0, 400) Head {h00=0x0022, h01=0x0050, text=»LINCNT EQU WCC+4 LINE COUNTER «, t00=0x0014, t01=0x0004}
0x1f60…1f96 Head {h00=0x0032, h01=0x0050, text=»DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER «, t00=0x0014, t01=0x002a}
0x1f96…1fc0 Head {h00=0x0026, h01=0x0050, text=»PRTID EQU DCLENG+6 PRINTER TASKID «, t00=0x0014, t01=0x0060}
0x1fc0…1fe8 Head {h00=0x0024, h01=0x0050, text=»PRTTYP EQU PRTID+2 PRINTER TYPE «, t00=0x0014, t01=0x008a}
0x1fe8…200e Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTTYP+4 WHAT DC LINE«, t00=0x0014, t01=0x00b2}
0x200e…2032 Head {h00=0x0020, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB BLOCK «, t00=0x0014, t01=0x00d8}
0x2032…205e Head {h00=0x0028, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER POINTER «, t00=0x0014, t01=0x00fc}
0x205e…2082 Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x0014, t01=0x0128}
0x2082…20aa Head {h00=0x0024, h01=0x0050, text=»PRTMOD EQU REGI+32 PRINTER MODE «, t00=0x0014, t01=0x014c}
0x20aa…20d2 Head {h00=0x0024, h01=0x0050, text=»ECBPRT EQU PRTMOD+4 PRINTER ECB «, t00=0x0014, t01=0x0174}
0x20d2…2100 Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBPRT+6 INTERTASK READ ECB«, t00=0x0015, t01=0x000c}
0x2100…2130 Head {h00=0x002c, h01=0x0050, text=»ECBICW EQU ECBICR+2 INTERTASK WRITE ECB «, t00=0x0015, t01=0x003a}
0x2130…2152 Head {h00=0x001e, h01=0x0050, text=»ECBDC EQU ECBICW+2 ECB DC «, t00=0x0015, t01=0x006a}
0x2152…2178 Head {h00=0x0022, h01=0x0050, text=»ECBDC1 EQU ECBDC ECB DC LINE 1«, t00=0x0015, t01=0x008c}
0x2178…21a2 Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x0015, t01=0x00b2}
0x21a2…21ba Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =24«, t00=0x0015, t01=0x00dc}
0x21ba…21ec Head {h00=0x002e, h01=0x0050, text=»PRCCCT EQU ECBDC2+2 CHARACTER COUNTER =24 «, t00=0x0015, t01=0x00f4}
0x21ec…2200 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0015, t01=0x0126}
0x2200…2218 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =24«, t00=0x0015, t01=0x013a}
0x2218…224a Head {h00=0x002e, h01=0x0050, text=»PRCCCT EQU ECBDC+14 CHARACTER COUNTER =24 «, t00=0x0015, t01=0x0152}
0x224a…225e Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0015, t01=0x0184}
0x225e…2292 Head {h00=0x0030, h01=0x0050, text=»PRBA EQU PRCCCT+2 PRINTER BUFFER ADDRESS =24«, t00=0x0016, t01=0x0008}
0x2292…22ca Head {h00=0x0034, h01=0x0050, text=»PRLMAR EQU PRBA+2 NO. OF POS IN LEFT MARGIN =25 «, t00=0x0016, t01=0x003c}
0x22ca…22d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0074}
0x22d4…22f4 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0016, t01=0x007e}
0x22f4…230e Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0016, t01=0x009e}
0x230e…2318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b8}
0x2318…232c Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0016, t01=0x00c2}
0x232c…2352 Head {h00=0x0022, h01=0x0050, text=»TSKTAB EQU 26 DEVICE TABLE =17«, t00=0x0016, t01=0x00d6}
0x2352…235e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00fc}
0x235e…2372 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0016, t01=0x0108}
0x2372…238e Head {h00=0x0018, h01=0x0050, text=»TSKTAB EQU 221 . =17«, t00=0x0016, t01=0x011c}
0x238e…239a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0138}
0x239a…23a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0144}
0x23a8…23f4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0016, t01=0x0152}
0x23f4…2440 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0017, t01=0x000e}
0x2440…248c Head {h00=0x0048, h01=0x0050, text=»* PRINT MAIN ROUTINE PRINTER * «, t00=0x0017, t01=0x005a}
0x248c…24d8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0017, t01=0x00a6}
0x24d8…2524 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0017, t01=0x00f2}
0x2524…2538 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x0017, t01=0x013e}
0x2538…255a Head {h00=0x001e, h01=0x0050, text=» CF A14,INIT INIT ROUTINE «, t00=0x0017, t01=0x0152}
0x255a…2572 Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =15«, t00=0x0017, t01=0x0174}
0x2572…259a Head {h00=0x0024, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE =7 «, t00=0x0017, t01=0x018c}
0x259a…25ae Head {h00=0x0010, h01=0x0050, text=» XIF . =15 «, t00=0x0018, t01=0x0024}
0x25ae…25c0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0018, t01=0x0038}
0x25c0…25f0 Head {h00=0x002c, h01=0x0050, text=» CF A14,OPINIT OPEN CONNECTION INITIATE «, t00=0x0018, t01=0x004a}
0x25f0…2614 Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 DC NOT PRESENT«, t00=0x0018, t01=0x007a}
0x2614…2636 Head {h00=0x001e, h01=0x0050, text=» CF A14,OPSYS OPEN SYSTEM «, t00=0x0018, t01=0x009e}
0x2636…2642 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00c0}
0x2642…2654 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0018, t01=0x00cc}
0x2654…266e Head {h00=0x0016, h01=0x0050, text=» CF A14,OPEN OPEN «, t00=0x0018, t01=0x00de}
0x266e…2692 Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 NO DC INVOLVED«, t00=0x0018, t01=0x00f8}
0x2692…26a6 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x0018, t01=0x011c}
0x26a6…26b2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x0130}
0x26b2…26c2 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0018, t01=0x013c}
0x26c2…26e8 Head {h00=0x0022, h01=0x0050, text=» CF A14,CONCT CONNECT PASSIVE «, t00=0x0018, t01=0x014c}
0x26e8…2704 Head {h00=0x0018, h01=0x0050, text=» IFT NBRLIN=2 . =17 «, t00=0x0018, t01=0x0172}
0x2704…2732 Head {h00=0x002a, h01=0x0050, text=» LDK A1,1 CONNECT FOR SECOND LINE =17 «, t00=0x0018, t01=0x018e}
0x2732…2750 Head {h00=0x001a, h01=0x0050, text=» XRS A1,MAIN,A11 . =17«, t00=0x0019, t01=0x002c}
0x2750…276c Head {h00=0x0018, h01=0x0050, text=» CF A14,CONCT . =17 «, t00=0x0019, t01=0x004a}
0x276c…2784 Head {h00=0x0014, h01=0x0050, text=» LDK A1,1 . =17 «, t00=0x0019, t01=0x0066}
0x2784…27ba Head {h00=0x0032, h01=0x0050, text=» XRS A1,MAIN,A11 INDICATE FIRST LINE AGAIN =17«, t00=0x0019, t01=0x007e}
0x27ba…27ce Head {h00=0x0010, h01=0x0050, text=» XIF . =17 «, t00=0x0019, t01=0x00b4}
0x27ce…27e6 Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =17«, t00=0x0019, t01=0x00c8}
0x27e6…2814 Head {h00=0x002a, h01=0x0050, text=» CF A14,SETTYM SET REQUEST TIMEOUT =18«, t00=0x0019, t01=0x00e0}
0x2814…2820 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x010e}
0x2820…284c Head {h00=0x0028, h01=0x0050, text=» LDK A1,SHARED ALWAYS SHARED IN BSC «, t00=0x0019, t01=0x011a}
0x284c…2866 Head {h00=0x0016, h01=0x0050, text=» ST A1,PRTMOD,A11 «, t00=0x0019, t01=0x0146}
0x2866…287a Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x0019, t01=0x0160}
0x287a…289e Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE«, t00=0x0019, t01=0x0174}
0x289e…28b2 Head {h00=0x0010, h01=0x0050, text=»PRI200 EQU *«, t00=0x001a, t01=0x0008}
0x28b2…28e0 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOACT ACTIVATE IN CURRENT MODE«, t00=0x001a, t01=0x001c}
0x28e0…28f8 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x001a, t01=0x004a}
0x28f8…290c Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x001a, t01=0x0062}
0x290c…2918 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x0076}
0x2918…2936 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x001a, t01=0x0082}
0x2936…2964 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOCPL COMPLET IN CURRENT MODE «, t00=0x001a, t01=0x00a0}
0x2964…297e Head {h00=0x0016, h01=0x0050, text=» LD A1,PRTMOD,A11 «, t00=0x001a, t01=0x00ce}
0x297e…29a4 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,PRTERR PRINTER ERROR?«, t00=0x001a, t01=0x00e8}
0x29a4…29bc Head {h00=0x0014, h01=0x0050, text=» RB(Z) PRI200 NO«, t00=0x001a, t01=0x010e}
0x29bc…29d6 Head {h00=0x0016, h01=0x0050, text=» XRS A1,PRTMOD,A11«, t00=0x001a, t01=0x0126}
0x29d6…29f6 Head {h00=0x001c, h01=0x0050, text=» RB PRI100 TRY TO FIX IT«, t00=0x001a, t01=0x0140}
0x29f6…2a04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0160}
0x2a04…2a52 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001a, t01=0x016e}
0x2a52…2aa0 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001b, t01=0x002c}
0x2aa0…2ac8 Head {h00=0x0024, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x001b, t01=0x007a}
0x2ac8…2b16 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001b, t01=0x00a2}
0x2b16…2b64 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001b, t01=0x00f0}
0x2b64…2b78 Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x001b, t01=0x013e}
0x2b78…2b8a Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001b, t01=0x0152}
0x2b8a…2bb4 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTMOD,A11 SHARED OR LOCAL?«, t00=0x001b, t01=0x0164}
0x2bb4…2bd0 Head {h00=0x0018, h01=0x0050, text=» RF(Z) IOAC20 LOCAL «, t00=0x001b, t01=0x018e}
0x2bd0…2bf6 Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 ADD NUMBER OF WAITS «, t00=0x001c, t01=0x001a}
0x2bf6…2c2e Head {h00=0x0034, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY?«, t00=0x001c, t01=0x0040}
0x2c2e…2c48 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x001c, t01=0x0078}
0x2c48…2c6c Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x001c, t01=0x0092}
0x2c6c…2c90 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x001c, t01=0x00b6}
0x2c90…2cac Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x001c, t01=0x00da}
0x2cac…2cc0 Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x001c, t01=0x00f6}
0x2cc0…2cd6 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001c, t01=0x010a}
0x2cd6…2cf6 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADD MORE WAITS«, t00=0x001c, t01=0x0120}
0x2cf6…2d1a Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+6,A11 ALREADY?«, t00=0x001c, t01=0x0140}
0x2d1a…2d34 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC20 YES«, t00=0x001c, t01=0x0164}
0x2d34…2d58 Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x001c, t01=0x017e}
0x2d58…2d7c Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x001d, t01=0x0012}
0x2d7c…2d98 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x001d, t01=0x0036}
0x2d98…2da4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0052}
0x2da4…2db8 Head {h00=0x0010, h01=0x0050, text=»IOAC20 EQU *«, t00=0x001d, t01=0x005e}
0x2db8…2dca Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x0072}
0x2dca…2dee Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+2,A11 ALREADY?«, t00=0x001d, t01=0x0084}
0x2dee…2e08 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC30 YES«, t00=0x001d, t01=0x00a8}
0x2e08…2e2e Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPRED READ INTERTASK «, t00=0x001d, t01=0x00c2}
0x2e2e…2e4a Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x001d, t01=0x00e8}
0x2e4a…2e5e Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x001d, t01=0x0104}
0x2e5e…2e88 Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBBLK,A11 NUMBER OF WAITS «, t00=0x001d, t01=0x0118}
0x2e88…2e98 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0142}
0x2e98…2ea6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0152}
0x2ea6…2ef4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001d, t01=0x0160}
0x2ef4…2f42 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001e, t01=0x001e}
0x2f42…2f6a Head {h00=0x0024, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x001e, t01=0x006c}
0x2f6a…2fb8 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001e, t01=0x0094}
0x2fb8…3006 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001e, t01=0x00e2}
0x3006…301a Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x001e, t01=0x0130}
0x301a…3040 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+2,A11 INTERTASK?«, t00=0x001e, t01=0x0144}
0x3040…305a Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x001e, t01=0x016a}
0x305a…3072 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x001e, t01=0x0184}
0x3072…3096 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICPINP MAKE HARDCOPY«, t00=0x001f, t01=0x000c}
0x3096…30a8 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x001f, t01=0x0030}
0x30a8…30bc Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x001f, t01=0x0042}
0x30bc…30e2 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC LINE 1?«, t00=0x001f, t01=0x0056}
0x30e2…30f8 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001f, t01=0x007c}
0x30f8…3112 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x001f, t01=0x0092}
0x3112…311e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ac}
0x311e…3134 Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x001f, t01=0x00b8}
0x3134…3158 Head {h00=0x0020, h01=0x0050, text=» RF(NE) IOCP90 NO FORGET IT «, t00=0x001f, t01=0x00ce}
0x3158…3164 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00f2}
0x3164…317c Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x001f, t01=0x00fe}
0x317c…31a0 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x001f, t01=0x0116}
0x31a0…31b2 Head {h00=0x000e, h01=0x0050, text=» RF IOCP30«, t00=0x001f, t01=0x013a}
0x31b2…31c8 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001f, t01=0x014c}
0x31c8…31dc Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x001f, t01=0x0162}
0x31dc…3202 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+6,A11 DC LINE 2?«, t00=0x001f, t01=0x0176}
0x3202…321c Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP90 NO «, t00=0x0020, t01=0x000c}
0x321c…3234 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+6,A11«, t00=0x0020, t01=0x0026}
0x3234…3258 Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x0020, t01=0x003e}
0x3258…3264 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0062}
0x3264…3278 Head {h00=0x0010, h01=0x0050, text=»IOCP30 EQU *«, t00=0x0020, t01=0x006e}
0x3278…329e Head {h00=0x0022, h01=0x0050, text=» CF A14,DCPINP TAKE CARE OF DC«, t00=0x0020, t01=0x0082}
0x329e…32b2 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x0020, t01=0x00a8}
0x32b2…32c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x00bc}
0x32c2…32d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00cc}
0x32d0…3318 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0020, t01=0x00da}
0x3318…3360 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0020, t01=0x0122}
0x3360…33a8 Head {h00=0x0044, h01=0x0050, text=»* DCPINP DC PRINTER INPUT * «, t00=0x0020, t01=0x016a}
0x33a8…33f0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0021, t01=0x0022}
0x33f0…3438 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0021, t01=0x006a}
0x3438…344c Head {h00=0x0010, h01=0x0050, text=»DCPINP EQU *«, t00=0x0021, t01=0x00b2}
0x344c…3478 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT LOCAL HARD COPY«, t00=0x0021, t01=0x00c6}
0x3478…349e Head {h00=0x0022, h01=0x0050, text=» LDR A7,A7 ALREADY COMPLETED? «, t00=0x0021, t01=0x00f2}
0x349e…34b6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP100 NO«, t00=0x0021, t01=0x0118}
0x34b6…34e4 Head {h00=0x002a, h01=0x0050, text=» CF A14,ICPINP TAKE CARE OF THAT FIRST«, t00=0x0021, t01=0x0130}
0x34e4…34f8 Head {h00=0x0010, h01=0x0050, text=»DCP100 EQU *«, t00=0x0021, t01=0x015e}
0x34f8…3510 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBDC,A11«, t00=0x0021, t01=0x0172}
0x3510…3526 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0021, t01=0x018a}
0x3526…3544 Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 1«, t00=0x0022, t01=0x0010}
0x3544…355e Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP150 YES «, t00=0x0022, t01=0x002e}
0x355e…3578 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0022, t01=0x0048}
0x3578…358c Head {h00=0x0010, h01=0x0050, text=»DCP150 EQU *«, t00=0x0022, t01=0x0062}
0x358c…3598 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0076}
0x3598…35aa Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0022, t01=0x0082}
0x35aa…35c6 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0022, t01=0x0094}
0x35c6…35e0 Head {h00=0x0016, h01=0x0050, text=» ANKL A1,/701 OK? «, t00=0x0022, t01=0x00b0}
0x35e0…3602 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DCP500 NO STOP IT «, t00=0x0022, t01=0x00ca}
0x3602…360e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00ec}
0x360e…3630 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x0022, t01=0x00f8}
0x3630…3642 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0022, t01=0x011a}
0x3642…366a Head {h00=0x0024, h01=0x0050, text=» CF A14,READW READ FIRST BUFFER «, t00=0x0022, t01=0x012c}
0x366a…3682 Head {h00=0x0014, h01=0x0050, text=» ANK A1,3 ERROR?«, t00=0x0022, t01=0x0154}
0x3682…369c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DCP400 NO «, t00=0x0022, t01=0x016c}
0x369c…36b0 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0022, t01=0x0186}
0x36b0…36d6 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0023, t01=0x000a}
0x36d6…36e8 Head {h00=0x000e, h01=0x0050, text=» RF DCP500«, t00=0x0023, t01=0x0030}
0x36e8…36fc Head {h00=0x0010, h01=0x0050, text=»DCP400 EQU *«, t00=0x0023, t01=0x0042}
0x36fc…372e Head {h00=0x002e, h01=0x0050, text=» SUR A10,A10 RESET INTERNAL UNPACK STATUS «, t00=0x0023, t01=0x0056}
0x372e…3746 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =1 «, t00=0x0023, t01=0x0088}
0x3746…375c Head {h00=0x0012, h01=0x0050, text=» ANK A1,2 . =1«, t00=0x0023, t01=0x00a0}
0x375c…3776 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP450 . =1«, t00=0x0023, t01=0x00b6}
0x3776…3794 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,LICREC . =1 «, t00=0x0023, t01=0x00d0}
0x3794…37ae Head {h00=0x0016, h01=0x0050, text=»DCP450 EQU * . =1 «, t00=0x0023, t01=0x00ee}
0x37ae…37c0 Head {h00=0x000e, h01=0x0050, text=» XIF . =1«, t00=0x0023, t01=0x0108}
0x37c0…37d8 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x0023, t01=0x011a}
0x37d8…37fe Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x0023, t01=0x0132}
0x37fe…382c Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x0023, t01=0x0158}
0x382c…383e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0023, t01=0x0186}
0x383e…3868 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET ANOTHER BUFFER «, t00=0x0024, t01=0x0008}
0x3868…387a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0024, t01=0x0032}
0x387a…38a2 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x0024, t01=0x0044}
0x38a2…38ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x006c}
0x38ae…38da Head {h00=0x0028, h01=0x0050, text=» CF A14,UNPACK UPDATE SCREEN BUFFER «, t00=0x0024, t01=0x0078}
0x38da…38ee Head {h00=0x0010, h01=0x0050, text=»DCP500 EQU *«, t00=0x0024, t01=0x00a4}
0x38ee…3900 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0024, t01=0x00b8}
0x3900…3912 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x00ca}
0x3912…3938 Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x0024, t01=0x00dc}
0x3938…3944 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0102}
0x3944…3954 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x010e}
0x3954…3962 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x011e}
0x3962…39aa Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0024, t01=0x012c}
0x39aa…39f2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0174}
0x39f2…3a3a Head {h00=0x0044, h01=0x0050, text=»* ICPINP INTERTASK INPUT *«, t00=0x0025, t01=0x002c}
0x3a3a…3a82 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0025, t01=0x0074}
0x3a82…3aca Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0025, t01=0x00bc}
0x3aca…3ade Head {h00=0x0010, h01=0x0050, text=»ICPINP EQU *«, t00=0x0025, t01=0x0104}
0x3ade…3b00 Head {h00=0x001e, h01=0x0050, text=» CF A14,COPP MAKE HARDCOPP«, t00=0x0025, t01=0x0118}
0x3b00…3b30 Head {h00=0x002c, h01=0x0050, text=» ST A1,REGI,A11 RETURN CODE TO TERMINAL «, t00=0x0025, t01=0x013a}
0x3b30…3b56 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPWRT WRITE INTERTASK«, t00=0x0025, t01=0x016a}
0x3b56…3b66 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0025, t01=0x0190}
0x3b66…3b74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0010}
0x3b74…3bbe Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0026, t01=0x001e}
0x3bbe…3c08 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0026, t01=0x0068}
0x3c08…3c52 Head {h00=0x0046, h01=0x0050, text=»* ICPRED INTERTASK READ *«, t00=0x0026, t01=0x00b2}
0x3c52…3c9c Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0026, t01=0x00fc}
0x3c9c…3ce6 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0026, t01=0x0146}
0x3ce6…3cfa Head {h00=0x0010, h01=0x0050, text=»ICPRED EQU *«, t00=0x0026, t01=0x0190}
0x3cfa…3d14 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0027, t01=0x0014}
0x3d14…3d38 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0027, t01=0x002e}
0x3d38…3d5c Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 NOT ADDRESSED READ«, t00=0x0027, t01=0x0052}
0x3d5c…3d72 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0027, t01=0x0076}
0x3d72…3d86 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0027, t01=0x008c}
0x3d86…3da0 Head {h00=0x0016, h01=0x0050, text=» LDKL A2,LBVDU+/20«, t00=0x0027, t01=0x00a0}
0x3da0…3dc6 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0027, t01=0x00ba}
0x3dc6…3dd6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0027, t01=0x00e0}
0x3dd6…3de4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00f0}
0x3de4…3e30 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0027, t01=0x00fe}
0x3e30…3e7c Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0027, t01=0x014a}
0x3e7c…3ec8 Head {h00=0x0048, h01=0x0050, text=»* ICPWRT WRITE INTERTASK *«, t00=0x0028, t01=0x0008}
0x3ec8…3f14 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0028, t01=0x0054}
0x3f14…3f60 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0028, t01=0x00a0}
0x3f60…3f74 Head {h00=0x0010, h01=0x0050, text=»ICPWRT EQU *«, t00=0x0028, t01=0x00ec}
0x3f74…3f8e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0028, t01=0x0100}
0x3f8e…3fb2 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0028, t01=0x011a}
0x3fb2…3fcc Head {h00=0x0016, h01=0x0050, text=» LD A1,ECBICR,A11 «, t00=0x0028, t01=0x013e}
0x3fcc…3fee Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A1 GET TASKID«, t00=0x0028, t01=0x0158}
0x3fee…400e Head {h00=0x001c, h01=0x0050, text=» RF(Z) ICPW90 NOT THERE «, t00=0x0028, t01=0x017a}
0x400e…4030 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,REGI RETURN CODE «, t00=0x0029, t01=0x000a}
0x4030…4044 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0029, t01=0x002c}
0x4044…405c Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0029, t01=0x0040}
0x405c…4082 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x0029, t01=0x0058}
0x4082…4096 Head {h00=0x0010, h01=0x0050, text=»ICPW90 EQU *«, t00=0x0029, t01=0x007e}
0x4096…40a6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0092}
0x40a6…40b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00a2}
0x40b4…40fa Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0029, t01=0x00b0}
0x40fa…4140 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0029, t01=0x00f6}
0x4140…4186 Head {h00=0x0042, h01=0x0050, text=»* ICABOR INTERTASK ABORT * «, t00=0x0029, t01=0x013c}
0x4186…41cc Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0029, t01=0x0182}
0x41cc…4212 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002a, t01=0x0038}
0x4212…4226 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x002a, t01=0x007e}
0x4226…4238 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002a, t01=0x0092}
0x4238…4252 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+IC,A11 «, t00=0x002a, t01=0x00a4}
0x4252…426c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x002a, t01=0x00be}
0x426c…4278 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x00d8}
0x4278…4288 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002a, t01=0x00e4}
0x4288…4298 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x00f4}
0x4298…42a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0104}
0x42a6…42f4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002a, t01=0x0112}
0x42f4…4342 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0160}
0x4342…4390 Head {h00=0x004a, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER * «, t00=0x002b, t01=0x001e}
0x4390…43de Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x002b, t01=0x006c}
0x43de…442c Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002b, t01=0x00ba}
0x442c…4450 Head {h00=0x0020, h01=0x0050, text=»* REGISTERS «, t00=0x002b, t01=0x0108}
0x4450…445a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x012c}
0x445a…4470 Head {h00=0x0012, h01=0x0050, text=»* A2= CHAR. «, t00=0x002b, t01=0x0136}
0x4470…4496 Head {h00=0x0022, h01=0x0050, text=»* A3= SCREEN BUFFER POINTER «, t00=0x002b, t01=0x014c}
0x4496…44c0 Head {h00=0x0026, h01=0x0050, text=»* A4= REL. SCREEN BUFFER ADDRESS«, t00=0x002b, t01=0x0172}
0x44c0…44dc Head {h00=0x0018, h01=0x0050, text=»* A5= LINE LENGTH «, t00=0x002c, t01=0x000c}
0x44dc…44fe Head {h00=0x001e, h01=0x0050, text=»* A6= CURRENT ATTRIBUTE «, t00=0x002c, t01=0x0028}
0x44fe…4520 Head {h00=0x001e, h01=0x0050, text=»* A8= ECB BUFFER POINTER«, t00=0x002c, t01=0x004a}
0x4520…4540 Head {h00=0x001c, h01=0x0050, text=»* A9= ECB BUFFER INDEX«, t00=0x002c, t01=0x006c}
0x4540…4560 Head {h00=0x001c, h01=0x0050, text=»* A10= INTERNAL STATUS«, t00=0x002c, t01=0x008c}
0x4560…4580 Head {h00=0x001c, h01=0x0050, text=»* A11= TASK BLOCK BASE«, t00=0x002c, t01=0x00ac}
0x4580…459a Head {h00=0x0016, h01=0x0050, text=»* A13= ECB BASE «, t00=0x002c, t01=0x00cc}
0x459a…45a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e6}
0x45a4…45f2 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002c, t01=0x00f0}
0x45f2…460a Head {h00=0x0014, h01=0x0050, text=»COPP EQU * . =2 «, t00=0x002c, t01=0x013e}
0x460a…4624 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x002c, t01=0x0156}
0x4624…464e Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x002c, t01=0x0170}
0x464e…4660 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002d, t01=0x000a}
0x4660…4682 Head {h00=0x001e, h01=0x0050, text=» LDK A6,0 RESET ATTRIBUTE «, t00=0x002d, t01=0x001c}
0x4682…46b4 Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x002d, t01=0x003e}
0x46b4…46de Head {h00=0x0026, h01=0x0050, text=» CM LINCNT,A11 RESET LINE COUNTER «, t00=0x002d, t01=0x0070}
0x46de…46f4 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x002d, t01=0x009a}
0x46f4…4716 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/38 MASK RELEVANT «, t00=0x002d, t01=0x00b0}
0x4716…4728 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x002d, t01=0x00d2}
0x4728…4746 Head {h00=0x001a, h01=0x0050, text=» ANK A1,8 START PRINT?«, t00=0x002d, t01=0x00e4}
0x4746…476e Head {h00=0x0024, h01=0x0050, text=» ABL(Z) COP950 NO FORGET IT =19 «, t00=0x002d, t01=0x0102}
0x476e…4780 Head {h00=0x000e, h01=0x0050, text=» SRL A5,4 «, t00=0x002d, t01=0x012a}
0x4780…47a8 Head {h00=0x0024, h01=0x0050, text=» LC A5,LINLEN,A5 GET LINE LENGTH«, t00=0x002d, t01=0x013c}
0x47a8…47d4 Head {h00=0x0028, h01=0x0050, text=» LDR A5,A5 NL,EM AND CR DET. LENGTH?«, t00=0x002d, t01=0x0164}
0x47d4…47ee Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP100 NO «, t00=0x002d, t01=0x0190}
0x47ee…481c Head {h00=0x002a, h01=0x0050, text=» LD A1,PRTTYP,A11 GET MAX LINE LENGTH «, t00=0x002e, t01=0x001a}
0x481c…4836 Head {h00=0x0016, h01=0x0050, text=» LC A5,PRTLEN+1,A1«, t00=0x002e, t01=0x0048}
0x4836…484a Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x002e, t01=0x0062}
0x484a…4860 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x002e, t01=0x0076}
0x4860…4874 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002e, t01=0x008c}
0x4874…4890 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x002e, t01=0x00a0}
0x4890…48a8 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A8 . =24«, t00=0x002e, t01=0x00bc}
0x48a8…48da Head {h00=0x002e, h01=0x0050, text=» LD A8,PRBA,A11 PRINTER BUFFER ADDRESS =24«, t00=0x002e, t01=0x00d4}
0x48da…4902 Head {h00=0x0024, h01=0x0050, text=» ST A8,ECBBA,A1 STORE IN ECB =24«, t00=0x002e, t01=0x0106}
0x4902…4932 Head {h00=0x002c, h01=0x0050, text=» AD A8,PRLMAR,A11 ALLOW LEFT MARG/CR =25«, t00=0x002e, t01=0x012e}
0x4932…496c Head {h00=0x0036, h01=0x0050, text=» CM PRCCCT,A11 CLEAR BUFFER CHARACTER COUNTER =36 «, t00=0x002e, t01=0x015e}
0x496c…4980 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x002f, t01=0x0008}
0x4980…499c Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x002f, t01=0x001c}
0x499c…49b4 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBBA,A8 «, t00=0x002f, t01=0x0038}
0x49b4…49d8 Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x002f, t01=0x0050}
0x49d8…49ea Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x002f, t01=0x0074}
0x49ea…49fe Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x002f, t01=0x0086}
0x49fe…4a10 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x002f, t01=0x009a}
0x4a10…4a22 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002f, t01=0x00ac}
0x4a22…4a34 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x002f, t01=0x00be}
0x4a34…4a56 Head {h00=0x001e, h01=0x0050, text=» SUR A10,A10 RESET STATUS «, t00=0x002f, t01=0x00d0}
0x4a56…4a6a Head {h00=0x0010, h01=0x0050, text=»COP200 EQU *«, t00=0x002f, t01=0x00f2}
0x4a6a…4a8c Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU ALL PRINTED?«, t00=0x002f, t01=0x0106}
0x4a8c…4aa6 Head {h00=0x0016, h01=0x0050, text=» RF(NL) COP850 YES«, t00=0x002f, t01=0x0128}
0x4aa6…4ac4 Head {h00=0x001a, h01=0x0050, text=» CWR A9,A5 LINE FULL? «, t00=0x002f, t01=0x0142}
0x4ac4…4adc Head {h00=0x0014, h01=0x0050, text=» RF(L) COP400 NO«, t00=0x002f, t01=0x0160}
0x4adc…4afe Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x002f, t01=0x0178}
0x4afe…4b20 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0030, t01=0x000a}
0x4b20…4b3a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x0030, t01=0x002c}
0x4b3a…4b4e Head {h00=0x0010, h01=0x0050, text=»COP400 EQU *«, t00=0x0030, t01=0x0046}
0x4b4e…4b6a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0030, t01=0x005a}
0x4b6a…4b7e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0030, t01=0x0076}
0x4b7e…4b9e Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP650 NULL CHAR.«, t00=0x0030, t01=0x008a}
0x4b9e…4bbe Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0030, t01=0x00aa}
0x4bbe…4bd6 Head {h00=0x0014, h01=0x0050, text=» RF(L) COP500 NO«, t00=0x0030, t01=0x00ca}
0x4bd6…4bfa Head {h00=0x0020, h01=0x0050, text=» LDR A6,A2 GET NEW ATTRIBUTE«, t00=0x0030, t01=0x00e2}
0x4bfa…4c0c Head {h00=0x000e, h01=0x0050, text=» RF COP650«, t00=0x0030, t01=0x0106}
0x4c0c…4c20 Head {h00=0x0010, h01=0x0050, text=»COP500 EQU *«, t00=0x0030, t01=0x0118}
0x4c20…4c3c Head {h00=0x0018, h01=0x0050, text=» CCK A2,/2020 ORDER?«, t00=0x0030, t01=0x012c}
0x4c3c…4c56 Head {h00=0x0016, h01=0x0050, text=» RF(L) COP550 YES «, t00=0x0030, t01=0x0148}
0x4c56…4c84 Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x0030, t01=0x0162}
0x4c84…4c96 Head {h00=0x000e, h01=0x0050, text=» RF COP600«, t00=0x0030, t01=0x0190}
0x4c96…4caa Head {h00=0x0010, h01=0x0050, text=»COP550 EQU *«, t00=0x0031, t01=0x0012}
0x4caa…4cd0 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETTAB GET ORDERINDEX «, t00=0x0031, t01=0x0026}
0x4cd0…4cf6 Head {h00=0x0022, h01=0x0050, text=» CFR A14,A1 TAKE CARE OF ORDER«, t00=0x0031, t01=0x004c}
0x4cf6…4d18 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0031, t01=0x0072}
0x4d18…4d32 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x0031, t01=0x0094}
0x4d32…4d50 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A10 GET STATUS«, t00=0x0031, t01=0x00ae}
0x4d50…4d74 Head {h00=0x0020, h01=0x0050, text=» RF(N) COP800 GET NEXT CHAR.«, t00=0x0031, t01=0x00cc}
0x4d74…4d86 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0031, t01=0x00f0}
0x4d86…4da0 Head {h00=0x0016, h01=0x0050, text=» RF(N) COP850 END «, t00=0x0031, t01=0x0102}
0x4da0…4db4 Head {h00=0x0010, h01=0x0050, text=»COP600 EQU *«, t00=0x0031, t01=0x011c}
0x4db4…4dd8 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 CHECK IF NONPRINT«, t00=0x0031, t01=0x0130}
0x4dd8…4dea Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0031, t01=0x0154}
0x4dea…4dfc Head {h00=0x000e, h01=0x0050, text=» XRK A1,/C«, t00=0x0031, t01=0x0166}
0x4dfc…4e1a Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP650 NONPRINT«, t00=0x0031, t01=0x0178}
0x4e1a…4e4a Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INIDICATE NOT ONLY NOT «, t00=0x0032, t01=0x0008}
0x4e4a…4e5c Head {h00=0x000e, h01=0x0050, text=» RF COP700«, t00=0x0032, t01=0x0038}
0x4e5c…4e70 Head {h00=0x0010, h01=0x0050, text=»COP650 EQU *«, t00=0x0032, t01=0x004a}
0x4e70…4e96 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0032, t01=0x005e}
0x4e96…4eaa Head {h00=0x0010, h01=0x0050, text=»COP700 EQU *«, t00=0x0032, t01=0x0084}
0x4eaa…4ec4 Head {h00=0x0016, h01=0x0050, text=» IFF TRANAT=0 . =4«, t00=0x0032, t01=0x0098}
0x4ec4…4ef2 Head {h00=0x002a, h01=0x0050, text=» LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4«, t00=0x0032, t01=0x00b2}
0x4ef2…4f04 Head {h00=0x000e, h01=0x0050, text=» XIF . =4«, t00=0x0032, t01=0x00e0}
0x4f04…4f16 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A8«, t00=0x0032, t01=0x00f2}
0x4f16…4f28 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0032, t01=0x0104}
0x4f28…4f3a Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0032, t01=0x0116}
0x4f3a…4f5a Head {h00=0x001c, h01=0x0050, text=» CCK A2,/2020 SPACE? =3 «, t00=0x0032, t01=0x0128}
0x4f5a…4f8c Head {h00=0x002e, h01=0x0050, text=» RF(E) COP800 YES, DON'T UPDATE LENGTH =3 «, t00=0x0032, t01=0x0148}
0x4f8c…4fb0 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBPRT,A11 GET ECB =3«, t00=0x0032, t01=0x017a}
0x4fb0…4fe6 Head {h00=0x0032, h01=0x0050, text=» ST A9,ECBRL,A1 UPDATE LAST POS. NOT SPACE =3 «, t00=0x0033, t01=0x000e}
0x4fe6…4ffa Head {h00=0x0010, h01=0x0050, text=»COP800 EQU *«, t00=0x0033, t01=0x0044}
0x4ffa…5030 Head {h00=0x0032, h01=0x0050, text=» ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3«, t00=0x0033, t01=0x0058}
0x5030…5042 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x008e}
0x5042…5054 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x00a0}
0x5054…5066 Head {h00=0x000e, h01=0x0050, text=» RB COP200«, t00=0x0033, t01=0x00b2}
0x5066…507a Head {h00=0x0010, h01=0x0050, text=»COP850 EQU *«, t00=0x0033, t01=0x00c4}
0x507a…5096 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0033, t01=0x00d8}
0x5096…50c2 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A9 SOMETHING LEFT TO PRINT? «, t00=0x0033, t01=0x00f4}
0x50c2…50e0 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP950 NO! =19 «, t00=0x0033, t01=0x0120}
0x50e0…5106 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x0033, t01=0x013e}
0x5106…512a Head {h00=0x0020, h01=0x0050, text=» ANKL A10,ENDPRT END MESS.? «, t00=0x0033, t01=0x0164}
0x512a…514a Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP900 NO STOP IT«, t00=0x0033, t01=0x0188}
0x514a…5176 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE «, t00=0x0034, t01=0x0018}
0x5176…519c Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE EXTRA LINE FEED«, t00=0x0034, t01=0x0044}
0x519c…51b0 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0034, t01=0x006a}
0x51b0…51cc Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0034, t01=0x007e}
0x51cc…51fc Head {h00=0x002c, h01=0x0050, text=» LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 «, t00=0x0034, t01=0x009a}
0x51fc…521a Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP860 NO! =24 «, t00=0x0034, t01=0x00ca}
0x521a…5240 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT TEXT =24 «, t00=0x0034, t01=0x00e8}
0x5240…525a Head {h00=0x0016, h01=0x0050, text=»COP860 EQU * . =24«, t00=0x0034, t01=0x010e}
0x525a…5272 Head {h00=0x0014, h01=0x0050, text=» IFF SCS=1 . =26«, t00=0x0034, t01=0x0128}
0x5272…529a Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 TEST END MESS. DK38 «, t00=0x0034, t01=0x0140}
0x529a…52b8 Head {h00=0x001a, h01=0x0050, text=» ANKL A1,ENDPRT DK38 «, t00=0x0034, t01=0x0168}
0x52b8…52d4 Head {h00=0x0018, h01=0x0050, text=» RF(Z) COP870 DK38 «, t00=0x0034, t01=0x0186}
0x52d4…530a Head {h00=0x0032, h01=0x0050, text=» ANKL A10,NOEMLF TEST IF EXTRA LF NECESS. DK38«, t00=0x0035, t01=0x0012}
0x530a…5332 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COP870 NO, SKIP IT DK38 «, t00=0x0035, t01=0x0048}
0x5332…5362 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE =24 «, t00=0x0035, t01=0x0070}
0x5362…538c Head {h00=0x0026, h01=0x0050, text=» CF A14,PRLINE EXTRA LINEFEED =24 «, t00=0x0035, t01=0x00a0}
0x538c…53a0 Head {h00=0x0010, h01=0x0050, text=» XIF . =26 «, t00=0x0035, t01=0x00ca}
0x53a0…53bc Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =26 «, t00=0x0035, t01=0x00de}
0x53bc…53d6 Head {h00=0x0016, h01=0x0050, text=»COP870 EQU * . =24«, t00=0x0035, t01=0x00fa}
0x53d6…5408 Head {h00=0x002e, h01=0x0050, text=» CF A14,PRCCH CONTROL CH:S TO PRINTER =24 «, t00=0x0035, t01=0x0114}
0x5408…541c Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0035, t01=0x0146}
0x541c…5430 Head {h00=0x0010, h01=0x0050, text=»COP900 EQU *«, t00=0x0035, t01=0x015a}
0x5430…5452 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER FAILED?«, t00=0x0035, t01=0x016e}
0x5452…546a Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP950 NO«, t00=0x0035, t01=0x0190}
0x546a…5486 Head {h00=0x0018, h01=0x0050, text=» LD A2,WCC,A11 . =32«, t00=0x0036, t01=0x0018}
0x5486…54ae Head {h00=0x0024, h01=0x0050, text=» CWK A2,/38 LOCAL HARDCOPY? =32 «, t00=0x0036, t01=0x0034}
0x54ae…54da Head {h00=0x0028, h01=0x0050, text=» RF(E) COP910 YES. SKIP PRINTING =32«, t00=0x0036, t01=0x005c}
0x54da…5510 Head {h00=0x0032, h01=0x0050, text=» CF A14,TSTPRT WAIT UNTIL PRINTER OPERABLE =32«, t00=0x0036, t01=0x0088}
0x5510…5536 Head {h00=0x0022, h01=0x0050, text=» ABL COPP RESUME PRINTING =34 «, t00=0x0036, t01=0x00be}
0x5536…5550 Head {h00=0x0016, h01=0x0050, text=»COP910 EQU * . =32«, t00=0x0036, t01=0x00e4}
0x5550…5576 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,PRTERR INDICATE ERROR«, t00=0x0036, t01=0x00fe}
0x5576…5590 Head {h00=0x0016, h01=0x0050, text=» ORS A2,PRTMOD,A11«, t00=0x0036, t01=0x0124}
0x5590…55a4 Head {h00=0x0010, h01=0x0050, text=»COP950 EQU *«, t00=0x0036, t01=0x013e}
0x55a4…55b4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x0152}
0x55b4…55c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0162}
0x55c2…5612 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0036, t01=0x0170}
0x5612…561c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0030}
0x561c…563e Head {h00=0x001e, h01=0x0050, text=»* TABLE FOR PRINTERORDERS «, t00=0x0037, t01=0x003a}
0x563e…5648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x005c}
0x5648…5698 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0037, t01=0x0066}
0x5698…56ac Head {h00=0x0010, h01=0x0050, text=»PRTORD EQU *«, t00=0x0037, t01=0x00b6}
0x56ac…56d6 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF ORDER CODES «, t00=0x0037, t01=0x00ca}
0x56d6…56fe Head {h00=0x0024, h01=0x0050, text=» DATA /0A0A,NL,NL,NL,NL NEW LINE«, t00=0x0037, t01=0x00f4}
0x56fe…5734 Head {h00=0x0032, h01=0x0050, text=» DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED «, t00=0x0037, t01=0x011c}
0x5734…5760 Head {h00=0x0028, h01=0x0050, text=» DATA /0D0D,CR,CR,CR,CR CARR. RETURN«, t00=0x0037, t01=0x0152}
0x5760…578c Head {h00=0x0028, h01=0x0050, text=» DATA /1919,EM,EM,EM,EM END MESSAGE «, t00=0x0037, t01=0x017e}
0x578c…57b2 Head {h00=0x0022, h01=0x0050, text=» DATA INVAL INVALID ORDER CODE«, t00=0x0038, t01=0x001a}
0x57b2…57c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0040}
0x57c0…5814 Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x0038, t01=0x004e}
0x5814…5868 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x0038, t01=0x00a2}
0x5868…58bc Head {h00=0x0050, h01=0x0050, text=»* NL NEW LINE *«, t00=0x0038, t01=0x00f6}
0x58bc…5910 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x0038, t01=0x014a}
0x5910…5964 Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x0039, t01=0x000e}
0x5964…5974 Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x0039, t01=0x0062}
0x5974…59a2 Head {h00=0x002a, h01=0x0050, text=» ORKL A10,NXTCHA+NTONLY GET NEXT CHAR.«, t00=0x0039, t01=0x0072}
0x59a2…59c8 Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 GET NEXT CHAR. DK38 «, t00=0x0039, t01=0x00a0}
0x59c8…59e0 Head {h00=0x0014, h01=0x0050, text=» LCR A1,A3 DK38«, t00=0x0039, t01=0x00c6}
0x59e0…5a00 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF MASK IT DK38«, t00=0x0039, t01=0x00de}
0x5a00…5a24 Head {h00=0x0020, h01=0x0050, text=» CWK A1,/19 END MESS.? DK38 «, t00=0x0039, t01=0x00fe}
0x5a24…5a4a Head {h00=0x0022, h01=0x0050, text=» RF(E) NL005 YES, FLAG IT DK38«, t00=0x0039, t01=0x0122}
0x5a4a…5a7c Head {h00=0x002e, h01=0x0050, text=» ANKL A10,/FFFF-NOEMLF NO, CLEAR FLAG DK38«, t00=0x0039, t01=0x0148}
0x5a7c…5a94 Head {h00=0x0014, h01=0x0050, text=» RF NL010 DK38 «, t00=0x0039, t01=0x017a}
0x5a94…5aae (58, 0, 400) Head {h00=0x0016, h01=0x0050, text=»NL005 EQU * DK38 «, t00=0x003a, t01=0x0004}
0x5aae…5ada Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NOEMLF INDICATE NO LF DK38«, t00=0x003a, t01=0x001e}
0x5ada…5af4 Head {h00=0x0016, h01=0x0050, text=»NL010 EQU * DK38 «, t00=0x003a, t01=0x004a}
0x5af4…5b1a Head {h00=0x0022, h01=0x0050, text=» SUK A3,1 RESTORE POINTER DK38«, t00=0x003a, t01=0x0064}
0x5b1a…5b4a Head {h00=0x002c, h01=0x0050, text=» CF A14,PRLINE PRINT LINE AFTER NEW LINE«, t00=0x003a, t01=0x008a}
0x5b4a…5b5a Head {h00=0x000c, h01=0x0050, text=» . =DK«, t00=0x003a, t01=0x00ba}
0x5b5a…5b6a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x00ca}
0x5b6a…5b78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00da}
0x5b78…5bc6 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003a, t01=0x00e8}
0x5bc6…5c14 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0136}
0x5c14…5c62 Head {h00=0x004a, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED *«, t00=0x003a, t01=0x0184}
0x5c62…5cb0 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0042}
0x5cb0…5cfe Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003b, t01=0x0090}
0x5cfe…5d12 Head {h00=0x0010, h01=0x0050, text=»FFDUM EQU * «, t00=0x003b, t01=0x00de}
0x5d12…5d44 Head {h00=0x002e, h01=0x0050, text=» CF A14,FFCHK CHECK IF FORM FEED IS VALID «, t00=0x003b, t01=0x00f2}
0x5d44…5d5e Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x003b, t01=0x0124}
0x5d5e…5d78 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD400 NO «, t00=0x003b, t01=0x013e}
0x5d78…5d90 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 RESET «, t00=0x003b, t01=0x0158}
0x5d90…5dba Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTTYP,A11 TYPE OF PRINTER «, t00=0x003b, t01=0x0170}
0x5dba…5ddc Head {h00=0x001e, h01=0x0050, text=» LC A7,PRTLEN,A1 PAGE SIZE«, t00=0x003c, t01=0x000a}
0x5ddc…5df0 Head {h00=0x0010, h01=0x0050, text=»FFD100 EQU *«, t00=0x003c, t01=0x002c}
0x5df0…5e14 Head {h00=0x0020, h01=0x0050, text=» CW A7,LINCNT,A11 NEW PAGE? «, t00=0x003c, t01=0x0040}
0x5e14…5e3a Head {h00=0x0022, h01=0x0050, text=» RF(L) FFD200 YES BUT TO MANY «, t00=0x003c, t01=0x0064}
0x5e3a…5e5c Head {h00=0x001e, h01=0x0050, text=» RF(E) FFD300 YES FINISHED«, t00=0x003c, t01=0x008a}
0x5e5c…5e74 Head {h00=0x0014, h01=0x0050, text=» ORKL A10,NTONLY«, t00=0x003c, t01=0x00ac}
0x5e74…5e90 Head {h00=0x0018, h01=0x0050, text=» ST A7,REGI,A11 SAVE«, t00=0x003c, t01=0x00c4}
0x5e90…5eb8 Head {h00=0x0024, h01=0x0050, text=» CF A14,PRLINE ADVANCE ONE LINE «, t00=0x003c, t01=0x00e0}
0x5eb8…5ed8 Head {h00=0x001c, h01=0x0050, text=» LD A7,REGI,A11 RESTORE «, t00=0x003c, t01=0x0108}
0x5ed8…5efa Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x003c, t01=0x0128}
0x5efa…5f14 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD500 YES«, t00=0x003c, t01=0x014a}
0x5f14…5f26 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x003c, t01=0x0164}
0x5f26…5f3a Head {h00=0x0010, h01=0x0050, text=»FFD200 EQU *«, t00=0x003c, t01=0x0176}
0x5f3a…5f4c Head {h00=0x000e, h01=0x0050, text=» NGR A1,A7«, t00=0x003c, t01=0x018a}
0x5f4c…5f7a Head {h00=0x002a, h01=0x0050, text=» ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE «, t00=0x003d, t01=0x000c}
0x5f7a…5f8c Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x003d, t01=0x003a}
0x5f8c…5fa0 Head {h00=0x0010, h01=0x0050, text=»FFD300 EQU *«, t00=0x003d, t01=0x004c}
0x5fa0…5fc2 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x003d, t01=0x0060}
0x5fc2…5fec Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x003d, t01=0x0082}
0x5fec…6000 Head {h00=0x0010, h01=0x0050, text=»FFD400 EQU *«, t00=0x003d, t01=0x00ac}
0x6000…601e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003d, t01=0x00c0}
0x601e…6032 Head {h00=0x0010, h01=0x0050, text=»FFD500 EQU *«, t00=0x003d, t01=0x00de}
0x6032…6042 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x00f2}
0x6042…6050 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0102}
0x6050…609e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x003d, t01=0x0110}
0x609e…60ec Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x003d, t01=0x015e}
0x60ec…613a Head {h00=0x004a, h01=0x0050, text=»* FFVAL FORM FEED *«, t00=0x003e, t01=0x001c}
0x613a…6188 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x003e, t01=0x006a}
0x6188…61d6 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x003e, t01=0x00b8}
0x61d6…61ea Head {h00=0x0010, h01=0x0050, text=»FFVAL EQU * «, t00=0x003e, t01=0x0106}
0x61ea…6212 Head {h00=0x0024, h01=0x0050, text=» CF A14,FFCHK CHECK IF FF VALID «, t00=0x003e, t01=0x011a}
0x6212…622c Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x003e, t01=0x0142}
0x622c…6246 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFV200 NO «, t00=0x003e, t01=0x015c}
0x6246…6256 Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x003e, t01=0x0176}
0x6256…6272 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =30 «, t00=0x003e, t01=0x0186}
0x6272…62a0 Head {h00=0x002a, h01=0x0050, text=» LDK A1,/31 FF FOR STANDARD WRITE =30 «, t00=0x003f, t01=0x0012}
0x62a0…62cc Head {h00=0x0028, h01=0x0050, text=» SC A1,-1,A8 STORE FF CONTROL CHAR. «, t00=0x003f, t01=0x0040}
0x62cc…62e0 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x003f, t01=0x006c}
0x62e0…62fc Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x003f, t01=0x0080}
0x62fc…6324 Head {h00=0x0024, h01=0x0050, text=» ORKL A10,FFCCH IND. FF CCH =36 «, t00=0x003f, t01=0x009c}
0x6324…634a Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LINE =36 «, t00=0x003f, t01=0x00c4}
0x634a…635e Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x003f, t01=0x00ea}
0x635e…637c Head {h00=0x001a, h01=0x0050, text=» ORKL A10,NXTCHA . =DK«, t00=0x003f, t01=0x00fe}
0x637c…639e Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x003f, t01=0x011c}
0x639e…63b2 Head {h00=0x0010, h01=0x0050, text=»FFV200 EQU *«, t00=0x003f, t01=0x013e}
0x63b2…63d0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003f, t01=0x0152}
0x63d0…63e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x0170}
0x63e0…63ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0180}
0x63ee…643c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003f, t01=0x018e}
0x643c…648a Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0040, t01=0x004c}
0x648a…64d8 Head {h00=0x004a, h01=0x0050, text=»* CR CARRIAGE RETURN *«, t00=0x0040, t01=0x009a}
0x64d8…6526 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0040, t01=0x00e8}
0x6526…6574 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0040, t01=0x0136}
0x6574…6584 Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x0040, t01=0x0184}
0x6584…65a4 (65, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 GET ATTRIBUTE«, t00=0x0041, t01=0x0004}
0x65a4…65b6 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0041, t01=0x0024}
0x65b6…65d8 Head {h00=0x001e, h01=0x0050, text=» XRK A1,/C NONPRINT FIELD?«, t00=0x0041, t01=0x0036}
0x65d8…65f0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CR100 YES«, t00=0x0041, t01=0x0058}
0x65f0…6606 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0041, t01=0x0070}
0x6606…6624 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/30 FORMATTED?«, t00=0x0041, t01=0x0086}
0x6624…663c Head {h00=0x0014, h01=0x0050, text=» RF(NZ) CR100 NO«, t00=0x0041, t01=0x00a4}
0x663c…6666 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,NTONLY+CRREC CR RECEIVED«, t00=0x0041, t01=0x00bc}
0x6666…667a Head {h00=0x0010, h01=0x0050, text=»CR100 EQU * «, t00=0x0041, t01=0x00e6}
0x667a…66a0 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0041, t01=0x00fa}
0x66a0…66be Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0041, t01=0x0120}
0x66be…66ce Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x013e}
0x66ce…66dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x014e}
0x66dc…672a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0041, t01=0x015c}
0x672a…6776 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0042, t01=0x001a}
0x6776…67c2 Head {h00=0x0048, h01=0x0050, text=»* EM END MESSAGE *«, t00=0x0042, t01=0x0066}
0x67c2…680e Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0042, t01=0x00b2}
0x680e…685a Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0042, t01=0x00fe}
0x685a…686a Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x0042, t01=0x014a}
0x686a…6890 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,ENDPRT END PRINTING «, t00=0x0042, t01=0x015a}
0x6890…68ae Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0042, t01=0x0180}
0x68ae…68be Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x000e}
0x68be…68cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x001e}
0x68cc…6916 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0043, t01=0x002c}
0x6916…6960 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0043, t01=0x0076}
0x6960…69aa Head {h00=0x0046, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER *«, t00=0x0043, t01=0x00c0}
0x69aa…69f4 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0043, t01=0x010a}
0x69f4…6a3e Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0043, t01=0x0154}
0x6a3e…6a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x000e}
0x6a48…6a60 Head {h00=0x0014, h01=0x0050, text=»* ALSO HANDLING:«, t00=0x0044, t01=0x0018}
0x6a60…6a7e Head {h00=0x001a, h01=0x0050, text=»* DUP & FM CHARACTERS «, t00=0x0044, t01=0x0030}
0x6a7e…6a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x004e}
0x6a88…6a9c Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x0044, t01=0x0058}
0x6a9c…6abc Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 SAVE CHAR =37«, t00=0x0044, t01=0x006c}
0x6abc…6aec Head {h00=0x002c, h01=0x0050, text=» CF A14,RFMDUP REPLACE IF DUP OR FM =37 «, t00=0x0044, t01=0x008c}
0x6aec…6b0c Head {h00=0x001c, h01=0x0050, text=» SUR A1,A2 REPLACED? =37«, t00=0x0044, t01=0x00bc}
0x6b0c…6b2c Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INVA10 YES! =37 «, t00=0x0044, t01=0x00dc}
0x6b2c…6b52 Head {h00=0x0022, h01=0x0050, text=» NO! I.E. INVALID ORDER =37 «, t00=0x0044, t01=0x00fc}
0x6b52…6b78 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0044, t01=0x0122}
0x6b78…6b92 Head {h00=0x0016, h01=0x0050, text=»INVA10 EQU * . =37«, t00=0x0044, t01=0x0148}
0x6b92…6bb4 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0044, t01=0x0162}
0x6bb4…6bd2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0044, t01=0x0184}
0x6bd2…6be2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0045, t01=0x0012}
0x6be2…6bf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0022}
0x6bf0…6c3a Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0045, t01=0x0030}
0x6c3a…6c84 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0045, t01=0x007a}
0x6c84…6cce Head {h00=0x0046, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID * «, t00=0x0045, t01=0x00c4}
0x6cce…6d18 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0045, t01=0x010e}
0x6d18…6d62 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0045, t01=0x0158}
0x6d62…6d76 Head {h00=0x0010, h01=0x0050, text=»FFCHK EQU * «, t00=0x0046, t01=0x0012}
0x6d76…6d8c Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0046, t01=0x0026}
0x6d8c…6da0 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x0046, t01=0x003c}
0x6da0…6dbe Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 FORMATTED?«, t00=0x0046, t01=0x0050}
0x6dbe…6df2 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY«, t00=0x0046, t01=0x006e}
0x6df2…6e08 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0046, t01=0x00a2}
0x6e08…6e2c Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 LOCAL HARD COPY?«, t00=0x0046, t01=0x00b8}
0x6e2c…6e56 Head {h00=0x0026, h01=0x0050, text=» RF(Z) FFCH20 YES, FF NOT ALLOWED «, t00=0x0046, t01=0x00dc}
0x6e56…6e6a Head {h00=0x0010, h01=0x0050, text=»FFCH10 EQU *«, t00=0x0046, t01=0x0106}
0x6e6a…6e88 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 FF ALLOWED «, t00=0x0046, t01=0x011a}
0x6e88…6ea2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH30 NOT «, t00=0x0046, t01=0x0138}
0x6ea2…6eb6 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0046, t01=0x0152}
0x6eb6…6eda Head {h00=0x0020, h01=0x0050, text=» ANKL A1,CRREC CR RECEIVED? «, t00=0x0046, t01=0x0166}
0x6eda…6ef4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFCH30 YES«, t00=0x0046, t01=0x018a}
0x6ef4…6f08 Head {h00=0x0010, h01=0x0050, text=»FFCH20 EQU *«, t00=0x0047, t01=0x0014}
0x6f08…6f2e Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0047, t01=0x0028}
0x6f2e…6f4c Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0047, t01=0x004e}
0x6f4c…6f5e Head {h00=0x000e, h01=0x0050, text=» RF FFCH40«, t00=0x0047, t01=0x006c}
0x6f5e…6f72 Head {h00=0x0010, h01=0x0050, text=»FFCH30 EQU *«, t00=0x0047, t01=0x007e}
0x6f72…6fa0 Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x0047, t01=0x0092}
0x6fa0…6fbe Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 EMPTY LINE «, t00=0x0047, t01=0x00c0}
0x6fbe…6fd8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH35 YES «, t00=0x0047, t01=0x00de}
0x6fd8…6ffa Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x0047, t01=0x00f8}
0x6ffa…700e Head {h00=0x0010, h01=0x0050, text=»FFCH35 EQU *«, t00=0x0047, t01=0x011a}
0x700e…702c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0047, t01=0x012e}
0x702c…7040 Head {h00=0x0010, h01=0x0050, text=»FFCH40 EQU *«, t00=0x0047, t01=0x014c}
0x7040…7062 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0047, t01=0x0160}
0x7062…7072 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0047, t01=0x0182}
0x7072…7080 (72, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0004}
0x7080…70c8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0048, t01=0x0012}
0x70c8…7110 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0048, t01=0x005a}
0x7110…7158 Head {h00=0x0044, h01=0x0050, text=»* PRLINE PRINT LINE *«, t00=0x0048, t01=0x00a2}
0x7158…71a0 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0048, t01=0x00ea}
0x71a0…71e8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0048, t01=0x0132}
0x71e8…71fc Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x0048, t01=0x017a}
0x71fc…7216 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0048, t01=0x018e}
0x7216…722a Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0049, t01=0x0018}
0x722a…724e Head {h00=0x0020, h01=0x0050, text=» ANKL A1,NTONLY ONLY RUBB.? «, t00=0x0049, t01=0x002c}
0x724e…7268 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL050 NO «, t00=0x0049, t01=0x0050}
0x7268…727e Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0049, t01=0x006a}
0x727e…7290 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0049, t01=0x0080}
0x7290…72a4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x0049, t01=0x0092}
0x72a4…72c2 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 HRADCOPY? «, t00=0x0049, t01=0x00a6}
0x72c2…72dc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x0049, t01=0x00c4}
0x72dc…72fe Head {h00=0x001e, h01=0x0050, text=» ANK A2,/40 HARDCOPY????? «, t00=0x0049, t01=0x00de}
0x72fe…7318 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x0049, t01=0x0100}
0x7318…732c Head {h00=0x0010, h01=0x0050, text=»PRL050 EQU *«, t00=0x0049, t01=0x011a}
0x732c…7368 Head {h00=0x0038, h01=0x0050, text=» ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 «, t00=0x0049, t01=0x012e}
0x7368…7384 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0049, t01=0x016a}
0x7384…73b6 Head {h00=0x002e, h01=0x0050, text=» LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 «, t00=0x0049, t01=0x0186}
0x73b6…73d4 Head {h00=0x001a, h01=0x0050, text=» ADS A9,ECBRL,A8 . =3 «, t00=0x004a, t01=0x0028}
0x73d4…73ee Head {h00=0x0016, h01=0x0050, text=» LDK A7,/06 PRINT «, t00=0x004a, t01=0x0046}
0x73ee…73fa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004a, t01=0x0060}
0x73fa…740a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x004a, t01=0x006c}
0x740a…741e Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x004a, t01=0x007c}
0x741e…743a Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x004a, t01=0x0090}
0x743a…7464 Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBRL,A8 TEXT TO PRINT? =24«, t00=0x004a, t01=0x00ac}
0x7464…7492 Head {h00=0x002a, h01=0x0050, text=» RF(Z) PRL070 NO! JUST CONTROL CH =24 «, t00=0x004a, t01=0x00d6}
0x7492…74ba Head {h00=0x0024, h01=0x0050, text=» EJECT HANDLING A TEXT LINE =36«, t00=0x004a, t01=0x0104}
0x74ba…74e8 Head {h00=0x002a, h01=0x0050, text=» PREPARE LINE. FIRST LEFT MARGIN =36«, t00=0x004a, t01=0x012c}
0x74e8…7502 Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =36«, t00=0x004a, t01=0x015a}
0x7502…7536 Head {h00=0x0030, h01=0x0050, text=» LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 «, t00=0x004a, t01=0x0174}
0x7536…7556 Head {h00=0x001c, h01=0x0050, text=» LD A1,PRLMAR,A11 . =36 «, t00=0x004b, t01=0x0018}
0x7556…7574 Head {h00=0x001a, h01=0x0050, text=» AD A1,ECBBA,A8 . =36 «, t00=0x004b, t01=0x0038}
0x7574…758c Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x004b, t01=0x0056}
0x758c…75a6 Head {h00=0x0016, h01=0x0050, text=»PRL055 EQU * . =36«, t00=0x004b, t01=0x006e}
0x75a6…75be Head {h00=0x0014, h01=0x0050, text=» SCR A7,A1 . =36«, t00=0x004b, t01=0x0088}
0x75be…75d6 Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x004b, t01=0x00a0}
0x75d6…75fc Head {h00=0x0022, h01=0x0050, text=» CW A1,ECBBA,A8 FINISHED? =36 «, t00=0x004b, t01=0x00b8}
0x75fc…761a Head {h00=0x001a, h01=0x0050, text=» RB(G) PRL055 NO! =36 «, t00=0x004b, t01=0x00de}
0x761a…762e Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x004b, t01=0x00fc}
0x762e…764a Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x004b, t01=0x0110}
0x764a…765a Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x004b, t01=0x012c}
0x765a…7678 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0D CR CCH =36«, t00=0x004b, t01=0x013c}
0x7678…76ac Head {h00=0x0030, h01=0x0050, text=» SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 «, t00=0x004b, t01=0x015a}
0x76ac…76d4 Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x004b, t01=0x018e}
0x76d4…76f2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/0A LF CCH =24«, t00=0x004c, t01=0x0026}
0x76f2…7710 Head {h00=0x001a, h01=0x0050, text=» LD A7,ECBRL,A8 . =24 «, t00=0x004c, t01=0x0044}
0x7710…772e Head {h00=0x001a, h01=0x0050, text=» AD A7,ECBBA,A8 . =24 «, t00=0x004c, t01=0x0062}
0x772e…7762 Head {h00=0x0030, h01=0x0050, text=» AD A7,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x004c, t01=0x0080}
0x7762…778c Head {h00=0x0026, h01=0x0050, text=» SCR A1,A7 LF CCH LAST IN BUF =25 «, t00=0x004c, t01=0x00b4}
0x778c…779c Head {h00=0x000c, h01=0x0050, text=» . =35«, t00=0x004c, t01=0x00de}
0x779c…77c0 Head {h00=0x0020, h01=0x0050, text=» CALCULATE LINE LENGTH =36«, t00=0x004c, t01=0x00ee}
0x77c0…77e2 Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 ALLOW FOR LF =36«, t00=0x004c, t01=0x0112}
0x77e2…780c Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBRL,A8 ALLOW FOR TEXT =36«, t00=0x004c, t01=0x0134}
0x780c…7840 Head {h00=0x0030, h01=0x0050, text=» AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 «, t00=0x004c, t01=0x015e}
0x7840…7874 (77, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36«, t00=0x004d, t01=0x0004}
0x7874…78aa Head {h00=0x0032, h01=0x0050, text=» ADS A1,ECBBA,A8 UPDATE POINTER TO BUFFER =36 «, t00=0x004d, t01=0x0038}
0x78aa…78c0 Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x004d, t01=0x006e}
0x78c0…78f8 Head {h00=0x0034, h01=0x0050, text=»PRL060 EQU * ENOUGH SPACE FOR ANOTHER LINE? =36 «, t00=0x004d, t01=0x0084}
0x78f8…7920 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PRBFL BUFFER LENGTH =36«, t00=0x004d, t01=0x00bc}
0x7920…7952 Head {h00=0x002e, h01=0x0050, text=» SU A1,PRCCCT,A11 USED PART OF BUFFER =36 «, t00=0x004d, t01=0x00e4}
0x7952…797a Head {h00=0x0024, h01=0x0050, text=» SUR A1,A5 MAX. LINE LENGTH =36 «, t00=0x004d, t01=0x0116}
0x797a…79a4 Head {h00=0x0026, h01=0x0050, text=» SU A1,PRLMAR,A11 LEFT MARGIN =36 «, t00=0x004d, t01=0x013e}
0x79a4…79d8 Head {h00=0x0030, h01=0x0050, text=» RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 «, t00=0x004d, t01=0x0168}
0x79d8…79e8 Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x004e, t01=0x000c}
0x79e8…7a0e Head {h00=0x0022, h01=0x0050, text=»PRL065 EQU * PRINT BUFFER =36 «, t00=0x004e, t01=0x001c}
0x7a0e…7a2e Head {h00=0x001c, h01=0x0050, text=» LD A1,PRCCCT,A11 . =36 «, t00=0x004e, t01=0x0042}
0x7a2e…7a56 Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBRL,A8 REQ. LENGTH =36 «, t00=0x004e, t01=0x0062}
0x7a56…7a74 Head {h00=0x001a, h01=0x0050, text=» LD A1,PRBA,A11 . =36 «, t00=0x004e, t01=0x008a}
0x7a74…7a9e Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 BUFFER ADDRESS =36«, t00=0x004e, t01=0x00a8}
0x7a9e…7ac2 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/05 BASIC WRITE =24 «, t00=0x004e, t01=0x00d2}
0x7ac2…7ad6 Head {h00=0x0010, h01=0x0050, text=» LKM . =24 «, t00=0x004e, t01=0x00f6}
0x7ad6…7aec Head {h00=0x0012, h01=0x0050, text=» DATA 1 . =24 «, t00=0x004e, t01=0x010a}
0x7aec…7b1e Head {h00=0x002e, h01=0x0050, text=» CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24«, t00=0x004e, t01=0x0120}
0x7b1e…7b36 Head {h00=0x0014, h01=0x0050, text=» RF PRL090 . =24«, t00=0x004e, t01=0x0152}
0x7b36…7b66 Head {h00=0x002c, h01=0x0050, text=» EJECT HANDLING A CONTROL CHARACTER =36«, t00=0x004e, t01=0x016a}
0x7b66…7b94 Head {h00=0x002a, h01=0x0050, text=»PRL070 EQU * STORE CCH IN BUFFER =24 «, t00=0x004f, t01=0x000a}
0x7b94…7bbc Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x004f, t01=0x0038}
0x7bbc…7bda Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0A LF CCH =24«, t00=0x004f, t01=0x0060}
0x7bda…7bf4 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A10 . =36 «, t00=0x004f, t01=0x007e}
0x7bf4…7c1a Head {h00=0x0022, h01=0x0050, text=» ANKL A1,FFCCH FORM FEED? =36 «, t00=0x004f, t01=0x0098}
0x7c1a…7c36 Head {h00=0x0018, h01=0x0050, text=» RF(Z) PRL075 NO =36«, t00=0x004f, t01=0x00be}
0x7c36…7c5a Head {h00=0x0020, h01=0x0050, text=» LDK A7,/0C YES. FF CCH =36 «, t00=0x004f, t01=0x00da}
0x7c5a…7c8a Head {h00=0x002c, h01=0x0050, text=» ANKL A10,/FFFF-FFCCH RESET FF IND. =36 «, t00=0x004f, t01=0x00fe}
0x7c8a…7ca4 Head {h00=0x0016, h01=0x0050, text=»PRL075 EQU * . =36«, t00=0x004f, t01=0x012e}
0x7ca4…7cce Head {h00=0x0026, h01=0x0050, text=» SC* A7,ECBBA,A8 CCH TO BUFFER =36«, t00=0x004f, t01=0x0148}
0x7cce…7cfa Head {h00=0x0028, h01=0x0050, text=» IM ECBBA,A8 STEP BUFFER ADDRESS =36«, t00=0x004f, t01=0x0172}
0x7cfa…7d30 Head {h00=0x0032, h01=0x0050, text=» IM PRCCCT,A11 STEP NO. OF CH:S IN BUFFER =36 «, t00=0x0050, t01=0x000e}
0x7d30…7d5a Head {h00=0x0026, h01=0x0050, text=» ADKL A8,1 STEP BUFFER POINTER =36«, t00=0x0050, t01=0x0044}
0x7d5a…7d88 Head {h00=0x002a, h01=0x0050, text=» RB PRL060 CHECK IF END OF BUFFER =36 «, t00=0x0050, t01=0x006e}
0x7d88…7d9e Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x0050, t01=0x009c}
0x7d9e…7db8 Head {h00=0x0016, h01=0x0050, text=»PRL090 EQU * . =24«, t00=0x0050, t01=0x00b2}
0x7db8…7dcc Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0050, t01=0x00cc}
0x7dcc…7df0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,50 NUMBER OF DELAYS «, t00=0x0050, t01=0x00e0}
0x7df0…7e04 Head {h00=0x0010, h01=0x0050, text=»PRL100 EQU *«, t00=0x0050, t01=0x0104}
0x7e04…7e28 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,1 WAIT FOR A WHILE «, t00=0x0050, t01=0x0118}
0x7e28…7e34 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0050, t01=0x013c}
0x7e34…7e44 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0050, t01=0x0148}
0x7e44…7e5e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0050, t01=0x0158}
0x7e5e…7e80 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 PRINT COMPL.? «, t00=0x0050, t01=0x0172}
0x7e80…7e9a (81, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(N) PRL150 YES «, t00=0x0051, t01=0x0004}
0x7e9a…7ebe Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 MORE TO WAIT FOR? «, t00=0x0051, t01=0x001e}
0x7ebe…7ed8 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PRL100 YES«, t00=0x0051, t01=0x0042}
0x7ed8…7ee4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0051, t01=0x005c}
0x7ee4…7efa Head {h00=0x0012, h01=0x0050, text=» DATA 10 ABORT«, t00=0x0051, t01=0x0068}
0x7efa…7f0a Head {h00=0x000c, h01=0x0050, text=» . =27«, t00=0x0051, t01=0x007e}
0x7f0a…7f2e Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE ERROR =27«, t00=0x0051, t01=0x008e}
0x7f2e…7f40 Head {h00=0x000e, h01=0x0050, text=» RF PRL300«, t00=0x0051, t01=0x00b2}
0x7f40…7f54 Head {h00=0x0010, h01=0x0050, text=»PRL150 EQU *«, t00=0x0051, t01=0x00c4}
0x7f54…7f62 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0051, t01=0x00d8}
0x7f62…7f80 Head {h00=0x001a, h01=0x0050, text=» DATA 2 RESYNCHRONIZE «, t00=0x0051, t01=0x00e6}
0x7f80…7f9c Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0051, t01=0x0104}
0x7f9c…7fc0 Head {h00=0x0020, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE «, t00=0x0051, t01=0x0120}
0x7fc0…7fea Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x0051, t01=0x0144}
0x7fea…7ffe Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0051, t01=0x016e}
0x7ffe…801a Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0051, t01=0x0182}
0x801a…8054 Head {h00=0x0036, h01=0x0050, text=» ANKL A1,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x0052, t01=0x000e}
0x8054…8074 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) PRL300 YES! =23 «, t00=0x0052, t01=0x0048}
0x8074…8088 Head {h00=0x0010, h01=0x0050, text=»PRL200 EQU *«, t00=0x0052, t01=0x0068}
0x8088…80a4 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0052, t01=0x007c}
0x80a4…80d0 Head {h00=0x0028, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =36 «, t00=0x0052, t01=0x0098}
0x80d0…80fe Head {h00=0x002a, h01=0x0050, text=» LD A8,ECBBA,A8 SET BUFFER POINTER =36«, t00=0x0052, t01=0x00c4}
0x80fe…8132 Head {h00=0x0030, h01=0x0050, text=» AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x0052, t01=0x00f2}
0x8132…8146 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0052, t01=0x0126}
0x8146…8162 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0052, t01=0x013a}
0x8162…818c Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0052, t01=0x0156}
0x818c…81b0 Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0052, t01=0x0180}
0x81b0…81c4 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0053, t01=0x0014}
0x81c4…81d6 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0053, t01=0x0028}
0x81d6…81f2 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0053, t01=0x003a}
0x81f2…8204 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0053, t01=0x0056}
0x8204…8218 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0053, t01=0x0068}
0x8218…8236 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0053, t01=0x007c}
0x8236…824e Head {h00=0x0014, h01=0x0050, text=» RF PRL900 . =6 «, t00=0x0053, t01=0x009a}
0x824e…8262 Head {h00=0x0010, h01=0x0050, text=»PRL300 EQU *«, t00=0x0053, t01=0x00b2}
0x8262…8290 Head {h00=0x002a, h01=0x0050, text=» LD A2,PRTID,A11 GET PRINTER TASKID =6«, t00=0x0053, t01=0x00c6}
0x8290…82a8 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF . =6«, t00=0x0053, t01=0x00f4}
0x82a8…82c0 Head {h00=0x0014, h01=0x0050, text=» SUK A2,/30 . =6«, t00=0x0053, t01=0x010c}
0x82c0…82d6 Head {h00=0x0012, h01=0x0050, text=» SLL A2,2 . =6«, t00=0x0053, t01=0x0124}
0x82d6…8300 Head {h00=0x0026, h01=0x0050, text=» LD A3,+6,A13 COMMON BLOCK BASE =6«, t00=0x0053, t01=0x013a}
0x8300…831c Head {h00=0x0018, h01=0x0050, text=» ADK A3,TSKTAB . =6 «, t00=0x0053, t01=0x0164}
0x831c…8334 Head {h00=0x0014, h01=0x0050, text=» ADR A3,A2 . =6 «, t00=0x0053, t01=0x0180}
0x8334…835e Head {h00=0x0026, h01=0x0050, text=» SC A1,+3,A3 SET PRINTER STATUS =6«, t00=0x0054, t01=0x0008}
0x835e…8378 Head {h00=0x0016, h01=0x0050, text=»PRL900 EQU * . =6 «, t00=0x0054, t01=0x0032}
0x8378…8388 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x004c}
0x8388…83a4 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0054, t01=0x005c}
0x83a4…83ba Head {h00=0x0012, h01=0x0050, text=» EJECT . =24 «, t00=0x0054, t01=0x0078}
0x83ba…840a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0054, t01=0x008e}
0x840a…8414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00de}
0x8414…845a Head {h00=0x0042, h01=0x0050, text=»* PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER «, t00=0x0054, t01=0x00e8}
0x845a…8464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x012e}
0x8464…84b4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0054, t01=0x0138}
0x84b4…84be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0188}
0x84be…84d8 (85, 0, 400) Head {h00=0x0016, h01=0x0050, text=»PRCCH EQU * . =24 «, t00=0x0055, t01=0x0004}
0x84d8…8508 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRCCCT,A11 ANYTHING TO SEND? =24 «, t00=0x0055, t01=0x001e}
0x8508…852c Head {h00=0x0020, h01=0x0050, text=» RB(Z) PRL900 NO! RETURN =24«, t00=0x0055, t01=0x004e}
0x852c…8556 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBPRT,A11 ECB ADDRESS =24 «, t00=0x0055, t01=0x0072}
0x8556…8582 Head {h00=0x0028, h01=0x0050, text=» RB PRL065 SEND CH:S TO PRINTER =36 «, t00=0x0055, t01=0x009c}
0x8582…8596 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0055, t01=0x00c8}
0x8596…85a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x00dc}
0x85a4…85f0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0055, t01=0x00ea}
0x85f0…863c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0055, t01=0x0136}
0x863c…8688 Head {h00=0x0048, h01=0x0050, text=»* INIT INIT ROUTINE * «, t00=0x0055, t01=0x0182}
0x8688…86d4 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0056, t01=0x003e}
0x86d4…8720 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0056, t01=0x008a}
0x8720…8732 Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x0056, t01=0x00d6}
0x8732…8754 Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x0056, t01=0x00e8}
0x8754…8778 Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x0056, t01=0x010a}
0x8778…878a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0056, t01=0x012e}
0x878a…879c Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0056, t01=0x0140}
0x879c…87b0 Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0056, t01=0x0152}
0x87b0…87da Head {h00=0x0026, h01=0x0050, text=» ST A2,PRTID,A11 SAVE WHOLE TASKID«, t00=0x0056, t01=0x0166}
0x87da…8810 Head {h00=0x0032, h01=0x0050, text=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX «, t00=0x0056, t01=0x0190}
0x8810…8836 Head {h00=0x0022, h01=0x0050, text=» LD A7,PRTTAB NUMBER OF TYPES «, t00=0x0057, t01=0x0036}
0x8836…8866 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,PRTTAB+2 START OF PRINTER TABLE«, t00=0x0057, t01=0x005c}
0x8866…887a Head {h00=0x0010, h01=0x0050, text=»INI100 EQU *«, t00=0x0057, t01=0x008c}
0x887a…88a2 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CONVERT TYPE TO INDEX«, t00=0x0057, t01=0x00a0}
0x88a2…88b8 Head {h00=0x0012, h01=0x0050, text=» RF(E) INI200 «, t00=0x0057, t01=0x00c8}
0x88b8…88ca Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0057, t01=0x00de}
0x88ca…88e8 Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ILLEGAL ID? «, t00=0x0057, t01=0x00f0}
0x88e8…8902 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) INI100 NO «, t00=0x0057, t01=0x010e}
0x8902…8914 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0057, t01=0x0128}
0x8914…892c Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0057, t01=0x013a}
0x892c…8938 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0057, t01=0x0152}
0x8938…8952 Head {h00=0x0016, h01=0x0050, text=» DATA 3 FORGET IT «, t00=0x0057, t01=0x015e}
0x8952…8966 Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x0057, t01=0x0178}
0x8966…897a Head {h00=0x0010, h01=0x0050, text=» LD A1,+2,A1«, t00=0x0057, t01=0x018c}
0x897a…89a6 Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTTYP,A11 SAVE PRINTER TYPE «, t00=0x0058, t01=0x0010}
0x89a6…89c2 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0058, t01=0x003c}
0x89c2…89f4 Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBPRT,A11 PRINTER ECB ADDRESS =24 «, t00=0x0058, t01=0x0058}
0x89f4…8a26 Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBBA,A2 PRINTER BUFFER ADDRESS =24«, t00=0x0058, t01=0x008a}
0x8a26…8a56 Head {h00=0x002c, h01=0x0050, text=» ST A2,PRBA,A11 SAVE IT IN WORK AREA =24«, t00=0x0058, t01=0x00bc}
0x8a56…8a6e Head {h00=0x0014, h01=0x0050, text=» LDK A2,1 . =25 «, t00=0x0058, t01=0x00ec}
0x8a6e…8a98 Head {h00=0x0026, h01=0x0050, text=» ST A2,PRLMAR,A11 ALLOW FOR CR =25«, t00=0x0058, t01=0x0104}
0x8a98…8ac8 Head {h00=0x002c, h01=0x0050, text=» IFF LMARG=0 LEFT MARGIN FOR PRINTER =25«, t00=0x0058, t01=0x012e}
0x8ac8…8ae6 Head {h00=0x001a, h01=0x0050, text=» LD A1,LMARGT,A1 . =25«, t00=0x0058, t01=0x015e}
0x8ae6…8b1c Head {h00=0x0032, h01=0x0050, text=» ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25«, t00=0x0058, t01=0x017c}
0x8b1c…8b30 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0059, t01=0x0022}
0x8b30…8b40 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x0036}
0x8b40…8b4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0046}
0x8b4e…8b98 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0059, t01=0x0054}
0x8b98…8be2 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0059, t01=0x009e}
0x8be2…8c2c Head {h00=0x0046, h01=0x0050, text=»* TSTPRT TEST HARDWARE * «, t00=0x0059, t01=0x00e8}
0x8c2c…8c76 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0059, t01=0x0132}
0x8c76…8cc0 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0059, t01=0x017c}
0x8cc0…8cd4 Head {h00=0x0010, h01=0x0050, text=»TSTPRT EQU *«, t00=0x005a, t01=0x0036}
0x8cd4…8ce4 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x004a}
0x8ce4…8cfe Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x005a, t01=0x005a}
0x8cfe…8d1e Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x005a, t01=0x0074}
0x8d1e…8d32 Head {h00=0x0010, h01=0x0050, text=»TSTP10 EQU *«, t00=0x005a, t01=0x0094}
0x8d32…8d3e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005a, t01=0x00a8}
0x8d3e…8d4e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x005a, t01=0x00b4}
0x8d4e…8d6a Head {h00=0x0018, h01=0x0050, text=» LD A4,ECBRC,A8 . =6«, t00=0x005a, t01=0x00c4}
0x8d6a…8da4 Head {h00=0x0036, h01=0x0050, text=» ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x005a, t01=0x00e0}
0x8da4…8dc2 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TSTP20 NO! =31 «, t00=0x005a, t01=0x011a}
0x8dc2…8dec Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 YES. INDICATE ERROR =31 «, t00=0x005a, t01=0x0138}
0x8dec…8e06 Head {h00=0x0016, h01=0x0050, text=»TSTP20 EQU * . =31«, t00=0x005a, t01=0x0162}
0x8e06…8e16 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x017c}
0x8e16…8e34 Head {h00=0x001a, h01=0x0050, text=» LD A2,PRTID,A11 . =6 «, t00=0x005a, t01=0x018c}
0x8e34…8e48 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005b, t01=0x001a}
0x8e48…8e5c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x005b, t01=0x002e}
0x8e5c…8e6e Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x005b, t01=0x0042}
0x8e6e…8e84 Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x005b, t01=0x0054}
0x8e84…8e9a Head {h00=0x0012, h01=0x0050, text=» LDK A1,TSKTAB«, t00=0x005b, t01=0x006a}
0x8e9a…8eac Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x005b, t01=0x0080}
0x8eac…8ebe Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x005b, t01=0x0092}
0x8ebe…8ece Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005b, t01=0x00a4}
0x8ece…8f02 Head {h00=0x0030, h01=0x0050, text=» SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6«, t00=0x005b, t01=0x00b4}
0x8f02…8f20 Head {h00=0x001a, h01=0x0050, text=» ANK A4,1 OPERABLE? =6«, t00=0x005b, t01=0x00e8}
0x8f20…8f3e Head {h00=0x001a, h01=0x0050, text=» RF(Z) TSTP90 YES! =6 «, t00=0x005b, t01=0x0106}
0x8f3e…8f50 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005b, t01=0x0124}
0x8f50…8f64 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,100«, t00=0x005b, t01=0x0136}
0x8f64…8f70 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005b, t01=0x014a}
0x8f70…8f80 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x005b, t01=0x0156}
0x8f80…8f92 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005b, t01=0x0166}
0x8f92…8fa2 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005b, t01=0x0178}
0x8fa2…8fb4 Head {h00=0x000e, h01=0x0050, text=» RB TSTP10«, t00=0x005b, t01=0x0188}
0x8fb4…8fc4 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005c, t01=0x000a}
0x8fc4…8fd4 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005c, t01=0x001a}
0x8fd4…8fe4 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005c, t01=0x002a}
0x8fe4…8ff4 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005c, t01=0x003a}
0x8ff4…9008 Head {h00=0x0010, h01=0x0050, text=»TSTP90 EQU *«, t00=0x005c, t01=0x004a}
0x9008…9018 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x005e}
0x9018…9026 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x006e}
0x9026…9072 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x005c, t01=0x007c}
0x9072…90be Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x005c, t01=0x00c8}
0x90be…910a Head {h00=0x0048, h01=0x0050, text=»* GETTAB GET ORDER INDEX * «, t00=0x005c, t01=0x0114}
0x910a…9156 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x005c, t01=0x0160}
0x9156…91a2 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x005d, t01=0x001c}
0x91a2…91b6 Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x005d, t01=0x0068}
0x91b6…91e8 Head {h00=0x002e, h01=0x0050, text=» LD A7,PRTORD NUMBER OF VALID ORDER CODES «, t00=0x005d, t01=0x007c}
0x91e8…9212 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PRTORD+2 ORDERTABLE BASE «, t00=0x005d, t01=0x00ae}
0x9212…9226 Head {h00=0x0010, h01=0x0050, text=»GETT10 EQU *«, t00=0x005d, t01=0x00d8}
0x9226…9256 Head {h00=0x002c, h01=0x0050, text=» CCR A2,A1 CONVERT ORDER CODE TO ADDRESS«, t00=0x005d, t01=0x00ec}
0x9256…926c Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x005d, t01=0x011c}
0x926c…9282 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x005d, t01=0x0132}
0x9282…9298 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x005d, t01=0x0148}
0x9298…92aa Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x005d, t01=0x015e}
0x92aa…92c8 Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ORDER FOUND?«, t00=0x005d, t01=0x0170}
0x92c8…92e8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) GETT30 NO INVALID«, t00=0x005d, t01=0x018e}
0x92e8…9304 Head {h00=0x0018, h01=0x0050, text=» RB GETT10 TRY AGAIN«, t00=0x005e, t01=0x001e}
0x9304…9318 Head {h00=0x0010, h01=0x0050, text=»GETT20 EQU *«, t00=0x005e, t01=0x003a}
0x9318…932a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x005e, t01=0x004e}
0x932a…9344 Head {h00=0x0016, h01=0x0050, text=» LD A2,PRTTYP,A11 «, t00=0x005e, t01=0x0060}
0x9344…9356 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x005e, t01=0x007a}
0x9356…936a Head {h00=0x0010, h01=0x0050, text=»GETT30 EQU *«, t00=0x005e, t01=0x008c}
0x936a…937e Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x005e, t01=0x00a0}
0x937e…938e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x00b4}
0x938e…9396 Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00c4}
0x9396…93a2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005e, t01=0x00cc}
0x93a2…93a6 Head {h00=0x4004, h01=0x0000}
0x93a6…93aa 00 5e 00 d8 ┆ ^ ┆
0x93aa…93b2 (95, 1, 8) 20 04 00 00 00 5f 00 04 ┆ _ ┆
0x93b2…9402 (96, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 01 88 00 2a 00 26 03 12 00 00 07 bd 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 26 ┆ * & &┆
0x9402…9452 00 2a 00 26 03 12 00 00 07 db 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 54 00 26 00 22 03 10 00 00 07 f9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * & T & " ┆
0x9452…94a2 00 00 00 00 00 10 00 82 00 10 00 0c 04 05 00 00 00 01 08 12 00 03 00 00 00 10 00 ac 00 0e 00 0a 07 04 00 00 07 f9 08 12 00 00 00 10 00 c0 00 4c 00 48 20 49 44 45 4e 54 20 44 3a 54 42 31 30 20 20 54 52 41 20 31 31 2e 30 20 38 32 2d 30 37 2d ┆ L H IDENT D:TB10 TRA 11.0 82-07-┆
0x94a2…94f2 31 36 20 46 31 20 4f 31 31 31 31 20 20 52 45 4c 20 31 31 2e 30 20 38 32 2d 30 37 2d 30 37 20 38 37 30 31 35 30 35 34 31 31 30 00 10 00 d2 00 0e 00 0a 01 04 c8 44 3a 54 42 31 30 00 00 10 01 22 00 10 00 0c 05 05 c8 44 3a 54 42 31 30 54 00 02 ┆16 F1 O1111 REL 11.0 82-07-07 87015054110 D:TB10 " D:TB10T ┆
0x94f2…9542 00 10 01 34 00 2a 00 26 03 12 00 00 00 01 00 00 00 3a 20 02 00 00 07 80 00 02 00 18 07 82 00 02 07 9a 00 02 07 9c 00 02 07 9e 00 02 07 a0 00 10 01 48 00 28 00 24 03 11 00 00 00 1f 00 00 00 02 07 a2 00 02 07 a4 00 02 07 a6 00 02 07 a8 00 02 ┆ 4 * & : H ( $ ┆
0x9542…9592 (97, 0, 400) 07 aa 00 02 07 ac 00 60 07 ae 00 10 01 76 00 0e 00 0a 07 04 00 00 00 01 00 3a 00 00 00 11 00 12 00 4c 00 48 20 49 44 45 4e 54 20 43 3a 43 42 31 30 20 20 54 52 41 20 31 31 2e 30 20 38 32 2d 30 37 2d 31 36 20 46 31 20 4f 31 31 31 31 20 20 52 ┆ ` v : L H IDENT C:CB10 TRA 11.0 82-07-16 F1 O1111 R┆
0x9592…95e2 45 4c 20 31 31 2e 30 20 38 32 2d 30 37 2d 30 37 20 38 37 30 31 35 30 35 34 31 31 30 00 11 00 24 00 0e 00 0a 01 04 c8 43 3a 43 42 31 30 00 00 11 00 74 00 10 00 0c 05 05 c8 43 3a 43 42 31 30 43 00 04 00 11 00 86 00 2a 00 26 03 12 00 00 00 01 ┆EL 11.0 82-07-07 87015054110 $ C:CB10 t C:CB10C * & ┆
0x95e2…9632 00 00 00 00 00 00 41 42 43 44 49 44 45 4e 54 20 20 20 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 20 00 11 00 9a 00 2a 00 26 03 12 00 00 00 1f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 ┆ ABCDIDENT NOT OPERABLE * & ┆
0x9632…9682 00 c8 00 2a 00 26 03 12 00 00 00 3d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 00 f6 00 2a 00 26 03 12 00 00 00 5b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * & = * & [ ┆
0x9682…96d2 00 00 00 00 00 00 00 00 00 00 00 11 01 24 00 2a 00 26 03 12 00 00 00 79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 01 52 00 16 00 12 03 08 00 00 00 97 00 00 00 00 00 00 00 00 00 00 ┆ $ * & y R ┆
0x96d2…9722 (98, 2, 226) ff ff 00 11 01 80 00 10 00 0c 04 05 00 00 00 01 00 a0 00 03 00 00 00 12 00 0a 00 0e 00 0a 07 04 00 00 00 97 00 a0 00 00 00 12 00 1e 00 4c 00 48 20 49 44 45 4e 54 20 44 3a 43 42 31 30 20 20 54 52 41 20 31 31 2e 30 20 38 32 2d 30 37 2d 31 36 ┆ L H IDENT D:CB10 TRA 11.0 82-07-16┆
0x9722…9772 20 46 31 20 4f 31 31 31 31 20 20 52 45 4c 20 31 31 2e 30 20 38 32 2d 30 37 2d 30 37 20 38 37 30 31 35 30 35 34 31 31 30 00 12 00 30 00 0e 00 0a 01 04 c8 44 3a 43 42 31 30 00 00 12 00 80 00 10 00 0c 05 05 c8 44 3a 43 42 31 30 43 00 02 00 12 ┆ F1 O1111 REL 11.0 82-07-07 87015054110 0 D:CB10 D:CB10C ┆
0x9772…97b4 00 92 00 22 00 1e 03 0e 00 00 00 01 00 00 00 16 00 02 00 00 00 02 00 02 00 16 00 04 00 80 00 1a 00 02 00 9a 00 12 00 a6 00 0e 00 0a 07 04 00 00 3a 43 00 16 00 00 00 12 00 cc 40 04 00 00 00 12 00 de ┆ " :C @ ┆
0x97b4…9804 (99, 0, 400) 00 18 00 18 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 50 3a 50 49 4c 00 13 00 04 00 3c 00 38 01 1b a8 50 3a 42 41 53 a8 54 3a 42 41 54 a8 54 3a 50 41 54 a8 54 3a 43 41 54 a8 54 3a 4c 49 54 a8 54 3a 50 49 43 a8 54 3a 4b 45 59 a8 54 3a 46 ┆ IDENT P:PIL < 8 P:BAS T:BAT T:PAT T:CAT T:LIT T:PIC T:KEY T:F┆
0x9804…9854 4d 54 a8 50 3a 45 4e 44 00 13 00 20 00 0e 00 0a 05 04 a8 50 3a 42 41 53 00 00 00 13 00 60 00 0e 00 0a 05 04 a8 54 3a 43 41 54 00 00 00 13 00 72 00 0e 00 0a 02 04 c8 47 45 54 54 49 44 20 00 13 00 84 00 0c 00 08 02 03 a8 56 44 55 4b 42 00 13 ┆MT P:END P:BAS ` T:CAT r GETTID VDUKB ┆
0x9854…98a4 00 96 00 0c 00 08 02 03 a8 50 52 49 4e 54 00 13 00 a6 00 1a 00 16 03 0a 00 00 00 01 54 00 00 03 00 00 00 02 00 00 00 04 00 00 00 06 00 13 00 b6 00 0e 00 0a 05 04 a8 54 3a 42 41 54 00 08 00 13 00 d4 00 0e 00 0a 05 04 a8 54 3a 50 41 54 00 08 ┆ PRINT T T:BAT T:PAT ┆
0x98a4…98f4 00 13 00 e6 00 0e 00 0a 05 04 a8 54 3a 4c 49 54 00 08 00 13 00 f8 00 10 00 0c 03 05 c0 00 00 09 00 00 00 08 00 08 00 13 01 0a 00 0e 00 0a 05 04 a8 54 3a 50 49 43 00 0c 00 13 01 1e 00 10 00 0c 03 05 c0 00 00 0d 00 00 00 08 00 08 00 13 01 30 ┆ T:LIT T:PIC 0┆
0x98f4…9944 00 0e 00 0a 05 04 a8 54 3a 4b 45 59 00 10 00 13 01 44 00 10 00 0c 03 05 c0 00 00 11 00 00 00 08 00 08 00 13 01 56 00 0e 00 0a 05 04 a8 54 3a 46 4d 54 00 14 00 13 01 6a 00 10 00 0c 03 05 c0 00 00 15 00 00 00 08 00 08 00 13 01 7c 00 0e 00 0a ┆ T:KEY D V T:FMT j | ┆
0x9944…996c (100, 2, 40) 05 04 a8 50 3a 45 4e 44 00 18 00 13 01 90 00 0e 00 0a 07 04 00 00 00 00 00 18 00 00 00 14 00 12 40 04 00 00 00 14 00 24 ┆ P:END @ $┆