|
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: 39892 (0x9bd4)
Notes: pts_type(SC)
Names: »PRINT.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PT3272/PRINT.SC«
IDENT PRINT REL 11.1 83-11-21 DK 870150541110 DK43, DANISH CHARS. FOR 6883 PRINTER DK42, INTERVENTION REQUIRED STATUS DK41, TIME-OUT IN PRLINE EXTENDED DK40, LP100 OR LINE PRINTER DK39,MAIN NOT CLEARED...2 LINES =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 1 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 P6883 EQU 1 6883 PRINTER DK43 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 * * LOCAL EQUATES * SO EQU /0E 'SHIFT OUT' SI EQU /0F 'SHIFT IN' 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 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,TSTPRT GET PRINTER STATUS DK42 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 LDK A4,0 CLEAR A4 DK42 LD A2,PRTID,A11 GET CURRENT STATUS DK42 ANK A2,/FF SUK A2,/30 SLL A2,2 LD A3,+6,A13 LDK A1,TSKTAB ADR A3,A1 ADR A3,A2 LC A4,+3,A3 STATUS TO A4 DK42 RF(Z) PRI200 WAS OPERABLE, GO ON DK42 PRI100 EQU * CF A14,TSTPRT TEST HARDWARE ANK A4,/1 OPERABLE? DK42 RF(NZ) PRI150 NO, WAIT AWHILE DK42 LD* A1,ECBDC,A11 ERROR DURING DC PRINTING? RF(NN) PRI200 NO, SKIP STATUS LDK A1,0 SET STATUS = DEVICE END DK42 CF A14,SETSTA DK42 RF PRI200 CONTINUE DK42 PRI150 EQU * LDKL A8,50 WAIT 5 SECONDS DK42 LKM DATA 6 RB PRI100 DK42 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 * CM MAIN,A11 CLEAR MF FLAG DK39 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 COP902 EQU * CF A14,TSTPRT WAIT UNTIL PRINTER OPERABLE =32 ANK A4,1 OPERABLE? DK42 RF(Z) COP905 YES, RETRY DK42 LDKL A8,50 NO, WAIT 5 SECONDS DK42 LKM DATA 6 RB COP902 COP905 EQU * 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 IFT P6883=1 LDR* A1,A11 6883 PRINTER? CWK A1,'L1' TID = L1 = 6883 RF(NE) PRL067 NO, NORMAL BASIC WRITE LDK A7,/07 ORDER - BAS. WRT W/ CONV. RF PRL069 XIF PRL067 EQU * LDK A7,/05 BASIC WRITE =24 PRL069 EQU * 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,100 NUMBER OF DELAYS DK41 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 * * IF TID =< 'L1',SELECT FILE CODE '80' * THE LINE PRINTER...... * CF A14,SELPFC * 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 . =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 EJECT * * SELECTION OF PRINTER FILE CODE * FC=30, LP100, FC=80, LINE PRINTER * SELPFC EQU * LDR* A1,A11 GET TASK ID LDR A2,A1 SAVE IT ANKL A1,/FF00 MASK LETTER CWK A1,/4C00 ='L'? RF(E) SELP05 YES. RF SELP90 NO, QUIT. SELP05 EQU * CWK A2,/4C31 ='L1'? RF(G) SELP90 NO, QUIT LD A2,ECBPRT,A11 GET PRINTER ECB LDK A1,/80 OVER WRITE ORIG. FC SC A1,+1,A2 SELP90 EQU * RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT PRINT REL 11.1 83-11-21 DK 870150541110«, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006e Head {h00=0x002c, h01=0x0050, text=» DK43, DANISH CHARS. FOR 6883 PRINTER «, t00=0x0000, t01=0x0042}
0x006e…009c Head {h00=0x002a, h01=0x0050, text=» DK42, INTERVENTION REQUIRED STATUS «, t00=0x0000, t01=0x0072}
0x009c…00c8 Head {h00=0x0028, h01=0x0050, text=» DK41, TIME-OUT IN PRLINE EXTENDED«, t00=0x0000, t01=0x00a0}
0x00c8…00ee Head {h00=0x0022, h01=0x0050, text=» DK40, LP100 OR LINE PRINTER«, t00=0x0000, t01=0x00cc}
0x00ee…0118 Head {h00=0x0026, h01=0x0050, text=» DK39,MAIN NOT CLEARED...2 LINES«, t00=0x0000, t01=0x00f2}
0x0118…0138 Head {h00=0x001c, h01=0x0050, text=» =DK38,LF ON END MESS.«, t00=0x0000, t01=0x011c}
0x0138…0160 Head {h00=0x0024, h01=0x0050, text=» =37 DUP OR FM CHAR ON PRINTER«, t00=0x0000, t01=0x013c}
0x0160…0182 Head {h00=0x001e, h01=0x0050, text=» =36 IMPROVEMENT OF =24 «, t00=0x0000, t01=0x0164}
0x0182…0196 Head {h00=0x0010, h01=0x0050, text=» 82-06-28 «, t00=0x0000, t01=0x0186}
0x0196…01b8 Head {h00=0x001e, h01=0x0050, text=» =35 IMPROVEMENT OF =24 «, t00=0x0001, t01=0x000a}
0x01b8…01ec Head {h00=0x0030, h01=0x0050, text=» =32 MISSING PRINTING AFTER PRINTER ERROR «, t00=0x0001, t01=0x002c}
0x01ec…0214 Head {h00=0x0024, h01=0x0050, text=» =31 PAPER OUT ON COPY80 (SUM)«, t00=0x0001, t01=0x0060}
0x0214…0228 Head {h00=0x0010, h01=0x0050, text=» 82-06-21 «, t00=0x0001, t01=0x0088}
0x0228…0248 Head {h00=0x001c, h01=0x0050, text=» =30 IMPROVEMENT OF =5«, t00=0x0001, t01=0x009c}
0x0248…0272 Head {h00=0x0026, h01=0x0050, text=» =27 NO STATUS CHECK AFTER ABORT«, t00=0x0001, t01=0x00bc}
0x0272…0294 Head {h00=0x001e, h01=0x0050, text=» =26 LONG SNA CH STRING «, t00=0x0001, t01=0x00e6}
0x0294…02ba Head {h00=0x0022, h01=0x0050, text=» =25 LEFT MARGIN FOR PRINTER«, t00=0x0001, t01=0x0108}
0x02ba…02ce Head {h00=0x0010, h01=0x0050, text=» 82-05-12 «, t00=0x0001, t01=0x012e}
0x02ce…02f4 Head {h00=0x0022, h01=0x0050, text=» =24 BASIC WRITE ON PRINTER «, t00=0x0001, t01=0x0142}
0x02f4…0308 Head {h00=0x0010, h01=0x0050, text=» 82-04-28 «, t00=0x0001, t01=0x0168}
0x0308…032a Head {h00=0x001e, h01=0x0050, text=» =23 PRINTER RETURN CODE«, t00=0x0001, t01=0x017c}
0x032a…0352 Head {h00=0x0024, h01=0x0050, text=» =19 ERRONEOUS PRINTER STATUS «, t00=0x0002, t01=0x000e}
0x0352…0376 Head {h00=0x0020, h01=0x0050, text=» =18 DOUBLE SETTIM ENTRIES«, t00=0x0002, t01=0x0036}
0x0376…0392 Head {h00=0x0018, h01=0x0050, text=» =17 TWO DC LINES «, t00=0x0002, t01=0x005a}
0x0392…03a6 Head {h00=0x0010, h01=0x0050, text=» 82-04-16 «, t00=0x0002, t01=0x0076}
0x03a6…03ce Head {h00=0x0024, h01=0x0050, text=» =15 CORRECTION OF =7 FOR SNA «, t00=0x0002, t01=0x008a}
0x03ce…03e2 Head {h00=0x0010, h01=0x0050, text=» 82-02-12 «, t00=0x0002, t01=0x00b2}
0x03e2…040c Head {h00=0x0026, h01=0x0050, text=» =7 TEST PRINTER BEFORE CONNECT «, t00=0x0002, t01=0x00c6}
0x040c…042c Head {h00=0x001c, h01=0x0050, text=» =6 SET PRINTER STATUS«, t00=0x0002, t01=0x00f0}
0x042c…0452 Head {h00=0x0022, h01=0x0050, text=» =5 DIFFERENT FF CH FOR GP74«, t00=0x0002, t01=0x0110}
0x0452…0466 Head {h00=0x0010, h01=0x0050, text=» 82-01-26 «, t00=0x0002, t01=0x0136}
0x0466…0482 Head {h00=0x0018, h01=0x0050, text=» =4 NATIONAL CHAR «, t00=0x0002, t01=0x014a}
0x0482…0496 Head {h00=0x0010, h01=0x0050, text=» 81-11-20 «, t00=0x0002, t01=0x0166}
0x0496…04b4 Head {h00=0x001a, h01=0x0050, text=» =3 SPACE SUPRESSION«, t00=0x0002, t01=0x017a}
0x04b4…04c8 Head {h00=0x0010, h01=0x0050, text=» 81-05-12 «, t00=0x0003, t01=0x0008}
0x04c8…04e0 Head {h00=0x0014, h01=0x0050, text=» =2 NEW LABEL «, t00=0x0003, t01=0x001c}
0x04e0…04f4 Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0003, t01=0x0034}
0x04f4…0514 Head {h00=0x001c, h01=0x0050, text=» =1, EOC ON FIRST READ«, t00=0x0003, t01=0x0048}
0x0514…0528 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0003, t01=0x0068}
0x0528…0574 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0003, t01=0x007c}
0x0574…05c0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00c8}
0x05c0…060c Head {h00=0x0048, h01=0x0050, text=»* MODULE PRINT : «, t00=0x0003, t01=0x0114}
0x060c…0658 Head {h00=0x0048, h01=0x0050, text=»* MODULE HANDLING THE PRINTOUTS BOTH FROM * «, t00=0x0003, t01=0x0160}
0x0658…06a4 Head {h00=0x0048, h01=0x0050, text=»* DISPLAY AND MAIN-FRAME * «, t00=0x0004, t01=0x001c}
0x06a4…06f0 Head {h00=0x0048, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC * «, t00=0x0004, t01=0x0068}
0x06f0…073c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0004, t01=0x00b4}
0x073c…0788 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0004, t01=0x0100}
0x0788…0796 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x014c}
0x0796…07d6 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0004, t01=0x015a}
0x07d6…07e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000a}
0x07e0…0802 Head {h00=0x001e, h01=0x0050, text=»* LIST OF ROUTINES «, t00=0x0005, t01=0x0014}
0x0802…080c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0036}
0x080c…0834 Head {h00=0x0024, h01=0x0050, text=»* PRINT MAIN ROUTINE«, t00=0x0005, t01=0x0040}
0x0834…0868 Head {h00=0x0030, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0005, t01=0x0068}
0x0868…089c Head {h00=0x0030, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0005, t01=0x009c}
0x089c…08c8 Head {h00=0x0028, h01=0x0050, text=»* DCPINP DC PRINTER INPUT«, t00=0x0005, t01=0x00d0}
0x08c8…08f4 Head {h00=0x0028, h01=0x0050, text=»* ICPINP INTERTASK INPUT «, t00=0x0005, t01=0x00fc}
0x08f4…091e Head {h00=0x0026, h01=0x0050, text=»* ICPRED INTERTASK READ«, t00=0x0005, t01=0x0128}
0x091e…094a Head {h00=0x0028, h01=0x0050, text=»* ICPWRT INTERTASK WRITE «, t00=0x0005, t01=0x0152}
0x094a…0976 Head {h00=0x0028, h01=0x0050, text=»* ICABOR INTERTASK ABORT «, t00=0x0005, t01=0x017e}
0x0976…09b0 Head {h00=0x0036, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER «, t00=0x0006, t01=0x001a}
0x09b0…09d8 Head {h00=0x0024, h01=0x0050, text=»* TABLE OF PRINTERORDERS «, t00=0x0006, t01=0x0054}
0x09d8…09fc Head {h00=0x0020, h01=0x0050, text=»* NL NEW LINE«, t00=0x0006, t01=0x007c}
0x09fc…0a2c Head {h00=0x002c, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED «, t00=0x0006, t01=0x00a0}
0x0a2c…0a52 Head {h00=0x0022, h01=0x0050, text=»* FFVAL FORM FEED «, t00=0x0006, t01=0x00d0}
0x0a52…0a7e Head {h00=0x0028, h01=0x0050, text=»* CR CARRIAGE RETURN «, t00=0x0006, t01=0x00f6}
0x0a7e…0aa6 Head {h00=0x0024, h01=0x0050, text=»* EM END MESSAGE «, t00=0x0006, t01=0x0122}
0x0aa6…0ad8 Head {h00=0x002e, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER «, t00=0x0006, t01=0x014a}
0x0ad8…0b08 Head {h00=0x002c, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID«, t00=0x0006, t01=0x017c}
0x0b08…0b2e Head {h00=0x0022, h01=0x0050, text=»* PRLINE PRINT LINE«, t00=0x0007, t01=0x001c}
0x0b2e…0b56 Head {h00=0x0024, h01=0x0050, text=»* INIT INIT ROUTINE«, t00=0x0007, t01=0x0042}
0x0b56…0b80 Head {h00=0x0026, h01=0x0050, text=»* TSTPRT TEST HARDWARE «, t00=0x0007, t01=0x006a}
0x0b80…0bac Head {h00=0x0028, h01=0x0050, text=»* GETTAB GET ORDER INDEX «, t00=0x0007, t01=0x0094}
0x0bac…0bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb6…0bfa Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0007, t01=0x00ca}
0x0bfa…0c08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x010e}
0x0c08…0c54 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x011c}
0x0c54…0ca0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0168}
0x0ca0…0cec Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0008, t01=0x0024}
0x0cec…0d38 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0008, t01=0x0070}
0x0d38…0d84 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0008, t01=0x00bc}
0x0d84…0d8c Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0108}
0x0d8c…0dc8 Head {h00=0x0038, h01=0x0050, text=» ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT)«, t00=0x0008, t01=0x0110}
0x0dc8…0dfc Head {h00=0x0030, h01=0x0050, text=» ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2«, t00=0x0008, t01=0x014c}
0x0dfc…0e04 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0180}
0x0e04…0e50 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0008, t01=0x0188}
0x0e50…0e9c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0044}
0x0e9c…0ee8 Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0009, t01=0x0090}
0x0ee8…0f34 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0009, t01=0x00dc}
0x0f34…0f80 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0009, t01=0x0128}
0x0f80…0f88 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0174}
0x0f88…0fbe Head {h00=0x0032, h01=0x0050, text=» EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA)«, t00=0x0009, t01=0x017c}
0x0fbe…0ff4 Head {h00=0x0032, h01=0x0050, text=» EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9«, t00=0x000a, t01=0x0022}
0x0ff4…101c Head {h00=0x0024, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA)«, t00=0x000a, t01=0x0058}
0x101c…103c Head {h00=0x001c, h01=0x0050, text=» EXTRN OPEN OPEN (DCBSC)«, t00=0x000a, t01=0x0080}
0x103c…1068 Head {h00=0x0028, h01=0x0050, text=» EXTRN CONCT CONNECT PASSIVE (DCBSC)«, t00=0x000a, t01=0x00a0}
0x1068…109c Head {h00=0x0030, h01=0x0050, text=» EXTRN SETTYM SET REQUEST TIMER (DCBSC) =18 «, t00=0x000a, t01=0x00cc}
0x109c…10cc Head {h00=0x002c, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x000a, t01=0x0100}
0x10cc…10f6 Head {h00=0x0026, h01=0x0050, text=» EXTRN TSTMES TEST MESSAGE (DCSNA)«, t00=0x000a, t01=0x0130}
0x10f6…1122 Head {h00=0x0028, h01=0x0050, text=» EXTRN READW READ WITH WAIT (DCSNA) «, t00=0x000a, t01=0x015a}
0x1122…1152 Head {h00=0x002c, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA) «, t00=0x000a, t01=0x0186}
0x1152…1178 Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x000b, t01=0x0026}
0x1178…11a2 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x000b, t01=0x004c}
0x11a2…11ce Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x000b, t01=0x0076}
0x11ce…11fa Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBINI INIT IF ECB:S (DSPSNA)«, t00=0x000b, t01=0x00a2}
0x11fa…122c Head {h00=0x002e, h01=0x0050, text=» EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) «, t00=0x000b, t01=0x00ce}
0x122c…1258 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000b, t01=0x0100}
0x1258…1284 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICREAD INTERTASK READ (KEYB) «, t00=0x000b, t01=0x012c}
0x1284…12ac Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCBSC)«, t00=0x000b, t01=0x0158}
0x12ac…12da Head {h00=0x002a, h01=0x0050, text=» EXTRN CONNAT TRANSFORM OF NAT CHAR =4«, t00=0x000b, t01=0x0180}
0x12da…130a Head {h00=0x002c, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM OR DUP CHAR =37«, t00=0x000c, t01=0x001e}
0x130a…1318 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x004e}
0x1318…1360 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000c, t01=0x005c}
0x1360…13a8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000c, t01=0x00a4}
0x13a8…13f0 Head {h00=0x0044, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000c, t01=0x00ec}
0x13f0…1438 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0134}
0x1438…1480 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000c, t01=0x017c}
0x1480…1488 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0034}
0x1488…14ac Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000d, t01=0x003c}
0x14ac…14c0 Head {h00=0x0010, h01=0x0050, text=»SNA EQU X:A «, t00=0x000d, t01=0x0060}
0x14c0…14ea Head {h00=0x0026, h01=0x0050, text=»X:D EQU 1 NUMBER OF DC LINES (1-2)«, t00=0x000d, t01=0x0074}
0x14ea…14fe Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 1«, t00=0x000d, t01=0x009e}
0x14fe…1520 Head {h00=0x001e, h01=0x0050, text=»X:O EQU 0 TEST MODE IF:=1 «, t00=0x000d, t01=0x00b2}
0x1520…1534 Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x000d, t01=0x00d4}
0x1534…1564 Head {h00=0x002c, h01=0x0050, text=»X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4«, t00=0x000d, t01=0x00e8}
0x1564…1580 Head {h00=0x0018, h01=0x0050, text=»TRANAT EQU X:R . =4 «, t00=0x000d, t01=0x0118}
0x1580…158a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0134}
0x158a…15ba Head {h00=0x002c, h01=0x0050, text=»BASWRI EQU 1 BASIC WRITE ON PRINTER =24 «, t00=0x000d, t01=0x013e}
0x15ba…15ee Head {h00=0x0030, h01=0x0050, text=»SCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 «, t00=0x000d, t01=0x016e}
0x15ee…161e Head {h00=0x002c, h01=0x0050, text=»LMARG EQU 0 LEFT MARGIN FOR PRINTER =25 «, t00=0x000e, t01=0x0012}
0x161e…1644 Head {h00=0x0022, h01=0x0050, text=»P6883 EQU 1 6883 PRINTER DK43 «, t00=0x000e, t01=0x0042}
0x1644…1652 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0068}
0x1652…169e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000e, t01=0x0076}
0x169e…16ea Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000e, t01=0x00c2}
0x16ea…1714 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000e, t01=0x010e}
0x1714…1760 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0138}
0x1760…17ac Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000e, t01=0x0184}
0x17ac…17b4 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0040}
0x17b4…17be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0048}
0x17be…17de Head {h00=0x001c, h01=0x0050, text=»* TABLE OF PRINTER TYPES«, t00=0x000f, t01=0x0052}
0x17de…17e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0072}
0x17e8…17fc Head {h00=0x0010, h01=0x0050, text=»PRTTAB EQU *«, t00=0x000f, t01=0x007c}
0x17fc…1826 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF PRINTERTYPES«, t00=0x000f, t01=0x0090}
0x1826…183e Head {h00=0x0014, h01=0x0050, text=» DATA 'TT',0 GTP«, t00=0x000f, t01=0x00ba}
0x183e…1860 Head {h00=0x001e, h01=0x0050, text=» DATA 'LL',2 LINE PRINTER «, t00=0x000f, t01=0x00d2}
0x1860…187a Head {h00=0x0016, h01=0x0050, text=» DATA 'GG',4 GP 74«, t00=0x000f, t01=0x00f4}
0x187a…1896 Head {h00=0x0018, h01=0x0050, text=» DATA 'CC',6 COPY 80«, t00=0x000f, t01=0x010e}
0x1896…18a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012a}
0x18a0…18d2 Head {h00=0x002e, h01=0x0050, text=»* DEFAULT VALUES FOR DIFF. PRINTERS«, t00=0x000f, t01=0x0134}
0x18d2…18f8 Head {h00=0x0022, h01=0x0050, text=»* BYTE1= NUMBER OF LINES/PAGE «, t00=0x000f, t01=0x0166}
0x18f8…191e Head {h00=0x0022, h01=0x0050, text=»* BYTE2= NUMBER OF CHAR./LINE «, t00=0x000f, t01=0x018c}
0x191e…1928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0022}
0x1928…1946 Head {h00=0x001a, h01=0x0050, text=»PRTLEN DATA /2382 GTP «, t00=0x0010, t01=0x002c}
0x1946…195c Head {h00=0x0012, h01=0x0050, text=» DATA /2382 LP«, t00=0x0010, t01=0x004a}
0x195c…1976 Head {h00=0x0016, h01=0x0050, text=» DATA /2382 GP 74 «, t00=0x0010, t01=0x0060}
0x1976…1992 Head {h00=0x0018, h01=0x0050, text=» DATA /2382 COPY 80 «, t00=0x0010, t01=0x007a}
0x1992…19ac Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =25«, t00=0x0010, t01=0x0096}
0x19ac…19e4 Head {h00=0x0034, h01=0x0050, text=»LMARGT EQU * NO. OF POSITIONS IN LEFT MARGIN =25«, t00=0x0010, t01=0x00b0}
0x19e4…19fc Head {h00=0x0014, h01=0x0050, text=» DATA 0 GTP =25 «, t00=0x0010, t01=0x00e8}
0x19fc…1a12 Head {h00=0x0012, h01=0x0050, text=» DATA 0 LP =25«, t00=0x0010, t01=0x0100}
0x1a12…1a2a Head {h00=0x0014, h01=0x0050, text=» DATA 3 GP74 =25«, t00=0x0010, t01=0x0116}
0x1a2a…1a44 Head {h00=0x0016, h01=0x0050, text=» DATA 0 COPY80 =25«, t00=0x0010, t01=0x012e}
0x1a44…1a58 Head {h00=0x0010, h01=0x0050, text=» XIF . =25 «, t00=0x0010, t01=0x0148}
0x1a58…1a68 Head {h00=0x000c, h01=0x0050, text=»* =24«, t00=0x0010, t01=0x015c}
0x1a68…1a84 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =36 «, t00=0x0010, t01=0x016c}
0x1a84…1ab4 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 132 PRINTER BUFFER LENGTH =24 «, t00=0x0010, t01=0x0188}
0x1ab4…1ad6 Head {h00=0x001e, h01=0x0050, text=» =BUFL-2 (IN DATXXX) =24«, t00=0x0011, t01=0x0028}
0x1ad6…1aea Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0011, t01=0x004a}
0x1aea…1b06 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x0011, t01=0x005e}
0x1b06…1b36 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 256 PRINTER BUFFER LENGTH =36 «, t00=0x0011, t01=0x007a}
0x1b36…1b54 Head {h00=0x001a, h01=0x0050, text=» =BUFL IN DATXXX =36«, t00=0x0011, t01=0x00aa}
0x1b54…1b68 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0011, t01=0x00c8}
0x1b68…1b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00dc}
0x1b72…1b98 Head {h00=0x0022, h01=0x0050, text=»* LINE LENGTHS FROM WCC«, t00=0x0011, t01=0x00e6}
0x1b98…1ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1ba2…1bda Head {h00=0x0034, h01=0x0050, text=»LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE «, t00=0x0011, t01=0x0116}
0x1bda…1be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014e}
0x1be4…1c0e Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR ECB HANDLING «, t00=0x0011, t01=0x0158}
0x1c0e…1c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0182}
0x1c18…1c3a Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0011, t01=0x018c}
0x1c3a…1c5e Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0012, t01=0x001e}
0x1c5e…1c82 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0012, t01=0x0042}
0x1c82…1ca2 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0012, t01=0x0066}
0x1ca2…1cc4 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0012, t01=0x0086}
0x1cc4…1cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a8}
0x1cce…1ce6 Head {h00=0x0014, h01=0x0050, text=»* PRINTER MODES «, t00=0x0012, t01=0x00b2}
0x1ce6…1cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ca}
0x1cf0…1d0e Head {h00=0x001a, h01=0x0050, text=»LOCAL EQU 0 LOCAL MODE«, t00=0x0012, t01=0x00d4}
0x1d0e…1d2e Head {h00=0x001c, h01=0x0050, text=»SHARED EQU 2 SHARED MODE«, t00=0x0012, t01=0x00f2}
0x1d2e…1d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0112}
0x1d38…1d5a Head {h00=0x001e, h01=0x0050, text=»* PRINTER STATUS IN PRTMOD«, t00=0x0012, t01=0x011c}
0x1d5a…1d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013e}
0x1d64…1d8a Head {h00=0x0022, h01=0x0050, text=»PRTERR EQU /4000 PRINTER ERROR«, t00=0x0012, t01=0x0148}
0x1d8a…1d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016e}
0x1d94…1dba Head {h00=0x0022, h01=0x0050, text=»* COPY INTERNAL STATUS IN A10 «, t00=0x0012, t01=0x0178}
0x1dba…1dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000e}
0x1dc4…1dec Head {h00=0x0024, h01=0x0050, text=»NXTCHA EQU /8000 GET NEXT CHAR. «, t00=0x0013, t01=0x0018}
0x1dec…1e12 Head {h00=0x0022, h01=0x0050, text=»ENDPRT EQU /4000 END PRINTING «, t00=0x0013, t01=0x0040}
0x1e12…1e3a Head {h00=0x0024, h01=0x0050, text=»NTONLY EQU /2000 NOT ONLY SPACES«, t00=0x0013, t01=0x0066}
0x1e3a…1e5e Head {h00=0x0020, h01=0x0050, text=»CRREC EQU /1000 CR RECEIVED «, t00=0x0013, t01=0x008e}
0x1e5e…1e86 Head {h00=0x0024, h01=0x0050, text=»FFCCH EQU /0800 FF CCH IND. =36 «, t00=0x0013, t01=0x00b2}
0x1e86…1eba Head {h00=0x0030, h01=0x0050, text=»NOEMLF EQU /0400 NO EXTRA LINE FEED(EM) DK38«, t00=0x0013, t01=0x00da}
0x1eba…1ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x010e}
0x1ec4…1ef0 Head {h00=0x0028, h01=0x0050, text=»* RELATIVE POS. IN ECB-BLOCK «, t00=0x0013, t01=0x0118}
0x1ef0…1efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0144}
0x1efa…1f14 Head {h00=0x0016, h01=0x0050, text=»IC EQU 2 INTERTASK«, t00=0x0013, t01=0x014e}
0x1f14…1f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0168}
0x1f1e…1f34 Head {h00=0x0012, h01=0x0050, text=»* SCREEN SIZE «, t00=0x0013, t01=0x0172}
0x1f34…1f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0188}
0x1f3e…1f54 (20, 0, 400) Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x0014, t01=0x0004}
0x1f54…1f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001a}
0x1f5e…1f76 Head {h00=0x0014, h01=0x0050, text=»* RECEIVE STATUS«, t00=0x0014, t01=0x0024}
0x1f76…1f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003c}
0x1f80…1f9e Head {h00=0x001a, h01=0x0050, text=»LICREC EQU /2000 . =1 «, t00=0x0014, t01=0x0046}
0x1f9e…1fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0064}
0x1fa8…1fc0 Head {h00=0x0014, h01=0x0050, text=»* LOCAL EQUATES «, t00=0x0014, t01=0x006e}
0x1fc0…1fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0086}
0x1fca…1fe8 Head {h00=0x001a, h01=0x0050, text=»SO EQU /0E 'SHIFT OUT'«, t00=0x0014, t01=0x0090}
0x1fe8…2006 Head {h00=0x001a, h01=0x0050, text=»SI EQU /0F 'SHIFT IN' «, t00=0x0014, t01=0x00ae}
0x2006…2014 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00cc}
0x2014…201e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00da}
0x201e…203e Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0014, t01=0x00e4}
0x203e…205a Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0014, t01=0x0104}
0x205a…2064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0120}
0x2064…2084 Head {h00=0x001c, h01=0x0050, text=»BVDU EQU 2 SCREEN BUFFER«, t00=0x0014, t01=0x012a}
0x2084…20a2 Head {h00=0x001a, h01=0x0050, text=»WCC EQU BVDU+1950 WCC «, t00=0x0014, t01=0x014a}
0x20a2…20c8 Head {h00=0x0022, h01=0x0050, text=»LINCNT EQU WCC+4 LINE COUNTER «, t00=0x0014, t01=0x0168}
0x20c8…20fe Head {h00=0x0032, h01=0x0050, text=»DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER «, t00=0x0014, t01=0x018e}
0x20fe…2128 Head {h00=0x0026, h01=0x0050, text=»PRTID EQU DCLENG+6 PRINTER TASKID «, t00=0x0015, t01=0x0034}
0x2128…2150 Head {h00=0x0024, h01=0x0050, text=»PRTTYP EQU PRTID+2 PRINTER TYPE «, t00=0x0015, t01=0x005e}
0x2150…2176 Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTTYP+4 WHAT DC LINE«, t00=0x0015, t01=0x0086}
0x2176…219a Head {h00=0x0020, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB BLOCK «, t00=0x0015, t01=0x00ac}
0x219a…21c6 Head {h00=0x0028, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER POINTER «, t00=0x0015, t01=0x00d0}
0x21c6…21ea Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x0015, t01=0x00fc}
0x21ea…2212 Head {h00=0x0024, h01=0x0050, text=»PRTMOD EQU REGI+32 PRINTER MODE «, t00=0x0015, t01=0x0120}
0x2212…223a Head {h00=0x0024, h01=0x0050, text=»ECBPRT EQU PRTMOD+4 PRINTER ECB «, t00=0x0015, t01=0x0148}
0x223a…2268 Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBPRT+6 INTERTASK READ ECB«, t00=0x0015, t01=0x0170}
0x2268…2298 Head {h00=0x002c, h01=0x0050, text=»ECBICW EQU ECBICR+2 INTERTASK WRITE ECB «, t00=0x0016, t01=0x000e}
0x2298…22ba Head {h00=0x001e, h01=0x0050, text=»ECBDC EQU ECBICW+2 ECB DC «, t00=0x0016, t01=0x003e}
0x22ba…22e0 Head {h00=0x0022, h01=0x0050, text=»ECBDC1 EQU ECBDC ECB DC LINE 1«, t00=0x0016, t01=0x0060}
0x22e0…230a Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x0016, t01=0x0086}
0x230a…2322 Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =24«, t00=0x0016, t01=0x00b0}
0x2322…2354 Head {h00=0x002e, h01=0x0050, text=»PRCCCT EQU ECBDC2+2 CHARACTER COUNTER =24 «, t00=0x0016, t01=0x00c8}
0x2354…2368 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0016, t01=0x00fa}
0x2368…2380 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =24«, t00=0x0016, t01=0x010e}
0x2380…23b2 Head {h00=0x002e, h01=0x0050, text=»PRCCCT EQU ECBDC+14 CHARACTER COUNTER =24 «, t00=0x0016, t01=0x0126}
0x23b2…23c6 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0016, t01=0x0158}
0x23c6…23fa Head {h00=0x0030, h01=0x0050, text=»PRBA EQU PRCCCT+2 PRINTER BUFFER ADDRESS =24«, t00=0x0016, t01=0x016c}
0x23fa…2432 Head {h00=0x0034, h01=0x0050, text=»PRLMAR EQU PRBA+2 NO. OF POS IN LEFT MARGIN =25 «, t00=0x0017, t01=0x0010}
0x2432…243c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0048}
0x243c…245c Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0017, t01=0x0052}
0x245c…2476 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0017, t01=0x0072}
0x2476…2480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x008c}
0x2480…2494 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0017, t01=0x0096}
0x2494…24ba Head {h00=0x0022, h01=0x0050, text=»TSKTAB EQU 26 DEVICE TABLE =17«, t00=0x0017, t01=0x00aa}
0x24ba…24c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00d0}
0x24c6…24da Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0017, t01=0x00dc}
0x24da…24f6 Head {h00=0x0018, h01=0x0050, text=»TSKTAB EQU 221 . =17«, t00=0x0017, t01=0x00f0}
0x24f6…2502 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x010c}
0x2502…2510 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0118}
0x2510…255c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0017, t01=0x0126}
0x255c…25a8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0017, t01=0x0172}
0x25a8…25f4 Head {h00=0x0048, h01=0x0050, text=»* PRINT MAIN ROUTINE PRINTER * «, t00=0x0018, t01=0x002e}
0x25f4…2640 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0018, t01=0x007a}
0x2640…268c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0018, t01=0x00c6}
0x268c…26a0 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x0018, t01=0x0112}
0x26a0…26c2 Head {h00=0x001e, h01=0x0050, text=» CF A14,INIT INIT ROUTINE «, t00=0x0018, t01=0x0126}
0x26c2…26da Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =15«, t00=0x0018, t01=0x0148}
0x26da…26ee Head {h00=0x0010, h01=0x0050, text=» XIF . =15 «, t00=0x0018, t01=0x0160}
0x26ee…2700 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0018, t01=0x0174}
0x2700…2730 Head {h00=0x002c, h01=0x0050, text=» CF A14,OPINIT OPEN CONNECTION INITIATE «, t00=0x0018, t01=0x0186}
0x2730…2754 Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 DC NOT PRESENT«, t00=0x0019, t01=0x0026}
0x2754…2776 Head {h00=0x001e, h01=0x0050, text=» CF A14,OPSYS OPEN SYSTEM «, t00=0x0019, t01=0x004a}
0x2776…2782 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x006c}
0x2782…2794 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0019, t01=0x0078}
0x2794…27ae Head {h00=0x0016, h01=0x0050, text=» CF A14,OPEN OPEN «, t00=0x0019, t01=0x008a}
0x27ae…27d2 Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 NO DC INVOLVED«, t00=0x0019, t01=0x00a4}
0x27d2…27e6 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x0019, t01=0x00c8}
0x27e6…27f2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x00dc}
0x27f2…2802 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0019, t01=0x00e8}
0x2802…2830 Head {h00=0x002a, h01=0x0050, text=» CF A14,TSTPRT GET PRINTER STATUS DK42«, t00=0x0019, t01=0x00f8}
0x2830…2856 Head {h00=0x0022, h01=0x0050, text=» CF A14,CONCT CONNECT PASSIVE «, t00=0x0019, t01=0x0126}
0x2856…2872 Head {h00=0x0018, h01=0x0050, text=» IFT NBRLIN=2 . =17 «, t00=0x0019, t01=0x014c}
0x2872…28a0 Head {h00=0x002a, h01=0x0050, text=» LDK A1,1 CONNECT FOR SECOND LINE =17 «, t00=0x0019, t01=0x0168}
0x28a0…28be Head {h00=0x001a, h01=0x0050, text=» XRS A1,MAIN,A11 . =17«, t00=0x001a, t01=0x0008}
0x28be…28da Head {h00=0x0018, h01=0x0050, text=» CF A14,CONCT . =17 «, t00=0x001a, t01=0x0026}
0x28da…28f2 Head {h00=0x0014, h01=0x0050, text=» LDK A1,1 . =17 «, t00=0x001a, t01=0x0042}
0x28f2…2928 Head {h00=0x0032, h01=0x0050, text=» XRS A1,MAIN,A11 INDICATE FIRST LINE AGAIN =17«, t00=0x001a, t01=0x005a}
0x2928…293c Head {h00=0x0010, h01=0x0050, text=» XIF . =17 «, t00=0x001a, t01=0x0090}
0x293c…2954 Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =17«, t00=0x001a, t01=0x00a4}
0x2954…2982 Head {h00=0x002a, h01=0x0050, text=» CF A14,SETTYM SET REQUEST TIMEOUT =18«, t00=0x001a, t01=0x00bc}
0x2982…298e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00ea}
0x298e…29ba Head {h00=0x0028, h01=0x0050, text=» LDK A1,SHARED ALWAYS SHARED IN BSC «, t00=0x001a, t01=0x00f6}
0x29ba…29d4 Head {h00=0x0016, h01=0x0050, text=» ST A1,PRTMOD,A11 «, t00=0x001a, t01=0x0122}
0x29d4…29f4 Head {h00=0x001c, h01=0x0050, text=» LDK A4,0 CLEAR A4 DK42 «, t00=0x001a, t01=0x013c}
0x29f4…2a24 Head {h00=0x002c, h01=0x0050, text=» LD A2,PRTID,A11 GET CURRENT STATUS DK42«, t00=0x001a, t01=0x015c}
0x2a24…2a38 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001a, t01=0x018c}
0x2a38…2a4c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x001b, t01=0x0010}
0x2a4c…2a5e Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x001b, t01=0x0024}
0x2a5e…2a74 Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x001b, t01=0x0036}
0x2a74…2a8c Head {h00=0x0014, h01=0x0050, text=» LDK A1,TSKTAB «, t00=0x001b, t01=0x004c}
0x2a8c…2aa0 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A1 «, t00=0x001b, t01=0x0064}
0x2aa0…2ab4 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A2 «, t00=0x001b, t01=0x0078}
0x2ab4…2ada Head {h00=0x0022, h01=0x0050, text=» LC A4,+3,A3 STATUS TO A4 DK42«, t00=0x001b, t01=0x008c}
0x2ada…2b08 Head {h00=0x002a, h01=0x0050, text=» RF(Z) PRI200 WAS OPERABLE, GO ON DK42«, t00=0x001b, t01=0x00b2}
0x2b08…2b1c Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x001b, t01=0x00e0}
0x2b1c…2b40 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE«, t00=0x001b, t01=0x00f4}
0x2b40…2b62 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/1 OPERABLE? DK42 «, t00=0x001b, t01=0x0118}
0x2b62…2b8e Head {h00=0x0028, h01=0x0050, text=» RF(NZ) PRI150 NO, WAIT AWHILE DK42 «, t00=0x001b, t01=0x013a}
0x2b8e…2bc2 Head {h00=0x0030, h01=0x0050, text=» LD* A1,ECBDC,A11 ERROR DURING DC PRINTING? «, t00=0x001b, t01=0x0166}
0x2bc2…2bea Head {h00=0x0024, h01=0x0050, text=» RF(NN) PRI200 NO, SKIP STATUS «, t00=0x001c, t01=0x000a}
0x2bea…2c18 Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 SET STATUS = DEVICE END DK42«, t00=0x001c, t01=0x0032}
0x2c18…2c36 Head {h00=0x001a, h01=0x0050, text=» CF A14,SETSTA DK42 «, t00=0x001c, t01=0x0060}
0x2c36…2c56 Head {h00=0x001c, h01=0x0050, text=» RF PRI200 CONTINUE DK42«, t00=0x001c, t01=0x007e}
0x2c56…2c6c Head {h00=0x0012, h01=0x0050, text=»PRI150 EQU * «, t00=0x001c, t01=0x009e}
0x2c6c…2c94 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,50 WAIT 5 SECONDS DK42 «, t00=0x001c, t01=0x00b4}
0x2c94…2ca2 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x001c, t01=0x00dc}
0x2ca2…2cb2 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x001c, t01=0x00ea}
0x2cb2…2ccc Head {h00=0x0016, h01=0x0050, text=» RB PRI100 DK42 «, t00=0x001c, t01=0x00fa}
0x2ccc…2ce0 Head {h00=0x0010, h01=0x0050, text=»PRI200 EQU *«, t00=0x001c, t01=0x0114}
0x2ce0…2d0e Head {h00=0x002a, h01=0x0050, text=» CF A14,IOACT ACTIVATE IN CURRENT MODE«, t00=0x001c, t01=0x0128}
0x2d0e…2d26 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x001c, t01=0x0156}
0x2d26…2d3a Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x001c, t01=0x016e}
0x2d3a…2d46 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x0182}
0x2d46…2d64 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x001c, t01=0x018e}
0x2d64…2d92 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOCPL COMPLET IN CURRENT MODE «, t00=0x001d, t01=0x001c}
0x2d92…2dac Head {h00=0x0016, h01=0x0050, text=» LD A1,PRTMOD,A11 «, t00=0x001d, t01=0x004a}
0x2dac…2dd2 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,PRTERR PRINTER ERROR?«, t00=0x001d, t01=0x0064}
0x2dd2…2dea Head {h00=0x0014, h01=0x0050, text=» RB(Z) PRI200 NO«, t00=0x001d, t01=0x008a}
0x2dea…2e04 Head {h00=0x0016, h01=0x0050, text=» XRS A1,PRTMOD,A11«, t00=0x001d, t01=0x00a2}
0x2e04…2e24 Head {h00=0x001c, h01=0x0050, text=» RB PRI100 TRY TO FIX IT«, t00=0x001d, t01=0x00bc}
0x2e24…2e32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00dc}
0x2e32…2e80 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001d, t01=0x00ea}
0x2e80…2ece Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001d, t01=0x0138}
0x2ece…2ef6 Head {h00=0x0024, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x001d, t01=0x0186}
0x2ef6…2f44 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001e, t01=0x001e}
0x2f44…2f92 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001e, t01=0x006c}
0x2f92…2fa6 Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x001e, t01=0x00ba}
0x2fa6…2fb8 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001e, t01=0x00ce}
0x2fb8…2fe2 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTMOD,A11 SHARED OR LOCAL?«, t00=0x001e, t01=0x00e0}
0x2fe2…2ffe Head {h00=0x0018, h01=0x0050, text=» RF(Z) IOAC20 LOCAL «, t00=0x001e, t01=0x010a}
0x2ffe…3024 Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 ADD NUMBER OF WAITS «, t00=0x001e, t01=0x0126}
0x3024…305c Head {h00=0x0034, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY?«, t00=0x001e, t01=0x014c}
0x305c…3076 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x001e, t01=0x0184}
0x3076…309a Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x001f, t01=0x000e}
0x309a…30be Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x001f, t01=0x0032}
0x30be…30da Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x001f, t01=0x0056}
0x30da…30ee Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x001f, t01=0x0072}
0x30ee…3104 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001f, t01=0x0086}
0x3104…3124 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADD MORE WAITS«, t00=0x001f, t01=0x009c}
0x3124…3148 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+6,A11 ALREADY?«, t00=0x001f, t01=0x00bc}
0x3148…3162 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC20 YES«, t00=0x001f, t01=0x00e0}
0x3162…3186 Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x001f, t01=0x00fa}
0x3186…31aa Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x001f, t01=0x011e}
0x31aa…31c6 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x001f, t01=0x0142}
0x31c6…31d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x015e}
0x31d2…31e6 Head {h00=0x0010, h01=0x0050, text=»IOAC20 EQU *«, t00=0x001f, t01=0x016a}
0x31e6…31f8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001f, t01=0x017e}
0x31f8…321c Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+2,A11 ALREADY?«, t00=0x001f, t01=0x0190}
0x321c…3236 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC30 YES«, t00=0x0020, t01=0x0024}
0x3236…325c Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPRED READ INTERTASK «, t00=0x0020, t01=0x003e}
0x325c…3278 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0020, t01=0x0064}
0x3278…328c Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0020, t01=0x0080}
0x328c…32b6 Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBBLK,A11 NUMBER OF WAITS «, t00=0x0020, t01=0x0094}
0x32b6…32c6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x00be}
0x32c6…32d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00ce}
0x32d4…3322 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0020, t01=0x00dc}
0x3322…3370 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0020, t01=0x012a}
0x3370…3398 Head {h00=0x0024, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0020, t01=0x0178}
0x3398…33e6 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0021, t01=0x0010}
0x33e6…3434 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0021, t01=0x005e}
0x3434…3448 Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0021, t01=0x00ac}
0x3448…3470 Head {h00=0x0024, h01=0x0050, text=» CM MAIN,A11 CLEAR MF FLAG DK39 «, t00=0x0021, t01=0x00c0}
0x3470…3496 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+2,A11 INTERTASK?«, t00=0x0021, t01=0x00e8}
0x3496…34b0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0021, t01=0x010e}
0x34b0…34c8 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0021, t01=0x0128}
0x34c8…34ec Head {h00=0x0020, h01=0x0050, text=» CF A14,ICPINP MAKE HARDCOPY«, t00=0x0021, t01=0x0140}
0x34ec…34fe Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0021, t01=0x0164}
0x34fe…3512 Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0021, t01=0x0176}
0x3512…3538 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC LINE 1?«, t00=0x0021, t01=0x018a}
0x3538…354e Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0022, t01=0x0020}
0x354e…3568 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x0022, t01=0x0036}
0x3568…3574 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0050}
0x3574…358a Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0022, t01=0x005c}
0x358a…35ae Head {h00=0x0020, h01=0x0050, text=» RF(NE) IOCP90 NO FORGET IT «, t00=0x0022, t01=0x0072}
0x35ae…35ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0096}
0x35ba…35d2 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x0022, t01=0x00a2}
0x35d2…35f6 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x0022, t01=0x00ba}
0x35f6…3608 Head {h00=0x000e, h01=0x0050, text=» RF IOCP30«, t00=0x0022, t01=0x00de}
0x3608…361e Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0022, t01=0x00f0}
0x361e…3632 Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x0022, t01=0x0106}
0x3632…3658 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+6,A11 DC LINE 2?«, t00=0x0022, t01=0x011a}
0x3658…3672 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP90 NO «, t00=0x0022, t01=0x0140}
0x3672…368a Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+6,A11«, t00=0x0022, t01=0x015a}
0x368a…36ae Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x0022, t01=0x0172}
0x36ae…36ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0008}
0x36ba…36ce Head {h00=0x0010, h01=0x0050, text=»IOCP30 EQU *«, t00=0x0023, t01=0x0014}
0x36ce…36f4 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCPINP TAKE CARE OF DC«, t00=0x0023, t01=0x0028}
0x36f4…3708 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x0023, t01=0x004e}
0x3708…3718 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x0062}
0x3718…3726 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0072}
0x3726…376e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0023, t01=0x0080}
0x376e…37b6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0023, t01=0x00c8}
0x37b6…37fe Head {h00=0x0044, h01=0x0050, text=»* DCPINP DC PRINTER INPUT * «, t00=0x0023, t01=0x0110}
0x37fe…3846 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0158}
0x3846…388e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0024, t01=0x0010}
0x388e…38a2 Head {h00=0x0010, h01=0x0050, text=»DCPINP EQU *«, t00=0x0024, t01=0x0058}
0x38a2…38ce Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT LOCAL HARD COPY«, t00=0x0024, t01=0x006c}
0x38ce…38f4 Head {h00=0x0022, h01=0x0050, text=» LDR A7,A7 ALREADY COMPLETED? «, t00=0x0024, t01=0x0098}
0x38f4…390c Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP100 NO«, t00=0x0024, t01=0x00be}
0x390c…393a Head {h00=0x002a, h01=0x0050, text=» CF A14,ICPINP TAKE CARE OF THAT FIRST«, t00=0x0024, t01=0x00d6}
0x393a…394e Head {h00=0x0010, h01=0x0050, text=»DCP100 EQU *«, t00=0x0024, t01=0x0104}
0x394e…3966 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBDC,A11«, t00=0x0024, t01=0x0118}
0x3966…397c Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0024, t01=0x0130}
0x397c…399a Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 1«, t00=0x0024, t01=0x0146}
0x399a…39b4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP150 YES «, t00=0x0024, t01=0x0164}
0x39b4…39ce Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0024, t01=0x017e}
0x39ce…39e2 Head {h00=0x0010, h01=0x0050, text=»DCP150 EQU *«, t00=0x0025, t01=0x0008}
0x39e2…39ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x001c}
0x39ee…3a00 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0025, t01=0x0028}
0x3a00…3a1c Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0025, t01=0x003a}
0x3a1c…3a36 Head {h00=0x0016, h01=0x0050, text=» ANKL A1,/701 OK? «, t00=0x0025, t01=0x0056}
0x3a36…3a58 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DCP500 NO STOP IT «, t00=0x0025, t01=0x0070}
0x3a58…3a64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0092}
0x3a64…3a86 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x0025, t01=0x009e}
0x3a86…3a98 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0025, t01=0x00c0}
0x3a98…3ac0 Head {h00=0x0024, h01=0x0050, text=» CF A14,READW READ FIRST BUFFER «, t00=0x0025, t01=0x00d2}
0x3ac0…3ad8 Head {h00=0x0014, h01=0x0050, text=» ANK A1,3 ERROR?«, t00=0x0025, t01=0x00fa}
0x3ad8…3af2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DCP400 NO «, t00=0x0025, t01=0x0112}
0x3af2…3b06 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0025, t01=0x012c}
0x3b06…3b2c Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0025, t01=0x0140}
0x3b2c…3b3e Head {h00=0x000e, h01=0x0050, text=» RF DCP500«, t00=0x0025, t01=0x0166}
0x3b3e…3b52 Head {h00=0x0010, h01=0x0050, text=»DCP400 EQU *«, t00=0x0025, t01=0x0178}
0x3b52…3b84 Head {h00=0x002e, h01=0x0050, text=» SUR A10,A10 RESET INTERNAL UNPACK STATUS «, t00=0x0025, t01=0x018c}
0x3b84…3b9c Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =1 «, t00=0x0026, t01=0x002e}
0x3b9c…3bb2 Head {h00=0x0012, h01=0x0050, text=» ANK A1,2 . =1«, t00=0x0026, t01=0x0046}
0x3bb2…3bcc Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP450 . =1«, t00=0x0026, t01=0x005c}
0x3bcc…3bea Head {h00=0x001a, h01=0x0050, text=» ORKL A10,LICREC . =1 «, t00=0x0026, t01=0x0076}
0x3bea…3c04 Head {h00=0x0016, h01=0x0050, text=»DCP450 EQU * . =1 «, t00=0x0026, t01=0x0094}
0x3c04…3c16 Head {h00=0x000e, h01=0x0050, text=» XIF . =1«, t00=0x0026, t01=0x00ae}
0x3c16…3c2e Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x0026, t01=0x00c0}
0x3c2e…3c54 Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x0026, t01=0x00d8}
0x3c54…3c82 Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x0026, t01=0x00fe}
0x3c82…3c94 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0026, t01=0x012c}
0x3c94…3cbe Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET ANOTHER BUFFER «, t00=0x0026, t01=0x013e}
0x3cbe…3cd0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0026, t01=0x0168}
0x3cd0…3cf8 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x0026, t01=0x017a}
0x3cf8…3d04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0012}
0x3d04…3d30 Head {h00=0x0028, h01=0x0050, text=» CF A14,UNPACK UPDATE SCREEN BUFFER «, t00=0x0027, t01=0x001e}
0x3d30…3d44 Head {h00=0x0010, h01=0x0050, text=»DCP500 EQU *«, t00=0x0027, t01=0x004a}
0x3d44…3d56 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0027, t01=0x005e}
0x3d56…3d68 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0027, t01=0x0070}
0x3d68…3d8e Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x0027, t01=0x0082}
0x3d8e…3d9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00a8}
0x3d9a…3daa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0027, t01=0x00b4}
0x3daa…3db8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00c4}
0x3db8…3e00 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0027, t01=0x00d2}
0x3e00…3e48 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0027, t01=0x011a}
0x3e48…3e90 Head {h00=0x0044, h01=0x0050, text=»* ICPINP INTERTASK INPUT *«, t00=0x0027, t01=0x0162}
0x3e90…3ed8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0028, t01=0x001a}
0x3ed8…3f20 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0028, t01=0x0062}
0x3f20…3f34 Head {h00=0x0010, h01=0x0050, text=»ICPINP EQU *«, t00=0x0028, t01=0x00aa}
0x3f34…3f56 Head {h00=0x001e, h01=0x0050, text=» CF A14,COPP MAKE HARDCOPP«, t00=0x0028, t01=0x00be}
0x3f56…3f86 Head {h00=0x002c, h01=0x0050, text=» ST A1,REGI,A11 RETURN CODE TO TERMINAL «, t00=0x0028, t01=0x00e0}
0x3f86…3fac Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPWRT WRITE INTERTASK«, t00=0x0028, t01=0x0110}
0x3fac…3fbc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x0136}
0x3fbc…3fca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0146}
0x3fca…4014 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0028, t01=0x0154}
0x4014…405e Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0029, t01=0x000e}
0x405e…40a8 Head {h00=0x0046, h01=0x0050, text=»* ICPRED INTERTASK READ *«, t00=0x0029, t01=0x0058}
0x40a8…40f2 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0029, t01=0x00a2}
0x40f2…413c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0029, t01=0x00ec}
0x413c…4150 Head {h00=0x0010, h01=0x0050, text=»ICPRED EQU *«, t00=0x0029, t01=0x0136}
0x4150…416a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0029, t01=0x014a}
0x416a…418e Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0029, t01=0x0164}
0x418e…41b2 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 NOT ADDRESSED READ«, t00=0x0029, t01=0x0188}
0x41b2…41c8 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x002a, t01=0x001c}
0x41c8…41dc Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002a, t01=0x0032}
0x41dc…41f6 Head {h00=0x0016, h01=0x0050, text=» LDKL A2,LBVDU+/20«, t00=0x002a, t01=0x0046}
0x41f6…421c Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x002a, t01=0x0060}
0x421c…422c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0086}
0x422c…423a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0096}
0x423a…4286 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x002a, t01=0x00a4}
0x4286…42d2 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x002a, t01=0x00f0}
0x42d2…431e Head {h00=0x0048, h01=0x0050, text=»* ICPWRT WRITE INTERTASK *«, t00=0x002a, t01=0x013c}
0x431e…436a Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x002a, t01=0x0188}
0x436a…43b6 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x002b, t01=0x0044}
0x43b6…43ca Head {h00=0x0010, h01=0x0050, text=»ICPWRT EQU *«, t00=0x002b, t01=0x0090}
0x43ca…43e4 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x002b, t01=0x00a4}
0x43e4…4408 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x002b, t01=0x00be}
0x4408…4422 Head {h00=0x0016, h01=0x0050, text=» LD A1,ECBICR,A11 «, t00=0x002b, t01=0x00e2}
0x4422…4444 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A1 GET TASKID«, t00=0x002b, t01=0x00fc}
0x4444…4464 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ICPW90 NOT THERE «, t00=0x002b, t01=0x011e}
0x4464…4486 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,REGI RETURN CODE «, t00=0x002b, t01=0x013e}
0x4486…449a Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002b, t01=0x0160}
0x449a…44b2 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x002b, t01=0x0174}
0x44b2…44d8 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x002b, t01=0x018c}
0x44d8…44ec Head {h00=0x0010, h01=0x0050, text=»ICPW90 EQU *«, t00=0x002c, t01=0x0022}
0x44ec…44fc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x0036}
0x44fc…450a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0046}
0x450a…4550 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002c, t01=0x0054}
0x4550…4596 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x002c, t01=0x009a}
0x4596…45dc Head {h00=0x0042, h01=0x0050, text=»* ICABOR INTERTASK ABORT * «, t00=0x002c, t01=0x00e0}
0x45dc…4622 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x002c, t01=0x0126}
0x4622…4668 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002c, t01=0x016c}
0x4668…467c Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x002d, t01=0x0022}
0x467c…468e Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002d, t01=0x0036}
0x468e…46a8 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+IC,A11 «, t00=0x002d, t01=0x0048}
0x46a8…46c2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x002d, t01=0x0062}
0x46c2…46ce Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002d, t01=0x007c}
0x46ce…46de Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002d, t01=0x0088}
0x46de…46ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x0098}
0x46ee…46fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00a8}
0x46fc…474a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002d, t01=0x00b6}
0x474a…4798 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x002d, t01=0x0104}
0x4798…47e6 Head {h00=0x004a, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER * «, t00=0x002d, t01=0x0152}
0x47e6…4834 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x002e, t01=0x0010}
0x4834…4882 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002e, t01=0x005e}
0x4882…48a6 Head {h00=0x0020, h01=0x0050, text=»* REGISTERS «, t00=0x002e, t01=0x00ac}
0x48a6…48b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00d0}
0x48b0…48c6 Head {h00=0x0012, h01=0x0050, text=»* A2= CHAR. «, t00=0x002e, t01=0x00da}
0x48c6…48ec Head {h00=0x0022, h01=0x0050, text=»* A3= SCREEN BUFFER POINTER «, t00=0x002e, t01=0x00f0}
0x48ec…4916 Head {h00=0x0026, h01=0x0050, text=»* A4= REL. SCREEN BUFFER ADDRESS«, t00=0x002e, t01=0x0116}
0x4916…4932 Head {h00=0x0018, h01=0x0050, text=»* A5= LINE LENGTH «, t00=0x002e, t01=0x0140}
0x4932…4954 Head {h00=0x001e, h01=0x0050, text=»* A6= CURRENT ATTRIBUTE «, t00=0x002e, t01=0x015c}
0x4954…4976 Head {h00=0x001e, h01=0x0050, text=»* A8= ECB BUFFER POINTER«, t00=0x002e, t01=0x017e}
0x4976…4996 Head {h00=0x001c, h01=0x0050, text=»* A9= ECB BUFFER INDEX«, t00=0x002f, t01=0x0010}
0x4996…49b6 Head {h00=0x001c, h01=0x0050, text=»* A10= INTERNAL STATUS«, t00=0x002f, t01=0x0030}
0x49b6…49d6 Head {h00=0x001c, h01=0x0050, text=»* A11= TASK BLOCK BASE«, t00=0x002f, t01=0x0050}
0x49d6…49f0 Head {h00=0x0016, h01=0x0050, text=»* A13= ECB BASE «, t00=0x002f, t01=0x0070}
0x49f0…49fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x008a}
0x49fa…4a48 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002f, t01=0x0094}
0x4a48…4a60 Head {h00=0x0014, h01=0x0050, text=»COPP EQU * . =2 «, t00=0x002f, t01=0x00e2}
0x4a60…4a7a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x002f, t01=0x00fa}
0x4a7a…4aa4 Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x002f, t01=0x0114}
0x4aa4…4ab6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x013e}
0x4ab6…4ad8 Head {h00=0x001e, h01=0x0050, text=» LDK A6,0 RESET ATTRIBUTE «, t00=0x002f, t01=0x0150}
0x4ad8…4b0a Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x002f, t01=0x0172}
0x4b0a…4b34 Head {h00=0x0026, h01=0x0050, text=» CM LINCNT,A11 RESET LINE COUNTER «, t00=0x0030, t01=0x0014}
0x4b34…4b4a Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0030, t01=0x003e}
0x4b4a…4b6c Head {h00=0x001e, h01=0x0050, text=» ANK A1,/38 MASK RELEVANT «, t00=0x0030, t01=0x0054}
0x4b6c…4b7e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0030, t01=0x0076}
0x4b7e…4b9c Head {h00=0x001a, h01=0x0050, text=» ANK A1,8 START PRINT?«, t00=0x0030, t01=0x0088}
0x4b9c…4bc4 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) COP950 NO FORGET IT =19 «, t00=0x0030, t01=0x00a6}
0x4bc4…4bd6 Head {h00=0x000e, h01=0x0050, text=» SRL A5,4 «, t00=0x0030, t01=0x00ce}
0x4bd6…4bfe Head {h00=0x0024, h01=0x0050, text=» LC A5,LINLEN,A5 GET LINE LENGTH«, t00=0x0030, t01=0x00e0}
0x4bfe…4c2a Head {h00=0x0028, h01=0x0050, text=» LDR A5,A5 NL,EM AND CR DET. LENGTH?«, t00=0x0030, t01=0x0108}
0x4c2a…4c44 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP100 NO «, t00=0x0030, t01=0x0134}
0x4c44…4c72 Head {h00=0x002a, h01=0x0050, text=» LD A1,PRTTYP,A11 GET MAX LINE LENGTH «, t00=0x0030, t01=0x014e}
0x4c72…4c8c Head {h00=0x0016, h01=0x0050, text=» LC A5,PRTLEN+1,A1«, t00=0x0030, t01=0x017c}
0x4c8c…4ca0 Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0031, t01=0x0008}
0x4ca0…4cb6 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0031, t01=0x001c}
0x4cb6…4cca Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0031, t01=0x0032}
0x4cca…4ce6 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0031, t01=0x0046}
0x4ce6…4cfe Head {h00=0x0014, h01=0x0050, text=» LDR A1,A8 . =24«, t00=0x0031, t01=0x0062}
0x4cfe…4d30 Head {h00=0x002e, h01=0x0050, text=» LD A8,PRBA,A11 PRINTER BUFFER ADDRESS =24«, t00=0x0031, t01=0x007a}
0x4d30…4d58 Head {h00=0x0024, h01=0x0050, text=» ST A8,ECBBA,A1 STORE IN ECB =24«, t00=0x0031, t01=0x00ac}
0x4d58…4d88 Head {h00=0x002c, h01=0x0050, text=» AD A8,PRLMAR,A11 ALLOW LEFT MARG/CR =25«, t00=0x0031, t01=0x00d4}
0x4d88…4dc2 Head {h00=0x0036, h01=0x0050, text=» CM PRCCCT,A11 CLEAR BUFFER CHARACTER COUNTER =36 «, t00=0x0031, t01=0x0104}
0x4dc2…4dd6 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0031, t01=0x013e}
0x4dd6…4df2 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0031, t01=0x0152}
0x4df2…4e0a Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBBA,A8 «, t00=0x0031, t01=0x016e}
0x4e0a…4e2e Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0031, t01=0x0186}
0x4e2e…4e40 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0032, t01=0x001a}
0x4e40…4e54 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0032, t01=0x002c}
0x4e54…4e66 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0032, t01=0x0040}
0x4e66…4e78 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0032, t01=0x0052}
0x4e78…4e8a Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0032, t01=0x0064}
0x4e8a…4eac Head {h00=0x001e, h01=0x0050, text=» SUR A10,A10 RESET STATUS «, t00=0x0032, t01=0x0076}
0x4eac…4ec0 Head {h00=0x0010, h01=0x0050, text=»COP200 EQU *«, t00=0x0032, t01=0x0098}
0x4ec0…4ee2 Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU ALL PRINTED?«, t00=0x0032, t01=0x00ac}
0x4ee2…4efc Head {h00=0x0016, h01=0x0050, text=» RF(NL) COP850 YES«, t00=0x0032, t01=0x00ce}
0x4efc…4f1a Head {h00=0x001a, h01=0x0050, text=» CWR A9,A5 LINE FULL? «, t00=0x0032, t01=0x00e8}
0x4f1a…4f32 Head {h00=0x0014, h01=0x0050, text=» RF(L) COP400 NO«, t00=0x0032, t01=0x0106}
0x4f32…4f54 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x0032, t01=0x011e}
0x4f54…4f76 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0032, t01=0x0140}
0x4f76…4f90 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x0032, t01=0x0162}
0x4f90…4fa4 Head {h00=0x0010, h01=0x0050, text=»COP400 EQU *«, t00=0x0032, t01=0x017c}
0x4fa4…4fc0 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0032, t01=0x0190}
0x4fc0…4fd4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0033, t01=0x001c}
0x4fd4…4ff4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP650 NULL CHAR.«, t00=0x0033, t01=0x0030}
0x4ff4…5014 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0033, t01=0x0050}
0x5014…502c Head {h00=0x0014, h01=0x0050, text=» RF(L) COP500 NO«, t00=0x0033, t01=0x0070}
0x502c…5050 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A2 GET NEW ATTRIBUTE«, t00=0x0033, t01=0x0088}
0x5050…5062 Head {h00=0x000e, h01=0x0050, text=» RF COP650«, t00=0x0033, t01=0x00ac}
0x5062…5076 Head {h00=0x0010, h01=0x0050, text=»COP500 EQU *«, t00=0x0033, t01=0x00be}
0x5076…5092 Head {h00=0x0018, h01=0x0050, text=» CCK A2,/2020 ORDER?«, t00=0x0033, t01=0x00d2}
0x5092…50ac Head {h00=0x0016, h01=0x0050, text=» RF(L) COP550 YES «, t00=0x0033, t01=0x00ee}
0x50ac…50da Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x0033, t01=0x0108}
0x50da…50ec Head {h00=0x000e, h01=0x0050, text=» RF COP600«, t00=0x0033, t01=0x0136}
0x50ec…5100 Head {h00=0x0010, h01=0x0050, text=»COP550 EQU *«, t00=0x0033, t01=0x0148}
0x5100…5126 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETTAB GET ORDERINDEX «, t00=0x0033, t01=0x015c}
0x5126…514c Head {h00=0x0022, h01=0x0050, text=» CFR A14,A1 TAKE CARE OF ORDER«, t00=0x0033, t01=0x0182}
0x514c…516e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0034, t01=0x0018}
0x516e…5188 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x0034, t01=0x003a}
0x5188…51a6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A10 GET STATUS«, t00=0x0034, t01=0x0054}
0x51a6…51ca Head {h00=0x0020, h01=0x0050, text=» RF(N) COP800 GET NEXT CHAR.«, t00=0x0034, t01=0x0072}
0x51ca…51dc Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0034, t01=0x0096}
0x51dc…51f6 Head {h00=0x0016, h01=0x0050, text=» RF(N) COP850 END «, t00=0x0034, t01=0x00a8}
0x51f6…520a Head {h00=0x0010, h01=0x0050, text=»COP600 EQU *«, t00=0x0034, t01=0x00c2}
0x520a…522e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 CHECK IF NONPRINT«, t00=0x0034, t01=0x00d6}
0x522e…5240 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0034, t01=0x00fa}
0x5240…5252 Head {h00=0x000e, h01=0x0050, text=» XRK A1,/C«, t00=0x0034, t01=0x010c}
0x5252…5270 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP650 NONPRINT«, t00=0x0034, t01=0x011e}
0x5270…52a0 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INIDICATE NOT ONLY NOT «, t00=0x0034, t01=0x013c}
0x52a0…52b2 Head {h00=0x000e, h01=0x0050, text=» RF COP700«, t00=0x0034, t01=0x016c}
0x52b2…52c6 Head {h00=0x0010, h01=0x0050, text=»COP650 EQU *«, t00=0x0034, t01=0x017e}
0x52c6…52ec (53, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0035, t01=0x0004}
0x52ec…5300 Head {h00=0x0010, h01=0x0050, text=»COP700 EQU *«, t00=0x0035, t01=0x002a}
0x5300…531a Head {h00=0x0016, h01=0x0050, text=» IFF TRANAT=0 . =4«, t00=0x0035, t01=0x003e}
0x531a…5348 Head {h00=0x002a, h01=0x0050, text=» LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4«, t00=0x0035, t01=0x0058}
0x5348…535a Head {h00=0x000e, h01=0x0050, text=» XIF . =4«, t00=0x0035, t01=0x0086}
0x535a…536c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A8«, t00=0x0035, t01=0x0098}
0x536c…537e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0035, t01=0x00aa}
0x537e…5390 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0035, t01=0x00bc}
0x5390…53b0 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/2020 SPACE? =3 «, t00=0x0035, t01=0x00ce}
0x53b0…53e2 Head {h00=0x002e, h01=0x0050, text=» RF(E) COP800 YES, DON'T UPDATE LENGTH =3 «, t00=0x0035, t01=0x00ee}
0x53e2…5406 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBPRT,A11 GET ECB =3«, t00=0x0035, t01=0x0120}
0x5406…543c Head {h00=0x0032, h01=0x0050, text=» ST A9,ECBRL,A1 UPDATE LAST POS. NOT SPACE =3 «, t00=0x0035, t01=0x0144}
0x543c…5450 Head {h00=0x0010, h01=0x0050, text=»COP800 EQU *«, t00=0x0035, t01=0x017a}
0x5450…5486 Head {h00=0x0032, h01=0x0050, text=» ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3«, t00=0x0035, t01=0x018e}
0x5486…5498 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0036, t01=0x0034}
0x5498…54aa Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0036, t01=0x0046}
0x54aa…54bc Head {h00=0x000e, h01=0x0050, text=» RB COP200«, t00=0x0036, t01=0x0058}
0x54bc…54d0 Head {h00=0x0010, h01=0x0050, text=»COP850 EQU *«, t00=0x0036, t01=0x006a}
0x54d0…54ec Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0036, t01=0x007e}
0x54ec…5518 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A9 SOMETHING LEFT TO PRINT? «, t00=0x0036, t01=0x009a}
0x5518…5536 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP950 NO! =19 «, t00=0x0036, t01=0x00c6}
0x5536…555c Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x0036, t01=0x00e4}
0x555c…5580 Head {h00=0x0020, h01=0x0050, text=» ANKL A10,ENDPRT END MESS.? «, t00=0x0036, t01=0x010a}
0x5580…55a0 Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP900 NO STOP IT«, t00=0x0036, t01=0x012e}
0x55a0…55cc Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE «, t00=0x0036, t01=0x014e}
0x55cc…55f2 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE EXTRA LINE FEED«, t00=0x0036, t01=0x017a}
0x55f2…5606 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0037, t01=0x0010}
0x5606…5622 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0037, t01=0x0024}
0x5622…5652 Head {h00=0x002c, h01=0x0050, text=» LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 «, t00=0x0037, t01=0x0040}
0x5652…5670 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP860 NO! =24 «, t00=0x0037, t01=0x0070}
0x5670…5696 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT TEXT =24 «, t00=0x0037, t01=0x008e}
0x5696…56b0 Head {h00=0x0016, h01=0x0050, text=»COP860 EQU * . =24«, t00=0x0037, t01=0x00b4}
0x56b0…56c8 Head {h00=0x0014, h01=0x0050, text=» IFF SCS=1 . =26«, t00=0x0037, t01=0x00ce}
0x56c8…56f0 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 TEST END MESS. DK38 «, t00=0x0037, t01=0x00e6}
0x56f0…570e Head {h00=0x001a, h01=0x0050, text=» ANKL A1,ENDPRT DK38 «, t00=0x0037, t01=0x010e}
0x570e…572a Head {h00=0x0018, h01=0x0050, text=» RF(Z) COP870 DK38 «, t00=0x0037, t01=0x012c}
0x572a…5760 Head {h00=0x0032, h01=0x0050, text=» ANKL A10,NOEMLF TEST IF EXTRA LF NECESS. DK38«, t00=0x0037, t01=0x0148}
0x5760…5788 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COP870 NO, SKIP IT DK38 «, t00=0x0037, t01=0x017e}
0x5788…57b8 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE =24 «, t00=0x0038, t01=0x0016}
0x57b8…57e2 Head {h00=0x0026, h01=0x0050, text=» CF A14,PRLINE EXTRA LINEFEED =24 «, t00=0x0038, t01=0x0046}
0x57e2…57f6 Head {h00=0x0010, h01=0x0050, text=» XIF . =26 «, t00=0x0038, t01=0x0070}
0x57f6…5812 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =26 «, t00=0x0038, t01=0x0084}
0x5812…582c Head {h00=0x0016, h01=0x0050, text=»COP870 EQU * . =24«, t00=0x0038, t01=0x00a0}
0x582c…585e Head {h00=0x002e, h01=0x0050, text=» CF A14,PRCCH CONTROL CH:S TO PRINTER =24 «, t00=0x0038, t01=0x00ba}
0x585e…5872 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0038, t01=0x00ec}
0x5872…5886 Head {h00=0x0010, h01=0x0050, text=»COP900 EQU *«, t00=0x0038, t01=0x0100}
0x5886…58a8 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER FAILED?«, t00=0x0038, t01=0x0114}
0x58a8…58c0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP950 NO«, t00=0x0038, t01=0x0136}
0x58c0…58dc Head {h00=0x0018, h01=0x0050, text=» LD A2,WCC,A11 . =32«, t00=0x0038, t01=0x014e}
0x58dc…5904 Head {h00=0x0024, h01=0x0050, text=» CWK A2,/38 LOCAL HARDCOPY? =32 «, t00=0x0038, t01=0x016a}
0x5904…5930 (57, 0, 400) Head {h00=0x0028, h01=0x0050, text=» RF(E) COP910 YES. SKIP PRINTING =32«, t00=0x0039, t01=0x0004}
0x5930…5946 Head {h00=0x0012, h01=0x0050, text=»COP902 EQU * «, t00=0x0039, t01=0x0030}
0x5946…597c Head {h00=0x0032, h01=0x0050, text=» CF A14,TSTPRT WAIT UNTIL PRINTER OPERABLE =32«, t00=0x0039, t01=0x0046}
0x597c…599c Head {h00=0x001c, h01=0x0050, text=» ANK A4,1 OPERABLE? DK42«, t00=0x0039, t01=0x007c}
0x599c…59c2 Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP905 YES, RETRY DK42 «, t00=0x0039, t01=0x009c}
0x59c2…59ee Head {h00=0x0028, h01=0x0050, text=» LDKL A8,50 NO, WAIT 5 SECONDS DK42 «, t00=0x0039, t01=0x00c2}
0x59ee…59fc Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0039, t01=0x00ee}
0x59fc…5a0c Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0039, t01=0x00fc}
0x5a0c…5a20 Head {h00=0x0010, h01=0x0050, text=» RB COP902 «, t00=0x0039, t01=0x010c}
0x5a20…5a36 Head {h00=0x0012, h01=0x0050, text=»COP905 EQU * «, t00=0x0039, t01=0x0120}
0x5a36…5a5c Head {h00=0x0022, h01=0x0050, text=» ABL COPP RESUME PRINTING =34 «, t00=0x0039, t01=0x0136}
0x5a5c…5a76 Head {h00=0x0016, h01=0x0050, text=»COP910 EQU * . =32«, t00=0x0039, t01=0x015c}
0x5a76…5a9c Head {h00=0x0022, h01=0x0050, text=» LDKL A2,PRTERR INDICATE ERROR«, t00=0x0039, t01=0x0176}
0x5a9c…5ab6 Head {h00=0x0016, h01=0x0050, text=» ORS A2,PRTMOD,A11«, t00=0x003a, t01=0x000c}
0x5ab6…5aca Head {h00=0x0010, h01=0x0050, text=»COP950 EQU *«, t00=0x003a, t01=0x0026}
0x5aca…5ada Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x003a}
0x5ada…5ae8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x004a}
0x5ae8…5b38 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003a, t01=0x0058}
0x5b38…5b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00a8}
0x5b42…5b64 Head {h00=0x001e, h01=0x0050, text=»* TABLE FOR PRINTERORDERS «, t00=0x003a, t01=0x00b2}
0x5b64…5b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d4}
0x5b6e…5bbe Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003a, t01=0x00de}
0x5bbe…5bd2 Head {h00=0x0010, h01=0x0050, text=»PRTORD EQU *«, t00=0x003a, t01=0x012e}
0x5bd2…5bfc Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF ORDER CODES «, t00=0x003a, t01=0x0142}
0x5bfc…5c24 Head {h00=0x0024, h01=0x0050, text=» DATA /0A0A,NL,NL,NL,NL NEW LINE«, t00=0x003a, t01=0x016c}
0x5c24…5c5a (59, 0, 400) Head {h00=0x0032, h01=0x0050, text=» DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED «, t00=0x003b, t01=0x0004}
0x5c5a…5c86 Head {h00=0x0028, h01=0x0050, text=» DATA /0D0D,CR,CR,CR,CR CARR. RETURN«, t00=0x003b, t01=0x003a}
0x5c86…5cb2 Head {h00=0x0028, h01=0x0050, text=» DATA /1919,EM,EM,EM,EM END MESSAGE «, t00=0x003b, t01=0x0066}
0x5cb2…5cd8 Head {h00=0x0022, h01=0x0050, text=» DATA INVAL INVALID ORDER CODE«, t00=0x003b, t01=0x0092}
0x5cd8…5ce6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00b8}
0x5ce6…5d3a Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x003b, t01=0x00c6}
0x5d3a…5d8e Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x003b, t01=0x011a}
0x5d8e…5de2 Head {h00=0x0050, h01=0x0050, text=»* NL NEW LINE *«, t00=0x003b, t01=0x016e}
0x5de2…5e36 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x003c, t01=0x0032}
0x5e36…5e8a Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x003c, t01=0x0086}
0x5e8a…5e9a Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x003c, t01=0x00da}
0x5e9a…5ec8 Head {h00=0x002a, h01=0x0050, text=» ORKL A10,NXTCHA+NTONLY GET NEXT CHAR.«, t00=0x003c, t01=0x00ea}
0x5ec8…5eee Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 GET NEXT CHAR. DK38 «, t00=0x003c, t01=0x0118}
0x5eee…5f06 Head {h00=0x0014, h01=0x0050, text=» LCR A1,A3 DK38«, t00=0x003c, t01=0x013e}
0x5f06…5f26 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF MASK IT DK38«, t00=0x003c, t01=0x0156}
0x5f26…5f4a Head {h00=0x0020, h01=0x0050, text=» CWK A1,/19 END MESS.? DK38 «, t00=0x003c, t01=0x0176}
0x5f4a…5f70 Head {h00=0x0022, h01=0x0050, text=» RF(E) NL005 YES, FLAG IT DK38«, t00=0x003d, t01=0x000a}
0x5f70…5fa2 Head {h00=0x002e, h01=0x0050, text=» ANKL A10,/FFFF-NOEMLF NO, CLEAR FLAG DK38«, t00=0x003d, t01=0x0030}
0x5fa2…5fba Head {h00=0x0014, h01=0x0050, text=» RF NL010 DK38 «, t00=0x003d, t01=0x0062}
0x5fba…5fd4 Head {h00=0x0016, h01=0x0050, text=»NL005 EQU * DK38 «, t00=0x003d, t01=0x007a}
0x5fd4…6000 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NOEMLF INDICATE NO LF DK38«, t00=0x003d, t01=0x0094}
0x6000…601a Head {h00=0x0016, h01=0x0050, text=»NL010 EQU * DK38 «, t00=0x003d, t01=0x00c0}
0x601a…6040 Head {h00=0x0022, h01=0x0050, text=» SUK A3,1 RESTORE POINTER DK38«, t00=0x003d, t01=0x00da}
0x6040…6070 Head {h00=0x002c, h01=0x0050, text=» CF A14,PRLINE PRINT LINE AFTER NEW LINE«, t00=0x003d, t01=0x0100}
0x6070…6080 Head {h00=0x000c, h01=0x0050, text=» . =DK«, t00=0x003d, t01=0x0130}
0x6080…6090 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x0140}
0x6090…609e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0150}
0x609e…60ec Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003d, t01=0x015e}
0x60ec…613a Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003e, t01=0x001c}
0x613a…6188 Head {h00=0x004a, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED *«, t00=0x003e, t01=0x006a}
0x6188…61d6 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003e, t01=0x00b8}
0x61d6…6224 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003e, t01=0x0106}
0x6224…6238 Head {h00=0x0010, h01=0x0050, text=»FFDUM EQU * «, t00=0x003e, t01=0x0154}
0x6238…626a Head {h00=0x002e, h01=0x0050, text=» CF A14,FFCHK CHECK IF FORM FEED IS VALID «, t00=0x003e, t01=0x0168}
0x626a…6284 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x003f, t01=0x000a}
0x6284…629e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD400 NO «, t00=0x003f, t01=0x0024}
0x629e…62b6 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 RESET «, t00=0x003f, t01=0x003e}
0x62b6…62e0 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTTYP,A11 TYPE OF PRINTER «, t00=0x003f, t01=0x0056}
0x62e0…6302 Head {h00=0x001e, h01=0x0050, text=» LC A7,PRTLEN,A1 PAGE SIZE«, t00=0x003f, t01=0x0080}
0x6302…6316 Head {h00=0x0010, h01=0x0050, text=»FFD100 EQU *«, t00=0x003f, t01=0x00a2}
0x6316…633a Head {h00=0x0020, h01=0x0050, text=» CW A7,LINCNT,A11 NEW PAGE? «, t00=0x003f, t01=0x00b6}
0x633a…6360 Head {h00=0x0022, h01=0x0050, text=» RF(L) FFD200 YES BUT TO MANY «, t00=0x003f, t01=0x00da}
0x6360…6382 Head {h00=0x001e, h01=0x0050, text=» RF(E) FFD300 YES FINISHED«, t00=0x003f, t01=0x0100}
0x6382…639a Head {h00=0x0014, h01=0x0050, text=» ORKL A10,NTONLY«, t00=0x003f, t01=0x0122}
0x639a…63b6 Head {h00=0x0018, h01=0x0050, text=» ST A7,REGI,A11 SAVE«, t00=0x003f, t01=0x013a}
0x63b6…63de Head {h00=0x0024, h01=0x0050, text=» CF A14,PRLINE ADVANCE ONE LINE «, t00=0x003f, t01=0x0156}
0x63de…63fe Head {h00=0x001c, h01=0x0050, text=» LD A7,REGI,A11 RESTORE «, t00=0x003f, t01=0x017e}
0x63fe…6420 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0040, t01=0x000e}
0x6420…643a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD500 YES«, t00=0x0040, t01=0x0030}
0x643a…644c Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0040, t01=0x004a}
0x644c…6460 Head {h00=0x0010, h01=0x0050, text=»FFD200 EQU *«, t00=0x0040, t01=0x005c}
0x6460…6472 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A7«, t00=0x0040, t01=0x0070}
0x6472…64a0 Head {h00=0x002a, h01=0x0050, text=» ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE «, t00=0x0040, t01=0x0082}
0x64a0…64b2 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0040, t01=0x00b0}
0x64b2…64c6 Head {h00=0x0010, h01=0x0050, text=»FFD300 EQU *«, t00=0x0040, t01=0x00c2}
0x64c6…64e8 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0040, t01=0x00d6}
0x64e8…6512 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x0040, t01=0x00f8}
0x6512…6526 Head {h00=0x0010, h01=0x0050, text=»FFD400 EQU *«, t00=0x0040, t01=0x0122}
0x6526…6544 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0040, t01=0x0136}
0x6544…6558 Head {h00=0x0010, h01=0x0050, text=»FFD500 EQU *«, t00=0x0040, t01=0x0154}
0x6558…6568 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0168}
0x6568…6576 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0178}
0x6576…65c4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0040, t01=0x0186}
0x65c4…6612 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0041, t01=0x0044}
0x6612…6660 Head {h00=0x004a, h01=0x0050, text=»* FFVAL FORM FEED *«, t00=0x0041, t01=0x0092}
0x6660…66ae Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0041, t01=0x00e0}
0x66ae…66fc Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0041, t01=0x012e}
0x66fc…6710 Head {h00=0x0010, h01=0x0050, text=»FFVAL EQU * «, t00=0x0041, t01=0x017c}
0x6710…6738 Head {h00=0x0024, h01=0x0050, text=» CF A14,FFCHK CHECK IF FF VALID «, t00=0x0041, t01=0x0190}
0x6738…6752 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0042, t01=0x0028}
0x6752…676c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFV200 NO «, t00=0x0042, t01=0x0042}
0x676c…677c Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x0042, t01=0x005c}
0x677c…6798 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =30 «, t00=0x0042, t01=0x006c}
0x6798…67c6 Head {h00=0x002a, h01=0x0050, text=» LDK A1,/31 FF FOR STANDARD WRITE =30 «, t00=0x0042, t01=0x0088}
0x67c6…67f2 Head {h00=0x0028, h01=0x0050, text=» SC A1,-1,A8 STORE FF CONTROL CHAR. «, t00=0x0042, t01=0x00b6}
0x67f2…6806 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0042, t01=0x00e2}
0x6806…6822 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0042, t01=0x00f6}
0x6822…684a Head {h00=0x0024, h01=0x0050, text=» ORKL A10,FFCCH IND. FF CCH =36 «, t00=0x0042, t01=0x0112}
0x684a…6870 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LINE =36 «, t00=0x0042, t01=0x013a}
0x6870…6884 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0042, t01=0x0160}
0x6884…68a2 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,NXTCHA . =DK«, t00=0x0042, t01=0x0174}
0x68a2…68c4 (67, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0043, t01=0x0004}
0x68c4…68d8 Head {h00=0x0010, h01=0x0050, text=»FFV200 EQU *«, t00=0x0043, t01=0x0026}
0x68d8…68f6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0043, t01=0x003a}
0x68f6…6906 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x0058}
0x6906…6914 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0068}
0x6914…6962 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0043, t01=0x0076}
0x6962…69b0 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0043, t01=0x00c4}
0x69b0…69fe Head {h00=0x004a, h01=0x0050, text=»* CR CARRIAGE RETURN *«, t00=0x0043, t01=0x0112}
0x69fe…6a4c Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0043, t01=0x0160}
0x6a4c…6a9a Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0044, t01=0x001e}
0x6a9a…6aaa Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x0044, t01=0x006c}
0x6aaa…6aca Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 GET ATTRIBUTE«, t00=0x0044, t01=0x007c}
0x6aca…6adc Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0044, t01=0x009c}
0x6adc…6afe Head {h00=0x001e, h01=0x0050, text=» XRK A1,/C NONPRINT FIELD?«, t00=0x0044, t01=0x00ae}
0x6afe…6b16 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CR100 YES«, t00=0x0044, t01=0x00d0}
0x6b16…6b2c Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0044, t01=0x00e8}
0x6b2c…6b4a Head {h00=0x001a, h01=0x0050, text=» ANK A1,/30 FORMATTED?«, t00=0x0044, t01=0x00fe}
0x6b4a…6b62 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) CR100 NO«, t00=0x0044, t01=0x011c}
0x6b62…6b8c Head {h00=0x0026, h01=0x0050, text=» ORKL A10,NTONLY+CRREC CR RECEIVED«, t00=0x0044, t01=0x0134}
0x6b8c…6ba0 Head {h00=0x0010, h01=0x0050, text=»CR100 EQU * «, t00=0x0044, t01=0x015e}
0x6ba0…6bc6 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0044, t01=0x0172}
0x6bc6…6be4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0045, t01=0x0008}
0x6be4…6bf4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0045, t01=0x0026}
0x6bf4…6c02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0036}
0x6c02…6c50 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0045, t01=0x0044}
0x6c50…6c9c Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0045, t01=0x0092}
0x6c9c…6ce8 Head {h00=0x0048, h01=0x0050, text=»* EM END MESSAGE *«, t00=0x0045, t01=0x00de}
0x6ce8…6d34 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0045, t01=0x012a}
0x6d34…6d80 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0045, t01=0x0176}
0x6d80…6d90 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x0046, t01=0x0032}
0x6d90…6db6 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,ENDPRT END PRINTING «, t00=0x0046, t01=0x0042}
0x6db6…6dd4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0046, t01=0x0068}
0x6dd4…6de4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x0086}
0x6de4…6df2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0096}
0x6df2…6e3c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0046, t01=0x00a4}
0x6e3c…6e86 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0046, t01=0x00ee}
0x6e86…6ed0 Head {h00=0x0046, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER *«, t00=0x0046, t01=0x0138}
0x6ed0…6f1a Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0046, t01=0x0182}
0x6f1a…6f64 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0047, t01=0x003c}
0x6f64…6f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0086}
0x6f6e…6f86 Head {h00=0x0014, h01=0x0050, text=»* ALSO HANDLING:«, t00=0x0047, t01=0x0090}
0x6f86…6fa4 Head {h00=0x001a, h01=0x0050, text=»* DUP & FM CHARACTERS «, t00=0x0047, t01=0x00a8}
0x6fa4…6fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00c6}
0x6fae…6fc2 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x0047, t01=0x00d0}
0x6fc2…6fe2 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 SAVE CHAR =37«, t00=0x0047, t01=0x00e4}
0x6fe2…7012 Head {h00=0x002c, h01=0x0050, text=» CF A14,RFMDUP REPLACE IF DUP OR FM =37 «, t00=0x0047, t01=0x0104}
0x7012…7032 Head {h00=0x001c, h01=0x0050, text=» SUR A1,A2 REPLACED? =37«, t00=0x0047, t01=0x0134}
0x7032…7052 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INVA10 YES! =37 «, t00=0x0047, t01=0x0154}
0x7052…7078 Head {h00=0x0022, h01=0x0050, text=» NO! I.E. INVALID ORDER =37 «, t00=0x0047, t01=0x0174}
0x7078…709e Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0048, t01=0x000a}
0x709e…70b8 Head {h00=0x0016, h01=0x0050, text=»INVA10 EQU * . =37«, t00=0x0048, t01=0x0030}
0x70b8…70da Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0048, t01=0x004a}
0x70da…70f8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0048, t01=0x006c}
0x70f8…7108 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x008a}
0x7108…7116 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x009a}
0x7116…7160 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0048, t01=0x00a8}
0x7160…71aa Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0048, t01=0x00f2}
0x71aa…71f4 Head {h00=0x0046, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID * «, t00=0x0048, t01=0x013c}
0x71f4…723e Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0048, t01=0x0186}
0x723e…7288 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0049, t01=0x0040}
0x7288…729c Head {h00=0x0010, h01=0x0050, text=»FFCHK EQU * «, t00=0x0049, t01=0x008a}
0x729c…72b2 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0049, t01=0x009e}
0x72b2…72c6 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x0049, t01=0x00b4}
0x72c6…72e4 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 FORMATTED?«, t00=0x0049, t01=0x00c8}
0x72e4…7318 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY«, t00=0x0049, t01=0x00e6}
0x7318…732e Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0049, t01=0x011a}
0x732e…7352 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 LOCAL HARD COPY?«, t00=0x0049, t01=0x0130}
0x7352…737c Head {h00=0x0026, h01=0x0050, text=» RF(Z) FFCH20 YES, FF NOT ALLOWED «, t00=0x0049, t01=0x0154}
0x737c…7390 Head {h00=0x0010, h01=0x0050, text=»FFCH10 EQU *«, t00=0x0049, t01=0x017e}
0x7390…73ae (74, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 FF ALLOWED «, t00=0x004a, t01=0x0004}
0x73ae…73c8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH30 NOT «, t00=0x004a, t01=0x0022}
0x73c8…73dc Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x004a, t01=0x003c}
0x73dc…7400 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,CRREC CR RECEIVED? «, t00=0x004a, t01=0x0050}
0x7400…741a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFCH30 YES«, t00=0x004a, t01=0x0074}
0x741a…742e Head {h00=0x0010, h01=0x0050, text=»FFCH20 EQU *«, t00=0x004a, t01=0x008e}
0x742e…7454 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x004a, t01=0x00a2}
0x7454…7472 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x004a, t01=0x00c8}
0x7472…7484 Head {h00=0x000e, h01=0x0050, text=» RF FFCH40«, t00=0x004a, t01=0x00e6}
0x7484…7498 Head {h00=0x0010, h01=0x0050, text=»FFCH30 EQU *«, t00=0x004a, t01=0x00f8}
0x7498…74c6 Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x004a, t01=0x010c}
0x74c6…74e4 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 EMPTY LINE «, t00=0x004a, t01=0x013a}
0x74e4…74fe Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH35 YES «, t00=0x004a, t01=0x0158}
0x74fe…7520 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x004a, t01=0x0172}
0x7520…7534 (75, 0, 400) Head {h00=0x0010, h01=0x0050, text=»FFCH35 EQU *«, t00=0x004b, t01=0x0004}
0x7534…7552 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x004b, t01=0x0018}
0x7552…7566 Head {h00=0x0010, h01=0x0050, text=»FFCH40 EQU *«, t00=0x004b, t01=0x0036}
0x7566…7588 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x004b, t01=0x004a}
0x7588…7598 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004b, t01=0x006c}
0x7598…75a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x007c}
0x75a6…75ee Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004b, t01=0x008a}
0x75ee…7636 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004b, t01=0x00d2}
0x7636…767e Head {h00=0x0044, h01=0x0050, text=»* PRLINE PRINT LINE *«, t00=0x004b, t01=0x011a}
0x767e…76c6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004b, t01=0x0162}
0x76c6…770e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004c, t01=0x001a}
0x770e…7722 Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x004c, t01=0x0062}
0x7722…773c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x004c, t01=0x0076}
0x773c…7750 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x004c, t01=0x0090}
0x7750…7774 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,NTONLY ONLY RUBB.? «, t00=0x004c, t01=0x00a4}
0x7774…778e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL050 NO «, t00=0x004c, t01=0x00c8}
0x778e…77a4 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x004c, t01=0x00e2}
0x77a4…77b6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x004c, t01=0x00f8}
0x77b6…77ca Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x004c, t01=0x010a}
0x77ca…77e8 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 HRADCOPY? «, t00=0x004c, t01=0x011e}
0x77e8…7802 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x004c, t01=0x013c}
0x7802…7824 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/40 HARDCOPY????? «, t00=0x004c, t01=0x0156}
0x7824…783e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x004c, t01=0x0178}
0x783e…7852 (77, 0, 400) Head {h00=0x0010, h01=0x0050, text=»PRL050 EQU *«, t00=0x004d, t01=0x0004}
0x7852…788e Head {h00=0x0038, h01=0x0050, text=» ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 «, t00=0x004d, t01=0x0018}
0x788e…78aa Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x004d, t01=0x0054}
0x78aa…78dc Head {h00=0x002e, h01=0x0050, text=» LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 «, t00=0x004d, t01=0x0070}
0x78dc…78fa Head {h00=0x001a, h01=0x0050, text=» ADS A9,ECBRL,A8 . =3 «, t00=0x004d, t01=0x00a2}
0x78fa…7914 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/06 PRINT «, t00=0x004d, t01=0x00c0}
0x7914…7920 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004d, t01=0x00da}
0x7920…7930 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x004d, t01=0x00e6}
0x7930…7944 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x004d, t01=0x00f6}
0x7944…7960 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x004d, t01=0x010a}
0x7960…798a Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBRL,A8 TEXT TO PRINT? =24«, t00=0x004d, t01=0x0126}
0x798a…79b8 Head {h00=0x002a, h01=0x0050, text=» RF(Z) PRL070 NO! JUST CONTROL CH =24 «, t00=0x004d, t01=0x0150}
0x79b8…79e0 Head {h00=0x0024, h01=0x0050, text=» EJECT HANDLING A TEXT LINE =36«, t00=0x004d, t01=0x017e}
0x79e0…7a0e Head {h00=0x002a, h01=0x0050, text=» PREPARE LINE. FIRST LEFT MARGIN =36«, t00=0x004e, t01=0x0016}
0x7a0e…7a28 Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =36«, t00=0x004e, t01=0x0044}
0x7a28…7a5c Head {h00=0x0030, h01=0x0050, text=» LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 «, t00=0x004e, t01=0x005e}
0x7a5c…7a7c Head {h00=0x001c, h01=0x0050, text=» LD A1,PRLMAR,A11 . =36 «, t00=0x004e, t01=0x0092}
0x7a7c…7a9a Head {h00=0x001a, h01=0x0050, text=» AD A1,ECBBA,A8 . =36 «, t00=0x004e, t01=0x00b2}
0x7a9a…7ab2 Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x004e, t01=0x00d0}
0x7ab2…7acc Head {h00=0x0016, h01=0x0050, text=»PRL055 EQU * . =36«, t00=0x004e, t01=0x00e8}
0x7acc…7ae4 Head {h00=0x0014, h01=0x0050, text=» SCR A7,A1 . =36«, t00=0x004e, t01=0x0102}
0x7ae4…7afc Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x004e, t01=0x011a}
0x7afc…7b22 Head {h00=0x0022, h01=0x0050, text=» CW A1,ECBBA,A8 FINISHED? =36 «, t00=0x004e, t01=0x0132}
0x7b22…7b40 Head {h00=0x001a, h01=0x0050, text=» RB(G) PRL055 NO! =36 «, t00=0x004e, t01=0x0158}
0x7b40…7b54 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x004e, t01=0x0176}
0x7b54…7b70 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x004e, t01=0x018a}
0x7b70…7b80 Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x004f, t01=0x0016}
0x7b80…7b9e Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0D CR CCH =36«, t00=0x004f, t01=0x0026}
0x7b9e…7bd2 Head {h00=0x0030, h01=0x0050, text=» SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 «, t00=0x004f, t01=0x0044}
0x7bd2…7bfa Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x004f, t01=0x0078}
0x7bfa…7c18 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/0A LF CCH =24«, t00=0x004f, t01=0x00a0}
0x7c18…7c36 Head {h00=0x001a, h01=0x0050, text=» LD A7,ECBRL,A8 . =24 «, t00=0x004f, t01=0x00be}
0x7c36…7c54 Head {h00=0x001a, h01=0x0050, text=» AD A7,ECBBA,A8 . =24 «, t00=0x004f, t01=0x00dc}
0x7c54…7c88 Head {h00=0x0030, h01=0x0050, text=» AD A7,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x004f, t01=0x00fa}
0x7c88…7cb2 Head {h00=0x0026, h01=0x0050, text=» SCR A1,A7 LF CCH LAST IN BUF =25 «, t00=0x004f, t01=0x012e}
0x7cb2…7cc2 Head {h00=0x000c, h01=0x0050, text=» . =35«, t00=0x004f, t01=0x0158}
0x7cc2…7ce6 Head {h00=0x0020, h01=0x0050, text=» CALCULATE LINE LENGTH =36«, t00=0x004f, t01=0x0168}
0x7ce6…7d08 Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 ALLOW FOR LF =36«, t00=0x004f, t01=0x018c}
0x7d08…7d32 Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBRL,A8 ALLOW FOR TEXT =36«, t00=0x0050, t01=0x001e}
0x7d32…7d66 Head {h00=0x0030, h01=0x0050, text=» AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 «, t00=0x0050, t01=0x0048}
0x7d66…7d9a Head {h00=0x0030, h01=0x0050, text=» ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36«, t00=0x0050, t01=0x007c}
0x7d9a…7dd0 Head {h00=0x0032, h01=0x0050, text=» ADS A1,ECBBA,A8 UPDATE POINTER TO BUFFER =36 «, t00=0x0050, t01=0x00b0}
0x7dd0…7de6 Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x0050, t01=0x00e6}
0x7de6…7e1e Head {h00=0x0034, h01=0x0050, text=»PRL060 EQU * ENOUGH SPACE FOR ANOTHER LINE? =36 «, t00=0x0050, t01=0x00fc}
0x7e1e…7e46 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PRBFL BUFFER LENGTH =36«, t00=0x0050, t01=0x0134}
0x7e46…7e78 Head {h00=0x002e, h01=0x0050, text=» SU A1,PRCCCT,A11 USED PART OF BUFFER =36 «, t00=0x0050, t01=0x015c}
0x7e78…7ea0 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A5 MAX. LINE LENGTH =36 «, t00=0x0050, t01=0x018e}
0x7ea0…7eca Head {h00=0x0026, h01=0x0050, text=» SU A1,PRLMAR,A11 LEFT MARGIN =36 «, t00=0x0051, t01=0x0026}
0x7eca…7efe Head {h00=0x0030, h01=0x0050, text=» RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 «, t00=0x0051, t01=0x0050}
0x7efe…7f0e Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x0051, t01=0x0084}
0x7f0e…7f34 Head {h00=0x0022, h01=0x0050, text=»PRL065 EQU * PRINT BUFFER =36 «, t00=0x0051, t01=0x0094}
0x7f34…7f54 Head {h00=0x001c, h01=0x0050, text=» LD A1,PRCCCT,A11 . =36 «, t00=0x0051, t01=0x00ba}
0x7f54…7f7c Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBRL,A8 REQ. LENGTH =36 «, t00=0x0051, t01=0x00da}
0x7f7c…7f9a Head {h00=0x001a, h01=0x0050, text=» LD A1,PRBA,A11 . =36 «, t00=0x0051, t01=0x0102}
0x7f9a…7fc4 Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 BUFFER ADDRESS =36«, t00=0x0051, t01=0x0120}
0x7fc4…7fd8 Head {h00=0x0010, h01=0x0050, text=» IFT P6883=1«, t00=0x0051, t01=0x014a}
0x7fd8…7ffa Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A11 6883 PRINTER?«, t00=0x0051, t01=0x015e}
0x7ffa…8020 Head {h00=0x0022, h01=0x0050, text=» CWK A1,'L1' TID = L1 = 6883 «, t00=0x0051, t01=0x0180}
0x8020…804e Head {h00=0x002a, h01=0x0050, text=» RF(NE) PRL067 NO, NORMAL BASIC WRITE «, t00=0x0052, t01=0x0016}
0x804e…807c Head {h00=0x002a, h01=0x0050, text=» LDK A7,/07 ORDER - BAS. WRT W/ CONV. «, t00=0x0052, t01=0x0044}
0x807c…8090 Head {h00=0x0010, h01=0x0050, text=» RF PRL069 «, t00=0x0052, t01=0x0072}
0x8090…80a0 Head {h00=0x000c, h01=0x0050, text=» XIF «, t00=0x0052, t01=0x0086}
0x80a0…80b6 Head {h00=0x0012, h01=0x0050, text=»PRL067 EQU * «, t00=0x0052, t01=0x0096}
0x80b6…80da Head {h00=0x0020, h01=0x0050, text=» LDK A7,/05 BASIC WRITE =24 «, t00=0x0052, t01=0x00ac}
0x80da…80f0 Head {h00=0x0012, h01=0x0050, text=»PRL069 EQU * «, t00=0x0052, t01=0x00d0}
0x80f0…8104 Head {h00=0x0010, h01=0x0050, text=» LKM . =24 «, t00=0x0052, t01=0x00e6}
0x8104…811a Head {h00=0x0012, h01=0x0050, text=» DATA 1 . =24 «, t00=0x0052, t01=0x00fa}
0x811a…814c Head {h00=0x002e, h01=0x0050, text=» CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24«, t00=0x0052, t01=0x0110}
0x814c…8164 Head {h00=0x0014, h01=0x0050, text=» RF PRL090 . =24«, t00=0x0052, t01=0x0142}
0x8164…8194 Head {h00=0x002c, h01=0x0050, text=» EJECT HANDLING A CONTROL CHARACTER =36«, t00=0x0052, t01=0x015a}
0x8194…81c2 Head {h00=0x002a, h01=0x0050, text=»PRL070 EQU * STORE CCH IN BUFFER =24 «, t00=0x0052, t01=0x018a}
0x81c2…81ea Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x0053, t01=0x0028}
0x81ea…8208 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0A LF CCH =24«, t00=0x0053, t01=0x0050}
0x8208…8222 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A10 . =36 «, t00=0x0053, t01=0x006e}
0x8222…8248 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,FFCCH FORM FEED? =36 «, t00=0x0053, t01=0x0088}
0x8248…8264 Head {h00=0x0018, h01=0x0050, text=» RF(Z) PRL075 NO =36«, t00=0x0053, t01=0x00ae}
0x8264…8288 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/0C YES. FF CCH =36 «, t00=0x0053, t01=0x00ca}
0x8288…82b8 Head {h00=0x002c, h01=0x0050, text=» ANKL A10,/FFFF-FFCCH RESET FF IND. =36 «, t00=0x0053, t01=0x00ee}
0x82b8…82d2 Head {h00=0x0016, h01=0x0050, text=»PRL075 EQU * . =36«, t00=0x0053, t01=0x011e}
0x82d2…82fc Head {h00=0x0026, h01=0x0050, text=» SC* A7,ECBBA,A8 CCH TO BUFFER =36«, t00=0x0053, t01=0x0138}
0x82fc…8328 Head {h00=0x0028, h01=0x0050, text=» IM ECBBA,A8 STEP BUFFER ADDRESS =36«, t00=0x0053, t01=0x0162}
0x8328…835e Head {h00=0x0032, h01=0x0050, text=» IM PRCCCT,A11 STEP NO. OF CH:S IN BUFFER =36 «, t00=0x0053, t01=0x018e}
0x835e…8388 Head {h00=0x0026, h01=0x0050, text=» ADKL A8,1 STEP BUFFER POINTER =36«, t00=0x0054, t01=0x0034}
0x8388…83b6 Head {h00=0x002a, h01=0x0050, text=» RB PRL060 CHECK IF END OF BUFFER =36 «, t00=0x0054, t01=0x005e}
0x83b6…83cc Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x0054, t01=0x008c}
0x83cc…83e6 Head {h00=0x0016, h01=0x0050, text=»PRL090 EQU * . =24«, t00=0x0054, t01=0x00a2}
0x83e6…83fa Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0054, t01=0x00bc}
0x83fa…8424 Head {h00=0x0026, h01=0x0050, text=» LDK A1,100 NUMBER OF DELAYS DK41 «, t00=0x0054, t01=0x00d0}
0x8424…8438 Head {h00=0x0010, h01=0x0050, text=»PRL100 EQU *«, t00=0x0054, t01=0x00fa}
0x8438…845c Head {h00=0x0020, h01=0x0050, text=» LDKL A8,1 WAIT FOR A WHILE «, t00=0x0054, t01=0x010e}
0x845c…8468 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0054, t01=0x0132}
0x8468…8478 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0054, t01=0x013e}
0x8478…8492 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0054, t01=0x014e}
0x8492…84b4 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 PRINT COMPL.? «, t00=0x0054, t01=0x0168}
0x84b4…84ce Head {h00=0x0016, h01=0x0050, text=» RF(N) PRL150 YES «, t00=0x0054, t01=0x018a}
0x84ce…84f2 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 MORE TO WAIT FOR? «, t00=0x0055, t01=0x0014}
0x84f2…850c Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PRL100 YES«, t00=0x0055, t01=0x0038}
0x850c…8518 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0055, t01=0x0052}
0x8518…852e Head {h00=0x0012, h01=0x0050, text=» DATA 10 ABORT«, t00=0x0055, t01=0x005e}
0x852e…853e Head {h00=0x000c, h01=0x0050, text=» . =27«, t00=0x0055, t01=0x0074}
0x853e…8562 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE ERROR =27«, t00=0x0055, t01=0x0084}
0x8562…8574 Head {h00=0x000e, h01=0x0050, text=» RF PRL300«, t00=0x0055, t01=0x00a8}
0x8574…8588 Head {h00=0x0010, h01=0x0050, text=»PRL150 EQU *«, t00=0x0055, t01=0x00ba}
0x8588…8596 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0055, t01=0x00ce}
0x8596…85b4 Head {h00=0x001a, h01=0x0050, text=» DATA 2 RESYNCHRONIZE «, t00=0x0055, t01=0x00dc}
0x85b4…85d0 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0055, t01=0x00fa}
0x85d0…85f4 Head {h00=0x0020, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE «, t00=0x0055, t01=0x0116}
0x85f4…861e Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x0055, t01=0x013a}
0x861e…8632 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0055, t01=0x0164}
0x8632…864e Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0055, t01=0x0178}
0x864e…8688 (86, 0, 400) Head {h00=0x0036, h01=0x0050, text=» ANKL A1,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x0056, t01=0x0004}
0x8688…86a8 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) PRL300 YES! =23 «, t00=0x0056, t01=0x003e}
0x86a8…86bc Head {h00=0x0010, h01=0x0050, text=»PRL200 EQU *«, t00=0x0056, t01=0x005e}
0x86bc…86d8 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0056, t01=0x0072}
0x86d8…8704 Head {h00=0x0028, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =36 «, t00=0x0056, t01=0x008e}
0x8704…8732 Head {h00=0x002a, h01=0x0050, text=» LD A8,ECBBA,A8 SET BUFFER POINTER =36«, t00=0x0056, t01=0x00ba}
0x8732…8766 Head {h00=0x0030, h01=0x0050, text=» AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x0056, t01=0x00e8}
0x8766…877a Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0056, t01=0x011c}
0x877a…8796 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0056, t01=0x0130}
0x8796…87c0 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0056, t01=0x014c}
0x87c0…87e4 Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0056, t01=0x0176}
0x87e4…87f8 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0057, t01=0x000a}
0x87f8…880a Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0057, t01=0x001e}
0x880a…8826 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0057, t01=0x0030}
0x8826…8838 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0057, t01=0x004c}
0x8838…884c Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0057, t01=0x005e}
0x884c…886a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0057, t01=0x0072}
0x886a…8882 Head {h00=0x0014, h01=0x0050, text=» RF PRL900 . =6 «, t00=0x0057, t01=0x0090}
0x8882…8896 Head {h00=0x0010, h01=0x0050, text=»PRL300 EQU *«, t00=0x0057, t01=0x00a8}
0x8896…88c4 Head {h00=0x002a, h01=0x0050, text=» LD A2,PRTID,A11 GET PRINTER TASKID =6«, t00=0x0057, t01=0x00bc}
0x88c4…88dc Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF . =6«, t00=0x0057, t01=0x00ea}
0x88dc…88f4 Head {h00=0x0014, h01=0x0050, text=» SUK A2,/30 . =6«, t00=0x0057, t01=0x0102}
0x88f4…890a Head {h00=0x0012, h01=0x0050, text=» SLL A2,2 . =6«, t00=0x0057, t01=0x011a}
0x890a…8934 Head {h00=0x0026, h01=0x0050, text=» LD A3,+6,A13 COMMON BLOCK BASE =6«, t00=0x0057, t01=0x0130}
0x8934…8950 Head {h00=0x0018, h01=0x0050, text=» ADK A3,TSKTAB . =6 «, t00=0x0057, t01=0x015a}
0x8950…8968 Head {h00=0x0014, h01=0x0050, text=» ADR A3,A2 . =6 «, t00=0x0057, t01=0x0176}
0x8968…8992 Head {h00=0x0026, h01=0x0050, text=» SC A1,+3,A3 SET PRINTER STATUS =6«, t00=0x0057, t01=0x018e}
0x8992…89ac Head {h00=0x0016, h01=0x0050, text=»PRL900 EQU * . =6 «, t00=0x0058, t01=0x0028}
0x89ac…89bc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x0042}
0x89bc…89d8 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0058, t01=0x0052}
0x89d8…89ee Head {h00=0x0012, h01=0x0050, text=» EJECT . =24 «, t00=0x0058, t01=0x006e}
0x89ee…8a3e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0058, t01=0x0084}
0x8a3e…8a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00d4}
0x8a48…8a8e Head {h00=0x0042, h01=0x0050, text=»* PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER «, t00=0x0058, t01=0x00de}
0x8a8e…8a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0124}
0x8a98…8ae8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0058, t01=0x012e}
0x8ae8…8af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x017e}
0x8af2…8b0c Head {h00=0x0016, h01=0x0050, text=»PRCCH EQU * . =24 «, t00=0x0058, t01=0x0188}
0x8b0c…8b3c Head {h00=0x002c, h01=0x0050, text=» LD A1,PRCCCT,A11 ANYTHING TO SEND? =24 «, t00=0x0059, t01=0x0012}
0x8b3c…8b60 Head {h00=0x0020, h01=0x0050, text=» RB(Z) PRL900 NO! RETURN =24«, t00=0x0059, t01=0x0042}
0x8b60…8b8a Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBPRT,A11 ECB ADDRESS =24 «, t00=0x0059, t01=0x0066}
0x8b8a…8bb6 Head {h00=0x0028, h01=0x0050, text=» RB PRL065 SEND CH:S TO PRINTER =36 «, t00=0x0059, t01=0x0090}
0x8bb6…8bca Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0059, t01=0x00bc}
0x8bca…8bd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x00d0}
0x8bd8…8c24 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0059, t01=0x00de}
0x8c24…8c70 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0059, t01=0x012a}
0x8c70…8cbc Head {h00=0x0048, h01=0x0050, text=»* INIT INIT ROUTINE * «, t00=0x0059, t01=0x0176}
0x8cbc…8d08 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x005a, t01=0x0032}
0x8d08…8d54 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x005a, t01=0x007e}
0x8d54…8d66 Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x005a, t01=0x00ca}
0x8d66…8d88 Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x005a, t01=0x00dc}
0x8d88…8dac Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x005a, t01=0x00fe}
0x8dac…8dbe Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x005a, t01=0x0122}
0x8dbe…8dd0 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x005a, t01=0x0134}
0x8dd0…8de4 Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x005a, t01=0x0146}
0x8de4…8e0e Head {h00=0x0026, h01=0x0050, text=» ST A2,PRTID,A11 SAVE WHOLE TASKID«, t00=0x005a, t01=0x015a}
0x8e0e…8e44 Head {h00=0x0032, h01=0x0050, text=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX «, t00=0x005a, t01=0x0184}
0x8e44…8e6a Head {h00=0x0022, h01=0x0050, text=» LD A7,PRTTAB NUMBER OF TYPES «, t00=0x005b, t01=0x002a}
0x8e6a…8e9a Head {h00=0x002c, h01=0x0050, text=» LDKL A1,PRTTAB+2 START OF PRINTER TABLE«, t00=0x005b, t01=0x0050}
0x8e9a…8eae Head {h00=0x0010, h01=0x0050, text=»INI100 EQU *«, t00=0x005b, t01=0x0080}
0x8eae…8ed6 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CONVERT TYPE TO INDEX«, t00=0x005b, t01=0x0094}
0x8ed6…8eec Head {h00=0x0012, h01=0x0050, text=» RF(E) INI200 «, t00=0x005b, t01=0x00bc}
0x8eec…8efe Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x005b, t01=0x00d2}
0x8efe…8f1c Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ILLEGAL ID? «, t00=0x005b, t01=0x00e4}
0x8f1c…8f36 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) INI100 NO «, t00=0x005b, t01=0x0102}
0x8f36…8f48 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x005b, t01=0x011c}
0x8f48…8f60 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x005b, t01=0x012e}
0x8f60…8f6c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005b, t01=0x0146}
0x8f6c…8f86 Head {h00=0x0016, h01=0x0050, text=» DATA 3 FORGET IT «, t00=0x005b, t01=0x0152}
0x8f86…8f9a Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x005b, t01=0x016c}
0x8f9a…8fae Head {h00=0x0010, h01=0x0050, text=» LD A1,+2,A1«, t00=0x005b, t01=0x0180}
0x8fae…8fda (92, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTTYP,A11 SAVE PRINTER TYPE «, t00=0x005c, t01=0x0004}
0x8fda…8fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0030}
0x8fe4…9012 Head {h00=0x002a, h01=0x0050, text=»* IF TID =< 'L1',SELECT FILE CODE '80'«, t00=0x005c, t01=0x003a}
0x9012…9032 Head {h00=0x001c, h01=0x0050, text=»* THE LINE PRINTER......«, t00=0x005c, t01=0x0068}
0x9032…903c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0088}
0x903c…9054 Head {h00=0x0014, h01=0x0050, text=» CF A14,SELPFC «, t00=0x005c, t01=0x0092}
0x9054…905e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00aa}
0x905e…907a Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x005c, t01=0x00b4}
0x907a…90ac Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBPRT,A11 PRINTER ECB ADDRESS =24 «, t00=0x005c, t01=0x00d0}
0x90ac…90de Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBBA,A2 PRINTER BUFFER ADDRESS =24«, t00=0x005c, t01=0x0102}
0x90de…910e Head {h00=0x002c, h01=0x0050, text=» ST A2,PRBA,A11 SAVE IT IN WORK AREA =24«, t00=0x005c, t01=0x0134}
0x910e…9126 Head {h00=0x0014, h01=0x0050, text=» LDK A2,1 . =25 «, t00=0x005c, t01=0x0164}
0x9126…9150 Head {h00=0x0026, h01=0x0050, text=» ST A2,PRLMAR,A11 ALLOW FOR CR =25«, t00=0x005c, t01=0x017c}
0x9150…9180 Head {h00=0x002c, h01=0x0050, text=» IFF LMARG=0 LEFT MARGIN FOR PRINTER =25«, t00=0x005d, t01=0x0016}
0x9180…919e Head {h00=0x001a, h01=0x0050, text=» LD A1,LMARGT,A1 . =25«, t00=0x005d, t01=0x0046}
0x919e…91d4 Head {h00=0x0032, h01=0x0050, text=» ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25«, t00=0x005d, t01=0x0064}
0x91d4…91e8 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x005d, t01=0x009a}
0x91e8…91f8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x00ae}
0x91f8…9206 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x00be}
0x9206…9250 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x005d, t01=0x00cc}
0x9250…929a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x005d, t01=0x0116}
0x929a…92e4 Head {h00=0x0046, h01=0x0050, text=»* TSTPRT TEST HARDWARE * «, t00=0x005d, t01=0x0160}
0x92e4…932e Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x005e, t01=0x001a}
0x932e…9378 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x005e, t01=0x0064}
0x9378…938c Head {h00=0x0010, h01=0x0050, text=»TSTPRT EQU *«, t00=0x005e, t01=0x00ae}
0x938c…939c Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005e, t01=0x00c2}
0x939c…93b6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x005e, t01=0x00d2}
0x93b6…93d6 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x005e, t01=0x00ec}
0x93d6…93ea Head {h00=0x0010, h01=0x0050, text=»TSTP10 EQU *«, t00=0x005e, t01=0x010c}
0x93ea…93f6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005e, t01=0x0120}
0x93f6…9406 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x005e, t01=0x012c}
0x9406…9422 Head {h00=0x0018, h01=0x0050, text=» LD A4,ECBRC,A8 . =6«, t00=0x005e, t01=0x013c}
0x9422…945c Head {h00=0x0036, h01=0x0050, text=» ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x005e, t01=0x0158}
0x945c…947a (95, 0, 398) Head {h00=0x001a, h01=0x0050, text=» RF(Z) TSTP20 NO! =31 «, t00=0x005f, t01=0x0004}
0x947a…94a4 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 YES. INDICATE ERROR =31 «, t00=0x005f, t01=0x0022}
0x94a4…94be Head {h00=0x0016, h01=0x0050, text=»TSTP20 EQU * . =31«, t00=0x005f, t01=0x004c}
0x94be…94ce Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005f, t01=0x0066}
0x94ce…94ec Head {h00=0x001a, h01=0x0050, text=» LD A2,PRTID,A11 . =6 «, t00=0x005f, t01=0x0076}
0x94ec…9500 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005f, t01=0x0094}
0x9500…9514 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x005f, t01=0x00a8}
0x9514…9526 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x005f, t01=0x00bc}
0x9526…953c Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x005f, t01=0x00ce}
0x953c…9552 Head {h00=0x0012, h01=0x0050, text=» LDK A1,TSKTAB«, t00=0x005f, t01=0x00e4}
0x9552…9564 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x005f, t01=0x00fa}
0x9564…9576 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x005f, t01=0x010c}
0x9576…9586 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005f, t01=0x011e}
0x9586…95ba Head {h00=0x0030, h01=0x0050, text=» SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6«, t00=0x005f, t01=0x012e}
0x95ba…95ca Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005f, t01=0x0162}
0x95ca…95da Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005f, t01=0x0172}
0x95da…95ea Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005f, t01=0x0182}
0x95ea…95fa (96, 0, 400) Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0060, t01=0x0004}
0x95fa…960e Head {h00=0x0010, h01=0x0050, text=»TSTP90 EQU *«, t00=0x0060, t01=0x0014}
0x960e…961e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x0028}
0x961e…962c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x0038}
0x962c…9678 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0060, t01=0x0046}
0x9678…96c4 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0060, t01=0x0092}
0x96c4…9710 Head {h00=0x0048, h01=0x0050, text=»* GETTAB GET ORDER INDEX * «, t00=0x0060, t01=0x00de}
0x9710…975c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0060, t01=0x012a}
0x975c…97a8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0060, t01=0x0176}
0x97a8…97bc Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x0061, t01=0x0032}
0x97bc…97ee Head {h00=0x002e, h01=0x0050, text=» LD A7,PRTORD NUMBER OF VALID ORDER CODES «, t00=0x0061, t01=0x0046}
0x97ee…9818 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PRTORD+2 ORDERTABLE BASE «, t00=0x0061, t01=0x0078}
0x9818…982c Head {h00=0x0010, h01=0x0050, text=»GETT10 EQU *«, t00=0x0061, t01=0x00a2}
0x982c…985c Head {h00=0x002c, h01=0x0050, text=» CCR A2,A1 CONVERT ORDER CODE TO ADDRESS«, t00=0x0061, t01=0x00b6}
0x985c…9872 Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x0061, t01=0x00e6}
0x9872…9888 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0061, t01=0x00fc}
0x9888…989e Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0061, t01=0x0112}
0x989e…98b0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0061, t01=0x0128}
0x98b0…98ce Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ORDER FOUND?«, t00=0x0061, t01=0x013a}
0x98ce…98ee Head {h00=0x001c, h01=0x0050, text=» RF(Z) GETT30 NO INVALID«, t00=0x0061, t01=0x0158}
0x98ee…990a Head {h00=0x0018, h01=0x0050, text=» RB GETT10 TRY AGAIN«, t00=0x0061, t01=0x0178}
0x990a…991e (98, 0, 400) Head {h00=0x0010, h01=0x0050, text=»GETT20 EQU *«, t00=0x0062, t01=0x0004}
0x991e…9930 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0062, t01=0x0018}
0x9930…994a Head {h00=0x0016, h01=0x0050, text=» LD A2,PRTTYP,A11 «, t00=0x0062, t01=0x002a}
0x994a…995c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0062, t01=0x0044}
0x995c…9970 Head {h00=0x0010, h01=0x0050, text=»GETT30 EQU *«, t00=0x0062, t01=0x0056}
0x9970…9984 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x0062, t01=0x006a}
0x9984…9994 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x007e}
0x9994…99a4 Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x0062, t01=0x008e}
0x99a4…99ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x009e}
0x99ae…99d6 Head {h00=0x0024, h01=0x0050, text=»* SELECTION OF PRINTER FILE CODE«, t00=0x0062, t01=0x00a8}
0x99d6…9a02 Head {h00=0x0028, h01=0x0050, text=»* FC=30, LP100, FC=80, LINE PRINTER «, t00=0x0062, t01=0x00d0}
0x9a02…9a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00fc}
0x9a0c…9a22 Head {h00=0x0012, h01=0x0050, text=»SELPFC EQU * «, t00=0x0062, t01=0x0106}
0x9a22…9a42 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A11 GET TASK ID«, t00=0x0062, t01=0x011c}
0x9a42…9a5c Head {h00=0x0016, h01=0x0050, text=» LDR A2,A1 SAVE IT«, t00=0x0062, t01=0x013c}
0x9a5c…9a7e Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/FF00 MASK LETTER«, t00=0x0062, t01=0x0156}
0x9a7e…9a9a Head {h00=0x0018, h01=0x0050, text=» CWK A1,/4C00 ='L'? «, t00=0x0062, t01=0x0178}
0x9a9a…9ab4 (99, 2, 306) Head {h00=0x0016, h01=0x0050, text=» RF(E) SELP05 YES.«, t00=0x0063, t01=0x0004}
0x9ab4…9ad0 Head {h00=0x0018, h01=0x0050, text=» RF SELP90 NO, QUIT.«, t00=0x0063, t01=0x001e}
0x9ad0…9ae6 Head {h00=0x0012, h01=0x0050, text=»SELP05 EQU * «, t00=0x0063, t01=0x003a}
0x9ae6…9b02 Head {h00=0x0018, h01=0x0050, text=» CWK A2,/4C31 ='L1'?«, t00=0x0063, t01=0x0050}
0x9b02…9b20 Head {h00=0x001a, h01=0x0050, text=» RF(G) SELP90 NO, QUIT«, t00=0x0063, t01=0x006c}
0x9b20…9b4a Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBPRT,A11 GET PRINTER ECB «, t00=0x0063, t01=0x008a}
0x9b4a…9b72 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/80 OVER WRITE ORIG. FC «, t00=0x0063, t01=0x00b4}
0x9b72…9b88 Head {h00=0x0012, h01=0x0050, text=» SC A1,+1,A2 «, t00=0x0063, t01=0x00dc}
0x9b88…9b9e Head {h00=0x0012, h01=0x0050, text=»SELP90 EQU * «, t00=0x0063, t01=0x00f2}
0x9b9e…9bb0 Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x0063, t01=0x0108}
0x9bb0…9bb8 Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x011a}
0x9bb8…9bc4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0063, t01=0x0122}
0x9bc4…9bc8 Head {h00=0x4004, h01=0x0000}
0x9bc8…9bcc 00 63 01 2e ┆ c .┆
0x9bcc…9bd4 (100, 1, 8) 20 04 00 00 00 64 00 04 ┆ d ┆