|
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: 42932 (0xa7b4)
Notes: pts_type(SC)
Names: »PRINT2.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PT3272/PRINT2.SC«
IDENT PRINT2 REL 11.1 84-01-05 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 2 X:O EQU 0 TEST MODE IF:=1 TEST EQU X:O X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4 TRANAT EQU X:R . =4 * BASWRI EQU 1 BASIC WRITE ON PRINTER =24 SCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 LMARG EQU 0 LEFT MARGIN FOR PRINTER =25 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 IFT NBRLIN=2 LDK A1,1 STATUS TO SECOND LINE DK42 XRS A1,MAIN,A11 DK42 LDK A1,0 . DK42 CF A14,SETSTA . DK42 LDK A1,1 RESET TO LINE ONE DK42 XRS A1,MAIN,A11 . DK42 XIF 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…0038 (0, 0, 400) Head {h00=0x0034, h01=0x0050, text=» IDENT PRINT2 REL 11.1 84-01-05 DK 870150541110 «, t00=0x0000, t01=0x0004}
0x0038…0040 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003c}
0x0040…0070 Head {h00=0x002c, h01=0x0050, text=» DK43, DANISH CHARS. FOR 6883 PRINTER «, t00=0x0000, t01=0x0044}
0x0070…009e Head {h00=0x002a, h01=0x0050, text=» DK42, INTERVENTION REQUIRED STATUS «, t00=0x0000, t01=0x0074}
0x009e…00ca Head {h00=0x0028, h01=0x0050, text=» DK41, TIME-OUT IN PRLINE EXTENDED«, t00=0x0000, t01=0x00a2}
0x00ca…00f0 Head {h00=0x0022, h01=0x0050, text=» DK40, LP100 OR LINE PRINTER«, t00=0x0000, t01=0x00ce}
0x00f0…011a Head {h00=0x0026, h01=0x0050, text=» DK39,MAIN NOT CLEARED...2 LINES«, t00=0x0000, t01=0x00f4}
0x011a…013a Head {h00=0x001c, h01=0x0050, text=» =DK38,LF ON END MESS.«, t00=0x0000, t01=0x011e}
0x013a…0162 Head {h00=0x0024, h01=0x0050, text=» =37 DUP OR FM CHAR ON PRINTER«, t00=0x0000, t01=0x013e}
0x0162…0184 Head {h00=0x001e, h01=0x0050, text=» =36 IMPROVEMENT OF =24 «, t00=0x0000, t01=0x0166}
0x0184…0198 Head {h00=0x0010, h01=0x0050, text=» 82-06-28 «, t00=0x0000, t01=0x0188}
0x0198…01ba Head {h00=0x001e, h01=0x0050, text=» =35 IMPROVEMENT OF =24 «, t00=0x0001, t01=0x000c}
0x01ba…01ee Head {h00=0x0030, h01=0x0050, text=» =32 MISSING PRINTING AFTER PRINTER ERROR «, t00=0x0001, t01=0x002e}
0x01ee…0216 Head {h00=0x0024, h01=0x0050, text=» =31 PAPER OUT ON COPY80 (SUM)«, t00=0x0001, t01=0x0062}
0x0216…022a Head {h00=0x0010, h01=0x0050, text=» 82-06-21 «, t00=0x0001, t01=0x008a}
0x022a…024a Head {h00=0x001c, h01=0x0050, text=» =30 IMPROVEMENT OF =5«, t00=0x0001, t01=0x009e}
0x024a…0274 Head {h00=0x0026, h01=0x0050, text=» =27 NO STATUS CHECK AFTER ABORT«, t00=0x0001, t01=0x00be}
0x0274…0296 Head {h00=0x001e, h01=0x0050, text=» =26 LONG SNA CH STRING «, t00=0x0001, t01=0x00e8}
0x0296…02bc Head {h00=0x0022, h01=0x0050, text=» =25 LEFT MARGIN FOR PRINTER«, t00=0x0001, t01=0x010a}
0x02bc…02d0 Head {h00=0x0010, h01=0x0050, text=» 82-05-12 «, t00=0x0001, t01=0x0130}
0x02d0…02f6 Head {h00=0x0022, h01=0x0050, text=» =24 BASIC WRITE ON PRINTER «, t00=0x0001, t01=0x0144}
0x02f6…030a Head {h00=0x0010, h01=0x0050, text=» 82-04-28 «, t00=0x0001, t01=0x016a}
0x030a…032c Head {h00=0x001e, h01=0x0050, text=» =23 PRINTER RETURN CODE«, t00=0x0001, t01=0x017e}
0x032c…0354 Head {h00=0x0024, h01=0x0050, text=» =19 ERRONEOUS PRINTER STATUS «, t00=0x0002, t01=0x0010}
0x0354…0378 Head {h00=0x0020, h01=0x0050, text=» =18 DOUBLE SETTIM ENTRIES«, t00=0x0002, t01=0x0038}
0x0378…0394 Head {h00=0x0018, h01=0x0050, text=» =17 TWO DC LINES «, t00=0x0002, t01=0x005c}
0x0394…03a8 Head {h00=0x0010, h01=0x0050, text=» 82-04-16 «, t00=0x0002, t01=0x0078}
0x03a8…03d0 Head {h00=0x0024, h01=0x0050, text=» =15 CORRECTION OF =7 FOR SNA «, t00=0x0002, t01=0x008c}
0x03d0…03e4 Head {h00=0x0010, h01=0x0050, text=» 82-02-12 «, t00=0x0002, t01=0x00b4}
0x03e4…040e Head {h00=0x0026, h01=0x0050, text=» =7 TEST PRINTER BEFORE CONNECT «, t00=0x0002, t01=0x00c8}
0x040e…042e Head {h00=0x001c, h01=0x0050, text=» =6 SET PRINTER STATUS«, t00=0x0002, t01=0x00f2}
0x042e…0454 Head {h00=0x0022, h01=0x0050, text=» =5 DIFFERENT FF CH FOR GP74«, t00=0x0002, t01=0x0112}
0x0454…0468 Head {h00=0x0010, h01=0x0050, text=» 82-01-26 «, t00=0x0002, t01=0x0138}
0x0468…0484 Head {h00=0x0018, h01=0x0050, text=» =4 NATIONAL CHAR «, t00=0x0002, t01=0x014c}
0x0484…0498 Head {h00=0x0010, h01=0x0050, text=» 81-11-20 «, t00=0x0002, t01=0x0168}
0x0498…04b6 Head {h00=0x001a, h01=0x0050, text=» =3 SPACE SUPRESSION«, t00=0x0002, t01=0x017c}
0x04b6…04ca Head {h00=0x0010, h01=0x0050, text=» 81-05-12 «, t00=0x0003, t01=0x000a}
0x04ca…04e2 Head {h00=0x0014, h01=0x0050, text=» =2 NEW LABEL «, t00=0x0003, t01=0x001e}
0x04e2…04f6 Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0003, t01=0x0036}
0x04f6…0516 Head {h00=0x001c, h01=0x0050, text=» =1, EOC ON FIRST READ«, t00=0x0003, t01=0x004a}
0x0516…052a Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0003, t01=0x006a}
0x052a…0576 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0003, t01=0x007e}
0x0576…05c2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00ca}
0x05c2…060e Head {h00=0x0048, h01=0x0050, text=»* MODULE PRINT : «, t00=0x0003, t01=0x0116}
0x060e…065a Head {h00=0x0048, h01=0x0050, text=»* MODULE HANDLING THE PRINTOUTS BOTH FROM * «, t00=0x0003, t01=0x0162}
0x065a…06a6 Head {h00=0x0048, h01=0x0050, text=»* DISPLAY AND MAIN-FRAME * «, t00=0x0004, t01=0x001e}
0x06a6…06f2 Head {h00=0x0048, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC * «, t00=0x0004, t01=0x006a}
0x06f2…073e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0004, t01=0x00b6}
0x073e…078a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0004, t01=0x0102}
0x078a…0798 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x014e}
0x0798…07d8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0004, t01=0x015c}
0x07d8…07e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000c}
0x07e2…0804 Head {h00=0x001e, h01=0x0050, text=»* LIST OF ROUTINES «, t00=0x0005, t01=0x0016}
0x0804…080e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080e…0836 Head {h00=0x0024, h01=0x0050, text=»* PRINT MAIN ROUTINE«, t00=0x0005, t01=0x0042}
0x0836…086a Head {h00=0x0030, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0005, t01=0x006a}
0x086a…089e Head {h00=0x0030, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0005, t01=0x009e}
0x089e…08ca Head {h00=0x0028, h01=0x0050, text=»* DCPINP DC PRINTER INPUT«, t00=0x0005, t01=0x00d2}
0x08ca…08f6 Head {h00=0x0028, h01=0x0050, text=»* ICPINP INTERTASK INPUT «, t00=0x0005, t01=0x00fe}
0x08f6…0920 Head {h00=0x0026, h01=0x0050, text=»* ICPRED INTERTASK READ«, t00=0x0005, t01=0x012a}
0x0920…094c Head {h00=0x0028, h01=0x0050, text=»* ICPWRT INTERTASK WRITE «, t00=0x0005, t01=0x0154}
0x094c…0978 Head {h00=0x0028, h01=0x0050, text=»* ICABOR INTERTASK ABORT «, t00=0x0005, t01=0x0180}
0x0978…09b2 Head {h00=0x0036, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER «, t00=0x0006, t01=0x001c}
0x09b2…09da Head {h00=0x0024, h01=0x0050, text=»* TABLE OF PRINTERORDERS «, t00=0x0006, t01=0x0056}
0x09da…09fe Head {h00=0x0020, h01=0x0050, text=»* NL NEW LINE«, t00=0x0006, t01=0x007e}
0x09fe…0a2e Head {h00=0x002c, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED «, t00=0x0006, t01=0x00a2}
0x0a2e…0a54 Head {h00=0x0022, h01=0x0050, text=»* FFVAL FORM FEED «, t00=0x0006, t01=0x00d2}
0x0a54…0a80 Head {h00=0x0028, h01=0x0050, text=»* CR CARRIAGE RETURN «, t00=0x0006, t01=0x00f8}
0x0a80…0aa8 Head {h00=0x0024, h01=0x0050, text=»* EM END MESSAGE «, t00=0x0006, t01=0x0124}
0x0aa8…0ada Head {h00=0x002e, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER «, t00=0x0006, t01=0x014c}
0x0ada…0b0a Head {h00=0x002c, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID«, t00=0x0006, t01=0x017e}
0x0b0a…0b30 Head {h00=0x0022, h01=0x0050, text=»* PRLINE PRINT LINE«, t00=0x0007, t01=0x001e}
0x0b30…0b58 Head {h00=0x0024, h01=0x0050, text=»* INIT INIT ROUTINE«, t00=0x0007, t01=0x0044}
0x0b58…0b82 Head {h00=0x0026, h01=0x0050, text=»* TSTPRT TEST HARDWARE «, t00=0x0007, t01=0x006c}
0x0b82…0bae Head {h00=0x0028, h01=0x0050, text=»* GETTAB GET ORDER INDEX «, t00=0x0007, t01=0x0096}
0x0bae…0bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c2}
0x0bb8…0bfc Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0007, t01=0x00cc}
0x0bfc…0c0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0110}
0x0c0a…0c56 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x011e}
0x0c56…0ca2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0007, t01=0x016a}
0x0ca2…0cee Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0008, t01=0x0026}
0x0cee…0d3a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0008, t01=0x0072}
0x0d3a…0d86 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0008, t01=0x00be}
0x0d86…0d8e Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x010a}
0x0d8e…0dca Head {h00=0x0038, h01=0x0050, text=» ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT)«, t00=0x0008, t01=0x0112}
0x0dca…0dfe Head {h00=0x0030, h01=0x0050, text=» ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2«, t00=0x0008, t01=0x014e}
0x0dfe…0e06 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0182}
0x0e06…0e52 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0008, t01=0x018a}
0x0e52…0e9e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0046}
0x0e9e…0eea Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0009, t01=0x0092}
0x0eea…0f36 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0009, t01=0x00de}
0x0f36…0f82 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0009, t01=0x012a}
0x0f82…0f8a Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0176}
0x0f8a…0fc0 Head {h00=0x0032, h01=0x0050, text=» EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA)«, t00=0x0009, t01=0x017e}
0x0fc0…0ff6 Head {h00=0x0032, h01=0x0050, text=» EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9«, t00=0x000a, t01=0x0024}
0x0ff6…101e Head {h00=0x0024, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA)«, t00=0x000a, t01=0x005a}
0x101e…103e Head {h00=0x001c, h01=0x0050, text=» EXTRN OPEN OPEN (DCBSC)«, t00=0x000a, t01=0x0082}
0x103e…106a Head {h00=0x0028, h01=0x0050, text=» EXTRN CONCT CONNECT PASSIVE (DCBSC)«, t00=0x000a, t01=0x00a2}
0x106a…109e Head {h00=0x0030, h01=0x0050, text=» EXTRN SETTYM SET REQUEST TIMER (DCBSC) =18 «, t00=0x000a, t01=0x00ce}
0x109e…10ce Head {h00=0x002c, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x000a, t01=0x0102}
0x10ce…10f8 Head {h00=0x0026, h01=0x0050, text=» EXTRN TSTMES TEST MESSAGE (DCSNA)«, t00=0x000a, t01=0x0132}
0x10f8…1124 Head {h00=0x0028, h01=0x0050, text=» EXTRN READW READ WITH WAIT (DCSNA) «, t00=0x000a, t01=0x015c}
0x1124…1154 Head {h00=0x002c, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA) «, t00=0x000a, t01=0x0188}
0x1154…117a Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x000b, t01=0x0028}
0x117a…11a4 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x000b, t01=0x004e}
0x11a4…11d0 Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x000b, t01=0x0078}
0x11d0…11fc Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBINI INIT IF ECB:S (DSPSNA)«, t00=0x000b, t01=0x00a4}
0x11fc…122e Head {h00=0x002e, h01=0x0050, text=» EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) «, t00=0x000b, t01=0x00d0}
0x122e…125a Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000b, t01=0x0102}
0x125a…1286 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICREAD INTERTASK READ (KEYB) «, t00=0x000b, t01=0x012e}
0x1286…12ae Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCBSC)«, t00=0x000b, t01=0x015a}
0x12ae…12dc Head {h00=0x002a, h01=0x0050, text=» EXTRN CONNAT TRANSFORM OF NAT CHAR =4«, t00=0x000b, t01=0x0182}
0x12dc…130c Head {h00=0x002c, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM OR DUP CHAR =37«, t00=0x000c, t01=0x0020}
0x130c…131a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0050}
0x131a…1362 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000c, t01=0x005e}
0x1362…13aa Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000c, t01=0x00a6}
0x13aa…13f2 Head {h00=0x0044, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000c, t01=0x00ee}
0x13f2…143a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0136}
0x143a…1482 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000c, t01=0x017e}
0x1482…148a Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0036}
0x148a…14ae Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000d, t01=0x003e}
0x14ae…14c2 Head {h00=0x0010, h01=0x0050, text=»SNA EQU X:A «, t00=0x000d, t01=0x0062}
0x14c2…14ec Head {h00=0x0026, h01=0x0050, text=»X:D EQU 1 NUMBER OF DC LINES (1-2)«, t00=0x000d, t01=0x0076}
0x14ec…1500 Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x000d, t01=0x00a0}
0x1500…1522 Head {h00=0x001e, h01=0x0050, text=»X:O EQU 0 TEST MODE IF:=1 «, t00=0x000d, t01=0x00b4}
0x1522…1536 Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x000d, t01=0x00d6}
0x1536…1566 Head {h00=0x002c, h01=0x0050, text=»X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4«, t00=0x000d, t01=0x00ea}
0x1566…1582 Head {h00=0x0018, h01=0x0050, text=»TRANAT EQU X:R . =4 «, t00=0x000d, t01=0x011a}
0x1582…158c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0136}
0x158c…15bc Head {h00=0x002c, h01=0x0050, text=»BASWRI EQU 1 BASIC WRITE ON PRINTER =24 «, t00=0x000d, t01=0x0140}
0x15bc…15f0 Head {h00=0x0030, h01=0x0050, text=»SCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 «, t00=0x000d, t01=0x0170}
0x15f0…1620 Head {h00=0x002c, h01=0x0050, text=»LMARG EQU 0 LEFT MARGIN FOR PRINTER =25 «, t00=0x000e, t01=0x0014}
0x1620…1646 Head {h00=0x0022, h01=0x0050, text=»P6883 EQU 1 6883 PRINTER DK43 «, t00=0x000e, t01=0x0044}
0x1646…1654 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x006a}
0x1654…16a0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000e, t01=0x0078}
0x16a0…16ec Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000e, t01=0x00c4}
0x16ec…1716 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000e, t01=0x0110}
0x1716…1762 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000e, t01=0x013a}
0x1762…17ae Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000e, t01=0x0186}
0x17ae…17b6 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0042}
0x17b6…17c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x004a}
0x17c0…17e0 Head {h00=0x001c, h01=0x0050, text=»* TABLE OF PRINTER TYPES«, t00=0x000f, t01=0x0054}
0x17e0…17ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0074}
0x17ea…17fe Head {h00=0x0010, h01=0x0050, text=»PRTTAB EQU *«, t00=0x000f, t01=0x007e}
0x17fe…1828 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF PRINTERTYPES«, t00=0x000f, t01=0x0092}
0x1828…1840 Head {h00=0x0014, h01=0x0050, text=» DATA 'TT',0 GTP«, t00=0x000f, t01=0x00bc}
0x1840…1862 Head {h00=0x001e, h01=0x0050, text=» DATA 'LL',2 LINE PRINTER «, t00=0x000f, t01=0x00d4}
0x1862…187c Head {h00=0x0016, h01=0x0050, text=» DATA 'GG',4 GP 74«, t00=0x000f, t01=0x00f6}
0x187c…1898 Head {h00=0x0018, h01=0x0050, text=» DATA 'CC',6 COPY 80«, t00=0x000f, t01=0x0110}
0x1898…18a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012c}
0x18a2…18d4 Head {h00=0x002e, h01=0x0050, text=»* DEFAULT VALUES FOR DIFF. PRINTERS«, t00=0x000f, t01=0x0136}
0x18d4…18fa Head {h00=0x0022, h01=0x0050, text=»* BYTE1= NUMBER OF LINES/PAGE «, t00=0x000f, t01=0x0168}
0x18fa…1920 Head {h00=0x0022, h01=0x0050, text=»* BYTE2= NUMBER OF CHAR./LINE «, t00=0x000f, t01=0x018e}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0024}
0x192a…1948 Head {h00=0x001a, h01=0x0050, text=»PRTLEN DATA /2382 GTP «, t00=0x0010, t01=0x002e}
0x1948…195e Head {h00=0x0012, h01=0x0050, text=» DATA /2382 LP«, t00=0x0010, t01=0x004c}
0x195e…1978 Head {h00=0x0016, h01=0x0050, text=» DATA /2382 GP 74 «, t00=0x0010, t01=0x0062}
0x1978…1994 Head {h00=0x0018, h01=0x0050, text=» DATA /2382 COPY 80 «, t00=0x0010, t01=0x007c}
0x1994…19ae Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =25«, t00=0x0010, t01=0x0098}
0x19ae…19e6 Head {h00=0x0034, h01=0x0050, text=»LMARGT EQU * NO. OF POSITIONS IN LEFT MARGIN =25«, t00=0x0010, t01=0x00b2}
0x19e6…19fe Head {h00=0x0014, h01=0x0050, text=» DATA 0 GTP =25 «, t00=0x0010, t01=0x00ea}
0x19fe…1a14 Head {h00=0x0012, h01=0x0050, text=» DATA 0 LP =25«, t00=0x0010, t01=0x0102}
0x1a14…1a2c Head {h00=0x0014, h01=0x0050, text=» DATA 3 GP74 =25«, t00=0x0010, t01=0x0118}
0x1a2c…1a46 Head {h00=0x0016, h01=0x0050, text=» DATA 0 COPY80 =25«, t00=0x0010, t01=0x0130}
0x1a46…1a5a Head {h00=0x0010, h01=0x0050, text=» XIF . =25 «, t00=0x0010, t01=0x014a}
0x1a5a…1a6a Head {h00=0x000c, h01=0x0050, text=»* =24«, t00=0x0010, t01=0x015e}
0x1a6a…1a86 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =36 «, t00=0x0010, t01=0x016e}
0x1a86…1ab6 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 132 PRINTER BUFFER LENGTH =24 «, t00=0x0010, t01=0x018a}
0x1ab6…1ad8 Head {h00=0x001e, h01=0x0050, text=» =BUFL-2 (IN DATXXX) =24«, t00=0x0011, t01=0x002a}
0x1ad8…1aec Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0011, t01=0x004c}
0x1aec…1b08 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x0011, t01=0x0060}
0x1b08…1b38 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 256 PRINTER BUFFER LENGTH =36 «, t00=0x0011, t01=0x007c}
0x1b38…1b56 Head {h00=0x001a, h01=0x0050, text=» =BUFL IN DATXXX =36«, t00=0x0011, t01=0x00ac}
0x1b56…1b6a Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0011, t01=0x00ca}
0x1b6a…1b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00de}
0x1b74…1b9a Head {h00=0x0022, h01=0x0050, text=»* LINE LENGTHS FROM WCC«, t00=0x0011, t01=0x00e8}
0x1b9a…1ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010e}
0x1ba4…1bdc Head {h00=0x0034, h01=0x0050, text=»LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE «, t00=0x0011, t01=0x0118}
0x1bdc…1be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1be6…1c10 Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR ECB HANDLING «, t00=0x0011, t01=0x015a}
0x1c10…1c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0184}
0x1c1a…1c3c Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0011, t01=0x018e}
0x1c3c…1c60 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0012, t01=0x0020}
0x1c60…1c84 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0012, t01=0x0044}
0x1c84…1ca4 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0012, t01=0x0068}
0x1ca4…1cc6 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0012, t01=0x0088}
0x1cc6…1cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00aa}
0x1cd0…1ce8 Head {h00=0x0014, h01=0x0050, text=»* PRINTER MODES «, t00=0x0012, t01=0x00b4}
0x1ce8…1cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00cc}
0x1cf2…1d10 Head {h00=0x001a, h01=0x0050, text=»LOCAL EQU 0 LOCAL MODE«, t00=0x0012, t01=0x00d6}
0x1d10…1d30 Head {h00=0x001c, h01=0x0050, text=»SHARED EQU 2 SHARED MODE«, t00=0x0012, t01=0x00f4}
0x1d30…1d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0114}
0x1d3a…1d5c Head {h00=0x001e, h01=0x0050, text=»* PRINTER STATUS IN PRTMOD«, t00=0x0012, t01=0x011e}
0x1d5c…1d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0140}
0x1d66…1d8c Head {h00=0x0022, h01=0x0050, text=»PRTERR EQU /4000 PRINTER ERROR«, t00=0x0012, t01=0x014a}
0x1d8c…1d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0170}
0x1d96…1dbc Head {h00=0x0022, h01=0x0050, text=»* COPY INTERNAL STATUS IN A10 «, t00=0x0012, t01=0x017a}
0x1dbc…1dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0010}
0x1dc6…1dee Head {h00=0x0024, h01=0x0050, text=»NXTCHA EQU /8000 GET NEXT CHAR. «, t00=0x0013, t01=0x001a}
0x1dee…1e14 Head {h00=0x0022, h01=0x0050, text=»ENDPRT EQU /4000 END PRINTING «, t00=0x0013, t01=0x0042}
0x1e14…1e3c Head {h00=0x0024, h01=0x0050, text=»NTONLY EQU /2000 NOT ONLY SPACES«, t00=0x0013, t01=0x0068}
0x1e3c…1e60 Head {h00=0x0020, h01=0x0050, text=»CRREC EQU /1000 CR RECEIVED «, t00=0x0013, t01=0x0090}
0x1e60…1e88 Head {h00=0x0024, h01=0x0050, text=»FFCCH EQU /0800 FF CCH IND. =36 «, t00=0x0013, t01=0x00b4}
0x1e88…1ebc Head {h00=0x0030, h01=0x0050, text=»NOEMLF EQU /0400 NO EXTRA LINE FEED(EM) DK38«, t00=0x0013, t01=0x00dc}
0x1ebc…1ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0110}
0x1ec6…1ef2 Head {h00=0x0028, h01=0x0050, text=»* RELATIVE POS. IN ECB-BLOCK «, t00=0x0013, t01=0x011a}
0x1ef2…1efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0146}
0x1efc…1f16 Head {h00=0x0016, h01=0x0050, text=»IC EQU 2 INTERTASK«, t00=0x0013, t01=0x0150}
0x1f16…1f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016a}
0x1f20…1f36 Head {h00=0x0012, h01=0x0050, text=»* SCREEN SIZE «, t00=0x0013, t01=0x0174}
0x1f36…1f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018a}
0x1f40…1f56 (20, 0, 400) Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x0014, t01=0x0004}
0x1f56…1f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001a}
0x1f60…1f78 Head {h00=0x0014, h01=0x0050, text=»* RECEIVE STATUS«, t00=0x0014, t01=0x0024}
0x1f78…1f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003c}
0x1f82…1fa0 Head {h00=0x001a, h01=0x0050, text=»LICREC EQU /2000 . =1 «, t00=0x0014, t01=0x0046}
0x1fa0…1faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0064}
0x1faa…1fc2 Head {h00=0x0014, h01=0x0050, text=»* LOCAL EQUATES «, t00=0x0014, t01=0x006e}
0x1fc2…1fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0086}
0x1fcc…1fea Head {h00=0x001a, h01=0x0050, text=»SO EQU /0E 'SHIFT OUT'«, t00=0x0014, t01=0x0090}
0x1fea…2008 Head {h00=0x001a, h01=0x0050, text=»SI EQU /0F 'SHIFT IN' «, t00=0x0014, t01=0x00ae}
0x2008…2016 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00cc}
0x2016…2020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00da}
0x2020…2040 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0014, t01=0x00e4}
0x2040…205c Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0014, t01=0x0104}
0x205c…2066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0120}
0x2066…2086 Head {h00=0x001c, h01=0x0050, text=»BVDU EQU 2 SCREEN BUFFER«, t00=0x0014, t01=0x012a}
0x2086…20a4 Head {h00=0x001a, h01=0x0050, text=»WCC EQU BVDU+1950 WCC «, t00=0x0014, t01=0x014a}
0x20a4…20ca Head {h00=0x0022, h01=0x0050, text=»LINCNT EQU WCC+4 LINE COUNTER «, t00=0x0014, t01=0x0168}
0x20ca…2100 Head {h00=0x0032, h01=0x0050, text=»DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER «, t00=0x0014, t01=0x018e}
0x2100…212a Head {h00=0x0026, h01=0x0050, text=»PRTID EQU DCLENG+6 PRINTER TASKID «, t00=0x0015, t01=0x0034}
0x212a…2152 Head {h00=0x0024, h01=0x0050, text=»PRTTYP EQU PRTID+2 PRINTER TYPE «, t00=0x0015, t01=0x005e}
0x2152…2178 Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTTYP+4 WHAT DC LINE«, t00=0x0015, t01=0x0086}
0x2178…219c Head {h00=0x0020, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB BLOCK «, t00=0x0015, t01=0x00ac}
0x219c…21c8 Head {h00=0x0028, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER POINTER «, t00=0x0015, t01=0x00d0}
0x21c8…21ec Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x0015, t01=0x00fc}
0x21ec…2214 Head {h00=0x0024, h01=0x0050, text=»PRTMOD EQU REGI+32 PRINTER MODE «, t00=0x0015, t01=0x0120}
0x2214…223c Head {h00=0x0024, h01=0x0050, text=»ECBPRT EQU PRTMOD+4 PRINTER ECB «, t00=0x0015, t01=0x0148}
0x223c…226a Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBPRT+6 INTERTASK READ ECB«, t00=0x0015, t01=0x0170}
0x226a…229a Head {h00=0x002c, h01=0x0050, text=»ECBICW EQU ECBICR+2 INTERTASK WRITE ECB «, t00=0x0016, t01=0x000e}
0x229a…22bc Head {h00=0x001e, h01=0x0050, text=»ECBDC EQU ECBICW+2 ECB DC «, t00=0x0016, t01=0x003e}
0x22bc…22e2 Head {h00=0x0022, h01=0x0050, text=»ECBDC1 EQU ECBDC ECB DC LINE 1«, t00=0x0016, t01=0x0060}
0x22e2…230c Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x0016, t01=0x0086}
0x230c…2324 Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =24«, t00=0x0016, t01=0x00b0}
0x2324…2356 Head {h00=0x002e, h01=0x0050, text=»PRCCCT EQU ECBDC2+2 CHARACTER COUNTER =24 «, t00=0x0016, t01=0x00c8}
0x2356…236a Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0016, t01=0x00fa}
0x236a…2382 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =24«, t00=0x0016, t01=0x010e}
0x2382…23b4 Head {h00=0x002e, h01=0x0050, text=»PRCCCT EQU ECBDC+14 CHARACTER COUNTER =24 «, t00=0x0016, t01=0x0126}
0x23b4…23c8 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0016, t01=0x0158}
0x23c8…23fc Head {h00=0x0030, h01=0x0050, text=»PRBA EQU PRCCCT+2 PRINTER BUFFER ADDRESS =24«, t00=0x0016, t01=0x016c}
0x23fc…2434 Head {h00=0x0034, h01=0x0050, text=»PRLMAR EQU PRBA+2 NO. OF POS IN LEFT MARGIN =25 «, t00=0x0017, t01=0x0010}
0x2434…243e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0048}
0x243e…245e Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0017, t01=0x0052}
0x245e…2478 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0017, t01=0x0072}
0x2478…2482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x008c}
0x2482…2496 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0017, t01=0x0096}
0x2496…24bc Head {h00=0x0022, h01=0x0050, text=»TSKTAB EQU 26 DEVICE TABLE =17«, t00=0x0017, t01=0x00aa}
0x24bc…24c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00d0}
0x24c8…24dc Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0017, t01=0x00dc}
0x24dc…24f8 Head {h00=0x0018, h01=0x0050, text=»TSKTAB EQU 221 . =17«, t00=0x0017, t01=0x00f0}
0x24f8…2504 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x010c}
0x2504…2512 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0118}
0x2512…255e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0017, t01=0x0126}
0x255e…25aa Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0017, t01=0x0172}
0x25aa…25f6 Head {h00=0x0048, h01=0x0050, text=»* PRINT MAIN ROUTINE PRINTER * «, t00=0x0018, t01=0x002e}
0x25f6…2642 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0018, t01=0x007a}
0x2642…268e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0018, t01=0x00c6}
0x268e…26a2 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x0018, t01=0x0112}
0x26a2…26c4 Head {h00=0x001e, h01=0x0050, text=» CF A14,INIT INIT ROUTINE «, t00=0x0018, t01=0x0126}
0x26c4…26dc Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =15«, t00=0x0018, t01=0x0148}
0x26dc…26f0 Head {h00=0x0010, h01=0x0050, text=» XIF . =15 «, t00=0x0018, t01=0x0160}
0x26f0…2702 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0018, t01=0x0174}
0x2702…2732 Head {h00=0x002c, h01=0x0050, text=» CF A14,OPINIT OPEN CONNECTION INITIATE «, t00=0x0018, t01=0x0186}
0x2732…2756 Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 DC NOT PRESENT«, t00=0x0019, t01=0x0026}
0x2756…2778 Head {h00=0x001e, h01=0x0050, text=» CF A14,OPSYS OPEN SYSTEM «, t00=0x0019, t01=0x004a}
0x2778…2784 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x006c}
0x2784…2796 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0019, t01=0x0078}
0x2796…27b0 Head {h00=0x0016, h01=0x0050, text=» CF A14,OPEN OPEN «, t00=0x0019, t01=0x008a}
0x27b0…27d4 Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 NO DC INVOLVED«, t00=0x0019, t01=0x00a4}
0x27d4…27e8 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x0019, t01=0x00c8}
0x27e8…27f4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x00dc}
0x27f4…2804 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0019, t01=0x00e8}
0x2804…2832 Head {h00=0x002a, h01=0x0050, text=» CF A14,TSTPRT GET PRINTER STATUS DK42«, t00=0x0019, t01=0x00f8}
0x2832…2858 Head {h00=0x0022, h01=0x0050, text=» CF A14,CONCT CONNECT PASSIVE «, t00=0x0019, t01=0x0126}
0x2858…2874 Head {h00=0x0018, h01=0x0050, text=» IFT NBRLIN=2 . =17 «, t00=0x0019, t01=0x014c}
0x2874…28a2 Head {h00=0x002a, h01=0x0050, text=» LDK A1,1 CONNECT FOR SECOND LINE =17 «, t00=0x0019, t01=0x0168}
0x28a2…28c0 Head {h00=0x001a, h01=0x0050, text=» XRS A1,MAIN,A11 . =17«, t00=0x001a, t01=0x0008}
0x28c0…28dc Head {h00=0x0018, h01=0x0050, text=» CF A14,CONCT . =17 «, t00=0x001a, t01=0x0026}
0x28dc…28f4 Head {h00=0x0014, h01=0x0050, text=» LDK A1,1 . =17 «, t00=0x001a, t01=0x0042}
0x28f4…292a Head {h00=0x0032, h01=0x0050, text=» XRS A1,MAIN,A11 INDICATE FIRST LINE AGAIN =17«, t00=0x001a, t01=0x005a}
0x292a…293e Head {h00=0x0010, h01=0x0050, text=» XIF . =17 «, t00=0x001a, t01=0x0090}
0x293e…2956 Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =17«, t00=0x001a, t01=0x00a4}
0x2956…2984 Head {h00=0x002a, h01=0x0050, text=» CF A14,SETTYM SET REQUEST TIMEOUT =18«, t00=0x001a, t01=0x00bc}
0x2984…2990 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00ea}
0x2990…29bc Head {h00=0x0028, h01=0x0050, text=» LDK A1,SHARED ALWAYS SHARED IN BSC «, t00=0x001a, t01=0x00f6}
0x29bc…29d6 Head {h00=0x0016, h01=0x0050, text=» ST A1,PRTMOD,A11 «, t00=0x001a, t01=0x0122}
0x29d6…29f6 Head {h00=0x001c, h01=0x0050, text=» LDK A4,0 CLEAR A4 DK42 «, t00=0x001a, t01=0x013c}
0x29f6…2a26 Head {h00=0x002c, h01=0x0050, text=» LD A2,PRTID,A11 GET CURRENT STATUS DK42«, t00=0x001a, t01=0x015c}
0x2a26…2a3a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001a, t01=0x018c}
0x2a3a…2a4e Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x001b, t01=0x0010}
0x2a4e…2a60 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x001b, t01=0x0024}
0x2a60…2a76 Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x001b, t01=0x0036}
0x2a76…2a8e Head {h00=0x0014, h01=0x0050, text=» LDK A1,TSKTAB «, t00=0x001b, t01=0x004c}
0x2a8e…2aa2 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A1 «, t00=0x001b, t01=0x0064}
0x2aa2…2ab6 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A2 «, t00=0x001b, t01=0x0078}
0x2ab6…2adc Head {h00=0x0022, h01=0x0050, text=» LC A4,+3,A3 STATUS TO A4 DK42«, t00=0x001b, t01=0x008c}
0x2adc…2b0a Head {h00=0x002a, h01=0x0050, text=» RF(Z) PRI200 WAS OPERABLE, GO ON DK42«, t00=0x001b, t01=0x00b2}
0x2b0a…2b1e Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x001b, t01=0x00e0}
0x2b1e…2b42 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE«, t00=0x001b, t01=0x00f4}
0x2b42…2b64 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/1 OPERABLE? DK42 «, t00=0x001b, t01=0x0118}
0x2b64…2b90 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) PRI150 NO, WAIT AWHILE DK42 «, t00=0x001b, t01=0x013a}
0x2b90…2bc4 Head {h00=0x0030, h01=0x0050, text=» LD* A1,ECBDC,A11 ERROR DURING DC PRINTING? «, t00=0x001b, t01=0x0166}
0x2bc4…2bec Head {h00=0x0024, h01=0x0050, text=» RF(NN) PRI200 NO, SKIP STATUS «, t00=0x001c, t01=0x000a}
0x2bec…2c1a Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 SET STATUS = DEVICE END DK42«, t00=0x001c, t01=0x0032}
0x2c1a…2c38 Head {h00=0x001a, h01=0x0050, text=» CF A14,SETSTA DK42 «, t00=0x001c, t01=0x0060}
0x2c38…2c4e Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001c, t01=0x007e}
0x2c4e…2c7a Head {h00=0x0028, h01=0x0050, text=» LDK A1,1 STATUS TO SECOND LINE DK42«, t00=0x001c, t01=0x0094}
0x2c7a…2c9a Head {h00=0x001c, h01=0x0050, text=» XRS A1,MAIN,A11 DK42 «, t00=0x001c, t01=0x00c0}
0x2c9a…2cb2 Head {h00=0x0014, h01=0x0050, text=» LDK A1,0 . DK42«, t00=0x001c, t01=0x00e0}
0x2cb2…2cd0 Head {h00=0x001a, h01=0x0050, text=» CF A14,SETSTA . DK42 «, t00=0x001c, t01=0x00f8}
0x2cd0…2cf8 Head {h00=0x0024, h01=0x0050, text=» LDK A1,1 RESET TO LINE ONE DK42«, t00=0x001c, t01=0x0116}
0x2cf8…2d18 Head {h00=0x001c, h01=0x0050, text=» XRS A1,MAIN,A11 . DK42 «, t00=0x001c, t01=0x013e}
0x2d18…2d26 Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x001c, t01=0x015e}
0x2d26…2d46 Head {h00=0x001c, h01=0x0050, text=» RF PRI200 CONTINUE DK42«, t00=0x001c, t01=0x016c}
0x2d46…2d5c Head {h00=0x0012, h01=0x0050, text=»PRI150 EQU * «, t00=0x001c, t01=0x018c}
0x2d5c…2d84 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,50 WAIT 5 SECONDS DK42 «, t00=0x001d, t01=0x0012}
0x2d84…2d92 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x001d, t01=0x003a}
0x2d92…2da2 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x001d, t01=0x0048}
0x2da2…2dbc Head {h00=0x0016, h01=0x0050, text=» RB PRI100 DK42 «, t00=0x001d, t01=0x0058}
0x2dbc…2dd0 Head {h00=0x0010, h01=0x0050, text=»PRI200 EQU *«, t00=0x001d, t01=0x0072}
0x2dd0…2dfe Head {h00=0x002a, h01=0x0050, text=» CF A14,IOACT ACTIVATE IN CURRENT MODE«, t00=0x001d, t01=0x0086}
0x2dfe…2e16 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x001d, t01=0x00b4}
0x2e16…2e2a Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x001d, t01=0x00cc}
0x2e2a…2e36 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001d, t01=0x00e0}
0x2e36…2e54 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x001d, t01=0x00ec}
0x2e54…2e82 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOCPL COMPLET IN CURRENT MODE «, t00=0x001d, t01=0x010a}
0x2e82…2e9c Head {h00=0x0016, h01=0x0050, text=» LD A1,PRTMOD,A11 «, t00=0x001d, t01=0x0138}
0x2e9c…2ec2 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,PRTERR PRINTER ERROR?«, t00=0x001d, t01=0x0152}
0x2ec2…2eda Head {h00=0x0014, h01=0x0050, text=» RB(Z) PRI200 NO«, t00=0x001d, t01=0x0178}
0x2eda…2ef4 Head {h00=0x0016, h01=0x0050, text=» XRS A1,PRTMOD,A11«, t00=0x001d, t01=0x0190}
0x2ef4…2f14 Head {h00=0x001c, h01=0x0050, text=» RB PRI100 TRY TO FIX IT«, t00=0x001e, t01=0x001a}
0x2f14…2f22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x003a}
0x2f22…2f70 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001e, t01=0x0048}
0x2f70…2fbe Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001e, t01=0x0096}
0x2fbe…2fe6 Head {h00=0x0024, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x001e, t01=0x00e4}
0x2fe6…3034 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001e, t01=0x010c}
0x3034…3082 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001e, t01=0x015a}
0x3082…3096 Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x001f, t01=0x0018}
0x3096…30a8 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001f, t01=0x002c}
0x30a8…30d2 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTMOD,A11 SHARED OR LOCAL?«, t00=0x001f, t01=0x003e}
0x30d2…30ee Head {h00=0x0018, h01=0x0050, text=» RF(Z) IOAC20 LOCAL «, t00=0x001f, t01=0x0068}
0x30ee…3114 Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 ADD NUMBER OF WAITS «, t00=0x001f, t01=0x0084}
0x3114…314c Head {h00=0x0034, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY?«, t00=0x001f, t01=0x00aa}
0x314c…3166 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x001f, t01=0x00e2}
0x3166…318a Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x001f, t01=0x00fc}
0x318a…31ae Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x001f, t01=0x0120}
0x31ae…31ca Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x001f, t01=0x0144}
0x31ca…31de Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x001f, t01=0x0160}
0x31de…31f4 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001f, t01=0x0174}
0x31f4…3214 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADD MORE WAITS«, t00=0x001f, t01=0x018a}
0x3214…3238 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+6,A11 ALREADY?«, t00=0x0020, t01=0x001a}
0x3238…3252 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC20 YES«, t00=0x0020, t01=0x003e}
0x3252…3276 Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x0020, t01=0x0058}
0x3276…329a Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0020, t01=0x007c}
0x329a…32b6 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0020, t01=0x00a0}
0x32b6…32c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00bc}
0x32c2…32d6 Head {h00=0x0010, h01=0x0050, text=»IOAC20 EQU *«, t00=0x0020, t01=0x00c8}
0x32d6…32e8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x00dc}
0x32e8…330c Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+2,A11 ALREADY?«, t00=0x0020, t01=0x00ee}
0x330c…3326 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC30 YES«, t00=0x0020, t01=0x0112}
0x3326…334c Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPRED READ INTERTASK «, t00=0x0020, t01=0x012c}
0x334c…3368 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0020, t01=0x0152}
0x3368…337c Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0020, t01=0x016e}
0x337c…33a6 Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBBLK,A11 NUMBER OF WAITS «, t00=0x0020, t01=0x0182}
0x33a6…33b6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x001c}
0x33b6…33c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x002c}
0x33c4…3412 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0021, t01=0x003a}
0x3412…3460 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0021, t01=0x0088}
0x3460…3488 Head {h00=0x0024, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0021, t01=0x00d6}
0x3488…34d6 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0021, t01=0x00fe}
0x34d6…3524 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0021, t01=0x014c}
0x3524…3538 Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0022, t01=0x000a}
0x3538…3560 Head {h00=0x0024, h01=0x0050, text=» CM MAIN,A11 CLEAR MF FLAG DK39 «, t00=0x0022, t01=0x001e}
0x3560…3586 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+2,A11 INTERTASK?«, t00=0x0022, t01=0x0046}
0x3586…35a0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0022, t01=0x006c}
0x35a0…35b8 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0022, t01=0x0086}
0x35b8…35dc Head {h00=0x0020, h01=0x0050, text=» CF A14,ICPINP MAKE HARDCOPY«, t00=0x0022, t01=0x009e}
0x35dc…35ee Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0022, t01=0x00c2}
0x35ee…3602 Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0022, t01=0x00d4}
0x3602…3628 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC LINE 1?«, t00=0x0022, t01=0x00e8}
0x3628…363e Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0022, t01=0x010e}
0x363e…3658 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x0022, t01=0x0124}
0x3658…3664 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x013e}
0x3664…367a Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0022, t01=0x014a}
0x367a…369e Head {h00=0x0020, h01=0x0050, text=» RF(NE) IOCP90 NO FORGET IT «, t00=0x0022, t01=0x0160}
0x369e…36aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0184}
0x36aa…36c2 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x0022, t01=0x0190}
0x36c2…36e6 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x0023, t01=0x0018}
0x36e6…36f8 Head {h00=0x000e, h01=0x0050, text=» RF IOCP30«, t00=0x0023, t01=0x003c}
0x36f8…370e Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0023, t01=0x004e}
0x370e…3722 Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x0023, t01=0x0064}
0x3722…3748 Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+6,A11 DC LINE 2?«, t00=0x0023, t01=0x0078}
0x3748…3762 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP90 NO «, t00=0x0023, t01=0x009e}
0x3762…377a Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+6,A11«, t00=0x0023, t01=0x00b8}
0x377a…379e Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x0023, t01=0x00d0}
0x379e…37aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00f4}
0x37aa…37be Head {h00=0x0010, h01=0x0050, text=»IOCP30 EQU *«, t00=0x0023, t01=0x0100}
0x37be…37e4 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCPINP TAKE CARE OF DC«, t00=0x0023, t01=0x0114}
0x37e4…37f8 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x0023, t01=0x013a}
0x37f8…3808 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x014e}
0x3808…3816 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x015e}
0x3816…385e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0023, t01=0x016c}
0x385e…38a6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0024}
0x38a6…38ee Head {h00=0x0044, h01=0x0050, text=»* DCPINP DC PRINTER INPUT * «, t00=0x0024, t01=0x006c}
0x38ee…3936 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0024, t01=0x00b4}
0x3936…397e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0024, t01=0x00fc}
0x397e…3992 Head {h00=0x0010, h01=0x0050, text=»DCPINP EQU *«, t00=0x0024, t01=0x0144}
0x3992…39be Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT LOCAL HARD COPY«, t00=0x0024, t01=0x0158}
0x39be…39e4 Head {h00=0x0022, h01=0x0050, text=» LDR A7,A7 ALREADY COMPLETED? «, t00=0x0024, t01=0x0184}
0x39e4…39fc Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP100 NO«, t00=0x0025, t01=0x001a}
0x39fc…3a2a Head {h00=0x002a, h01=0x0050, text=» CF A14,ICPINP TAKE CARE OF THAT FIRST«, t00=0x0025, t01=0x0032}
0x3a2a…3a3e Head {h00=0x0010, h01=0x0050, text=»DCP100 EQU *«, t00=0x0025, t01=0x0060}
0x3a3e…3a56 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBDC,A11«, t00=0x0025, t01=0x0074}
0x3a56…3a6c Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0025, t01=0x008c}
0x3a6c…3a8a Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 1«, t00=0x0025, t01=0x00a2}
0x3a8a…3aa4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP150 YES «, t00=0x0025, t01=0x00c0}
0x3aa4…3abe Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0025, t01=0x00da}
0x3abe…3ad2 Head {h00=0x0010, h01=0x0050, text=»DCP150 EQU *«, t00=0x0025, t01=0x00f4}
0x3ad2…3ade Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0108}
0x3ade…3af0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0025, t01=0x0114}
0x3af0…3b0c Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0025, t01=0x0126}
0x3b0c…3b26 Head {h00=0x0016, h01=0x0050, text=» ANKL A1,/701 OK? «, t00=0x0025, t01=0x0142}
0x3b26…3b48 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DCP500 NO STOP IT «, t00=0x0025, t01=0x015c}
0x3b48…3b54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x017e}
0x3b54…3b76 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x0025, t01=0x018a}
0x3b76…3b88 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0026, t01=0x001c}
0x3b88…3bb0 Head {h00=0x0024, h01=0x0050, text=» CF A14,READW READ FIRST BUFFER «, t00=0x0026, t01=0x002e}
0x3bb0…3bc8 Head {h00=0x0014, h01=0x0050, text=» ANK A1,3 ERROR?«, t00=0x0026, t01=0x0056}
0x3bc8…3be2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DCP400 NO «, t00=0x0026, t01=0x006e}
0x3be2…3bf6 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0026, t01=0x0088}
0x3bf6…3c1c Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0026, t01=0x009c}
0x3c1c…3c2e Head {h00=0x000e, h01=0x0050, text=» RF DCP500«, t00=0x0026, t01=0x00c2}
0x3c2e…3c42 Head {h00=0x0010, h01=0x0050, text=»DCP400 EQU *«, t00=0x0026, t01=0x00d4}
0x3c42…3c74 Head {h00=0x002e, h01=0x0050, text=» SUR A10,A10 RESET INTERNAL UNPACK STATUS «, t00=0x0026, t01=0x00e8}
0x3c74…3c8c Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =1 «, t00=0x0026, t01=0x011a}
0x3c8c…3ca2 Head {h00=0x0012, h01=0x0050, text=» ANK A1,2 . =1«, t00=0x0026, t01=0x0132}
0x3ca2…3cbc Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP450 . =1«, t00=0x0026, t01=0x0148}
0x3cbc…3cda Head {h00=0x001a, h01=0x0050, text=» ORKL A10,LICREC . =1 «, t00=0x0026, t01=0x0162}
0x3cda…3cf4 Head {h00=0x0016, h01=0x0050, text=»DCP450 EQU * . =1 «, t00=0x0026, t01=0x0180}
0x3cf4…3d06 Head {h00=0x000e, h01=0x0050, text=» XIF . =1«, t00=0x0027, t01=0x000a}
0x3d06…3d1e Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x0027, t01=0x001c}
0x3d1e…3d44 Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x0027, t01=0x0034}
0x3d44…3d72 Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x0027, t01=0x005a}
0x3d72…3d84 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0027, t01=0x0088}
0x3d84…3dae Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET ANOTHER BUFFER «, t00=0x0027, t01=0x009a}
0x3dae…3dc0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0027, t01=0x00c4}
0x3dc0…3de8 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x0027, t01=0x00d6}
0x3de8…3df4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00fe}
0x3df4…3e20 Head {h00=0x0028, h01=0x0050, text=» CF A14,UNPACK UPDATE SCREEN BUFFER «, t00=0x0027, t01=0x010a}
0x3e20…3e34 Head {h00=0x0010, h01=0x0050, text=»DCP500 EQU *«, t00=0x0027, t01=0x0136}
0x3e34…3e46 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0027, t01=0x014a}
0x3e46…3e58 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0027, t01=0x015c}
0x3e58…3e7e Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x0027, t01=0x016e}
0x3e7e…3e8a (40, 0, 398) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0004}
0x3e8a…3e9a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x0010}
0x3e9a…3ea8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0020}
0x3ea8…3ef0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0028, t01=0x002e}
0x3ef0…3f38 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0028, t01=0x0076}
0x3f38…3f80 Head {h00=0x0044, h01=0x0050, text=»* ICPINP INTERTASK INPUT *«, t00=0x0028, t01=0x00be}
0x3f80…3fc8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0028, t01=0x0106}
0x3fc8…4010 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0028, t01=0x014e}
0x4010…4024 Head {h00=0x0010, h01=0x0050, text=»ICPINP EQU *«, t00=0x0029, t01=0x0008}
0x4024…4046 Head {h00=0x001e, h01=0x0050, text=» CF A14,COPP MAKE HARDCOPP«, t00=0x0029, t01=0x001c}
0x4046…4076 Head {h00=0x002c, h01=0x0050, text=» ST A1,REGI,A11 RETURN CODE TO TERMINAL «, t00=0x0029, t01=0x003e}
0x4076…409c Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPWRT WRITE INTERTASK«, t00=0x0029, t01=0x006e}
0x409c…40ac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0094}
0x40ac…40ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00a4}
0x40ba…4104 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0029, t01=0x00b2}
0x4104…414e Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0029, t01=0x00fc}
0x414e…4198 Head {h00=0x0046, h01=0x0050, text=»* ICPRED INTERTASK READ *«, t00=0x0029, t01=0x0146}
0x4198…41e2 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0029, t01=0x0190}
0x41e2…422c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002a, t01=0x004a}
0x422c…4240 Head {h00=0x0010, h01=0x0050, text=»ICPRED EQU *«, t00=0x002a, t01=0x0094}
0x4240…425a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x002a, t01=0x00a8}
0x425a…427e Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x002a, t01=0x00c2}
0x427e…42a2 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 NOT ADDRESSED READ«, t00=0x002a, t01=0x00e6}
0x42a2…42b8 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x002a, t01=0x010a}
0x42b8…42cc Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002a, t01=0x0120}
0x42cc…42e6 Head {h00=0x0016, h01=0x0050, text=» LDKL A2,LBVDU+/20«, t00=0x002a, t01=0x0134}
0x42e6…430c Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x002a, t01=0x014e}
0x430c…431c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0174}
0x431c…432a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0184}
0x432a…4376 (43, 0, 400) Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x002b, t01=0x0004}
0x4376…43c2 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x002b, t01=0x0050}
0x43c2…440e Head {h00=0x0048, h01=0x0050, text=»* ICPWRT WRITE INTERTASK *«, t00=0x002b, t01=0x009c}
0x440e…445a Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x002b, t01=0x00e8}
0x445a…44a6 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x002b, t01=0x0134}
0x44a6…44ba Head {h00=0x0010, h01=0x0050, text=»ICPWRT EQU *«, t00=0x002b, t01=0x0180}
0x44ba…44d4 (44, 0, 400) Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x002c, t01=0x0004}
0x44d4…44f8 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x002c, t01=0x001e}
0x44f8…4512 Head {h00=0x0016, h01=0x0050, text=» LD A1,ECBICR,A11 «, t00=0x002c, t01=0x0042}
0x4512…4534 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A1 GET TASKID«, t00=0x002c, t01=0x005c}
0x4534…4554 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ICPW90 NOT THERE «, t00=0x002c, t01=0x007e}
0x4554…4576 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,REGI RETURN CODE «, t00=0x002c, t01=0x009e}
0x4576…458a Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002c, t01=0x00c0}
0x458a…45a2 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x002c, t01=0x00d4}
0x45a2…45c8 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x002c, t01=0x00ec}
0x45c8…45dc Head {h00=0x0010, h01=0x0050, text=»ICPW90 EQU *«, t00=0x002c, t01=0x0112}
0x45dc…45ec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x0126}
0x45ec…45fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0136}
0x45fa…4640 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002c, t01=0x0144}
0x4640…4686 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x002c, t01=0x018a}
0x4686…46cc Head {h00=0x0042, h01=0x0050, text=»* ICABOR INTERTASK ABORT * «, t00=0x002d, t01=0x0040}
0x46cc…4712 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x002d, t01=0x0086}
0x4712…4758 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002d, t01=0x00cc}
0x4758…476c Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x002d, t01=0x0112}
0x476c…477e Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002d, t01=0x0126}
0x477e…4798 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+IC,A11 «, t00=0x002d, t01=0x0138}
0x4798…47b2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x002d, t01=0x0152}
0x47b2…47be Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002d, t01=0x016c}
0x47be…47ce Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002d, t01=0x0178}
0x47ce…47de Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x0188}
0x47de…47ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0008}
0x47ec…483a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002e, t01=0x0016}
0x483a…4888 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x002e, t01=0x0064}
0x4888…48d6 Head {h00=0x004a, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER * «, t00=0x002e, t01=0x00b2}
0x48d6…4924 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x002e, t01=0x0100}
0x4924…4972 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002e, t01=0x014e}
0x4972…4996 Head {h00=0x0020, h01=0x0050, text=»* REGISTERS «, t00=0x002f, t01=0x000c}
0x4996…49a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0030}
0x49a0…49b6 Head {h00=0x0012, h01=0x0050, text=»* A2= CHAR. «, t00=0x002f, t01=0x003a}
0x49b6…49dc Head {h00=0x0022, h01=0x0050, text=»* A3= SCREEN BUFFER POINTER «, t00=0x002f, t01=0x0050}
0x49dc…4a06 Head {h00=0x0026, h01=0x0050, text=»* A4= REL. SCREEN BUFFER ADDRESS«, t00=0x002f, t01=0x0076}
0x4a06…4a22 Head {h00=0x0018, h01=0x0050, text=»* A5= LINE LENGTH «, t00=0x002f, t01=0x00a0}
0x4a22…4a44 Head {h00=0x001e, h01=0x0050, text=»* A6= CURRENT ATTRIBUTE «, t00=0x002f, t01=0x00bc}
0x4a44…4a66 Head {h00=0x001e, h01=0x0050, text=»* A8= ECB BUFFER POINTER«, t00=0x002f, t01=0x00de}
0x4a66…4a86 Head {h00=0x001c, h01=0x0050, text=»* A9= ECB BUFFER INDEX«, t00=0x002f, t01=0x0100}
0x4a86…4aa6 Head {h00=0x001c, h01=0x0050, text=»* A10= INTERNAL STATUS«, t00=0x002f, t01=0x0120}
0x4aa6…4ac6 Head {h00=0x001c, h01=0x0050, text=»* A11= TASK BLOCK BASE«, t00=0x002f, t01=0x0140}
0x4ac6…4ae0 Head {h00=0x0016, h01=0x0050, text=»* A13= ECB BASE «, t00=0x002f, t01=0x0160}
0x4ae0…4aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x017a}
0x4aea…4b38 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002f, t01=0x0184}
0x4b38…4b50 Head {h00=0x0014, h01=0x0050, text=»COPP EQU * . =2 «, t00=0x0030, t01=0x0042}
0x4b50…4b6a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0030, t01=0x005a}
0x4b6a…4b94 Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x0030, t01=0x0074}
0x4b94…4ba6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0030, t01=0x009e}
0x4ba6…4bc8 Head {h00=0x001e, h01=0x0050, text=» LDK A6,0 RESET ATTRIBUTE «, t00=0x0030, t01=0x00b0}
0x4bc8…4bfa Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0030, t01=0x00d2}
0x4bfa…4c24 Head {h00=0x0026, h01=0x0050, text=» CM LINCNT,A11 RESET LINE COUNTER «, t00=0x0030, t01=0x0104}
0x4c24…4c3a Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0030, t01=0x012e}
0x4c3a…4c5c Head {h00=0x001e, h01=0x0050, text=» ANK A1,/38 MASK RELEVANT «, t00=0x0030, t01=0x0144}
0x4c5c…4c6e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0030, t01=0x0166}
0x4c6e…4c8c Head {h00=0x001a, h01=0x0050, text=» ANK A1,8 START PRINT?«, t00=0x0030, t01=0x0178}
0x4c8c…4cb4 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) COP950 NO FORGET IT =19 «, t00=0x0031, t01=0x0008}
0x4cb4…4cc6 Head {h00=0x000e, h01=0x0050, text=» SRL A5,4 «, t00=0x0031, t01=0x0030}
0x4cc6…4cee Head {h00=0x0024, h01=0x0050, text=» LC A5,LINLEN,A5 GET LINE LENGTH«, t00=0x0031, t01=0x0042}
0x4cee…4d1a Head {h00=0x0028, h01=0x0050, text=» LDR A5,A5 NL,EM AND CR DET. LENGTH?«, t00=0x0031, t01=0x006a}
0x4d1a…4d34 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP100 NO «, t00=0x0031, t01=0x0096}
0x4d34…4d62 Head {h00=0x002a, h01=0x0050, text=» LD A1,PRTTYP,A11 GET MAX LINE LENGTH «, t00=0x0031, t01=0x00b0}
0x4d62…4d7c Head {h00=0x0016, h01=0x0050, text=» LC A5,PRTLEN+1,A1«, t00=0x0031, t01=0x00de}
0x4d7c…4d90 Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0031, t01=0x00f8}
0x4d90…4da6 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0031, t01=0x010c}
0x4da6…4dba Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0031, t01=0x0122}
0x4dba…4dd6 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0031, t01=0x0136}
0x4dd6…4dee Head {h00=0x0014, h01=0x0050, text=» LDR A1,A8 . =24«, t00=0x0031, t01=0x0152}
0x4dee…4e20 Head {h00=0x002e, h01=0x0050, text=» LD A8,PRBA,A11 PRINTER BUFFER ADDRESS =24«, t00=0x0031, t01=0x016a}
0x4e20…4e48 Head {h00=0x0024, h01=0x0050, text=» ST A8,ECBBA,A1 STORE IN ECB =24«, t00=0x0032, t01=0x000c}
0x4e48…4e78 Head {h00=0x002c, h01=0x0050, text=» AD A8,PRLMAR,A11 ALLOW LEFT MARG/CR =25«, t00=0x0032, t01=0x0034}
0x4e78…4eb2 Head {h00=0x0036, h01=0x0050, text=» CM PRCCCT,A11 CLEAR BUFFER CHARACTER COUNTER =36 «, t00=0x0032, t01=0x0064}
0x4eb2…4ec6 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0032, t01=0x009e}
0x4ec6…4ee2 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0032, t01=0x00b2}
0x4ee2…4efa Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBBA,A8 «, t00=0x0032, t01=0x00ce}
0x4efa…4f1e Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0032, t01=0x00e6}
0x4f1e…4f30 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0032, t01=0x010a}
0x4f30…4f44 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0032, t01=0x011c}
0x4f44…4f56 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0032, t01=0x0130}
0x4f56…4f68 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0032, t01=0x0142}
0x4f68…4f7a Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0032, t01=0x0154}
0x4f7a…4f9c Head {h00=0x001e, h01=0x0050, text=» SUR A10,A10 RESET STATUS «, t00=0x0032, t01=0x0166}
0x4f9c…4fb0 Head {h00=0x0010, h01=0x0050, text=»COP200 EQU *«, t00=0x0032, t01=0x0188}
0x4fb0…4fd2 Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU ALL PRINTED?«, t00=0x0033, t01=0x000c}
0x4fd2…4fec Head {h00=0x0016, h01=0x0050, text=» RF(NL) COP850 YES«, t00=0x0033, t01=0x002e}
0x4fec…500a Head {h00=0x001a, h01=0x0050, text=» CWR A9,A5 LINE FULL? «, t00=0x0033, t01=0x0048}
0x500a…5022 Head {h00=0x0014, h01=0x0050, text=» RF(L) COP400 NO«, t00=0x0033, t01=0x0066}
0x5022…5044 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x0033, t01=0x007e}
0x5044…5066 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0033, t01=0x00a0}
0x5066…5080 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x0033, t01=0x00c2}
0x5080…5094 Head {h00=0x0010, h01=0x0050, text=»COP400 EQU *«, t00=0x0033, t01=0x00dc}
0x5094…50b0 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0033, t01=0x00f0}
0x50b0…50c4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0033, t01=0x010c}
0x50c4…50e4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP650 NULL CHAR.«, t00=0x0033, t01=0x0120}
0x50e4…5104 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0033, t01=0x0140}
0x5104…511c Head {h00=0x0014, h01=0x0050, text=» RF(L) COP500 NO«, t00=0x0033, t01=0x0160}
0x511c…5140 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A2 GET NEW ATTRIBUTE«, t00=0x0033, t01=0x0178}
0x5140…5152 Head {h00=0x000e, h01=0x0050, text=» RF COP650«, t00=0x0034, t01=0x000c}
0x5152…5166 Head {h00=0x0010, h01=0x0050, text=»COP500 EQU *«, t00=0x0034, t01=0x001e}
0x5166…5182 Head {h00=0x0018, h01=0x0050, text=» CCK A2,/2020 ORDER?«, t00=0x0034, t01=0x0032}
0x5182…519c Head {h00=0x0016, h01=0x0050, text=» RF(L) COP550 YES «, t00=0x0034, t01=0x004e}
0x519c…51ca Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x0034, t01=0x0068}
0x51ca…51dc Head {h00=0x000e, h01=0x0050, text=» RF COP600«, t00=0x0034, t01=0x0096}
0x51dc…51f0 Head {h00=0x0010, h01=0x0050, text=»COP550 EQU *«, t00=0x0034, t01=0x00a8}
0x51f0…5216 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETTAB GET ORDERINDEX «, t00=0x0034, t01=0x00bc}
0x5216…523c Head {h00=0x0022, h01=0x0050, text=» CFR A14,A1 TAKE CARE OF ORDER«, t00=0x0034, t01=0x00e2}
0x523c…525e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0034, t01=0x0108}
0x525e…5278 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x0034, t01=0x012a}
0x5278…5296 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A10 GET STATUS«, t00=0x0034, t01=0x0144}
0x5296…52ba Head {h00=0x0020, h01=0x0050, text=» RF(N) COP800 GET NEXT CHAR.«, t00=0x0034, t01=0x0162}
0x52ba…52cc Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0034, t01=0x0186}
0x52cc…52e6 Head {h00=0x0016, h01=0x0050, text=» RF(N) COP850 END «, t00=0x0035, t01=0x0008}
0x52e6…52fa Head {h00=0x0010, h01=0x0050, text=»COP600 EQU *«, t00=0x0035, t01=0x0022}
0x52fa…531e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 CHECK IF NONPRINT«, t00=0x0035, t01=0x0036}
0x531e…5330 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0035, t01=0x005a}
0x5330…5342 Head {h00=0x000e, h01=0x0050, text=» XRK A1,/C«, t00=0x0035, t01=0x006c}
0x5342…5360 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP650 NONPRINT«, t00=0x0035, t01=0x007e}
0x5360…5390 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INIDICATE NOT ONLY NOT «, t00=0x0035, t01=0x009c}
0x5390…53a2 Head {h00=0x000e, h01=0x0050, text=» RF COP700«, t00=0x0035, t01=0x00cc}
0x53a2…53b6 Head {h00=0x0010, h01=0x0050, text=»COP650 EQU *«, t00=0x0035, t01=0x00de}
0x53b6…53dc Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0035, t01=0x00f2}
0x53dc…53f0 Head {h00=0x0010, h01=0x0050, text=»COP700 EQU *«, t00=0x0035, t01=0x0118}
0x53f0…540a Head {h00=0x0016, h01=0x0050, text=» IFF TRANAT=0 . =4«, t00=0x0035, t01=0x012c}
0x540a…5438 Head {h00=0x002a, h01=0x0050, text=» LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4«, t00=0x0035, t01=0x0146}
0x5438…544a Head {h00=0x000e, h01=0x0050, text=» XIF . =4«, t00=0x0035, t01=0x0174}
0x544a…545c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A8«, t00=0x0035, t01=0x0186}
0x545c…546e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0036, t01=0x0008}
0x546e…5480 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0036, t01=0x001a}
0x5480…54a0 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/2020 SPACE? =3 «, t00=0x0036, t01=0x002c}
0x54a0…54d2 Head {h00=0x002e, h01=0x0050, text=» RF(E) COP800 YES, DON'T UPDATE LENGTH =3 «, t00=0x0036, t01=0x004c}
0x54d2…54f6 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBPRT,A11 GET ECB =3«, t00=0x0036, t01=0x007e}
0x54f6…552c Head {h00=0x0032, h01=0x0050, text=» ST A9,ECBRL,A1 UPDATE LAST POS. NOT SPACE =3 «, t00=0x0036, t01=0x00a2}
0x552c…5540 Head {h00=0x0010, h01=0x0050, text=»COP800 EQU *«, t00=0x0036, t01=0x00d8}
0x5540…5576 Head {h00=0x0032, h01=0x0050, text=» ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3«, t00=0x0036, t01=0x00ec}
0x5576…5588 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0036, t01=0x0122}
0x5588…559a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0036, t01=0x0134}
0x559a…55ac Head {h00=0x000e, h01=0x0050, text=» RB COP200«, t00=0x0036, t01=0x0146}
0x55ac…55c0 Head {h00=0x0010, h01=0x0050, text=»COP850 EQU *«, t00=0x0036, t01=0x0158}
0x55c0…55dc Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0036, t01=0x016c}
0x55dc…5608 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A9 SOMETHING LEFT TO PRINT? «, t00=0x0036, t01=0x0188}
0x5608…5626 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP950 NO! =19 «, t00=0x0037, t01=0x0024}
0x5626…564c Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x0037, t01=0x0042}
0x564c…5670 Head {h00=0x0020, h01=0x0050, text=» ANKL A10,ENDPRT END MESS.? «, t00=0x0037, t01=0x0068}
0x5670…5690 Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP900 NO STOP IT«, t00=0x0037, t01=0x008c}
0x5690…56bc Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE «, t00=0x0037, t01=0x00ac}
0x56bc…56e2 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE EXTRA LINE FEED«, t00=0x0037, t01=0x00d8}
0x56e2…56f6 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0037, t01=0x00fe}
0x56f6…5712 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0037, t01=0x0112}
0x5712…5742 Head {h00=0x002c, h01=0x0050, text=» LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 «, t00=0x0037, t01=0x012e}
0x5742…5760 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP860 NO! =24 «, t00=0x0037, t01=0x015e}
0x5760…5786 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT TEXT =24 «, t00=0x0037, t01=0x017c}
0x5786…57a0 Head {h00=0x0016, h01=0x0050, text=»COP860 EQU * . =24«, t00=0x0038, t01=0x0012}
0x57a0…57b8 Head {h00=0x0014, h01=0x0050, text=» IFF SCS=1 . =26«, t00=0x0038, t01=0x002c}
0x57b8…57e0 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 TEST END MESS. DK38 «, t00=0x0038, t01=0x0044}
0x57e0…57fe Head {h00=0x001a, h01=0x0050, text=» ANKL A1,ENDPRT DK38 «, t00=0x0038, t01=0x006c}
0x57fe…581a Head {h00=0x0018, h01=0x0050, text=» RF(Z) COP870 DK38 «, t00=0x0038, t01=0x008a}
0x581a…5850 Head {h00=0x0032, h01=0x0050, text=» ANKL A10,NOEMLF TEST IF EXTRA LF NECESS. DK38«, t00=0x0038, t01=0x00a6}
0x5850…5878 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COP870 NO, SKIP IT DK38 «, t00=0x0038, t01=0x00dc}
0x5878…58a8 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE =24 «, t00=0x0038, t01=0x0104}
0x58a8…58d2 Head {h00=0x0026, h01=0x0050, text=» CF A14,PRLINE EXTRA LINEFEED =24 «, t00=0x0038, t01=0x0134}
0x58d2…58e6 Head {h00=0x0010, h01=0x0050, text=» XIF . =26 «, t00=0x0038, t01=0x015e}
0x58e6…5902 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =26 «, t00=0x0038, t01=0x0172}
0x5902…591c Head {h00=0x0016, h01=0x0050, text=»COP870 EQU * . =24«, t00=0x0038, t01=0x018e}
0x591c…594e Head {h00=0x002e, h01=0x0050, text=» CF A14,PRCCH CONTROL CH:S TO PRINTER =24 «, t00=0x0039, t01=0x0018}
0x594e…5962 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0039, t01=0x004a}
0x5962…5976 Head {h00=0x0010, h01=0x0050, text=»COP900 EQU *«, t00=0x0039, t01=0x005e}
0x5976…5998 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER FAILED?«, t00=0x0039, t01=0x0072}
0x5998…59b0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP950 NO«, t00=0x0039, t01=0x0094}
0x59b0…59cc Head {h00=0x0018, h01=0x0050, text=» LD A2,WCC,A11 . =32«, t00=0x0039, t01=0x00ac}
0x59cc…59f4 Head {h00=0x0024, h01=0x0050, text=» CWK A2,/38 LOCAL HARDCOPY? =32 «, t00=0x0039, t01=0x00c8}
0x59f4…5a20 Head {h00=0x0028, h01=0x0050, text=» RF(E) COP910 YES. SKIP PRINTING =32«, t00=0x0039, t01=0x00f0}
0x5a20…5a36 Head {h00=0x0012, h01=0x0050, text=»COP902 EQU * «, t00=0x0039, t01=0x011c}
0x5a36…5a6c Head {h00=0x0032, h01=0x0050, text=» CF A14,TSTPRT WAIT UNTIL PRINTER OPERABLE =32«, t00=0x0039, t01=0x0132}
0x5a6c…5a8c Head {h00=0x001c, h01=0x0050, text=» ANK A4,1 OPERABLE? DK42«, t00=0x0039, t01=0x0168}
0x5a8c…5ab2 Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP905 YES, RETRY DK42 «, t00=0x0039, t01=0x0188}
0x5ab2…5ade Head {h00=0x0028, h01=0x0050, text=» LDKL A8,50 NO, WAIT 5 SECONDS DK42 «, t00=0x003a, t01=0x001e}
0x5ade…5aec Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x003a, t01=0x004a}
0x5aec…5afc Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x003a, t01=0x0058}
0x5afc…5b10 Head {h00=0x0010, h01=0x0050, text=» RB COP902 «, t00=0x003a, t01=0x0068}
0x5b10…5b26 Head {h00=0x0012, h01=0x0050, text=»COP905 EQU * «, t00=0x003a, t01=0x007c}
0x5b26…5b4c Head {h00=0x0022, h01=0x0050, text=» ABL COPP RESUME PRINTING =34 «, t00=0x003a, t01=0x0092}
0x5b4c…5b66 Head {h00=0x0016, h01=0x0050, text=»COP910 EQU * . =32«, t00=0x003a, t01=0x00b8}
0x5b66…5b8c Head {h00=0x0022, h01=0x0050, text=» LDKL A2,PRTERR INDICATE ERROR«, t00=0x003a, t01=0x00d2}
0x5b8c…5ba6 Head {h00=0x0016, h01=0x0050, text=» ORS A2,PRTMOD,A11«, t00=0x003a, t01=0x00f8}
0x5ba6…5bba Head {h00=0x0010, h01=0x0050, text=»COP950 EQU *«, t00=0x003a, t01=0x0112}
0x5bba…5bca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x0126}
0x5bca…5bd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0136}
0x5bd8…5c28 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003a, t01=0x0144}
0x5c28…5c32 (59, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0004}
0x5c32…5c54 Head {h00=0x001e, h01=0x0050, text=»* TABLE FOR PRINTERORDERS «, t00=0x003b, t01=0x000e}
0x5c54…5c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0030}
0x5c5e…5cae Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003b, t01=0x003a}
0x5cae…5cc2 Head {h00=0x0010, h01=0x0050, text=»PRTORD EQU *«, t00=0x003b, t01=0x008a}
0x5cc2…5cec Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF ORDER CODES «, t00=0x003b, t01=0x009e}
0x5cec…5d14 Head {h00=0x0024, h01=0x0050, text=» DATA /0A0A,NL,NL,NL,NL NEW LINE«, t00=0x003b, t01=0x00c8}
0x5d14…5d4a Head {h00=0x0032, h01=0x0050, text=» DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED «, t00=0x003b, t01=0x00f0}
0x5d4a…5d76 Head {h00=0x0028, h01=0x0050, text=» DATA /0D0D,CR,CR,CR,CR CARR. RETURN«, t00=0x003b, t01=0x0126}
0x5d76…5da2 Head {h00=0x0028, h01=0x0050, text=» DATA /1919,EM,EM,EM,EM END MESSAGE «, t00=0x003b, t01=0x0152}
0x5da2…5dc8 Head {h00=0x0022, h01=0x0050, text=» DATA INVAL INVALID ORDER CODE«, t00=0x003b, t01=0x017e}
0x5dc8…5dd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0014}
0x5dd6…5e2a Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x003c, t01=0x0022}
0x5e2a…5e7e Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x003c, t01=0x0076}
0x5e7e…5ed2 Head {h00=0x0050, h01=0x0050, text=»* NL NEW LINE *«, t00=0x003c, t01=0x00ca}
0x5ed2…5f26 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x003c, t01=0x011e}
0x5f26…5f7a Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x003c, t01=0x0172}
0x5f7a…5f8a Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x003d, t01=0x0036}
0x5f8a…5fb8 Head {h00=0x002a, h01=0x0050, text=» ORKL A10,NXTCHA+NTONLY GET NEXT CHAR.«, t00=0x003d, t01=0x0046}
0x5fb8…5fde Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 GET NEXT CHAR. DK38 «, t00=0x003d, t01=0x0074}
0x5fde…5ff6 Head {h00=0x0014, h01=0x0050, text=» LCR A1,A3 DK38«, t00=0x003d, t01=0x009a}
0x5ff6…6016 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF MASK IT DK38«, t00=0x003d, t01=0x00b2}
0x6016…603a Head {h00=0x0020, h01=0x0050, text=» CWK A1,/19 END MESS.? DK38 «, t00=0x003d, t01=0x00d2}
0x603a…6060 Head {h00=0x0022, h01=0x0050, text=» RF(E) NL005 YES, FLAG IT DK38«, t00=0x003d, t01=0x00f6}
0x6060…6092 Head {h00=0x002e, h01=0x0050, text=» ANKL A10,/FFFF-NOEMLF NO, CLEAR FLAG DK38«, t00=0x003d, t01=0x011c}
0x6092…60aa Head {h00=0x0014, h01=0x0050, text=» RF NL010 DK38 «, t00=0x003d, t01=0x014e}
0x60aa…60c4 Head {h00=0x0016, h01=0x0050, text=»NL005 EQU * DK38 «, t00=0x003d, t01=0x0166}
0x60c4…60f0 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NOEMLF INDICATE NO LF DK38«, t00=0x003d, t01=0x0180}
0x60f0…610a Head {h00=0x0016, h01=0x0050, text=»NL010 EQU * DK38 «, t00=0x003e, t01=0x001c}
0x610a…6130 Head {h00=0x0022, h01=0x0050, text=» SUK A3,1 RESTORE POINTER DK38«, t00=0x003e, t01=0x0036}
0x6130…6160 Head {h00=0x002c, h01=0x0050, text=» CF A14,PRLINE PRINT LINE AFTER NEW LINE«, t00=0x003e, t01=0x005c}
0x6160…6170 Head {h00=0x000c, h01=0x0050, text=» . =DK«, t00=0x003e, t01=0x008c}
0x6170…6180 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003e, t01=0x009c}
0x6180…618e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00ac}
0x618e…61dc Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003e, t01=0x00ba}
0x61dc…622a Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003e, t01=0x0108}
0x622a…6278 Head {h00=0x004a, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED *«, t00=0x003e, t01=0x0156}
0x6278…62c6 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003f, t01=0x0014}
0x62c6…6314 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003f, t01=0x0062}
0x6314…6328 Head {h00=0x0010, h01=0x0050, text=»FFDUM EQU * «, t00=0x003f, t01=0x00b0}
0x6328…635a Head {h00=0x002e, h01=0x0050, text=» CF A14,FFCHK CHECK IF FORM FEED IS VALID «, t00=0x003f, t01=0x00c4}
0x635a…6374 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x003f, t01=0x00f6}
0x6374…638e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD400 NO «, t00=0x003f, t01=0x0110}
0x638e…63a6 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 RESET «, t00=0x003f, t01=0x012a}
0x63a6…63d0 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTTYP,A11 TYPE OF PRINTER «, t00=0x003f, t01=0x0142}
0x63d0…63f2 Head {h00=0x001e, h01=0x0050, text=» LC A7,PRTLEN,A1 PAGE SIZE«, t00=0x003f, t01=0x016c}
0x63f2…6406 Head {h00=0x0010, h01=0x0050, text=»FFD100 EQU *«, t00=0x003f, t01=0x018e}
0x6406…642a Head {h00=0x0020, h01=0x0050, text=» CW A7,LINCNT,A11 NEW PAGE? «, t00=0x0040, t01=0x0012}
0x642a…6450 Head {h00=0x0022, h01=0x0050, text=» RF(L) FFD200 YES BUT TO MANY «, t00=0x0040, t01=0x0036}
0x6450…6472 Head {h00=0x001e, h01=0x0050, text=» RF(E) FFD300 YES FINISHED«, t00=0x0040, t01=0x005c}
0x6472…648a Head {h00=0x0014, h01=0x0050, text=» ORKL A10,NTONLY«, t00=0x0040, t01=0x007e}
0x648a…64a6 Head {h00=0x0018, h01=0x0050, text=» ST A7,REGI,A11 SAVE«, t00=0x0040, t01=0x0096}
0x64a6…64ce Head {h00=0x0024, h01=0x0050, text=» CF A14,PRLINE ADVANCE ONE LINE «, t00=0x0040, t01=0x00b2}
0x64ce…64ee Head {h00=0x001c, h01=0x0050, text=» LD A7,REGI,A11 RESTORE «, t00=0x0040, t01=0x00da}
0x64ee…6510 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0040, t01=0x00fa}
0x6510…652a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD500 YES«, t00=0x0040, t01=0x011c}
0x652a…653c Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0040, t01=0x0136}
0x653c…6550 Head {h00=0x0010, h01=0x0050, text=»FFD200 EQU *«, t00=0x0040, t01=0x0148}
0x6550…6562 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A7«, t00=0x0040, t01=0x015c}
0x6562…6590 Head {h00=0x002a, h01=0x0050, text=» ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE «, t00=0x0040, t01=0x016e}
0x6590…65a2 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x0041, t01=0x000c}
0x65a2…65b6 Head {h00=0x0010, h01=0x0050, text=»FFD300 EQU *«, t00=0x0041, t01=0x001e}
0x65b6…65d8 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0041, t01=0x0032}
0x65d8…6602 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x0041, t01=0x0054}
0x6602…6616 Head {h00=0x0010, h01=0x0050, text=»FFD400 EQU *«, t00=0x0041, t01=0x007e}
0x6616…6634 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0041, t01=0x0092}
0x6634…6648 Head {h00=0x0010, h01=0x0050, text=»FFD500 EQU *«, t00=0x0041, t01=0x00b0}
0x6648…6658 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x00c4}
0x6658…6666 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x00d4}
0x6666…66b4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0041, t01=0x00e2}
0x66b4…6702 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0041, t01=0x0130}
0x6702…6750 Head {h00=0x004a, h01=0x0050, text=»* FFVAL FORM FEED *«, t00=0x0041, t01=0x017e}
0x6750…679e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0042, t01=0x003c}
0x679e…67ec Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0042, t01=0x008a}
0x67ec…6800 Head {h00=0x0010, h01=0x0050, text=»FFVAL EQU * «, t00=0x0042, t01=0x00d8}
0x6800…6828 Head {h00=0x0024, h01=0x0050, text=» CF A14,FFCHK CHECK IF FF VALID «, t00=0x0042, t01=0x00ec}
0x6828…6842 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x0042, t01=0x0114}
0x6842…685c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFV200 NO «, t00=0x0042, t01=0x012e}
0x685c…686c Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x0042, t01=0x0148}
0x686c…6888 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =30 «, t00=0x0042, t01=0x0158}
0x6888…68b6 Head {h00=0x002a, h01=0x0050, text=» LDK A1,/31 FF FOR STANDARD WRITE =30 «, t00=0x0042, t01=0x0174}
0x68b6…68e2 Head {h00=0x0028, h01=0x0050, text=» SC A1,-1,A8 STORE FF CONTROL CHAR. «, t00=0x0043, t01=0x0012}
0x68e2…68f6 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0043, t01=0x003e}
0x68f6…6912 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0043, t01=0x0052}
0x6912…693a Head {h00=0x0024, h01=0x0050, text=» ORKL A10,FFCCH IND. FF CCH =36 «, t00=0x0043, t01=0x006e}
0x693a…6960 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LINE =36 «, t00=0x0043, t01=0x0096}
0x6960…6974 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0043, t01=0x00bc}
0x6974…6992 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,NXTCHA . =DK«, t00=0x0043, t01=0x00d0}
0x6992…69b4 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x0043, t01=0x00ee}
0x69b4…69c8 Head {h00=0x0010, h01=0x0050, text=»FFV200 EQU *«, t00=0x0043, t01=0x0110}
0x69c8…69e6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0043, t01=0x0124}
0x69e6…69f6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x0142}
0x69f6…6a04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0152}
0x6a04…6a52 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0043, t01=0x0160}
0x6a52…6aa0 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0044, t01=0x001e}
0x6aa0…6aee Head {h00=0x004a, h01=0x0050, text=»* CR CARRIAGE RETURN *«, t00=0x0044, t01=0x006c}
0x6aee…6b3c Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0044, t01=0x00ba}
0x6b3c…6b8a Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0044, t01=0x0108}
0x6b8a…6b9a Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x0044, t01=0x0156}
0x6b9a…6bba Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 GET ATTRIBUTE«, t00=0x0044, t01=0x0166}
0x6bba…6bcc Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0044, t01=0x0186}
0x6bcc…6bee Head {h00=0x001e, h01=0x0050, text=» XRK A1,/C NONPRINT FIELD?«, t00=0x0045, t01=0x0008}
0x6bee…6c06 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CR100 YES«, t00=0x0045, t01=0x002a}
0x6c06…6c1c Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0045, t01=0x0042}
0x6c1c…6c3a Head {h00=0x001a, h01=0x0050, text=» ANK A1,/30 FORMATTED?«, t00=0x0045, t01=0x0058}
0x6c3a…6c52 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) CR100 NO«, t00=0x0045, t01=0x0076}
0x6c52…6c7c Head {h00=0x0026, h01=0x0050, text=» ORKL A10,NTONLY+CRREC CR RECEIVED«, t00=0x0045, t01=0x008e}
0x6c7c…6c90 Head {h00=0x0010, h01=0x0050, text=»CR100 EQU * «, t00=0x0045, t01=0x00b8}
0x6c90…6cb6 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0045, t01=0x00cc}
0x6cb6…6cd4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0045, t01=0x00f2}
0x6cd4…6ce4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0045, t01=0x0110}
0x6ce4…6cf2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0120}
0x6cf2…6d40 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0045, t01=0x012e}
0x6d40…6d8c Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0045, t01=0x017c}
0x6d8c…6dd8 Head {h00=0x0048, h01=0x0050, text=»* EM END MESSAGE *«, t00=0x0046, t01=0x0038}
0x6dd8…6e24 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0046, t01=0x0084}
0x6e24…6e70 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0046, t01=0x00d0}
0x6e70…6e80 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x0046, t01=0x011c}
0x6e80…6ea6 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,ENDPRT END PRINTING «, t00=0x0046, t01=0x012c}
0x6ea6…6ec4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0046, t01=0x0152}
0x6ec4…6ed4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x0170}
0x6ed4…6ee2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0180}
0x6ee2…6f2c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0046, t01=0x018e}
0x6f2c…6f76 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0047, t01=0x0048}
0x6f76…6fc0 Head {h00=0x0046, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER *«, t00=0x0047, t01=0x0092}
0x6fc0…700a Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0047, t01=0x00dc}
0x700a…7054 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0047, t01=0x0126}
0x7054…705e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0170}
0x705e…7076 Head {h00=0x0014, h01=0x0050, text=»* ALSO HANDLING:«, t00=0x0047, t01=0x017a}
0x7076…7094 (72, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* DUP & FM CHARACTERS «, t00=0x0048, t01=0x0004}
0x7094…709e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0022}
0x709e…70b2 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x0048, t01=0x002c}
0x70b2…70d2 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 SAVE CHAR =37«, t00=0x0048, t01=0x0040}
0x70d2…7102 Head {h00=0x002c, h01=0x0050, text=» CF A14,RFMDUP REPLACE IF DUP OR FM =37 «, t00=0x0048, t01=0x0060}
0x7102…7122 Head {h00=0x001c, h01=0x0050, text=» SUR A1,A2 REPLACED? =37«, t00=0x0048, t01=0x0090}
0x7122…7142 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INVA10 YES! =37 «, t00=0x0048, t01=0x00b0}
0x7142…7168 Head {h00=0x0022, h01=0x0050, text=» NO! I.E. INVALID ORDER =37 «, t00=0x0048, t01=0x00d0}
0x7168…718e Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0048, t01=0x00f6}
0x718e…71a8 Head {h00=0x0016, h01=0x0050, text=»INVA10 EQU * . =37«, t00=0x0048, t01=0x011c}
0x71a8…71ca Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0048, t01=0x0136}
0x71ca…71e8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0048, t01=0x0158}
0x71e8…71f8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x0176}
0x71f8…7206 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0186}
0x7206…7250 (73, 0, 400) Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0049, t01=0x0004}
0x7250…729a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0049, t01=0x004e}
0x729a…72e4 Head {h00=0x0046, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID * «, t00=0x0049, t01=0x0098}
0x72e4…732e Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0049, t01=0x00e2}
0x732e…7378 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0049, t01=0x012c}
0x7378…738c Head {h00=0x0010, h01=0x0050, text=»FFCHK EQU * «, t00=0x0049, t01=0x0176}
0x738c…73a2 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0049, t01=0x018a}
0x73a2…73b6 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x004a, t01=0x0010}
0x73b6…73d4 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 FORMATTED?«, t00=0x004a, t01=0x0024}
0x73d4…7408 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY«, t00=0x004a, t01=0x0042}
0x7408…741e Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x004a, t01=0x0076}
0x741e…7442 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 LOCAL HARD COPY?«, t00=0x004a, t01=0x008c}
0x7442…746c Head {h00=0x0026, h01=0x0050, text=» RF(Z) FFCH20 YES, FF NOT ALLOWED «, t00=0x004a, t01=0x00b0}
0x746c…7480 Head {h00=0x0010, h01=0x0050, text=»FFCH10 EQU *«, t00=0x004a, t01=0x00da}
0x7480…749e Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 FF ALLOWED «, t00=0x004a, t01=0x00ee}
0x749e…74b8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH30 NOT «, t00=0x004a, t01=0x010c}
0x74b8…74cc Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x004a, t01=0x0126}
0x74cc…74f0 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,CRREC CR RECEIVED? «, t00=0x004a, t01=0x013a}
0x74f0…750a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFCH30 YES«, t00=0x004a, t01=0x015e}
0x750a…751e Head {h00=0x0010, h01=0x0050, text=»FFCH20 EQU *«, t00=0x004a, t01=0x0178}
0x751e…7544 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x004a, t01=0x018c}
0x7544…7562 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x004b, t01=0x0022}
0x7562…7574 Head {h00=0x000e, h01=0x0050, text=» RF FFCH40«, t00=0x004b, t01=0x0040}
0x7574…7588 Head {h00=0x0010, h01=0x0050, text=»FFCH30 EQU *«, t00=0x004b, t01=0x0052}
0x7588…75b6 Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x004b, t01=0x0066}
0x75b6…75d4 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 EMPTY LINE «, t00=0x004b, t01=0x0094}
0x75d4…75ee Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH35 YES «, t00=0x004b, t01=0x00b2}
0x75ee…7610 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x004b, t01=0x00cc}
0x7610…7624 Head {h00=0x0010, h01=0x0050, text=»FFCH35 EQU *«, t00=0x004b, t01=0x00ee}
0x7624…7642 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x004b, t01=0x0102}
0x7642…7656 Head {h00=0x0010, h01=0x0050, text=»FFCH40 EQU *«, t00=0x004b, t01=0x0120}
0x7656…7678 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x004b, t01=0x0134}
0x7678…7688 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004b, t01=0x0156}
0x7688…7696 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0166}
0x7696…76de Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004b, t01=0x0174}
0x76de…7726 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004c, t01=0x002c}
0x7726…776e Head {h00=0x0044, h01=0x0050, text=»* PRLINE PRINT LINE *«, t00=0x004c, t01=0x0074}
0x776e…77b6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004c, t01=0x00bc}
0x77b6…77fe Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004c, t01=0x0104}
0x77fe…7812 Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x004c, t01=0x014c}
0x7812…782c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x004c, t01=0x0160}
0x782c…7840 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x004c, t01=0x017a}
0x7840…7864 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,NTONLY ONLY RUBB.? «, t00=0x004c, t01=0x018e}
0x7864…787e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL050 NO «, t00=0x004d, t01=0x0022}
0x787e…7894 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x004d, t01=0x003c}
0x7894…78a6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x004d, t01=0x0052}
0x78a6…78ba Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x004d, t01=0x0064}
0x78ba…78d8 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 HRADCOPY? «, t00=0x004d, t01=0x0078}
0x78d8…78f2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x004d, t01=0x0096}
0x78f2…7914 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/40 HARDCOPY????? «, t00=0x004d, t01=0x00b0}
0x7914…792e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x004d, t01=0x00d2}
0x792e…7942 Head {h00=0x0010, h01=0x0050, text=»PRL050 EQU *«, t00=0x004d, t01=0x00ec}
0x7942…797e Head {h00=0x0038, h01=0x0050, text=» ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 «, t00=0x004d, t01=0x0100}
0x797e…799a Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x004d, t01=0x013c}
0x799a…79cc Head {h00=0x002e, h01=0x0050, text=» LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 «, t00=0x004d, t01=0x0158}
0x79cc…79ea Head {h00=0x001a, h01=0x0050, text=» ADS A9,ECBRL,A8 . =3 «, t00=0x004d, t01=0x018a}
0x79ea…7a04 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/06 PRINT «, t00=0x004e, t01=0x0018}
0x7a04…7a10 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004e, t01=0x0032}
0x7a10…7a20 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x004e, t01=0x003e}
0x7a20…7a34 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x004e, t01=0x004e}
0x7a34…7a50 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x004e, t01=0x0062}
0x7a50…7a7a Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBRL,A8 TEXT TO PRINT? =24«, t00=0x004e, t01=0x007e}
0x7a7a…7aa8 Head {h00=0x002a, h01=0x0050, text=» RF(Z) PRL070 NO! JUST CONTROL CH =24 «, t00=0x004e, t01=0x00a8}
0x7aa8…7ad0 Head {h00=0x0024, h01=0x0050, text=» EJECT HANDLING A TEXT LINE =36«, t00=0x004e, t01=0x00d6}
0x7ad0…7afe Head {h00=0x002a, h01=0x0050, text=» PREPARE LINE. FIRST LEFT MARGIN =36«, t00=0x004e, t01=0x00fe}
0x7afe…7b18 Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =36«, t00=0x004e, t01=0x012c}
0x7b18…7b4c Head {h00=0x0030, h01=0x0050, text=» LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 «, t00=0x004e, t01=0x0146}
0x7b4c…7b6c Head {h00=0x001c, h01=0x0050, text=» LD A1,PRLMAR,A11 . =36 «, t00=0x004e, t01=0x017a}
0x7b6c…7b8a Head {h00=0x001a, h01=0x0050, text=» AD A1,ECBBA,A8 . =36 «, t00=0x004f, t01=0x000a}
0x7b8a…7ba2 Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x004f, t01=0x0028}
0x7ba2…7bbc Head {h00=0x0016, h01=0x0050, text=»PRL055 EQU * . =36«, t00=0x004f, t01=0x0040}
0x7bbc…7bd4 Head {h00=0x0014, h01=0x0050, text=» SCR A7,A1 . =36«, t00=0x004f, t01=0x005a}
0x7bd4…7bec Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x004f, t01=0x0072}
0x7bec…7c12 Head {h00=0x0022, h01=0x0050, text=» CW A1,ECBBA,A8 FINISHED? =36 «, t00=0x004f, t01=0x008a}
0x7c12…7c30 Head {h00=0x001a, h01=0x0050, text=» RB(G) PRL055 NO! =36 «, t00=0x004f, t01=0x00b0}
0x7c30…7c44 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x004f, t01=0x00ce}
0x7c44…7c60 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x004f, t01=0x00e2}
0x7c60…7c70 Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x004f, t01=0x00fe}
0x7c70…7c8e Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0D CR CCH =36«, t00=0x004f, t01=0x010e}
0x7c8e…7cc2 Head {h00=0x0030, h01=0x0050, text=» SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 «, t00=0x004f, t01=0x012c}
0x7cc2…7cea Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x004f, t01=0x0160}
0x7cea…7d08 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/0A LF CCH =24«, t00=0x004f, t01=0x0188}
0x7d08…7d26 Head {h00=0x001a, h01=0x0050, text=» LD A7,ECBRL,A8 . =24 «, t00=0x0050, t01=0x0016}
0x7d26…7d44 Head {h00=0x001a, h01=0x0050, text=» AD A7,ECBBA,A8 . =24 «, t00=0x0050, t01=0x0034}
0x7d44…7d78 Head {h00=0x0030, h01=0x0050, text=» AD A7,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x0050, t01=0x0052}
0x7d78…7da2 Head {h00=0x0026, h01=0x0050, text=» SCR A1,A7 LF CCH LAST IN BUF =25 «, t00=0x0050, t01=0x0086}
0x7da2…7db2 Head {h00=0x000c, h01=0x0050, text=» . =35«, t00=0x0050, t01=0x00b0}
0x7db2…7dd6 Head {h00=0x0020, h01=0x0050, text=» CALCULATE LINE LENGTH =36«, t00=0x0050, t01=0x00c0}
0x7dd6…7df8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 ALLOW FOR LF =36«, t00=0x0050, t01=0x00e4}
0x7df8…7e22 Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBRL,A8 ALLOW FOR TEXT =36«, t00=0x0050, t01=0x0106}
0x7e22…7e56 Head {h00=0x0030, h01=0x0050, text=» AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 «, t00=0x0050, t01=0x0130}
0x7e56…7e8a Head {h00=0x0030, h01=0x0050, text=» ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36«, t00=0x0050, t01=0x0164}
0x7e8a…7ec0 Head {h00=0x0032, h01=0x0050, text=» ADS A1,ECBBA,A8 UPDATE POINTER TO BUFFER =36 «, t00=0x0051, t01=0x0008}
0x7ec0…7ed6 Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x0051, t01=0x003e}
0x7ed6…7f0e Head {h00=0x0034, h01=0x0050, text=»PRL060 EQU * ENOUGH SPACE FOR ANOTHER LINE? =36 «, t00=0x0051, t01=0x0054}
0x7f0e…7f36 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PRBFL BUFFER LENGTH =36«, t00=0x0051, t01=0x008c}
0x7f36…7f68 Head {h00=0x002e, h01=0x0050, text=» SU A1,PRCCCT,A11 USED PART OF BUFFER =36 «, t00=0x0051, t01=0x00b4}
0x7f68…7f90 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A5 MAX. LINE LENGTH =36 «, t00=0x0051, t01=0x00e6}
0x7f90…7fba Head {h00=0x0026, h01=0x0050, text=» SU A1,PRLMAR,A11 LEFT MARGIN =36 «, t00=0x0051, t01=0x010e}
0x7fba…7fee Head {h00=0x0030, h01=0x0050, text=» RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 «, t00=0x0051, t01=0x0138}
0x7fee…7ffe Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x0051, t01=0x016c}
0x7ffe…8024 Head {h00=0x0022, h01=0x0050, text=»PRL065 EQU * PRINT BUFFER =36 «, t00=0x0051, t01=0x017c}
0x8024…8044 Head {h00=0x001c, h01=0x0050, text=» LD A1,PRCCCT,A11 . =36 «, t00=0x0052, t01=0x0012}
0x8044…806c Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBRL,A8 REQ. LENGTH =36 «, t00=0x0052, t01=0x0032}
0x806c…808a Head {h00=0x001a, h01=0x0050, text=» LD A1,PRBA,A11 . =36 «, t00=0x0052, t01=0x005a}
0x808a…80b4 Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 BUFFER ADDRESS =36«, t00=0x0052, t01=0x0078}
0x80b4…80c8 Head {h00=0x0010, h01=0x0050, text=» IFT P6883=1«, t00=0x0052, t01=0x00a2}
0x80c8…80ea Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A11 6883 PRINTER?«, t00=0x0052, t01=0x00b6}
0x80ea…8110 Head {h00=0x0022, h01=0x0050, text=» CWK A1,'L1' TID = L1 = 6883 «, t00=0x0052, t01=0x00d8}
0x8110…813e Head {h00=0x002a, h01=0x0050, text=» RF(NE) PRL067 NO, NORMAL BASIC WRITE «, t00=0x0052, t01=0x00fe}
0x813e…816c Head {h00=0x002a, h01=0x0050, text=» LDK A7,/07 ORDER - BAS. WRT W/ CONV. «, t00=0x0052, t01=0x012c}
0x816c…8180 Head {h00=0x0010, h01=0x0050, text=» RF PRL069 «, t00=0x0052, t01=0x015a}
0x8180…8190 Head {h00=0x000c, h01=0x0050, text=» XIF «, t00=0x0052, t01=0x016e}
0x8190…81a6 Head {h00=0x0012, h01=0x0050, text=»PRL067 EQU * «, t00=0x0052, t01=0x017e}
0x81a6…81ca (83, 0, 398) Head {h00=0x0020, h01=0x0050, text=» LDK A7,/05 BASIC WRITE =24 «, t00=0x0053, t01=0x0004}
0x81ca…81e0 Head {h00=0x0012, h01=0x0050, text=»PRL069 EQU * «, t00=0x0053, t01=0x0028}
0x81e0…81f4 Head {h00=0x0010, h01=0x0050, text=» LKM . =24 «, t00=0x0053, t01=0x003e}
0x81f4…820a Head {h00=0x0012, h01=0x0050, text=» DATA 1 . =24 «, t00=0x0053, t01=0x0052}
0x820a…823c Head {h00=0x002e, h01=0x0050, text=» CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24«, t00=0x0053, t01=0x0068}
0x823c…8254 Head {h00=0x0014, h01=0x0050, text=» RF PRL090 . =24«, t00=0x0053, t01=0x009a}
0x8254…8284 Head {h00=0x002c, h01=0x0050, text=» EJECT HANDLING A CONTROL CHARACTER =36«, t00=0x0053, t01=0x00b2}
0x8284…82b2 Head {h00=0x002a, h01=0x0050, text=»PRL070 EQU * STORE CCH IN BUFFER =24 «, t00=0x0053, t01=0x00e2}
0x82b2…82da Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x0053, t01=0x0110}
0x82da…82f8 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0A LF CCH =24«, t00=0x0053, t01=0x0138}
0x82f8…8312 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A10 . =36 «, t00=0x0053, t01=0x0156}
0x8312…8338 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,FFCCH FORM FEED? =36 «, t00=0x0053, t01=0x0170}
0x8338…8354 Head {h00=0x0018, h01=0x0050, text=» RF(Z) PRL075 NO =36«, t00=0x0054, t01=0x0008}
0x8354…8378 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/0C YES. FF CCH =36 «, t00=0x0054, t01=0x0024}
0x8378…83a8 Head {h00=0x002c, h01=0x0050, text=» ANKL A10,/FFFF-FFCCH RESET FF IND. =36 «, t00=0x0054, t01=0x0048}
0x83a8…83c2 Head {h00=0x0016, h01=0x0050, text=»PRL075 EQU * . =36«, t00=0x0054, t01=0x0078}
0x83c2…83ec Head {h00=0x0026, h01=0x0050, text=» SC* A7,ECBBA,A8 CCH TO BUFFER =36«, t00=0x0054, t01=0x0092}
0x83ec…8418 Head {h00=0x0028, h01=0x0050, text=» IM ECBBA,A8 STEP BUFFER ADDRESS =36«, t00=0x0054, t01=0x00bc}
0x8418…844e Head {h00=0x0032, h01=0x0050, text=» IM PRCCCT,A11 STEP NO. OF CH:S IN BUFFER =36 «, t00=0x0054, t01=0x00e8}
0x844e…8478 Head {h00=0x0026, h01=0x0050, text=» ADKL A8,1 STEP BUFFER POINTER =36«, t00=0x0054, t01=0x011e}
0x8478…84a6 Head {h00=0x002a, h01=0x0050, text=» RB PRL060 CHECK IF END OF BUFFER =36 «, t00=0x0054, t01=0x0148}
0x84a6…84bc Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x0054, t01=0x0176}
0x84bc…84d6 Head {h00=0x0016, h01=0x0050, text=»PRL090 EQU * . =24«, t00=0x0054, t01=0x018c}
0x84d6…84ea Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0055, t01=0x0016}
0x84ea…8514 Head {h00=0x0026, h01=0x0050, text=» LDK A1,100 NUMBER OF DELAYS DK41 «, t00=0x0055, t01=0x002a}
0x8514…8528 Head {h00=0x0010, h01=0x0050, text=»PRL100 EQU *«, t00=0x0055, t01=0x0054}
0x8528…854c Head {h00=0x0020, h01=0x0050, text=» LDKL A8,1 WAIT FOR A WHILE «, t00=0x0055, t01=0x0068}
0x854c…8558 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0055, t01=0x008c}
0x8558…8568 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0055, t01=0x0098}
0x8568…8582 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0055, t01=0x00a8}
0x8582…85a4 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 PRINT COMPL.? «, t00=0x0055, t01=0x00c2}
0x85a4…85be Head {h00=0x0016, h01=0x0050, text=» RF(N) PRL150 YES «, t00=0x0055, t01=0x00e4}
0x85be…85e2 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 MORE TO WAIT FOR? «, t00=0x0055, t01=0x00fe}
0x85e2…85fc Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PRL100 YES«, t00=0x0055, t01=0x0122}
0x85fc…8608 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0055, t01=0x013c}
0x8608…861e Head {h00=0x0012, h01=0x0050, text=» DATA 10 ABORT«, t00=0x0055, t01=0x0148}
0x861e…862e Head {h00=0x000c, h01=0x0050, text=» . =27«, t00=0x0055, t01=0x015e}
0x862e…8652 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE ERROR =27«, t00=0x0055, t01=0x016e}
0x8652…8664 (86, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF PRL300«, t00=0x0056, t01=0x0004}
0x8664…8678 Head {h00=0x0010, h01=0x0050, text=»PRL150 EQU *«, t00=0x0056, t01=0x0016}
0x8678…8686 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0056, t01=0x002a}
0x8686…86a4 Head {h00=0x001a, h01=0x0050, text=» DATA 2 RESYNCHRONIZE «, t00=0x0056, t01=0x0038}
0x86a4…86c0 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0056, t01=0x0056}
0x86c0…86e4 Head {h00=0x0020, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE «, t00=0x0056, t01=0x0072}
0x86e4…870e Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x0056, t01=0x0096}
0x870e…8722 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0056, t01=0x00c0}
0x8722…873e Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0056, t01=0x00d4}
0x873e…8778 Head {h00=0x0036, h01=0x0050, text=» ANKL A1,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x0056, t01=0x00f0}
0x8778…8798 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) PRL300 YES! =23 «, t00=0x0056, t01=0x012a}
0x8798…87ac Head {h00=0x0010, h01=0x0050, text=»PRL200 EQU *«, t00=0x0056, t01=0x014a}
0x87ac…87c8 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0056, t01=0x015e}
0x87c8…87f4 Head {h00=0x0028, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =36 «, t00=0x0056, t01=0x017a}
0x87f4…8822 Head {h00=0x002a, h01=0x0050, text=» LD A8,ECBBA,A8 SET BUFFER POINTER =36«, t00=0x0057, t01=0x0016}
0x8822…8856 Head {h00=0x0030, h01=0x0050, text=» AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x0057, t01=0x0044}
0x8856…886a Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0057, t01=0x0078}
0x886a…8886 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0057, t01=0x008c}
0x8886…88b0 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0057, t01=0x00a8}
0x88b0…88d4 Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0057, t01=0x00d2}
0x88d4…88e8 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0057, t01=0x00f6}
0x88e8…88fa Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0057, t01=0x010a}
0x88fa…8916 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0057, t01=0x011c}
0x8916…8928 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0057, t01=0x0138}
0x8928…893c Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0057, t01=0x014a}
0x893c…895a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0057, t01=0x015e}
0x895a…8972 Head {h00=0x0014, h01=0x0050, text=» RF PRL900 . =6 «, t00=0x0057, t01=0x017c}
0x8972…8986 (88, 0, 400) Head {h00=0x0010, h01=0x0050, text=»PRL300 EQU *«, t00=0x0058, t01=0x0004}
0x8986…89b4 Head {h00=0x002a, h01=0x0050, text=» LD A2,PRTID,A11 GET PRINTER TASKID =6«, t00=0x0058, t01=0x0018}
0x89b4…89cc Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF . =6«, t00=0x0058, t01=0x0046}
0x89cc…89e4 Head {h00=0x0014, h01=0x0050, text=» SUK A2,/30 . =6«, t00=0x0058, t01=0x005e}
0x89e4…89fa Head {h00=0x0012, h01=0x0050, text=» SLL A2,2 . =6«, t00=0x0058, t01=0x0076}
0x89fa…8a24 Head {h00=0x0026, h01=0x0050, text=» LD A3,+6,A13 COMMON BLOCK BASE =6«, t00=0x0058, t01=0x008c}
0x8a24…8a40 Head {h00=0x0018, h01=0x0050, text=» ADK A3,TSKTAB . =6 «, t00=0x0058, t01=0x00b6}
0x8a40…8a58 Head {h00=0x0014, h01=0x0050, text=» ADR A3,A2 . =6 «, t00=0x0058, t01=0x00d2}
0x8a58…8a82 Head {h00=0x0026, h01=0x0050, text=» SC A1,+3,A3 SET PRINTER STATUS =6«, t00=0x0058, t01=0x00ea}
0x8a82…8a9c Head {h00=0x0016, h01=0x0050, text=»PRL900 EQU * . =6 «, t00=0x0058, t01=0x0114}
0x8a9c…8aac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x012e}
0x8aac…8ac8 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0058, t01=0x013e}
0x8ac8…8ade Head {h00=0x0012, h01=0x0050, text=» EJECT . =24 «, t00=0x0058, t01=0x015a}
0x8ade…8b2e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0058, t01=0x0170}
0x8b2e…8b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0030}
0x8b38…8b7e Head {h00=0x0042, h01=0x0050, text=»* PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER «, t00=0x0059, t01=0x003a}
0x8b7e…8b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0080}
0x8b88…8bd8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0059, t01=0x008a}
0x8bd8…8be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00da}
0x8be2…8bfc Head {h00=0x0016, h01=0x0050, text=»PRCCH EQU * . =24 «, t00=0x0059, t01=0x00e4}
0x8bfc…8c2c Head {h00=0x002c, h01=0x0050, text=» LD A1,PRCCCT,A11 ANYTHING TO SEND? =24 «, t00=0x0059, t01=0x00fe}
0x8c2c…8c50 Head {h00=0x0020, h01=0x0050, text=» RB(Z) PRL900 NO! RETURN =24«, t00=0x0059, t01=0x012e}
0x8c50…8c7a Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBPRT,A11 ECB ADDRESS =24 «, t00=0x0059, t01=0x0152}
0x8c7a…8ca6 Head {h00=0x0028, h01=0x0050, text=» RB PRL065 SEND CH:S TO PRINTER =36 «, t00=0x0059, t01=0x017c}
0x8ca6…8cba Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x005a, t01=0x0018}
0x8cba…8cc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x002c}
0x8cc8…8d14 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x005a, t01=0x003a}
0x8d14…8d60 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x005a, t01=0x0086}
0x8d60…8dac Head {h00=0x0048, h01=0x0050, text=»* INIT INIT ROUTINE * «, t00=0x005a, t01=0x00d2}
0x8dac…8df8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x005a, t01=0x011e}
0x8df8…8e44 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x005a, t01=0x016a}
0x8e44…8e56 Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x005b, t01=0x0026}
0x8e56…8e78 Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x005b, t01=0x0038}
0x8e78…8e9c Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x005b, t01=0x005a}
0x8e9c…8eae Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x005b, t01=0x007e}
0x8eae…8ec0 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x005b, t01=0x0090}
0x8ec0…8ed4 Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x005b, t01=0x00a2}
0x8ed4…8efe Head {h00=0x0026, h01=0x0050, text=» ST A2,PRTID,A11 SAVE WHOLE TASKID«, t00=0x005b, t01=0x00b6}
0x8efe…8f34 Head {h00=0x0032, h01=0x0050, text=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX «, t00=0x005b, t01=0x00e0}
0x8f34…8f5a Head {h00=0x0022, h01=0x0050, text=» LD A7,PRTTAB NUMBER OF TYPES «, t00=0x005b, t01=0x0116}
0x8f5a…8f8a Head {h00=0x002c, h01=0x0050, text=» LDKL A1,PRTTAB+2 START OF PRINTER TABLE«, t00=0x005b, t01=0x013c}
0x8f8a…8f9e Head {h00=0x0010, h01=0x0050, text=»INI100 EQU *«, t00=0x005b, t01=0x016c}
0x8f9e…8fc6 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CONVERT TYPE TO INDEX«, t00=0x005b, t01=0x0180}
0x8fc6…8fdc Head {h00=0x0012, h01=0x0050, text=» RF(E) INI200 «, t00=0x005c, t01=0x0018}
0x8fdc…8fee Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x005c, t01=0x002e}
0x8fee…900c Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ILLEGAL ID? «, t00=0x005c, t01=0x0040}
0x900c…9026 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) INI100 NO «, t00=0x005c, t01=0x005e}
0x9026…9038 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x005c, t01=0x0078}
0x9038…9050 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x005c, t01=0x008a}
0x9050…905c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005c, t01=0x00a2}
0x905c…9076 Head {h00=0x0016, h01=0x0050, text=» DATA 3 FORGET IT «, t00=0x005c, t01=0x00ae}
0x9076…908a Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x005c, t01=0x00c8}
0x908a…909e Head {h00=0x0010, h01=0x0050, text=» LD A1,+2,A1«, t00=0x005c, t01=0x00dc}
0x909e…90ca Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTTYP,A11 SAVE PRINTER TYPE «, t00=0x005c, t01=0x00f0}
0x90ca…90d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x011c}
0x90d4…9102 Head {h00=0x002a, h01=0x0050, text=»* IF TID =< 'L1',SELECT FILE CODE '80'«, t00=0x005c, t01=0x0126}
0x9102…9122 Head {h00=0x001c, h01=0x0050, text=»* THE LINE PRINTER......«, t00=0x005c, t01=0x0154}
0x9122…912c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0174}
0x912c…9144 Head {h00=0x0014, h01=0x0050, text=» CF A14,SELPFC «, t00=0x005c, t01=0x017e}
0x9144…914e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0008}
0x914e…916a Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x005d, t01=0x0012}
0x916a…919c Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBPRT,A11 PRINTER ECB ADDRESS =24 «, t00=0x005d, t01=0x002e}
0x919c…91ce Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBBA,A2 PRINTER BUFFER ADDRESS =24«, t00=0x005d, t01=0x0060}
0x91ce…91fe Head {h00=0x002c, h01=0x0050, text=» ST A2,PRBA,A11 SAVE IT IN WORK AREA =24«, t00=0x005d, t01=0x0092}
0x91fe…9216 Head {h00=0x0014, h01=0x0050, text=» LDK A2,1 . =25 «, t00=0x005d, t01=0x00c2}
0x9216…9240 Head {h00=0x0026, h01=0x0050, text=» ST A2,PRLMAR,A11 ALLOW FOR CR =25«, t00=0x005d, t01=0x00da}
0x9240…9270 Head {h00=0x002c, h01=0x0050, text=» IFF LMARG=0 LEFT MARGIN FOR PRINTER =25«, t00=0x005d, t01=0x0104}
0x9270…928e Head {h00=0x001a, h01=0x0050, text=» LD A1,LMARGT,A1 . =25«, t00=0x005d, t01=0x0134}
0x928e…92c4 Head {h00=0x0032, h01=0x0050, text=» ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25«, t00=0x005d, t01=0x0152}
0x92c4…92d8 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x005d, t01=0x0188}
0x92d8…92e8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x000c}
0x92e8…92f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x001c}
0x92f6…9340 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x005e, t01=0x002a}
0x9340…938a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x005e, t01=0x0074}
0x938a…93d4 Head {h00=0x0046, h01=0x0050, text=»* TSTPRT TEST HARDWARE * «, t00=0x005e, t01=0x00be}
0x93d4…941e Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x005e, t01=0x0108}
0x941e…9468 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x005e, t01=0x0152}
0x9468…947c Head {h00=0x0010, h01=0x0050, text=»TSTPRT EQU *«, t00=0x005f, t01=0x000c}
0x947c…948c Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005f, t01=0x0020}
0x948c…94a6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x005f, t01=0x0030}
0x94a6…94c6 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x005f, t01=0x004a}
0x94c6…94da Head {h00=0x0010, h01=0x0050, text=»TSTP10 EQU *«, t00=0x005f, t01=0x006a}
0x94da…94e6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005f, t01=0x007e}
0x94e6…94f6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x005f, t01=0x008a}
0x94f6…9512 Head {h00=0x0018, h01=0x0050, text=» LD A4,ECBRC,A8 . =6«, t00=0x005f, t01=0x009a}
0x9512…954c Head {h00=0x0036, h01=0x0050, text=» ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x005f, t01=0x00b6}
0x954c…956a Head {h00=0x001a, h01=0x0050, text=» RF(Z) TSTP20 NO! =31 «, t00=0x005f, t01=0x00f0}
0x956a…9594 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 YES. INDICATE ERROR =31 «, t00=0x005f, t01=0x010e}
0x9594…95ae Head {h00=0x0016, h01=0x0050, text=»TSTP20 EQU * . =31«, t00=0x005f, t01=0x0138}
0x95ae…95be Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005f, t01=0x0152}
0x95be…95dc Head {h00=0x001a, h01=0x0050, text=» LD A2,PRTID,A11 . =6 «, t00=0x005f, t01=0x0162}
0x95dc…95f0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005f, t01=0x0180}
0x95f0…9604 (96, 0, 400) Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0060, t01=0x0004}
0x9604…9616 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0060, t01=0x0018}
0x9616…962c Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x0060, t01=0x002a}
0x962c…9642 Head {h00=0x0012, h01=0x0050, text=» LDK A1,TSKTAB«, t00=0x0060, t01=0x0040}
0x9642…9654 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0060, t01=0x0056}
0x9654…9666 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0060, t01=0x0068}
0x9666…9676 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0060, t01=0x007a}
0x9676…96aa Head {h00=0x0030, h01=0x0050, text=» SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6«, t00=0x0060, t01=0x008a}
0x96aa…96ba Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0060, t01=0x00be}
0x96ba…96ca Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0060, t01=0x00ce}
0x96ca…96da Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0060, t01=0x00de}
0x96da…96ea Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0060, t01=0x00ee}
0x96ea…96fe Head {h00=0x0010, h01=0x0050, text=»TSTP90 EQU *«, t00=0x0060, t01=0x00fe}
0x96fe…970e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x0112}
0x970e…971c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x0122}
0x971c…9768 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0060, t01=0x0130}
0x9768…97b4 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0060, t01=0x017c}
0x97b4…9800 Head {h00=0x0048, h01=0x0050, text=»* GETTAB GET ORDER INDEX * «, t00=0x0061, t01=0x0038}
0x9800…984c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0061, t01=0x0084}
0x984c…9898 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0061, t01=0x00d0}
0x9898…98ac Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x0061, t01=0x011c}
0x98ac…98de Head {h00=0x002e, h01=0x0050, text=» LD A7,PRTORD NUMBER OF VALID ORDER CODES «, t00=0x0061, t01=0x0130}
0x98de…9908 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PRTORD+2 ORDERTABLE BASE «, t00=0x0061, t01=0x0162}
0x9908…991c Head {h00=0x0010, h01=0x0050, text=»GETT10 EQU *«, t00=0x0061, t01=0x018c}
0x991c…994c Head {h00=0x002c, h01=0x0050, text=» CCR A2,A1 CONVERT ORDER CODE TO ADDRESS«, t00=0x0062, t01=0x0010}
0x994c…9962 Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x0062, t01=0x0040}
0x9962…9978 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0062, t01=0x0056}
0x9978…998e Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x0062, t01=0x006c}
0x998e…99a0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0062, t01=0x0082}
0x99a0…99be Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ORDER FOUND?«, t00=0x0062, t01=0x0094}
0x99be…99de Head {h00=0x001c, h01=0x0050, text=» RF(Z) GETT30 NO INVALID«, t00=0x0062, t01=0x00b2}
0x99de…99fa Head {h00=0x0018, h01=0x0050, text=» RB GETT10 TRY AGAIN«, t00=0x0062, t01=0x00d2}
0x99fa…9a0e Head {h00=0x0010, h01=0x0050, text=»GETT20 EQU *«, t00=0x0062, t01=0x00ee}
0x9a0e…9a20 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0062, t01=0x0102}
0x9a20…9a3a Head {h00=0x0016, h01=0x0050, text=» LD A2,PRTTYP,A11 «, t00=0x0062, t01=0x0114}
0x9a3a…9a4c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0062, t01=0x012e}
0x9a4c…9a60 Head {h00=0x0010, h01=0x0050, text=»GETT30 EQU *«, t00=0x0062, t01=0x0140}
0x9a60…9a74 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x0062, t01=0x0154}
0x9a74…9a84 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x0168}
0x9a84…9a94 Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x0062, t01=0x0178}
0x9a94…9a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0188}
0x9a9e…9ac6 (99, 0, 400) Head {h00=0x0024, h01=0x0050, text=»* SELECTION OF PRINTER FILE CODE«, t00=0x0063, t01=0x0004}
0x9ac6…9af2 Head {h00=0x0028, h01=0x0050, text=»* FC=30, LP100, FC=80, LINE PRINTER «, t00=0x0063, t01=0x002c}
0x9af2…9afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0058}
0x9afc…9b12 Head {h00=0x0012, h01=0x0050, text=»SELPFC EQU * «, t00=0x0063, t01=0x0062}
0x9b12…9b32 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A11 GET TASK ID«, t00=0x0063, t01=0x0078}
0x9b32…9b4c Head {h00=0x0016, h01=0x0050, text=» LDR A2,A1 SAVE IT«, t00=0x0063, t01=0x0098}
0x9b4c…9b6e Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/FF00 MASK LETTER«, t00=0x0063, t01=0x00b2}
0x9b6e…9b8a Head {h00=0x0018, h01=0x0050, text=» CWK A1,/4C00 ='L'? «, t00=0x0063, t01=0x00d4}
0x9b8a…9ba4 Head {h00=0x0016, h01=0x0050, text=» RF(E) SELP05 YES.«, t00=0x0063, t01=0x00f0}
0x9ba4…9bc0 Head {h00=0x0018, h01=0x0050, text=» RF SELP90 NO, QUIT.«, t00=0x0063, t01=0x010a}
0x9bc0…9bd6 Head {h00=0x0012, h01=0x0050, text=»SELP05 EQU * «, t00=0x0063, t01=0x0126}
0x9bd6…9bf2 Head {h00=0x0018, h01=0x0050, text=» CWK A2,/4C31 ='L1'?«, t00=0x0063, t01=0x013c}
0x9bf2…9c10 Head {h00=0x001a, h01=0x0050, text=» RF(G) SELP90 NO, QUIT«, t00=0x0063, t01=0x0158}
0x9c10…9c3a Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBPRT,A11 GET PRINTER ECB «, t00=0x0063, t01=0x0176}
0x9c3a…9c62 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/80 OVER WRITE ORIG. FC «, t00=0x0064, t01=0x0010}
0x9c62…9c78 Head {h00=0x0012, h01=0x0050, text=» SC A1,+1,A2 «, t00=0x0064, t01=0x0038}
0x9c78…9c8e Head {h00=0x0012, h01=0x0050, text=»SELP90 EQU * «, t00=0x0064, t01=0x004e}
0x9c8e…9ca0 Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x0064, t01=0x0064}
0x9ca0…9ca8 Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0076}
0x9ca8…9cb4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0064, t01=0x007e}
0x9cb4…9cb8 Head {h00=0x4004, h01=0x0000}
0x9cb8…9cbc 00 64 00 8a ┆ d ┆
0x9cbc…9cc4 (101, 1, 8) 20 04 00 00 00 65 00 04 ┆ e ┆
0x9cc4…9e54 (102, 0, 400) 0x00[0x190]
0x9e54…9ea4 (103, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x9f94…9fe4 00 00 00 00 00 00 00 00 00 00 81 1c 87 42 00 0a 19 02 50 12 19 04 50 14 19 33 54 06 87 59 00 16 57 ac 8f 20 0f f0 17 00 88 20 99 d4 17 00 50 f4 f7 a1 13 3c 12 00 58 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 24 40 ┆ B P P 3T Y W P < X $@┆
0x9fe4…a034 (104, 0, 400) 92 20 00 28 81 28 87 12 37 01 12 04 19 04 5a 26 84 28 ef 50 00 08 5c 0e 82 10 81 48 00 02 52 86 81 48 00 1a e9 18 50 0a 27 01 50 74 e9 20 90 be 54 74 f7 a1 9a 18 27 01 50 f0 80 d8 00 04 01 00 81 c8 00 04 83 42 00 04 5d 60 eb 46 00 04 55 08 ┆ ( ( 7 Z& ( P H R H P ' Pt Tt ' P B ]` F U ┆
0xa034…a084 01 08 83 46 00 04 5d 6e 84 20 90 ba eb 50 ff fc 55 06 81 20 80 08 57 2e 83 43 00 06 83 47 00 06 83 48 00 0a 83 4c 00 02 83 43 00 0a 83 58 00 0a 83 4c 00 02 83 47 00 0a f7 a1 18 0c 86 08 83 42 00 02 83 47 00 02 8f 20 0f f4 a0 39 01 40 5f 0a ┆ F ]n P U W. C G H L C X L G B G 9 @_ ┆
0xa084…a0d4 e9 20 90 c0 58 74 07 00 83 58 00 16 58 14 52 12 81 18 04 14 94 18 83 41 99 80 f7 a1 9e 12 9a 00 00 00 82 59 00 1a 85 58 00 0a 81 54 00 05 1f 01 50 02 12 18 84 08 82 28 50 0a 85 48 00 0a e9 55 00 05 5e 10 82 39 86 31 8f 20 0f f8 82 58 00 18 ┆ Xt X X R A Y X T P (P H U ^ 9 1 X ┆
0xa0d4…a124 54 12 82 40 90 be 50 14 83 28 83 41 90 be f7 a1 9a 3e 5f ca 83 28 83 59 00 18 5f 0e 82 20 90 c0 07 01 5f 6c 82 58 00 18 54 18 82 40 90 c0 50 1a 83 28 83 41 90 c0 f7 a1 9a 3e b2 18 b6 08 b2 18 5f f8 83 28 83 59 00 18 5f 14 82 20 90 be 5f 30 ┆T @ P ( A >_ ( Y _ _l X T @ P ( A > _ ( Y _ _0┆
0xa124…a174 a0 69 00 00 82 04 f7 a1 9a 1c 86 08 5f b2 82 18 f7 a1 9a 18 01 00 5f c2 f7 a1 9a 40 81 48 00 1a e9 20 90 be 50 08 e9 20 90 c0 50 02 11 18 83 04 81 24 e9 08 5c 08 81 24 00 00 01 20 00 04 00 00 04 08 40 0b 00 00 04 22 81 02 28 02 08 44 48 00 ┆ i _ _ @ H P P $ $ @ " ( DH ┆
0xa174…a1c4 (105, 0, 400) 81 2d a0 29 57 10 a0 29 01 14 91 08 83 24 50 06 a0 65 00 00 a0 25 f0 3e 00 01 02 03 00 09 00 00 00 00 00 00 0c 00 00 00 10 11 12 13 00 0a 00 00 00 19 00 00 1c 1d 1e 1f 00 00 00 00 00 00 17 1b 00 00 00 00 00 05 00 00 00 00 16 00 00 00 00 04 ┆ - )W ) $P e % > ┆
0xa1c4…a214 00 00 00 00 14 15 00 1a 20 41 42 43 44 45 46 47 48 49 23 2e 3c 28 2b 21 26 4a 4b 4c 4d 4e 4f 50 51 52 24 5d 2a 29 3b 5e 2d 2f 53 54 55 56 57 58 59 5a 40 2c 25 5f 3e 3f 18 31 32 33 34 35 36 37 38 39 3a 5b 5c 27 3d 22 20 61 62 63 64 65 66 67 ┆ ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefg┆
0xa214…a264 68 69 5b 2e 3c 28 2b 21 26 6a 6b 6c 6d 6e 6f 70 71 72 5d 24 2a 29 3b 5e 2d 2f 73 74 75 76 77 78 79 7a 7c 2c 25 5f 3e 3f 30 31 32 33 34 35 36 37 38 39 3a 23 40 27 3d 22 20 41 42 43 44 45 46 47 48 49 5b 2e 3c 28 2b 21 26 4a 4b 4c 4d 4e 4f 50 ┆hi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOP┆
0xa264…a2b4 51 52 5d 24 2a 29 3b 5e 7f 2f 53 54 55 56 57 58 59 5a 7c 2c 25 5f 3e 3f 30 31 32 33 34 35 36 37 38 39 3a 23 40 27 3d ff 00 01 02 03 37 2d 00 00 00 05 15 00 0c 00 00 00 10 11 12 13 3c 3d 32 26 70 19 3f 27 1c 1d 1e 1f 40 4f 7f 4a 5a 6c 50 7d ┆QR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}┆
0xa2b4…a304 4d 5d 5c 4e 6b 60 4b 61 f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 7a 5e 4c 7e 6e 6f 6a c1 c2 c3 c4 c5 c6 c7 c8 c9 d1 d2 d3 d4 d5 d6 d7 d8 d9 e2 e3 e4 e5 e6 e7 e8 e9 7b 7c 5b 5f 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆M] Nk`Ka z^L~noj {|[_m ┆
0xa304…a354 (106, 0, 400) 00 81 82 83 84 85 86 87 88 89 91 92 93 94 95 96 97 98 99 a2 a3 a4 a5 a6 a7 a8 a9 1c 00 00 00 00 54 4f 53 53 9c c4 9c c4 9c c4 9c c4 9c c4 25 42 25 42 9c c4 9c c4 9c c4 9c c4 9c c4 9c c4 25 86 25 86 9c c4 9c c4 9c c4 9c c4 9c c4 9c c4 26 3e ┆ TOSS %B%B % % &>┆
0xa354…a3a4 26 3e 9c c4 9c c4 9c c4 9c c4 9c c4 9c c4 26 7c 26 7c 9c c4 0f f8 0f f8 0f f8 0f f8 0f f8 2b d2 2b d2 0f f8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e1 58 00 00 21 0f 39 01 e9 20 00 10 8a 44 9b d4 57 7e e1 58 00 00 21 0f 39 01 e9 20 ┆&> &|&| + + X ! 9 D W~ X ! 9 ┆
0xa3a4…a3f4 00 10 8a 44 9b e4 57 6c e1 58 00 00 21 0f 39 01 e9 20 00 10 8a 44 9b f4 57 5a e1 58 00 00 21 0f 39 01 e9 20 00 10 8a 44 9c 04 57 48 81 42 00 04 99 0c 55 0e 82 42 00 02 92 0c e2 28 22 ff 13 01 57 04 83 43 00 06 97 a0 00 02 28 40 80 3e 81 20 ┆ D Wl X ! 9 D WZ X ! 9 D WH B U B (" W C (@ > ┆
0xa3f4…a444 ff df a1 59 00 02 f0 3e 81 20 80 00 f7 a1 18 0c e1 58 00 00 21 0f 39 01 e9 20 00 10 8a 44 9c 14 8f 20 0f f8 01 01 57 0e f7 a1 9c f4 01 00 02 00 57 04 f7 a1 9c f4 28 40 15 04 81 04 8f 34 83 59 00 16 84 59 00 18 85 59 00 1a 87 59 00 24 80 d9 ┆ Y > X ! 9 D W W (@ 4 Y Y Y Y $ ┆
0xa444…a494 00 26 f0 3e 83 58 00 16 84 58 00 18 85 58 00 1a 87 58 00 24 80 d8 00 26 f0 3e bc 3f 80 98 81 0c f7 a1 9d 7a 17 01 1f 01 52 2a 86 02 81 0c f7 a1 9d a0 86 18 58 10 01 01 00 00 3f ff ff ff ff c0 00 40 20 10 08 00 00 01 01 44 20 00 00 00 40 80 ┆ & > X X X X $ & > ? z R* X ? @ D @ ┆
0xa494…a4e4 (107, 0, 400) a6 05 5c 16 81 58 00 02 82 04 a1 20 20 00 50 06 a2 20 00 20 58 28 f7 a1 9d 48 5f 2e 8f 20 0f f8 bc 3f 28 40 85 18 95 20 00 22 e7 58 00 07 27 3f 80 d8 00 04 81 58 00 08 81 44 00 06 8c 04 82 58 00 02 a2 20 80 00 54 06 80 82 88 20 0f f4 8f 20 ┆ X P X( H_. ?(@ " X '? X D X T ┆
0xa4e4…a534 0f f8 86 3f 81 04 50 18 3e 41 ee 44 ff fe 56 10 96 04 86 38 50 0a 87 58 ff fe 1f 02 3f 21 57 04 87 20 ff ff 86 3e f0 3e 3f 41 81 04 50 1a 3e 41 ee 44 ff fe 56 12 96 04 86 38 50 0c ef 58 ff fe 56 06 96 1c 86 38 57 02 06 00 3f 61 f0 3e 14 00 ┆ ? P >A D V 8P X ?!W > >?A P >A D V 8P X V 8W ?a > ┆
0xa534…a584 54 12 81 14 80 c1 9d d6 f7 a1 9e 10 9e 00 00 00 8f 20 0f f8 f7 a1 13 3c 12 00 88 20 10 e4 83 08 82 10 f7 a1 12 c0 81 10 80 c1 9d fa f7 a1 9e 10 9e 04 00 00 8f 20 10 ec 85 04 5f 08 84 04 f7 a1 12 e4 85 0c 8f 20 0f ea 04 00 20 bf bc 3f 86 10 ┆T < _ ? ┆
0xa584…a5d4 83 10 85 5e 00 14 82 34 15 02 80 b4 15 02 85 5f 00 14 f7 a1 12 c0 82 10 f9 02 f7 a1 12 c0 81 40 11 fa 81 31 84 41 11 fa 14 04 84 5f 00 0a 86 18 50 02 84 39 bc 3e f0 3e 27 0f 97 1c 97 14 82 02 22 3f 3a 42 e2 5d ff d8 8f 20 10 ec f7 a1 13 3c ┆ ^ 4 _ @ 1 A _ P 9 > >' "?:B ] <┆
0xa5d4…a624 12 00 50 18 b8 48 ff d8 b8 55 ff d8 5f 16 84 54 ff fa 83 1c 55 06 eb 50 ff fe 55 04 8f 20 10 e4 3b 43 93 10 e4 2c 24 08 5c 0e 84 20 02 00 80 82 54 04 ac 2d 5f 3e fc 10 00 09 00 00 02 80 00 00 00 00 16 52 25 90 90 00 22 90 00 05 00 01 00 00 ┆ P H U _ T U P U ;C ,$ T -_> R% " ┆
0xa624…a674 (108, 0, 400) a4 2d f7 a1 13 b8 5f 48 d3 22 52 66 f7 a1 12 fc 87 18 50 5e ed 58 00 0a 54 58 82 58 00 08 81 c8 00 02 e9 a0 00 01 50 4a 84 58 00 02 52 44 3c c2 56 18 86 58 00 30 83 58 00 08 83 4c 00 02 54 04 f7 a1 18 0c 1b 01 50 2a 86 1c 84 58 00 0c 50 04 ┆ - _H "Rf P^ X TX X PJ X RD< V X 0 X L T P* X P ┆
0xa674…a6c4 f7 a1 12 e4 80 d8 00 04 01 01 81 59 00 0c 39 e2 a9 43 00 08 85 20 00 22 95 18 81 86 8c 06 8f 20 0f f4 8f 20 10 e4 87 20 11 ac 03 06 86 3c 86 3f 1f 02 86 3c 86 3f 1f 02 86 3c 28 40 f7 a1 9f b6 84 02 24 01 50 1a 81 18 d4 42 00 01 24 ff 39 48 ┆ Y 9 C " < ? < ? <(@ $ P B $ 9H┆
0xa6c4…a714 a9 10 d1 43 00 01 d4 22 3e 68 a4 20 ff 00 ae 10 d6 23 1b 02 50 08 90 a0 00 02 86 3e 5f 32 1f 02 86 3c 86 55 00 18 a0 3d 8f 20 10 ec 87 20 11 ac 03 06 28 40 d6 22 84 02 24 01 50 0a d4 42 00 01 3e 48 3c 68 ae 10 f7 a1 9f cc 1b 02 50 08 90 a0 ┆ C ">h # P >_2 < U = (@ " $ P B >H<h P ┆
0xa714…a764 00 02 86 3f 5f 22 20 bf 86 3d 1f 02 86 3e 86 3d 1f 02 86 3e 86 3d 1f 02 5f 44 81 1c 87 20 11 a4 11 00 58 9a 5f 46 04 00 1e 0a 52 06 94 20 01 00 5f 0a 16 0a 96 10 ae 20 30 30 f0 3e 84 18 26 0f 3c 68 24 0f 50 06 16 0a 1c 01 5c 06 f0 3e 9f e8 ┆ ?_" = > = > = _D X _F R _ 00 > & <h$ P > ┆
0xa764…a7b4 9f f8 9f e8 9f f8 00 00 a0 08 a0 18 a0 28 a0 38 a0 48 a0 58 a0 68 00 00 a0 78 a0 88 a0 98 a0 a8 a0 b8 a0 c8 a0 d8 00 00 ba b1 b2 b3 b4 b5 b6 b7 b8 b9 b0 a2 84 89 88 a0 21 00 00 00 40 40 00 a8 01 00 00 00 05 00 08 00 01 00 00 01 ef ef e0 00 ┆ ( 8 H X h x ! @@ ┆