|
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: 39618 (0x9ac2)
Notes: pts_type(SC)
Names: »XPRINT.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »KJELL/XPRINT.SC«
IDENT PRINT REL 11.1 82-07-06 870150541110 =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 X:D 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 0 BASIC WRITE ON PRINTER =24 SCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 LMARG EQU 0 LEFT MARGIN FOR PRINTER =25 EJECT ******************************************************************* * * * DECLARATIONS OF DATA AND EQUATES * * ******************************************************************* * * TABLE OF PRINTER TYPES * PRTTAB EQU * DATA /0004 NUMBER OF PRINTERTYPES DATA 'TT',0 GTP DATA 'LL',2 LINE PRINTER DATA 'GG',4 GP 74 DATA 'CC',6 COPY 80 * * DEFAULT VALUES FOR DIFF. PRINTERS * BYTE1= NUMBER OF LINES/PAGE * BYTE2= NUMBER OF CHAR./LINE * PRTLEN DATA /2382 GTP DATA /2382 LP DATA /2382 GP 74 DATA /2382 COPY 80 IFF LMARG=0 . =25 LMARGT EQU * NO. OF POSITIONS IN LEFT MARGIN =25 DATA 0 GTP =25 DATA 0 LP =25 DATA 3 GP74 =25 DATA 0 COPY80 =25 XIF . =25 * =24 IFF BASWRI=1 . =36 PRBFL EQU 132 PRINTER BUFFER LENGTH =24 =BUFL-2 (IN DATXXX) =24 XIF . =36 IFT BASWRI=1 . =36 PRBFL EQU 256 PRINTER BUFFER LENGTH =36 =BUFL IN DATXXX =36 XIF . =36 * * LINE LENGTHS FROM WCC * LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * PRINTER MODES * LOCAL EQU 0 LOCAL MODE SHARED EQU 2 SHARED MODE * * PRINTER STATUS IN PRTMOD * PRTERR EQU /4000 PRINTER ERROR * * COPY INTERNAL STATUS IN A10 * NXTCHA EQU /8000 GET NEXT CHAR. ENDPRT EQU /4000 END PRINTING NTONLY EQU /2000 NOT ONLY SPACES CRREC EQU /1000 CR RECEIVED FFCCH EQU /0800 FF CCH IND. =36 * * RELATIVE POS. IN ECB-BLOCK * IC EQU 2 INTERTASK * * SCREEN SIZE * LBVDU EQU 1920 * * RECEIVE STATUS * LICREC EQU /2000 . =1 EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * BVDU EQU 2 SCREEN BUFFER WCC EQU BVDU+1950 WCC LINCNT EQU WCC+4 LINE COUNTER DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER PRTID EQU DCLENG+6 PRINTER TASKID PRTTYP EQU PRTID+2 PRINTER TYPE MAIN EQU PRTTYP+4 WHAT DC LINE ECBBLK EQU MAIN+6 ECB BLOCK BUFPNT EQU ECBBLK+14 BUFFER POINTER REGI EQU BUFPNT+2 SAVE AREA PRTMOD EQU REGI+32 PRINTER MODE ECBPRT EQU PRTMOD+4 PRINTER ECB ECBICR EQU ECBPRT+6 INTERTASK READ ECB ECBICW EQU ECBICR+2 INTERTASK WRITE ECB ECBDC EQU ECBICW+2 ECB DC ECBDC1 EQU ECBDC ECB DC LINE 1 ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 IFF SNA=1 . =24 PRCCCT EQU ECBDC2+2 CHARACTER COUNTER =24 XIF . =24 IFT SNA=1 . =24 PRCCCT EQU ECBDC+14 CHARACTER COUNTER =24 XIF . =24 PRBA EQU PRCCCT+2 PRINTER BUFFER ADDRESS =24 PRLMAR EQU PRBA+2 NO. OF POS IN LEFT MARGIN =25 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 26 DEVICE TABLE =17 XIF IFT TEST=1 TSKTAB EQU 221 . =17 XIF EJECT ******************************************************************* * * * PRINT MAIN ROUTINE PRINTER * * * ******************************************************************* PRINT EQU * CF A14,INIT INIT ROUTINE IFF SNA=1 . =15 CF A14,TSTPRT TEST HARDWARE =7 XIF . =15 IFT SNA=1 CF A14,OPINIT OPEN CONNECTION INITIATE RF(N) PRI100 DC NOT PRESENT CF A14,OPSYS OPEN SYSTEM XIF IFF SNA=1 CF A14,OPEN OPEN RF(N) PRI100 NO DC INVOLVED LDKL A8,20 LKM DATA 6 CF A14,CONCT CONNECT PASSIVE IFT NBRLIN=2 . =17 LDK A1,1 CONNECT FOR SECOND LINE =17 XRS A1,MAIN,A11 . =17 CF A14,CONCT . =17 LDK A1,1 . =17 XRS A1,MAIN,A11 INDICATE FIRST LINE AGAIN =17 XIF . =17 IFF SNA=1 . =17 CF A14,SETTYM SET REQUEST TIMEOUT =18 XIF LDK A1,SHARED ALWAYS SHARED IN BSC ST A1,PRTMOD,A11 PRI100 EQU * CF A14,TSTPRT TEST HARDWARE PRI200 EQU * CF A14,IOACT ACTIVATE IN CURRENT MODE LDKL A7,ECBBLK ADR A7,A11 LKM DATA 7 MULTIPLE WAIT CF A14,IOCPL COMPLET IN CURRENT MODE LD A1,PRTMOD,A11 ANKL A1,PRTERR PRINTER ERROR? RB(Z) PRI200 NO XRS A1,PRTMOD,A11 RB PRI100 TRY TO FIX IT EJECT ********************************************************************* * * * IOACT ACTIVATE IN CURRENT MODE * * ********************************************************************* IOACT EQU * LDK A4,0 LD A1,PRTMOD,A11 SHARED OR LOCAL? RF(Z) IOAC20 LOCAL ADK A4,1 ADD NUMBER OF WAITS LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY? RF(NZ) IOAC10 YES CM MAIN,A11 INDICATE LINE 1 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+4,A11 IOAC10 EQU * IFT NBRLIN=2 ADK A4,1 ADD MORE WAITS LD A2,ECBBLK+6,A11 ALREADY? RF(NZ) IOAC20 YES IM MAIN,A11 INDICATE LINE 2 CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+6,A11 XIF IOAC20 EQU * ADK A4,1 LD A2,ECBBLK+2,A11 ALREADY? RF(NZ) IOAC30 YES CF A14,ICPRED READ INTERTASK ST A8,ECBBLK+2,A11 IOAC30 EQU * ST A4,ECBBLK,A11 NUMBER OF WAITS RTN A14 EJECT ********************************************************************* * * * IOCPL COMPLETE IN CURRENT MODE * * ********************************************************************* IOCPL EQU * CW A8,ECBBLK+2,A11 INTERTASK? RF(NE) IOCP10 NO CM ECBBLK+2,A11 CF A14,ICPINP MAKE HARDCOPY RF IOCP90 IOCP10 EQU * CW A8,ECBBLK+4,A11 DC LINE 1? IFT NBRLIN=2 RF(NE) IOCP20 NO XIF IFF NBRLIN=2 RF(NE) IOCP90 NO FORGET IT XIF CM ECBBLK+4,A11 CM MAIN,A11 INDICATE LINE 1 RF IOCP30 IFT NBRLIN=2 IOCP20 EQU * CW A8,ECBBLK+6,A11 DC LINE 2? RF(NE) IOCP90 NO CM ECBBLK+6,A11 IM MAIN,A11 INDICATE LINE 2 XIF IOCP30 EQU * CF A14,DCPINP TAKE CARE OF DC IOCP90 EQU * RTN A14 EJECT *************************************************************** * * * DCPINP DC PRINTER INPUT * * * *************************************************************** DCPINP EQU * CF A14,ICABOR ABORT LOCAL HARD COPY LDR A7,A7 ALREADY COMPLETED? RF(Z) DCP100 NO CF A14,ICPINP TAKE CARE OF THAT FIRST DCP100 EQU * LD A8,ECBDC,A11 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 1 RF(Z) DCP150 YES LD A8,ECBDC2,A11 DCP150 EQU * XIF IFT SNA=1 LD A1,ECBRC,A8 OK? ANKL A1,/701 OK? RF(NZ) DCP500 NO STOP IT XIF CF A14,GETBUF GET BUFFER LDR A3,A8 CF A14,READW READ FIRST BUFFER ANK A1,3 ERROR? RF(NZ) DCP400 NO LDR A8,A12 CF A14,RELBUF RELEASE BUFFER RF DCP500 DCP400 EQU * SUR A10,A10 RESET INTERNAL UNPACK STATUS IFT SNA=1 . =1 ANK A1,2 . =1 RF(Z) DCP450 . =1 ORKL A10,LICREC . =1 DCP450 EQU * . =1 XIF . =1 LD A1,ECBEL,A8 ST A1,DCLENG,A11 SAVE LENGTH ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS IFT SNA=1 CF A14,GETBUF GET ANOTHER BUFFER LDR A3,A8 CF A14,READNW READ WITH NO WAIT XIF CF A14,UNPACK UPDATE SCREEN BUFFER DCP500 EQU * IFF SNA=1 LDK A1,0 CF A14,SETSTA SET DEVICE END XIF RTN A14 EJECT **************************************************************** * * * ICPINP INTERTASK INPUT * * * **************************************************************** ICPINP EQU * CF A14,COPP MAKE HARDCOPP ST A1,REGI,A11 RETURN CODE TO TERMINAL CF A14,ICPWRT WRITE INTERTASK RTN A14 EJECT ****************************************************************** * * * ICPRED INTERTASK READ * * * ****************************************************************** ICPRED EQU * LD A8,ECBICR,A11 CF A14,ICSET SET NO TIMEOUT LDK A1,0 NOT ADDRESSED READ LDKL A3,BVDU ADR A3,A11 LDKL A2,LBVDU+/20 CF A14,ICREAD READ INTERTASK RTN A14 EJECT ******************************************************************** * * * ICPWRT WRITE INTERTASK * * * ******************************************************************** ICPWRT EQU * LD A8,ECBICW,A11 CF A14,ICSET SET NO TIMEOUT LD A1,ECBICR,A11 LD A1,ECBCW,A1 GET TASKID RF(Z) ICPW90 NOT THERE LDKL A3,REGI RETURN CODE ADR A3,A11 LDK A2,2 LENGTH CF A14,ICWRT WRITE INTERTASK ICPW90 EQU * RTN A14 EJECT ************************************************************* * * * ICABOR INTERTASK ABORT * * * ************************************************************* ICABOR EQU * LDK A7,0 CM ECBBLK+IC,A11 LD A8,ECBICR,A11 LKM DATA 10 RTN A14 EJECT ********************************************************************* * * * COPP COPY SCREEN BUFFER TO PRINTER * * * ********************************************************************* * REGISTERS * * A2= CHAR. * A3= SCREEN BUFFER POINTER * A4= REL. SCREEN BUFFER ADDRESS * A5= LINE LENGTH * A6= CURRENT ATTRIBUTE * A8= ECB BUFFER POINTER * A9= ECB BUFFER INDEX * A10= INTERNAL STATUS * A11= TASK BLOCK BASE * A13= ECB BASE * ********************************************************************* COPP EQU * . =2 LD A8,ECBPRT,A11 CM ECBRL,A8 RESET PRINT LENGTH =3 LDK A1,0 LDK A6,0 RESET ATTRIBUTE CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS CM LINCNT,A11 RESET LINE COUNTER LD A1,WCC,A11 ANK A1,/38 MASK RELEVANT LDR A5,A1 ANK A1,8 START PRINT? ABL(Z) COP950 NO FORGET IT =19 SRL A5,4 LC A5,LINLEN,A5 GET LINE LENGTH LDR A5,A5 NL,EM AND CR DET. LENGTH? RF(NZ) COP100 NO LD A1,PRTTYP,A11 GET MAX LINE LENGTH LC A5,PRTLEN+1,A1 COP100 EQU * LDKL A3,BVDU ADR A3,A11 IFT BASWRI=1 . =24 LDR A1,A8 . =24 LD A8,PRBA,A11 PRINTER BUFFER ADDRESS =24 ST A8,ECBBA,A1 STORE IN ECB =24 AD A8,PRLMAR,A11 ALLOW LEFT MARG/CR =25 CM PRCCCT,A11 CLEAR BUFFER CHARACTER COUNTER =36 XIF . =24 IFF BASWRI=1 . =24 LD A8,ECBBA,A8 CMR A8 RESET CONTROL CHAR. ADKL A8,2 XIF . =24 SUR A9,A9 LDK A2,0 LDK A4,0 SUR A10,A10 RESET STATUS COP200 EQU * CWK A4,LBVDU ALL PRINTED? RF(NL) COP850 YES CWR A9,A5 LINE FULL? RF(L) COP400 NO CF A14,PRLINE PRINT LINE LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES COP400 EQU * LCR A2,A3 GET CHAR. ANK A2,/FF RF(Z) COP650 NULL CHAR. CCK A2,/8000 ATTRIBUTE? RF(L) COP500 NO LDR A6,A2 GET NEW ATTRIBUTE RF COP650 COP500 EQU * CCK A2,/2020 ORDER? RF(L) COP550 YES ANKL A10,/FFFF-CRREC RESET CR RCV =3 RF COP600 COP550 EQU * CF A14,GETTAB GET ORDERINDEX CFR A14,A1 TAKE CARE OF ORDER LDR A1,A1 PRINTER ERROR? RF(NZ) COP900 YES LDR A1,A10 GET STATUS RF(N) COP800 GET NEXT CHAR. SLL A1,1 RF(N) COP850 END COP600 EQU * LDR A1,A6 CHECK IF NONPRINT ANK A1,/C XRK A1,/C RF(Z) COP650 NONPRINT ORKL A10,NTONLY INIDICATE NOT ONLY NOT RF COP700 COP650 EQU * LDK A2,/20 REPLACE WITH SPACE COP700 EQU * IFF TRANAT=0 . =4 LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4 XIF . =4 SCR A2,A8 ADKL A9,1 ADKL A8,1 CCK A2,/2020 SPACE? =3 RF(E) COP800 YES, DON'T UPDATE LENGTH =3 LD A1,ECBPRT,A11 GET ECB =3 ST A9,ECBRL,A1 UPDATE LAST POS. NOT SPACE =3 COP800 EQU * ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3 ADK A3,1 ADK A4,1 RB COP200 COP850 EQU * IFF BASWRI=1 . =24 LDR A9,A9 SOMETHING LEFT TO PRINT? RF(Z) COP950 NO! =19 CF A14,PRLINE PRINT LAST LINE ANKL A10,ENDPRT END MESS.? RF(Z) COP900 NO STOP IT ORKL A10,NTONLY INDICATE PRINTABLE CF A14,PRLINE EXTRA LINE FEED XIF . =24 IFT BASWRI=1 . =24 LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 RF(Z) COP860 NO! =24 CF A14,PRLINE PRINT TEXT =24 COP860 EQU * . =24 IFF SCS=1 . =26 ANKL A10,ENDPRT END MESS.? =24 RF(Z) COP870 NO! =24 ORKL A10,NTONLY INDICATE PRINTABLE =24 CF A14,PRLINE EXTRA LINEFEED =24 XIF . =26 IFT BASWRI=1 . =26 COP870 EQU * . =24 CF A14,PRCCH CONTROL CH:S TO PRINTER =24 XIF . =24 COP900 EQU * LDR A1,A1 PRINTER FAILED? RF(Z) COP950 NO LD A2,WCC,A11 . =32 CWK A2,/38 LOCAL HARDCOPY? =32 RF(E) COP910 YES. SKIP PRINTING =32 CF A14,TSTPRT WAIT UNTIL PRINTER OPERABLE =32 ABL COPP RESUME PRINTING =34 COP910 EQU * . =32 LDKL A2,PRTERR INDICATE ERROR ORS A2,PRTMOD,A11 COP950 EQU * RTN A14 EJECT ************************************************************************ * * TABLE FOR PRINTERORDERS * ************************************************************************ PRTORD EQU * DATA /0004 NUMBER OF ORDER CODES DATA /0A0A,NL,NL,NL,NL NEW LINE DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED DATA /0D0D,CR,CR,CR,CR CARR. RETURN DATA /1919,EM,EM,EM,EM END MESSAGE DATA INVAL INVALID ORDER CODE EJECT **************************************************************************** * * * NL NEW LINE * * * **************************************************************************** NL EQU * CF A14,PRLINE PRINT LINE AFTER NEW LINE ORKL A10,NXTCHA+NTONLY GET NEXT CHAR. RTN A14 EJECT ********************************************************************** * * * FFDUM SIMULATED FORM FEED * * * ********************************************************************** FFDUM EQU * CF A14,FFCHK CHECK IF FORM FEED IS VALID LDR A1,A1 VALID? RF(NZ) FFD400 NO LDK A7,0 RESET LD A1,PRTTYP,A11 TYPE OF PRINTER LC A7,PRTLEN,A1 PAGE SIZE FFD100 EQU * CW A7,LINCNT,A11 NEW PAGE? RF(L) FFD200 YES BUT TO MANY RF(E) FFD300 YES FINISHED ORKL A10,NTONLY ST A7,REGI,A11 SAVE CF A14,PRLINE ADVANCE ONE LINE LD A7,REGI,A11 RESTORE LDR A1,A1 PRINTER ERROR? RF(NZ) FFD500 YES RB FFD100 FFD200 EQU * NGR A1,A7 ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE RB FFD100 FFD300 EQU * CM LINCNT,A11 TOP OF PAGE LDK A2,/20 REPLACE FF WITH SPACE FFD400 EQU * LDK A1,0 RETURN CODE FFD500 EQU * RTN A14 EJECT ********************************************************************* * * * FFVAL FORM FEED * * * ********************************************************************* FFVAL EQU * CF A14,FFCHK CHECK IF FF VALID LDR A1,A1 VALID? RF(NZ) FFV200 NO . =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 LDK A2,/20 REPLACE FF WITH SPACE CM LINCNT,A11 TOP OF PAGE FFV200 EQU * LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************** * * * CR CARRIAGE RETURN * * * ********************************************************************** CR EQU * LDR A1,A6 GET ATTRIBUTE ANK A1,/C XRK A1,/C NONPRINT FIELD? RF(Z) CR100 YES LD A1,WCC,A11 ANK A1,/30 FORMATTED? RF(NZ) CR100 NO ORKL A10,NTONLY+CRREC CR RECEIVED CR100 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************* * * * EM END MESSAGE * * * ******************************************************************** EM EQU * ORKL A10,ENDPRT END PRINTING LDK A1,0 RETURN CODE RTN A14 EJECT ****************************************************************** * * * INVAL INVALID PRINTER ORDER * * * ****************************************************************** * * ALSO HANDLING: * DUP & FM CHARACTERS * INVAL EQU * LDR A1,A2 SAVE CHAR =37 CF A14,RFMDUP REPLACE IF DUP OR FM =37 SUR A1,A2 REPLACED? =37 RF(NZ) INVA10 YES! =37 NO! I.E. INVALID ORDER =37 LDK A2,/20 REPLACE WITH SPACE INVA10 EQU * . =37 ORKL A10,NTONLY NOT ONLY LDK A1,0 RETURN CODE RTN A14 EJECT ***************************************************************** * * * FFCHK CHECK IF FF IS VALID * * * ***************************************************************** FFCHK EQU * LD A1,WCC,A11 ANK A1,/30 XRK A1,/30 FORMATTED? RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY LD A1,WCC,A11 ANK A1,/40 LOCAL HARD COPY? RF(Z) FFCH20 YES, FF NOT ALLOWED FFCH10 EQU * LDR A9,A9 FF ALLOWED RF(Z) FFCH30 NOT LDR A1,A10 ANKL A1,CRREC CR RECEIVED? RF(NZ) FFCH30 YES FFCH20 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,1 RETURN CODE RF FFCH40 FFCH30 EQU * ANKL A10,/FFFF-CRREC RESET CR RCV =3 LDR A9,A9 EMPTY LINE RF(Z) FFCH35 YES CF A14,PRLINE PRINT LINE FFCH35 EQU * LDK A1,0 RETURN CODE FFCH40 EQU * ORKL A10,NTONLY NOT ONLY RTN A14 EJECT **************************************************************** * * * PRLINE PRINT LINE * * * **************************************************************** PRLINE EQU * LD A8,ECBPRT,A11 LDR A1,A10 ANKL A1,NTONLY ONLY RUBB.? RF(NZ) PRL050 NO LD A1,WCC,A11 LDR A2,A1 ANK A1,/30 XRK A1,/30 HRADCOPY? RF(NZ) PRL200 NO ANK A2,/40 HARDCOPY????? RF(NZ) PRL200 NO PRL050 EQU * ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 IFF BASWRI=1 . =24 LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 ADS A9,ECBRL,A8 . =3 LDK A7,/06 PRINT LKM DATA 1 XIF . =24 IFT BASWRI=1 . =24 LD A1,ECBRL,A8 TEXT TO PRINT? =24 RF(Z) PRL070 NO! JUST CONTROL CH =24 EJECT HANDLING A TEXT LINE =36 PREPARE LINE. FIRST LEFT MARGIN =36 IFF LMARG=0 . =36 LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 LD A1,PRLMAR,A11 . =36 AD A1,ECBBA,A8 . =36 SUK A1,1 . =36 PRL055 EQU * . =36 SCR A7,A1 . =36 SUK A1,1 . =36 CW A1,ECBBA,A8 FINISHED? =36 RB(G) PRL055 NO! =36 XIF . =36 IFT BASWRI=1 . =36 . =36 LDK A7,/0D CR CCH =36 SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 IM LINCNT,A11 ANOTHER LINE =24 LDK A1,/0A LF CCH =24 LD A7,ECBRL,A8 . =24 AD A7,ECBBA,A8 . =24 AD A7,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25 SCR A1,A7 LF CCH LAST IN BUF =25 . =35 CALCULATE LINE LENGTH =36 LDK A1,1 ALLOW FOR LF =36 AD A1,ECBRL,A8 ALLOW FOR TEXT =36 AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36 ADS A1,ECBBA,A8 UPDATE POINTER TO BUFFER =36 EJECT . =36 PRL060 EQU * ENOUGH SPACE FOR ANOTHER LINE? =36 LDKL A1,PRBFL BUFFER LENGTH =36 SU A1,PRCCCT,A11 USED PART OF BUFFER =36 SUR A1,A5 MAX. LINE LENGTH =36 SU A1,PRLMAR,A11 LEFT MARGIN =36 RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 . =36 PRL065 EQU * PRINT BUFFER =36 LD A1,PRCCCT,A11 . =36 ST A1,ECBRL,A8 REQ. LENGTH =36 LD A1,PRBA,A11 . =36 ST A1,ECBBA,A8 BUFFER ADDRESS =36 LDK A7,/05 BASIC WRITE =24 LKM . =24 DATA 1 . =24 CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24 RF PRL090 . =24 EJECT HANDLING A CONTROL CHARACTER =36 PRL070 EQU * STORE CCH IN BUFFER =24 IM LINCNT,A11 ANOTHER LINE =24 LDK A7,/0A LF CCH =24 LDR A1,A10 . =36 ANKL A1,FFCCH FORM FEED? =36 RF(Z) PRL075 NO =36 LDK A7,/0C YES. FF CCH =36 ANKL A10,/FFFF-FFCCH RESET FF IND. =36 PRL075 EQU * . =36 SC* A7,ECBBA,A8 CCH TO BUFFER =36 IM ECBBA,A8 STEP BUFFER ADDRESS =36 IM PRCCCT,A11 STEP NO. OF CH:S IN BUFFER =36 ADKL A8,1 STEP BUFFER POINTER =36 RB PRL060 CHECK IF END OF BUFFER =36 EJECT . =36 PRL090 EQU * . =24 XIF . =24 LDK A1,50 NUMBER OF DELAYS PRL100 EQU * LDKL A8,1 WAIT FOR A WHILE LKM DATA 6 LD A8,ECBPRT,A11 LDR* A2,A8 PRINT COMPL.? RF(N) PRL150 YES SUK A1,1 MORE TO WAIT FOR? RB(NZ) PRL100 YES LKM DATA 10 ABORT . =27 LDK A1,1 INDICATE ERROR =27 RF PRL300 PRL150 EQU * LKM DATA 2 RESYNCHRONIZE IFF BASWRI=1 . =24 IM LINCNT,A11 ANOTHER LINE CM ECBRL,A8 RESET PRINT LENGTH =3 XIF . =36 LD A1,ECBRC,A8 OK? ANKL A1,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 RF(NZ) PRL300 YES! =23 PRL200 EQU * IFT BASWRI=1 . =24 CM ECBRL,A8 RESET PRINT LENGTH =36 LD A8,ECBBA,A8 SET BUFFER POINTER =36 AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25 XIF . =24 IFF BASWRI=1 . =24 LD A8,ECBBA,A8 GET BUFFER ADDRESS CMR A8 RESET CONTROL CHAR. XIF . =24 SUR A9,A9 IFF BASWRI=1 . =24 ADKL A8,2 XIF . =24 LDK A1,0 RETURN CODE RF PRL900 . =6 PRL300 EQU * LD A2,PRTID,A11 GET PRINTER TASKID =6 ANK A2,/FF . =6 SUK A2,/30 . =6 SLL A2,2 . =6 LD A3,+6,A13 COMMON BLOCK BASE =6 ADK A3,TSKTAB . =6 ADR A3,A2 . =6 SC A1,+3,A3 SET PRINTER STATUS =6 PRL900 EQU * . =6 RTN A14 IFT BASWRI=1 . =24 EJECT . =24 ************************************************************************ * * PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER * ************************************************************************ * PRCCH EQU * . =24 LD A1,PRCCCT,A11 ANYTHING TO SEND? =24 RB(Z) PRL900 NO! RETURN =24 LD A8,ECBPRT,A11 ECB ADDRESS =24 RB PRL065 SEND CH:S TO PRINTER =36 XIF . =24 EJECT ******************************************************************* * * * INIT INIT ROUTINE * * * ******************************************************************* INIT EQU * CF A14,COMINI COMMON INIT CF A14,ECBINI INIT OF ECB:S LCR A2,A1 SLL A2,8 LC A2,+1,A1 ST A2,PRTID,A11 SAVE WHOLE TASKID LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX LD A7,PRTTAB NUMBER OF TYPES LDKL A1,PRTTAB+2 START OF PRINTER TABLE INI100 EQU * CCR A2,A1 CONVERT TYPE TO INDEX RF(E) INI200 ADK A1,4 SUK A7,1 ILLEGAL ID? RB(NZ) INI100 NO LDKL A1,* ST A1,REGI,A11 LKM DATA 3 FORGET IT INI200 EQU * LD A1,+2,A1 ST A1,PRTTYP,A11 SAVE PRINTER TYPE IFT BASWRI=1 . =24 LD A2,ECBPRT,A11 PRINTER ECB ADDRESS =24 LD A2,ECBBA,A2 PRINTER BUFFER ADDRESS =24 ST A2,PRBA,A11 SAVE IT IN WORK AREA =24 LDK A2,1 . =25 ST A2,PRLMAR,A11 ALLOW FOR CR =25 IFF LMARG=0 LEFT MARGIN FOR PRINTER =25 LD A1,LMARGT,A1 . =25 ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25 XIF . =24 RTN A14 EJECT ***************************************************************** * * * TSTPRT TEST HARDWARE * * * ***************************************************************** TSTPRT EQU * . =6 LD A8,ECBPRT,A11 LDK A7,/80 TEST STATUS TSTP10 EQU * LKM DATA 1 LD A4,ECBRC,A8 . =6 ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 RF(Z) TSTP20 NO! =31 LDK A4,1 YES. INDICATE ERROR =31 TSTP20 EQU * . =31 . =6 LD A2,PRTID,A11 . =6 ANK A2,/FF SUK A2,/30 SLL A2,2 LD A3,+6,A13 LDK A1,TSKTAB ADR A3,A1 ADR A3,A2 . =6 SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6 ANK A4,1 OPERABLE? =6 RF(Z) TSTP90 YES! =6 LDR A1,A8 LDKL A8,100 LKM DATA 6 LDR A8,A1 . =6 RB TSTP10 . =6 . =6 . =6 . =6 TSTP90 EQU * RTN A14 EJECT ******************************************************************* * * * GETTAB GET ORDER INDEX * * * ******************************************************************* GETTAB EQU * LD A7,PRTORD NUMBER OF VALID ORDER CODES LDKL A1,PRTORD+2 ORDERTABLE BASE GETT10 EQU * CCR A2,A1 CONVERT ORDER CODE TO ADDRESS RF(E) GETT20 AD A1,PRTTAB AD A1,PRTTAB ADK A1,2 SUK A7,1 ORDER FOUND? RF(Z) GETT30 NO INVALID RB GETT10 TRY AGAIN GETT20 EQU * ADK A1,2 LD A2,PRTTYP,A11 ADR A1,A2 GETT30 EQU * LDR* A1,A1 RTN A14 END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT PRINT REL 11.1 82-07-06 870150541110 «, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0064 Head {h00=0x0024, h01=0x0050, text=» =37 DUP OR FM CHAR ON PRINTER«, t00=0x0000, t01=0x0040}
0x0064…0086 Head {h00=0x001e, h01=0x0050, text=» =36 IMPROVEMENT OF =24 «, t00=0x0000, t01=0x0068}
0x0086…009a Head {h00=0x0010, h01=0x0050, text=» 82-06-28 «, t00=0x0000, t01=0x008a}
0x009a…00bc Head {h00=0x001e, h01=0x0050, text=» =35 IMPROVEMENT OF =24 «, t00=0x0000, t01=0x009e}
0x00bc…00f0 Head {h00=0x0030, h01=0x0050, text=» =32 MISSING PRINTING AFTER PRINTER ERROR «, t00=0x0000, t01=0x00c0}
0x00f0…0118 Head {h00=0x0024, h01=0x0050, text=» =31 PAPER OUT ON COPY80 (SUM)«, t00=0x0000, t01=0x00f4}
0x0118…012c Head {h00=0x0010, h01=0x0050, text=» 82-06-21 «, t00=0x0000, t01=0x011c}
0x012c…014c Head {h00=0x001c, h01=0x0050, text=» =30 IMPROVEMENT OF =5«, t00=0x0000, t01=0x0130}
0x014c…0176 Head {h00=0x0026, h01=0x0050, text=» =27 NO STATUS CHECK AFTER ABORT«, t00=0x0000, t01=0x0150}
0x0176…0198 Head {h00=0x001e, h01=0x0050, text=» =26 LONG SNA CH STRING «, t00=0x0000, t01=0x017a}
0x0198…01be Head {h00=0x0022, h01=0x0050, text=» =25 LEFT MARGIN FOR PRINTER«, t00=0x0001, t01=0x000c}
0x01be…01d2 Head {h00=0x0010, h01=0x0050, text=» 82-05-12 «, t00=0x0001, t01=0x0032}
0x01d2…01f8 Head {h00=0x0022, h01=0x0050, text=» =24 BASIC WRITE ON PRINTER «, t00=0x0001, t01=0x0046}
0x01f8…020c Head {h00=0x0010, h01=0x0050, text=» 82-04-28 «, t00=0x0001, t01=0x006c}
0x020c…022e Head {h00=0x001e, h01=0x0050, text=» =23 PRINTER RETURN CODE«, t00=0x0001, t01=0x0080}
0x022e…0256 Head {h00=0x0024, h01=0x0050, text=» =19 ERRONEOUS PRINTER STATUS «, t00=0x0001, t01=0x00a2}
0x0256…027a Head {h00=0x0020, h01=0x0050, text=» =18 DOUBLE SETTIM ENTRIES«, t00=0x0001, t01=0x00ca}
0x027a…0296 Head {h00=0x0018, h01=0x0050, text=» =17 TWO DC LINES «, t00=0x0001, t01=0x00ee}
0x0296…02aa Head {h00=0x0010, h01=0x0050, text=» 82-04-16 «, t00=0x0001, t01=0x010a}
0x02aa…02d2 Head {h00=0x0024, h01=0x0050, text=» =15 CORRECTION OF =7 FOR SNA «, t00=0x0001, t01=0x011e}
0x02d2…02e6 Head {h00=0x0010, h01=0x0050, text=» 82-02-12 «, t00=0x0001, t01=0x0146}
0x02e6…0310 Head {h00=0x0026, h01=0x0050, text=» =7 TEST PRINTER BEFORE CONNECT «, t00=0x0001, t01=0x015a}
0x0310…0330 Head {h00=0x001c, h01=0x0050, text=» =6 SET PRINTER STATUS«, t00=0x0001, t01=0x0184}
0x0330…0356 Head {h00=0x0022, h01=0x0050, text=» =5 DIFFERENT FF CH FOR GP74«, t00=0x0002, t01=0x0014}
0x0356…036a Head {h00=0x0010, h01=0x0050, text=» 82-01-26 «, t00=0x0002, t01=0x003a}
0x036a…0386 Head {h00=0x0018, h01=0x0050, text=» =4 NATIONAL CHAR «, t00=0x0002, t01=0x004e}
0x0386…039a Head {h00=0x0010, h01=0x0050, text=» 81-11-20 «, t00=0x0002, t01=0x006a}
0x039a…03b8 Head {h00=0x001a, h01=0x0050, text=» =3 SPACE SUPRESSION«, t00=0x0002, t01=0x007e}
0x03b8…03cc Head {h00=0x0010, h01=0x0050, text=» 81-05-12 «, t00=0x0002, t01=0x009c}
0x03cc…03e4 Head {h00=0x0014, h01=0x0050, text=» =2 NEW LABEL «, t00=0x0002, t01=0x00b0}
0x03e4…03f8 Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0002, t01=0x00c8}
0x03f8…0418 Head {h00=0x001c, h01=0x0050, text=» =1, EOC ON FIRST READ«, t00=0x0002, t01=0x00dc}
0x0418…042c Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0002, t01=0x00fc}
0x042c…0478 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0002, t01=0x0110}
0x0478…04c4 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0002, t01=0x015c}
0x04c4…0510 Head {h00=0x0048, h01=0x0050, text=»* MODULE PRINT : «, t00=0x0003, t01=0x0018}
0x0510…055c Head {h00=0x0048, h01=0x0050, text=»* MODULE HANDLING THE PRINTOUTS BOTH FROM * «, t00=0x0003, t01=0x0064}
0x055c…05a8 Head {h00=0x0048, h01=0x0050, text=»* DISPLAY AND MAIN-FRAME * «, t00=0x0003, t01=0x00b0}
0x05a8…05f4 Head {h00=0x0048, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC * «, t00=0x0003, t01=0x00fc}
0x05f4…0640 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0003, t01=0x0148}
0x0640…068c (4, 0, 400) Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0004, t01=0x0004}
0x068c…069a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0050}
0x069a…06da Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0004, t01=0x005e}
0x06da…06e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e4…0706 Head {h00=0x001e, h01=0x0050, text=»* LIST OF ROUTINES «, t00=0x0004, t01=0x00a8}
0x0706…0710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ca}
0x0710…0738 Head {h00=0x0024, h01=0x0050, text=»* PRINT MAIN ROUTINE«, t00=0x0004, t01=0x00d4}
0x0738…076c Head {h00=0x0030, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0004, t01=0x00fc}
0x076c…07a0 Head {h00=0x0030, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0004, t01=0x0130}
0x07a0…07cc Head {h00=0x0028, h01=0x0050, text=»* DCPINP DC PRINTER INPUT«, t00=0x0004, t01=0x0164}
0x07cc…07f8 Head {h00=0x0028, h01=0x0050, text=»* ICPINP INTERTASK INPUT «, t00=0x0004, t01=0x0190}
0x07f8…0822 Head {h00=0x0026, h01=0x0050, text=»* ICPRED INTERTASK READ«, t00=0x0005, t01=0x002c}
0x0822…084e Head {h00=0x0028, h01=0x0050, text=»* ICPWRT INTERTASK WRITE «, t00=0x0005, t01=0x0056}
0x084e…087a Head {h00=0x0028, h01=0x0050, text=»* ICABOR INTERTASK ABORT «, t00=0x0005, t01=0x0082}
0x087a…08b4 Head {h00=0x0036, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER «, t00=0x0005, t01=0x00ae}
0x08b4…08dc Head {h00=0x0024, h01=0x0050, text=»* TABLE OF PRINTERORDERS «, t00=0x0005, t01=0x00e8}
0x08dc…0900 Head {h00=0x0020, h01=0x0050, text=»* NL NEW LINE«, t00=0x0005, t01=0x0110}
0x0900…0930 Head {h00=0x002c, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED «, t00=0x0005, t01=0x0134}
0x0930…0956 Head {h00=0x0022, h01=0x0050, text=»* FFVAL FORM FEED «, t00=0x0005, t01=0x0164}
0x0956…0982 Head {h00=0x0028, h01=0x0050, text=»* CR CARRIAGE RETURN «, t00=0x0005, t01=0x018a}
0x0982…09aa Head {h00=0x0024, h01=0x0050, text=»* EM END MESSAGE «, t00=0x0006, t01=0x0026}
0x09aa…09dc Head {h00=0x002e, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER «, t00=0x0006, t01=0x004e}
0x09dc…0a0c Head {h00=0x002c, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID«, t00=0x0006, t01=0x0080}
0x0a0c…0a32 Head {h00=0x0022, h01=0x0050, text=»* PRLINE PRINT LINE«, t00=0x0006, t01=0x00b0}
0x0a32…0a5a Head {h00=0x0024, h01=0x0050, text=»* INIT INIT ROUTINE«, t00=0x0006, t01=0x00d6}
0x0a5a…0a84 Head {h00=0x0026, h01=0x0050, text=»* TSTPRT TEST HARDWARE «, t00=0x0006, t01=0x00fe}
0x0a84…0ab0 Head {h00=0x0028, h01=0x0050, text=»* GETTAB GET ORDER INDEX «, t00=0x0006, t01=0x0128}
0x0ab0…0aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0154}
0x0aba…0afe Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0006, t01=0x015e}
0x0afe…0b0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0012}
0x0b0c…0b58 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x0020}
0x0b58…0ba4 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0007, t01=0x006c}
0x0ba4…0bf0 Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0007, t01=0x00b8}
0x0bf0…0c3c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0104}
0x0c3c…0c88 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x0150}
0x0c88…0c90 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x000c}
0x0c90…0ccc Head {h00=0x0038, h01=0x0050, text=» ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT)«, t00=0x0008, t01=0x0014}
0x0ccc…0d00 Head {h00=0x0030, h01=0x0050, text=» ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2«, t00=0x0008, t01=0x0050}
0x0d00…0d08 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0084}
0x0d08…0d54 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0008, t01=0x008c}
0x0d54…0da0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0008, t01=0x00d8}
0x0da0…0dec Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0008, t01=0x0124}
0x0dec…0e38 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0008, t01=0x0170}
0x0e38…0e84 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0009, t01=0x002c}
0x0e84…0e8c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0078}
0x0e8c…0ec2 Head {h00=0x0032, h01=0x0050, text=» EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA)«, t00=0x0009, t01=0x0080}
0x0ec2…0ef8 Head {h00=0x0032, h01=0x0050, text=» EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9«, t00=0x0009, t01=0x00b6}
0x0ef8…0f20 Head {h00=0x0024, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA)«, t00=0x0009, t01=0x00ec}
0x0f20…0f40 Head {h00=0x001c, h01=0x0050, text=» EXTRN OPEN OPEN (DCBSC)«, t00=0x0009, t01=0x0114}
0x0f40…0f6c Head {h00=0x0028, h01=0x0050, text=» EXTRN CONCT CONNECT PASSIVE (DCBSC)«, t00=0x0009, t01=0x0134}
0x0f6c…0fa0 Head {h00=0x0030, h01=0x0050, text=» EXTRN SETTYM SET REQUEST TIMER (DCBSC) =18 «, t00=0x0009, t01=0x0160}
0x0fa0…0fd0 (10, 0, 400) Head {h00=0x002c, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x000a, t01=0x0004}
0x0fd0…0ffa Head {h00=0x0026, h01=0x0050, text=» EXTRN TSTMES TEST MESSAGE (DCSNA)«, t00=0x000a, t01=0x0034}
0x0ffa…1026 Head {h00=0x0028, h01=0x0050, text=» EXTRN READW READ WITH WAIT (DCSNA) «, t00=0x000a, t01=0x005e}
0x1026…1056 Head {h00=0x002c, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA) «, t00=0x000a, t01=0x008a}
0x1056…107c Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x000a, t01=0x00ba}
0x107c…10a6 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x000a, t01=0x00e0}
0x10a6…10d2 Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x000a, t01=0x010a}
0x10d2…10fe Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBINI INIT IF ECB:S (DSPSNA)«, t00=0x000a, t01=0x0136}
0x10fe…1130 Head {h00=0x002e, h01=0x0050, text=» EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) «, t00=0x000a, t01=0x0162}
0x1130…115c (11, 0, 400) Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000b, t01=0x0004}
0x115c…1188 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICREAD INTERTASK READ (KEYB) «, t00=0x000b, t01=0x0030}
0x1188…11b0 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCBSC)«, t00=0x000b, t01=0x005c}
0x11b0…11de Head {h00=0x002a, h01=0x0050, text=» EXTRN CONNAT TRANSFORM OF NAT CHAR =4«, t00=0x000b, t01=0x0084}
0x11de…120e Head {h00=0x002c, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM OR DUP CHAR =37«, t00=0x000b, t01=0x00b2}
0x120e…121c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00e2}
0x121c…1264 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000b, t01=0x00f0}
0x1264…12ac Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0138}
0x12ac…12f4 Head {h00=0x0044, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000b, t01=0x0180}
0x12f4…133c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0038}
0x133c…1384 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000c, t01=0x0080}
0x1384…138c Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00c8}
0x138c…13b0 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000c, t01=0x00d0}
0x13b0…13c4 Head {h00=0x0010, h01=0x0050, text=»SNA EQU X:A «, t00=0x000c, t01=0x00f4}
0x13c4…13ee Head {h00=0x0026, h01=0x0050, text=»X:D EQU 1 NUMBER OF DC LINES (1-2)«, t00=0x000c, t01=0x0108}
0x13ee…1404 Head {h00=0x0012, h01=0x0050, text=»NBRLIN EQU X:D«, t00=0x000c, t01=0x0132}
0x1404…1426 Head {h00=0x001e, h01=0x0050, text=»X:O EQU 0 TEST MODE IF:=1 «, t00=0x000c, t01=0x0148}
0x1426…143a Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x000c, t01=0x016a}
0x143a…146a Head {h00=0x002c, h01=0x0050, text=»X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4«, t00=0x000c, t01=0x017e}
0x146a…1486 Head {h00=0x0018, h01=0x0050, text=»TRANAT EQU X:R . =4 «, t00=0x000d, t01=0x001e}
0x1486…1490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003a}
0x1490…14c0 Head {h00=0x002c, h01=0x0050, text=»BASWRI EQU 0 BASIC WRITE ON PRINTER =24 «, t00=0x000d, t01=0x0044}
0x14c0…14f4 Head {h00=0x0030, h01=0x0050, text=»SCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 «, t00=0x000d, t01=0x0074}
0x14f4…1524 Head {h00=0x002c, h01=0x0050, text=»LMARG EQU 0 LEFT MARGIN FOR PRINTER =25 «, t00=0x000d, t01=0x00a8}
0x1524…1532 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00d8}
0x1532…157e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000d, t01=0x00e6}
0x157e…15ca Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0132}
0x15ca…15f4 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000d, t01=0x017e}
0x15f4…1640 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0018}
0x1640…168c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000e, t01=0x0064}
0x168c…1694 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00b0}
0x1694…169e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b8}
0x169e…16be Head {h00=0x001c, h01=0x0050, text=»* TABLE OF PRINTER TYPES«, t00=0x000e, t01=0x00c2}
0x16be…16c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e2}
0x16c8…16dc Head {h00=0x0010, h01=0x0050, text=»PRTTAB EQU *«, t00=0x000e, t01=0x00ec}
0x16dc…1706 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF PRINTERTYPES«, t00=0x000e, t01=0x0100}
0x1706…171e Head {h00=0x0014, h01=0x0050, text=» DATA 'TT',0 GTP«, t00=0x000e, t01=0x012a}
0x171e…1740 Head {h00=0x001e, h01=0x0050, text=» DATA 'LL',2 LINE PRINTER «, t00=0x000e, t01=0x0142}
0x1740…175a Head {h00=0x0016, h01=0x0050, text=» DATA 'GG',4 GP 74«, t00=0x000e, t01=0x0164}
0x175a…1776 Head {h00=0x0018, h01=0x0050, text=» DATA 'CC',6 COPY 80«, t00=0x000e, t01=0x017e}
0x1776…1780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000a}
0x1780…17b2 Head {h00=0x002e, h01=0x0050, text=»* DEFAULT VALUES FOR DIFF. PRINTERS«, t00=0x000f, t01=0x0014}
0x17b2…17d8 Head {h00=0x0022, h01=0x0050, text=»* BYTE1= NUMBER OF LINES/PAGE «, t00=0x000f, t01=0x0046}
0x17d8…17fe Head {h00=0x0022, h01=0x0050, text=»* BYTE2= NUMBER OF CHAR./LINE «, t00=0x000f, t01=0x006c}
0x17fe…1808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0092}
0x1808…1826 Head {h00=0x001a, h01=0x0050, text=»PRTLEN DATA /2382 GTP «, t00=0x000f, t01=0x009c}
0x1826…183c Head {h00=0x0012, h01=0x0050, text=» DATA /2382 LP«, t00=0x000f, t01=0x00ba}
0x183c…1856 Head {h00=0x0016, h01=0x0050, text=» DATA /2382 GP 74 «, t00=0x000f, t01=0x00d0}
0x1856…1872 Head {h00=0x0018, h01=0x0050, text=» DATA /2382 COPY 80 «, t00=0x000f, t01=0x00ea}
0x1872…188c Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =25«, t00=0x000f, t01=0x0106}
0x188c…18c4 Head {h00=0x0034, h01=0x0050, text=»LMARGT EQU * NO. OF POSITIONS IN LEFT MARGIN =25«, t00=0x000f, t01=0x0120}
0x18c4…18dc Head {h00=0x0014, h01=0x0050, text=» DATA 0 GTP =25 «, t00=0x000f, t01=0x0158}
0x18dc…18f2 Head {h00=0x0012, h01=0x0050, text=» DATA 0 LP =25«, t00=0x000f, t01=0x0170}
0x18f2…190a Head {h00=0x0014, h01=0x0050, text=» DATA 3 GP74 =25«, t00=0x000f, t01=0x0186}
0x190a…1924 Head {h00=0x0016, h01=0x0050, text=» DATA 0 COPY80 =25«, t00=0x0010, t01=0x000e}
0x1924…1938 Head {h00=0x0010, h01=0x0050, text=» XIF . =25 «, t00=0x0010, t01=0x0028}
0x1938…1948 Head {h00=0x000c, h01=0x0050, text=»* =24«, t00=0x0010, t01=0x003c}
0x1948…1964 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =36 «, t00=0x0010, t01=0x004c}
0x1964…1994 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 132 PRINTER BUFFER LENGTH =24 «, t00=0x0010, t01=0x0068}
0x1994…19b6 Head {h00=0x001e, h01=0x0050, text=» =BUFL-2 (IN DATXXX) =24«, t00=0x0010, t01=0x0098}
0x19b6…19ca Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0010, t01=0x00ba}
0x19ca…19e6 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x0010, t01=0x00ce}
0x19e6…1a16 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 256 PRINTER BUFFER LENGTH =36 «, t00=0x0010, t01=0x00ea}
0x1a16…1a34 Head {h00=0x001a, h01=0x0050, text=» =BUFL IN DATXXX =36«, t00=0x0010, t01=0x011a}
0x1a34…1a48 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0010, t01=0x0138}
0x1a48…1a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014c}
0x1a52…1a78 Head {h00=0x0022, h01=0x0050, text=»* LINE LENGTHS FROM WCC«, t00=0x0010, t01=0x0156}
0x1a78…1a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017c}
0x1a82…1aba Head {h00=0x0034, h01=0x0050, text=»LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE «, t00=0x0010, t01=0x0186}
0x1aba…1ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002e}
0x1ac4…1aee Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR ECB HANDLING «, t00=0x0011, t01=0x0038}
0x1aee…1af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0062}
0x1af8…1b1a Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0011, t01=0x006c}
0x1b1a…1b3e Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0011, t01=0x008e}
0x1b3e…1b62 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0011, t01=0x00b2}
0x1b62…1b82 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0011, t01=0x00d6}
0x1b82…1ba4 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0011, t01=0x00f6}
0x1ba4…1bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0118}
0x1bae…1bc6 Head {h00=0x0014, h01=0x0050, text=»* PRINTER MODES «, t00=0x0011, t01=0x0122}
0x1bc6…1bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x013a}
0x1bd0…1bee Head {h00=0x001a, h01=0x0050, text=»LOCAL EQU 0 LOCAL MODE«, t00=0x0011, t01=0x0144}
0x1bee…1c0e Head {h00=0x001c, h01=0x0050, text=»SHARED EQU 2 SHARED MODE«, t00=0x0011, t01=0x0162}
0x1c0e…1c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0182}
0x1c18…1c3a Head {h00=0x001e, h01=0x0050, text=»* PRINTER STATUS IN PRTMOD«, t00=0x0011, t01=0x018c}
0x1c3a…1c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001e}
0x1c44…1c6a Head {h00=0x0022, h01=0x0050, text=»PRTERR EQU /4000 PRINTER ERROR«, t00=0x0012, t01=0x0028}
0x1c6a…1c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x004e}
0x1c74…1c9a Head {h00=0x0022, h01=0x0050, text=»* COPY INTERNAL STATUS IN A10 «, t00=0x0012, t01=0x0058}
0x1c9a…1ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007e}
0x1ca4…1ccc Head {h00=0x0024, h01=0x0050, text=»NXTCHA EQU /8000 GET NEXT CHAR. «, t00=0x0012, t01=0x0088}
0x1ccc…1cf2 Head {h00=0x0022, h01=0x0050, text=»ENDPRT EQU /4000 END PRINTING «, t00=0x0012, t01=0x00b0}
0x1cf2…1d1a Head {h00=0x0024, h01=0x0050, text=»NTONLY EQU /2000 NOT ONLY SPACES«, t00=0x0012, t01=0x00d6}
0x1d1a…1d3e Head {h00=0x0020, h01=0x0050, text=»CRREC EQU /1000 CR RECEIVED «, t00=0x0012, t01=0x00fe}
0x1d3e…1d66 Head {h00=0x0024, h01=0x0050, text=»FFCCH EQU /0800 FF CCH IND. =36 «, t00=0x0012, t01=0x0122}
0x1d66…1d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014a}
0x1d70…1d9c Head {h00=0x0028, h01=0x0050, text=»* RELATIVE POS. IN ECB-BLOCK «, t00=0x0012, t01=0x0154}
0x1d9c…1da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0180}
0x1da6…1dc0 Head {h00=0x0016, h01=0x0050, text=»IC EQU 2 INTERTASK«, t00=0x0012, t01=0x018a}
0x1dc0…1dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0014}
0x1dca…1de0 Head {h00=0x0012, h01=0x0050, text=»* SCREEN SIZE «, t00=0x0013, t01=0x001e}
0x1de0…1dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0034}
0x1dea…1e00 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x0013, t01=0x003e}
0x1e00…1e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0054}
0x1e0a…1e22 Head {h00=0x0014, h01=0x0050, text=»* RECEIVE STATUS«, t00=0x0013, t01=0x005e}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0076}
0x1e2c…1e4a Head {h00=0x001a, h01=0x0050, text=»LICREC EQU /2000 . =1 «, t00=0x0013, t01=0x0080}
0x1e4a…1e58 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x009e}
0x1e58…1e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ac}
0x1e62…1e82 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0013, t01=0x00b6}
0x1e82…1e9e Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0013, t01=0x00d6}
0x1e9e…1ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f2}
0x1ea8…1ec8 Head {h00=0x001c, h01=0x0050, text=»BVDU EQU 2 SCREEN BUFFER«, t00=0x0013, t01=0x00fc}
0x1ec8…1ee6 Head {h00=0x001a, h01=0x0050, text=»WCC EQU BVDU+1950 WCC «, t00=0x0013, t01=0x011c}
0x1ee6…1f0c Head {h00=0x0022, h01=0x0050, text=»LINCNT EQU WCC+4 LINE COUNTER «, t00=0x0013, t01=0x013a}
0x1f0c…1f42 Head {h00=0x0032, h01=0x0050, text=»DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER «, t00=0x0013, t01=0x0160}
0x1f42…1f6c Head {h00=0x0026, h01=0x0050, text=»PRTID EQU DCLENG+6 PRINTER TASKID «, t00=0x0014, t01=0x0008}
0x1f6c…1f94 Head {h00=0x0024, h01=0x0050, text=»PRTTYP EQU PRTID+2 PRINTER TYPE «, t00=0x0014, t01=0x0032}
0x1f94…1fba Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTTYP+4 WHAT DC LINE«, t00=0x0014, t01=0x005a}
0x1fba…1fde Head {h00=0x0020, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB BLOCK «, t00=0x0014, t01=0x0080}
0x1fde…200a Head {h00=0x0028, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER POINTER «, t00=0x0014, t01=0x00a4}
0x200a…202e Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x0014, t01=0x00d0}
0x202e…2056 Head {h00=0x0024, h01=0x0050, text=»PRTMOD EQU REGI+32 PRINTER MODE «, t00=0x0014, t01=0x00f4}
0x2056…207e Head {h00=0x0024, h01=0x0050, text=»ECBPRT EQU PRTMOD+4 PRINTER ECB «, t00=0x0014, t01=0x011c}
0x207e…20ac Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBPRT+6 INTERTASK READ ECB«, t00=0x0014, t01=0x0144}
0x20ac…20dc Head {h00=0x002c, h01=0x0050, text=»ECBICW EQU ECBICR+2 INTERTASK WRITE ECB «, t00=0x0014, t01=0x0172}
0x20dc…20fe Head {h00=0x001e, h01=0x0050, text=»ECBDC EQU ECBICW+2 ECB DC «, t00=0x0015, t01=0x0012}
0x20fe…2124 Head {h00=0x0022, h01=0x0050, text=»ECBDC1 EQU ECBDC ECB DC LINE 1«, t00=0x0015, t01=0x0034}
0x2124…214e Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x0015, t01=0x005a}
0x214e…2166 Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =24«, t00=0x0015, t01=0x0084}
0x2166…2198 Head {h00=0x002e, h01=0x0050, text=»PRCCCT EQU ECBDC2+2 CHARACTER COUNTER =24 «, t00=0x0015, t01=0x009c}
0x2198…21ac Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0015, t01=0x00ce}
0x21ac…21c4 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =24«, t00=0x0015, t01=0x00e2}
0x21c4…21f6 Head {h00=0x002e, h01=0x0050, text=»PRCCCT EQU ECBDC+14 CHARACTER COUNTER =24 «, t00=0x0015, t01=0x00fa}
0x21f6…220a Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0015, t01=0x012c}
0x220a…223e Head {h00=0x0030, h01=0x0050, text=»PRBA EQU PRCCCT+2 PRINTER BUFFER ADDRESS =24«, t00=0x0015, t01=0x0140}
0x223e…2276 Head {h00=0x0034, h01=0x0050, text=»PRLMAR EQU PRBA+2 NO. OF POS IN LEFT MARGIN =25 «, t00=0x0015, t01=0x0174}
0x2276…2280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001c}
0x2280…22a0 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0016, t01=0x0026}
0x22a0…22ba Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0016, t01=0x0046}
0x22ba…22c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0060}
0x22c4…22d8 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0016, t01=0x006a}
0x22d8…22fe Head {h00=0x0022, h01=0x0050, text=»TSKTAB EQU 26 DEVICE TABLE =17«, t00=0x0016, t01=0x007e}
0x22fe…230a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00a4}
0x230a…231e Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0016, t01=0x00b0}
0x231e…233a Head {h00=0x0018, h01=0x0050, text=»TSKTAB EQU 221 . =17«, t00=0x0016, t01=0x00c4}
0x233a…2346 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00e0}
0x2346…2354 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00ec}
0x2354…23a0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0016, t01=0x00fa}
0x23a0…23ec Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0016, t01=0x0146}
0x23ec…2438 (23, 0, 400) Head {h00=0x0048, h01=0x0050, text=»* PRINT MAIN ROUTINE PRINTER * «, t00=0x0017, t01=0x0004}
0x2438…2484 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0017, t01=0x0050}
0x2484…24d0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0017, t01=0x009c}
0x24d0…24e4 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x0017, t01=0x00e8}
0x24e4…2506 Head {h00=0x001e, h01=0x0050, text=» CF A14,INIT INIT ROUTINE «, t00=0x0017, t01=0x00fc}
0x2506…251e Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =15«, t00=0x0017, t01=0x011e}
0x251e…2546 Head {h00=0x0024, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE =7 «, t00=0x0017, t01=0x0136}
0x2546…255a Head {h00=0x0010, h01=0x0050, text=» XIF . =15 «, t00=0x0017, t01=0x015e}
0x255a…256c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0017, t01=0x0172}
0x256c…259c Head {h00=0x002c, h01=0x0050, text=» CF A14,OPINIT OPEN CONNECTION INITIATE «, t00=0x0017, t01=0x0184}
0x259c…25c0 Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 DC NOT PRESENT«, t00=0x0018, t01=0x0024}
0x25c0…25e2 Head {h00=0x001e, h01=0x0050, text=» CF A14,OPSYS OPEN SYSTEM «, t00=0x0018, t01=0x0048}
0x25e2…25ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x006a}
0x25ee…2600 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0018, t01=0x0076}
0x2600…261a Head {h00=0x0016, h01=0x0050, text=» CF A14,OPEN OPEN «, t00=0x0018, t01=0x0088}
0x261a…263e Head {h00=0x0020, h01=0x0050, text=» RF(N) PRI100 NO DC INVOLVED«, t00=0x0018, t01=0x00a2}
0x263e…2652 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x0018, t01=0x00c6}
0x2652…265e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x00da}
0x265e…266e Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0018, t01=0x00e6}
0x266e…2694 Head {h00=0x0022, h01=0x0050, text=» CF A14,CONCT CONNECT PASSIVE «, t00=0x0018, t01=0x00f6}
0x2694…26b0 Head {h00=0x0018, h01=0x0050, text=» IFT NBRLIN=2 . =17 «, t00=0x0018, t01=0x011c}
0x26b0…26de Head {h00=0x002a, h01=0x0050, text=» LDK A1,1 CONNECT FOR SECOND LINE =17 «, t00=0x0018, t01=0x0138}
0x26de…26fc Head {h00=0x001a, h01=0x0050, text=» XRS A1,MAIN,A11 . =17«, t00=0x0018, t01=0x0166}
0x26fc…2718 Head {h00=0x0018, h01=0x0050, text=» CF A14,CONCT . =17 «, t00=0x0018, t01=0x0184}
0x2718…2730 Head {h00=0x0014, h01=0x0050, text=» LDK A1,1 . =17 «, t00=0x0019, t01=0x0010}
0x2730…2766 Head {h00=0x0032, h01=0x0050, text=» XRS A1,MAIN,A11 INDICATE FIRST LINE AGAIN =17«, t00=0x0019, t01=0x0028}
0x2766…277a Head {h00=0x0010, h01=0x0050, text=» XIF . =17 «, t00=0x0019, t01=0x005e}
0x277a…2792 Head {h00=0x0014, h01=0x0050, text=» IFF SNA=1 . =17«, t00=0x0019, t01=0x0072}
0x2792…27c0 Head {h00=0x002a, h01=0x0050, text=» CF A14,SETTYM SET REQUEST TIMEOUT =18«, t00=0x0019, t01=0x008a}
0x27c0…27cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00b8}
0x27cc…27f8 Head {h00=0x0028, h01=0x0050, text=» LDK A1,SHARED ALWAYS SHARED IN BSC «, t00=0x0019, t01=0x00c4}
0x27f8…2812 Head {h00=0x0016, h01=0x0050, text=» ST A1,PRTMOD,A11 «, t00=0x0019, t01=0x00f0}
0x2812…2826 Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x0019, t01=0x010a}
0x2826…284a Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTPRT TEST HARDWARE«, t00=0x0019, t01=0x011e}
0x284a…285e Head {h00=0x0010, h01=0x0050, text=»PRI200 EQU *«, t00=0x0019, t01=0x0142}
0x285e…288c Head {h00=0x002a, h01=0x0050, text=» CF A14,IOACT ACTIVATE IN CURRENT MODE«, t00=0x0019, t01=0x0156}
0x288c…28a4 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0019, t01=0x0184}
0x28a4…28b8 Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x001a, t01=0x000c}
0x28b8…28c4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x0020}
0x28c4…28e2 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x001a, t01=0x002c}
0x28e2…2910 Head {h00=0x002a, h01=0x0050, text=» CF A14,IOCPL COMPLET IN CURRENT MODE «, t00=0x001a, t01=0x004a}
0x2910…292a Head {h00=0x0016, h01=0x0050, text=» LD A1,PRTMOD,A11 «, t00=0x001a, t01=0x0078}
0x292a…2950 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,PRTERR PRINTER ERROR?«, t00=0x001a, t01=0x0092}
0x2950…2968 Head {h00=0x0014, h01=0x0050, text=» RB(Z) PRI200 NO«, t00=0x001a, t01=0x00b8}
0x2968…2982 Head {h00=0x0016, h01=0x0050, text=» XRS A1,PRTMOD,A11«, t00=0x001a, t01=0x00d0}
0x2982…29a2 Head {h00=0x001c, h01=0x0050, text=» RB PRI100 TRY TO FIX IT«, t00=0x001a, t01=0x00ea}
0x29a2…29b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x010a}
0x29b0…29fe Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001a, t01=0x0118}
0x29fe…2a4c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001a, t01=0x0166}
0x2a4c…2a74 Head {h00=0x0024, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x001b, t01=0x0024}
0x2a74…2ac2 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001b, t01=0x004c}
0x2ac2…2b10 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001b, t01=0x009a}
0x2b10…2b24 Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x001b, t01=0x00e8}
0x2b24…2b36 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001b, t01=0x00fc}
0x2b36…2b60 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTMOD,A11 SHARED OR LOCAL?«, t00=0x001b, t01=0x010e}
0x2b60…2b7c Head {h00=0x0018, h01=0x0050, text=» RF(Z) IOAC20 LOCAL «, t00=0x001b, t01=0x0138}
0x2b7c…2ba2 Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 ADD NUMBER OF WAITS «, t00=0x001b, t01=0x0154}
0x2ba2…2bda Head {h00=0x0034, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQUEST OUTSTANDING ALREADY?«, t00=0x001b, t01=0x017a}
0x2bda…2bf4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x001c, t01=0x0022}
0x2bf4…2c18 Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x001c, t01=0x003c}
0x2c18…2c3c Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x001c, t01=0x0060}
0x2c3c…2c58 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x001c, t01=0x0084}
0x2c58…2c6c Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x001c, t01=0x00a0}
0x2c6c…2c82 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001c, t01=0x00b4}
0x2c82…2ca2 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADD MORE WAITS«, t00=0x001c, t01=0x00ca}
0x2ca2…2cc6 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+6,A11 ALREADY?«, t00=0x001c, t01=0x00ea}
0x2cc6…2ce0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC20 YES«, t00=0x001c, t01=0x010e}
0x2ce0…2d04 Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x001c, t01=0x0128}
0x2d04…2d28 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x001c, t01=0x014c}
0x2d28…2d44 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x001c, t01=0x0170}
0x2d44…2d50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x018c}
0x2d50…2d64 Head {h00=0x0010, h01=0x0050, text=»IOAC20 EQU *«, t00=0x001d, t01=0x0008}
0x2d64…2d76 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x001c}
0x2d76…2d9a Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBBLK+2,A11 ALREADY?«, t00=0x001d, t01=0x002e}
0x2d9a…2db4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC30 YES«, t00=0x001d, t01=0x0052}
0x2db4…2dda Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPRED READ INTERTASK «, t00=0x001d, t01=0x006c}
0x2dda…2df6 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x001d, t01=0x0092}
0x2df6…2e0a Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x001d, t01=0x00ae}
0x2e0a…2e34 Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBBLK,A11 NUMBER OF WAITS «, t00=0x001d, t01=0x00c2}
0x2e34…2e44 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x00ec}
0x2e44…2e52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00fc}
0x2e52…2ea0 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001d, t01=0x010a}
0x2ea0…2eee Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001d, t01=0x0158}
0x2eee…2f16 Head {h00=0x0024, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x001e, t01=0x0016}
0x2f16…2f64 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x001e, t01=0x003e}
0x2f64…2fb2 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x001e, t01=0x008c}
0x2fb2…2fc6 Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x001e, t01=0x00da}
0x2fc6…2fec Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+2,A11 INTERTASK?«, t00=0x001e, t01=0x00ee}
0x2fec…3006 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x001e, t01=0x0114}
0x3006…301e Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x001e, t01=0x012e}
0x301e…3042 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICPINP MAKE HARDCOPY«, t00=0x001e, t01=0x0146}
0x3042…3054 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x001e, t01=0x016a}
0x3054…3068 Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x001e, t01=0x017c}
0x3068…308e Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC LINE 1?«, t00=0x001e, t01=0x0190}
0x308e…30a4 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001f, t01=0x0026}
0x30a4…30be Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x001f, t01=0x003c}
0x30be…30ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0056}
0x30ca…30e0 Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x001f, t01=0x0062}
0x30e0…3104 Head {h00=0x0020, h01=0x0050, text=» RF(NE) IOCP90 NO FORGET IT «, t00=0x001f, t01=0x0078}
0x3104…3110 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x009c}
0x3110…3128 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x001f, t01=0x00a8}
0x3128…314c Head {h00=0x0020, h01=0x0050, text=» CM MAIN,A11 INDICATE LINE 1«, t00=0x001f, t01=0x00c0}
0x314c…315e Head {h00=0x000e, h01=0x0050, text=» RF IOCP30«, t00=0x001f, t01=0x00e4}
0x315e…3174 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001f, t01=0x00f6}
0x3174…3188 Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x001f, t01=0x010c}
0x3188…31ae Head {h00=0x0022, h01=0x0050, text=» CW A8,ECBBLK+6,A11 DC LINE 2?«, t00=0x001f, t01=0x0120}
0x31ae…31c8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP90 NO «, t00=0x001f, t01=0x0146}
0x31c8…31e0 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+6,A11«, t00=0x001f, t01=0x0160}
0x31e0…3204 Head {h00=0x0020, h01=0x0050, text=» IM MAIN,A11 INDICATE LINE 2«, t00=0x001f, t01=0x0178}
0x3204…3210 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x000c}
0x3210…3224 Head {h00=0x0010, h01=0x0050, text=»IOCP30 EQU *«, t00=0x0020, t01=0x0018}
0x3224…324a Head {h00=0x0022, h01=0x0050, text=» CF A14,DCPINP TAKE CARE OF DC«, t00=0x0020, t01=0x002c}
0x324a…325e Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x0020, t01=0x0052}
0x325e…326e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0066}
0x326e…327c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0076}
0x327c…32c4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0020, t01=0x0084}
0x32c4…330c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0020, t01=0x00cc}
0x330c…3354 Head {h00=0x0044, h01=0x0050, text=»* DCPINP DC PRINTER INPUT * «, t00=0x0020, t01=0x0114}
0x3354…339c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0020, t01=0x015c}
0x339c…33e4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0021, t01=0x0014}
0x33e4…33f8 Head {h00=0x0010, h01=0x0050, text=»DCPINP EQU *«, t00=0x0021, t01=0x005c}
0x33f8…3424 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT LOCAL HARD COPY«, t00=0x0021, t01=0x0070}
0x3424…344a Head {h00=0x0022, h01=0x0050, text=» LDR A7,A7 ALREADY COMPLETED? «, t00=0x0021, t01=0x009c}
0x344a…3462 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCP100 NO«, t00=0x0021, t01=0x00c2}
0x3462…3490 Head {h00=0x002a, h01=0x0050, text=» CF A14,ICPINP TAKE CARE OF THAT FIRST«, t00=0x0021, t01=0x00da}
0x3490…34a4 Head {h00=0x0010, h01=0x0050, text=»DCP100 EQU *«, t00=0x0021, t01=0x0108}
0x34a4…34bc Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBDC,A11«, t00=0x0021, t01=0x011c}
0x34bc…34d2 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0021, t01=0x0134}
0x34d2…34f0 Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 1«, t00=0x0021, t01=0x014a}
0x34f0…350a Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP150 YES «, t00=0x0021, t01=0x0168}
0x350a…3524 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0021, t01=0x0182}
0x3524…3538 Head {h00=0x0010, h01=0x0050, text=»DCP150 EQU *«, t00=0x0022, t01=0x000c}
0x3538…3544 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0020}
0x3544…3556 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0022, t01=0x002c}
0x3556…3572 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0022, t01=0x003e}
0x3572…358c Head {h00=0x0016, h01=0x0050, text=» ANKL A1,/701 OK? «, t00=0x0022, t01=0x005a}
0x358c…35ae Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DCP500 NO STOP IT «, t00=0x0022, t01=0x0074}
0x35ae…35ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0096}
0x35ba…35dc Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x0022, t01=0x00a2}
0x35dc…35ee Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0022, t01=0x00c4}
0x35ee…3616 Head {h00=0x0024, h01=0x0050, text=» CF A14,READW READ FIRST BUFFER «, t00=0x0022, t01=0x00d6}
0x3616…362e Head {h00=0x0014, h01=0x0050, text=» ANK A1,3 ERROR?«, t00=0x0022, t01=0x00fe}
0x362e…3648 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DCP400 NO «, t00=0x0022, t01=0x0116}
0x3648…365c Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0022, t01=0x0130}
0x365c…3682 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0022, t01=0x0144}
0x3682…3694 Head {h00=0x000e, h01=0x0050, text=» RF DCP500«, t00=0x0022, t01=0x016a}
0x3694…36a8 Head {h00=0x0010, h01=0x0050, text=»DCP400 EQU *«, t00=0x0022, t01=0x017c}
0x36a8…36da Head {h00=0x002e, h01=0x0050, text=» SUR A10,A10 RESET INTERNAL UNPACK STATUS «, t00=0x0022, t01=0x0190}
0x36da…36f2 Head {h00=0x0014, h01=0x0050, text=» IFT SNA=1 . =1 «, t00=0x0023, t01=0x0032}
0x36f2…3708 Head {h00=0x0012, h01=0x0050, text=» ANK A1,2 . =1«, t00=0x0023, t01=0x004a}
0x3708…3722 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCP450 . =1«, t00=0x0023, t01=0x0060}
0x3722…3740 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,LICREC . =1 «, t00=0x0023, t01=0x007a}
0x3740…375a Head {h00=0x0016, h01=0x0050, text=»DCP450 EQU * . =1 «, t00=0x0023, t01=0x0098}
0x375a…376c Head {h00=0x000e, h01=0x0050, text=» XIF . =1«, t00=0x0023, t01=0x00b2}
0x376c…3784 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x0023, t01=0x00c4}
0x3784…37aa Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x0023, t01=0x00dc}
0x37aa…37d8 Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x0023, t01=0x0102}
0x37d8…37ea Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0023, t01=0x0130}
0x37ea…3814 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET ANOTHER BUFFER «, t00=0x0023, t01=0x0142}
0x3814…3826 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0023, t01=0x016c}
0x3826…384e Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x0023, t01=0x017e}
0x384e…385a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0016}
0x385a…3886 Head {h00=0x0028, h01=0x0050, text=» CF A14,UNPACK UPDATE SCREEN BUFFER «, t00=0x0024, t01=0x0022}
0x3886…389a Head {h00=0x0010, h01=0x0050, text=»DCP500 EQU *«, t00=0x0024, t01=0x004e}
0x389a…38ac Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0024, t01=0x0062}
0x38ac…38be Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x0074}
0x38be…38e4 Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x0024, t01=0x0086}
0x38e4…38f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00ac}
0x38f0…3900 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x00b8}
0x3900…390e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00c8}
0x390e…3956 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0024, t01=0x00d6}
0x3956…399e Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0024, t01=0x011e}
0x399e…39e6 Head {h00=0x0044, h01=0x0050, text=»* ICPINP INTERTASK INPUT *«, t00=0x0024, t01=0x0166}
0x39e6…3a2e Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0025, t01=0x001e}
0x3a2e…3a76 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0025, t01=0x0066}
0x3a76…3a8a Head {h00=0x0010, h01=0x0050, text=»ICPINP EQU *«, t00=0x0025, t01=0x00ae}
0x3a8a…3aac Head {h00=0x001e, h01=0x0050, text=» CF A14,COPP MAKE HARDCOPP«, t00=0x0025, t01=0x00c2}
0x3aac…3adc Head {h00=0x002c, h01=0x0050, text=» ST A1,REGI,A11 RETURN CODE TO TERMINAL «, t00=0x0025, t01=0x00e4}
0x3adc…3b02 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICPWRT WRITE INTERTASK«, t00=0x0025, t01=0x0114}
0x3b02…3b12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0025, t01=0x013a}
0x3b12…3b20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x014a}
0x3b20…3b6a Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0025, t01=0x0158}
0x3b6a…3bb4 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0026, t01=0x0012}
0x3bb4…3bfe Head {h00=0x0046, h01=0x0050, text=»* ICPRED INTERTASK READ *«, t00=0x0026, t01=0x005c}
0x3bfe…3c48 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0026, t01=0x00a6}
0x3c48…3c92 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0026, t01=0x00f0}
0x3c92…3ca6 Head {h00=0x0010, h01=0x0050, text=»ICPRED EQU *«, t00=0x0026, t01=0x013a}
0x3ca6…3cc0 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0026, t01=0x014e}
0x3cc0…3ce4 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0026, t01=0x0168}
0x3ce4…3d08 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 NOT ADDRESSED READ«, t00=0x0026, t01=0x018c}
0x3d08…3d1e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0027, t01=0x0020}
0x3d1e…3d32 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0027, t01=0x0036}
0x3d32…3d4c Head {h00=0x0016, h01=0x0050, text=» LDKL A2,LBVDU+/20«, t00=0x0027, t01=0x004a}
0x3d4c…3d72 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0027, t01=0x0064}
0x3d72…3d82 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0027, t01=0x008a}
0x3d82…3d90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x009a}
0x3d90…3ddc Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0027, t01=0x00a8}
0x3ddc…3e28 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0027, t01=0x00f4}
0x3e28…3e74 Head {h00=0x0048, h01=0x0050, text=»* ICPWRT WRITE INTERTASK *«, t00=0x0027, t01=0x0140}
0x3e74…3ec0 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0027, t01=0x018c}
0x3ec0…3f0c Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0028, t01=0x0048}
0x3f0c…3f20 Head {h00=0x0010, h01=0x0050, text=»ICPWRT EQU *«, t00=0x0028, t01=0x0094}
0x3f20…3f3a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0028, t01=0x00a8}
0x3f3a…3f5e Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0028, t01=0x00c2}
0x3f5e…3f78 Head {h00=0x0016, h01=0x0050, text=» LD A1,ECBICR,A11 «, t00=0x0028, t01=0x00e6}
0x3f78…3f9a Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A1 GET TASKID«, t00=0x0028, t01=0x0100}
0x3f9a…3fba Head {h00=0x001c, h01=0x0050, text=» RF(Z) ICPW90 NOT THERE «, t00=0x0028, t01=0x0122}
0x3fba…3fdc Head {h00=0x001e, h01=0x0050, text=» LDKL A3,REGI RETURN CODE «, t00=0x0028, t01=0x0142}
0x3fdc…3ff0 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0028, t01=0x0164}
0x3ff0…4008 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0028, t01=0x0178}
0x4008…402e Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x0028, t01=0x0190}
0x402e…4042 Head {h00=0x0010, h01=0x0050, text=»ICPW90 EQU *«, t00=0x0029, t01=0x0026}
0x4042…4052 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x003a}
0x4052…4060 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x004a}
0x4060…40a6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0029, t01=0x0058}
0x40a6…40ec Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0029, t01=0x009e}
0x40ec…4132 Head {h00=0x0042, h01=0x0050, text=»* ICABOR INTERTASK ABORT * «, t00=0x0029, t01=0x00e4}
0x4132…4178 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0029, t01=0x012a}
0x4178…41be Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0029, t01=0x0170}
0x41be…41d2 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x002a, t01=0x0026}
0x41d2…41e4 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002a, t01=0x003a}
0x41e4…41fe Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+IC,A11 «, t00=0x002a, t01=0x004c}
0x41fe…4218 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x002a, t01=0x0066}
0x4218…4224 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x0080}
0x4224…4234 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002a, t01=0x008c}
0x4234…4244 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x009c}
0x4244…4252 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00ac}
0x4252…42a0 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002a, t01=0x00ba}
0x42a0…42ee Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0108}
0x42ee…433c Head {h00=0x004a, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER * «, t00=0x002a, t01=0x0156}
0x433c…438a Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x002b, t01=0x0014}
0x438a…43d8 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002b, t01=0x0062}
0x43d8…43fc Head {h00=0x0020, h01=0x0050, text=»* REGISTERS «, t00=0x002b, t01=0x00b0}
0x43fc…4406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d4}
0x4406…441c Head {h00=0x0012, h01=0x0050, text=»* A2= CHAR. «, t00=0x002b, t01=0x00de}
0x441c…4442 Head {h00=0x0022, h01=0x0050, text=»* A3= SCREEN BUFFER POINTER «, t00=0x002b, t01=0x00f4}
0x4442…446c Head {h00=0x0026, h01=0x0050, text=»* A4= REL. SCREEN BUFFER ADDRESS«, t00=0x002b, t01=0x011a}
0x446c…4488 Head {h00=0x0018, h01=0x0050, text=»* A5= LINE LENGTH «, t00=0x002b, t01=0x0144}
0x4488…44aa Head {h00=0x001e, h01=0x0050, text=»* A6= CURRENT ATTRIBUTE «, t00=0x002b, t01=0x0160}
0x44aa…44cc Head {h00=0x001e, h01=0x0050, text=»* A8= ECB BUFFER POINTER«, t00=0x002b, t01=0x0182}
0x44cc…44ec Head {h00=0x001c, h01=0x0050, text=»* A9= ECB BUFFER INDEX«, t00=0x002c, t01=0x0014}
0x44ec…450c Head {h00=0x001c, h01=0x0050, text=»* A10= INTERNAL STATUS«, t00=0x002c, t01=0x0034}
0x450c…452c Head {h00=0x001c, h01=0x0050, text=»* A11= TASK BLOCK BASE«, t00=0x002c, t01=0x0054}
0x452c…4546 Head {h00=0x0016, h01=0x0050, text=»* A13= ECB BASE «, t00=0x002c, t01=0x0074}
0x4546…4550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x008e}
0x4550…459e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x002c, t01=0x0098}
0x459e…45b6 Head {h00=0x0014, h01=0x0050, text=»COPP EQU * . =2 «, t00=0x002c, t01=0x00e6}
0x45b6…45d0 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x002c, t01=0x00fe}
0x45d0…45fa Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x002c, t01=0x0118}
0x45fa…460c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x0142}
0x460c…462e Head {h00=0x001e, h01=0x0050, text=» LDK A6,0 RESET ATTRIBUTE «, t00=0x002c, t01=0x0154}
0x462e…4660 Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x002c, t01=0x0176}
0x4660…468a Head {h00=0x0026, h01=0x0050, text=» CM LINCNT,A11 RESET LINE COUNTER «, t00=0x002d, t01=0x0018}
0x468a…46a0 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x002d, t01=0x0042}
0x46a0…46c2 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/38 MASK RELEVANT «, t00=0x002d, t01=0x0058}
0x46c2…46d4 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x002d, t01=0x007a}
0x46d4…46f2 Head {h00=0x001a, h01=0x0050, text=» ANK A1,8 START PRINT?«, t00=0x002d, t01=0x008c}
0x46f2…471a Head {h00=0x0024, h01=0x0050, text=» ABL(Z) COP950 NO FORGET IT =19 «, t00=0x002d, t01=0x00aa}
0x471a…472c Head {h00=0x000e, h01=0x0050, text=» SRL A5,4 «, t00=0x002d, t01=0x00d2}
0x472c…4754 Head {h00=0x0024, h01=0x0050, text=» LC A5,LINLEN,A5 GET LINE LENGTH«, t00=0x002d, t01=0x00e4}
0x4754…4780 Head {h00=0x0028, h01=0x0050, text=» LDR A5,A5 NL,EM AND CR DET. LENGTH?«, t00=0x002d, t01=0x010c}
0x4780…479a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP100 NO «, t00=0x002d, t01=0x0138}
0x479a…47c8 Head {h00=0x002a, h01=0x0050, text=» LD A1,PRTTYP,A11 GET MAX LINE LENGTH «, t00=0x002d, t01=0x0152}
0x47c8…47e2 Head {h00=0x0016, h01=0x0050, text=» LC A5,PRTLEN+1,A1«, t00=0x002d, t01=0x0180}
0x47e2…47f6 Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x002e, t01=0x000a}
0x47f6…480c Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x002e, t01=0x001e}
0x480c…4820 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002e, t01=0x0034}
0x4820…483c Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x002e, t01=0x0048}
0x483c…4854 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A8 . =24«, t00=0x002e, t01=0x0064}
0x4854…4886 Head {h00=0x002e, h01=0x0050, text=» LD A8,PRBA,A11 PRINTER BUFFER ADDRESS =24«, t00=0x002e, t01=0x007c}
0x4886…48ae Head {h00=0x0024, h01=0x0050, text=» ST A8,ECBBA,A1 STORE IN ECB =24«, t00=0x002e, t01=0x00ae}
0x48ae…48de Head {h00=0x002c, h01=0x0050, text=» AD A8,PRLMAR,A11 ALLOW LEFT MARG/CR =25«, t00=0x002e, t01=0x00d6}
0x48de…4918 Head {h00=0x0036, h01=0x0050, text=» CM PRCCCT,A11 CLEAR BUFFER CHARACTER COUNTER =36 «, t00=0x002e, t01=0x0106}
0x4918…492c Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x002e, t01=0x0140}
0x492c…4948 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x002e, t01=0x0154}
0x4948…4960 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBBA,A8 «, t00=0x002e, t01=0x0170}
0x4960…4984 Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x002e, t01=0x0188}
0x4984…4996 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x002f, t01=0x001c}
0x4996…49aa Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x002f, t01=0x002e}
0x49aa…49bc Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x002f, t01=0x0042}
0x49bc…49ce Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002f, t01=0x0054}
0x49ce…49e0 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x002f, t01=0x0066}
0x49e0…4a02 Head {h00=0x001e, h01=0x0050, text=» SUR A10,A10 RESET STATUS «, t00=0x002f, t01=0x0078}
0x4a02…4a16 Head {h00=0x0010, h01=0x0050, text=»COP200 EQU *«, t00=0x002f, t01=0x009a}
0x4a16…4a38 Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU ALL PRINTED?«, t00=0x002f, t01=0x00ae}
0x4a38…4a52 Head {h00=0x0016, h01=0x0050, text=» RF(NL) COP850 YES«, t00=0x002f, t01=0x00d0}
0x4a52…4a70 Head {h00=0x001a, h01=0x0050, text=» CWR A9,A5 LINE FULL? «, t00=0x002f, t01=0x00ea}
0x4a70…4a88 Head {h00=0x0014, h01=0x0050, text=» RF(L) COP400 NO«, t00=0x002f, t01=0x0108}
0x4a88…4aaa Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x002f, t01=0x0120}
0x4aaa…4acc Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x002f, t01=0x0142}
0x4acc…4ae6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x002f, t01=0x0164}
0x4ae6…4afa Head {h00=0x0010, h01=0x0050, text=»COP400 EQU *«, t00=0x002f, t01=0x017e}
0x4afa…4b16 (48, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0030, t01=0x0004}
0x4b16…4b2a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0030, t01=0x0020}
0x4b2a…4b4a Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP650 NULL CHAR.«, t00=0x0030, t01=0x0034}
0x4b4a…4b6a Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0030, t01=0x0054}
0x4b6a…4b82 Head {h00=0x0014, h01=0x0050, text=» RF(L) COP500 NO«, t00=0x0030, t01=0x0074}
0x4b82…4ba6 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A2 GET NEW ATTRIBUTE«, t00=0x0030, t01=0x008c}
0x4ba6…4bb8 Head {h00=0x000e, h01=0x0050, text=» RF COP650«, t00=0x0030, t01=0x00b0}
0x4bb8…4bcc Head {h00=0x0010, h01=0x0050, text=»COP500 EQU *«, t00=0x0030, t01=0x00c2}
0x4bcc…4be8 Head {h00=0x0018, h01=0x0050, text=» CCK A2,/2020 ORDER?«, t00=0x0030, t01=0x00d6}
0x4be8…4c02 Head {h00=0x0016, h01=0x0050, text=» RF(L) COP550 YES «, t00=0x0030, t01=0x00f2}
0x4c02…4c30 Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x0030, t01=0x010c}
0x4c30…4c42 Head {h00=0x000e, h01=0x0050, text=» RF COP600«, t00=0x0030, t01=0x013a}
0x4c42…4c56 Head {h00=0x0010, h01=0x0050, text=»COP550 EQU *«, t00=0x0030, t01=0x014c}
0x4c56…4c7c Head {h00=0x0022, h01=0x0050, text=» CF A14,GETTAB GET ORDERINDEX «, t00=0x0030, t01=0x0160}
0x4c7c…4ca2 Head {h00=0x0022, h01=0x0050, text=» CFR A14,A1 TAKE CARE OF ORDER«, t00=0x0030, t01=0x0186}
0x4ca2…4cc4 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x0031, t01=0x001c}
0x4cc4…4cde Head {h00=0x0016, h01=0x0050, text=» RF(NZ) COP900 YES«, t00=0x0031, t01=0x003e}
0x4cde…4cfc Head {h00=0x001a, h01=0x0050, text=» LDR A1,A10 GET STATUS«, t00=0x0031, t01=0x0058}
0x4cfc…4d20 Head {h00=0x0020, h01=0x0050, text=» RF(N) COP800 GET NEXT CHAR.«, t00=0x0031, t01=0x0076}
0x4d20…4d32 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0031, t01=0x009a}
0x4d32…4d4c Head {h00=0x0016, h01=0x0050, text=» RF(N) COP850 END «, t00=0x0031, t01=0x00ac}
0x4d4c…4d60 Head {h00=0x0010, h01=0x0050, text=»COP600 EQU *«, t00=0x0031, t01=0x00c6}
0x4d60…4d84 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 CHECK IF NONPRINT«, t00=0x0031, t01=0x00da}
0x4d84…4d96 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x0031, t01=0x00fe}
0x4d96…4da8 Head {h00=0x000e, h01=0x0050, text=» XRK A1,/C«, t00=0x0031, t01=0x0110}
0x4da8…4dc6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP650 NONPRINT«, t00=0x0031, t01=0x0122}
0x4dc6…4df6 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INIDICATE NOT ONLY NOT «, t00=0x0031, t01=0x0140}
0x4df6…4e08 Head {h00=0x000e, h01=0x0050, text=» RF COP700«, t00=0x0031, t01=0x0170}
0x4e08…4e1c Head {h00=0x0010, h01=0x0050, text=»COP650 EQU *«, t00=0x0031, t01=0x0182}
0x4e1c…4e42 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0032, t01=0x0008}
0x4e42…4e56 Head {h00=0x0010, h01=0x0050, text=»COP700 EQU *«, t00=0x0032, t01=0x002e}
0x4e56…4e70 Head {h00=0x0016, h01=0x0050, text=» IFF TRANAT=0 . =4«, t00=0x0032, t01=0x0042}
0x4e70…4e9e Head {h00=0x002a, h01=0x0050, text=» LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4«, t00=0x0032, t01=0x005c}
0x4e9e…4eb0 Head {h00=0x000e, h01=0x0050, text=» XIF . =4«, t00=0x0032, t01=0x008a}
0x4eb0…4ec2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A8«, t00=0x0032, t01=0x009c}
0x4ec2…4ed4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0032, t01=0x00ae}
0x4ed4…4ee6 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0032, t01=0x00c0}
0x4ee6…4f06 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/2020 SPACE? =3 «, t00=0x0032, t01=0x00d2}
0x4f06…4f38 Head {h00=0x002e, h01=0x0050, text=» RF(E) COP800 YES, DON'T UPDATE LENGTH =3 «, t00=0x0032, t01=0x00f2}
0x4f38…4f5c Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBPRT,A11 GET ECB =3«, t00=0x0032, t01=0x0124}
0x4f5c…4f92 Head {h00=0x0032, h01=0x0050, text=» ST A9,ECBRL,A1 UPDATE LAST POS. NOT SPACE =3 «, t00=0x0032, t01=0x0148}
0x4f92…4fa6 Head {h00=0x0010, h01=0x0050, text=»COP800 EQU *«, t00=0x0032, t01=0x017e}
0x4fa6…4fdc (51, 0, 400) Head {h00=0x0032, h01=0x0050, text=» ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3«, t00=0x0033, t01=0x0004}
0x4fdc…4fee Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x003a}
0x4fee…5000 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x004c}
0x5000…5012 Head {h00=0x000e, h01=0x0050, text=» RB COP200«, t00=0x0033, t01=0x005e}
0x5012…5026 Head {h00=0x0010, h01=0x0050, text=»COP850 EQU *«, t00=0x0033, t01=0x0070}
0x5026…5042 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0033, t01=0x0084}
0x5042…506e Head {h00=0x0028, h01=0x0050, text=» LDR A9,A9 SOMETHING LEFT TO PRINT? «, t00=0x0033, t01=0x00a0}
0x506e…508c Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP950 NO! =19 «, t00=0x0033, t01=0x00cc}
0x508c…50b2 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x0033, t01=0x00ea}
0x50b2…50d6 Head {h00=0x0020, h01=0x0050, text=» ANKL A10,ENDPRT END MESS.? «, t00=0x0033, t01=0x0110}
0x50d6…50f6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) COP900 NO STOP IT«, t00=0x0033, t01=0x0134}
0x50f6…5122 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE «, t00=0x0033, t01=0x0154}
0x5122…5148 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE EXTRA LINE FEED«, t00=0x0033, t01=0x0180}
0x5148…515c Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0034, t01=0x0016}
0x515c…5178 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0034, t01=0x002a}
0x5178…51a8 Head {h00=0x002c, h01=0x0050, text=» LDR A9,A9 SOME TEXT LEFT TO PRINT? =24 «, t00=0x0034, t01=0x0046}
0x51a8…51c6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP860 NO! =24 «, t00=0x0034, t01=0x0076}
0x51c6…51ec Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT TEXT =24 «, t00=0x0034, t01=0x0094}
0x51ec…5206 Head {h00=0x0016, h01=0x0050, text=»COP860 EQU * . =24«, t00=0x0034, t01=0x00ba}
0x5206…521e Head {h00=0x0014, h01=0x0050, text=» IFF SCS=1 . =26«, t00=0x0034, t01=0x00d4}
0x521e…5246 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,ENDPRT END MESS.? =24 «, t00=0x0034, t01=0x00ec}
0x5246…5264 Head {h00=0x001a, h01=0x0050, text=» RF(Z) COP870 NO! =24 «, t00=0x0034, t01=0x0114}
0x5264…5294 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,NTONLY INDICATE PRINTABLE =24 «, t00=0x0034, t01=0x0132}
0x5294…52be Head {h00=0x0026, h01=0x0050, text=» CF A14,PRLINE EXTRA LINEFEED =24 «, t00=0x0034, t01=0x0162}
0x52be…52d2 Head {h00=0x0010, h01=0x0050, text=» XIF . =26 «, t00=0x0034, t01=0x018c}
0x52d2…52ee Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =26 «, t00=0x0035, t01=0x0010}
0x52ee…5308 Head {h00=0x0016, h01=0x0050, text=»COP870 EQU * . =24«, t00=0x0035, t01=0x002c}
0x5308…533a Head {h00=0x002e, h01=0x0050, text=» CF A14,PRCCH CONTROL CH:S TO PRINTER =24 «, t00=0x0035, t01=0x0046}
0x533a…534e Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0035, t01=0x0078}
0x534e…5362 Head {h00=0x0010, h01=0x0050, text=»COP900 EQU *«, t00=0x0035, t01=0x008c}
0x5362…5384 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER FAILED?«, t00=0x0035, t01=0x00a0}
0x5384…539c Head {h00=0x0014, h01=0x0050, text=» RF(Z) COP950 NO«, t00=0x0035, t01=0x00c2}
0x539c…53b8 Head {h00=0x0018, h01=0x0050, text=» LD A2,WCC,A11 . =32«, t00=0x0035, t01=0x00da}
0x53b8…53e0 Head {h00=0x0024, h01=0x0050, text=» CWK A2,/38 LOCAL HARDCOPY? =32 «, t00=0x0035, t01=0x00f6}
0x53e0…540c Head {h00=0x0028, h01=0x0050, text=» RF(E) COP910 YES. SKIP PRINTING =32«, t00=0x0035, t01=0x011e}
0x540c…5442 Head {h00=0x0032, h01=0x0050, text=» CF A14,TSTPRT WAIT UNTIL PRINTER OPERABLE =32«, t00=0x0035, t01=0x014a}
0x5442…5468 Head {h00=0x0022, h01=0x0050, text=» ABL COPP RESUME PRINTING =34 «, t00=0x0035, t01=0x0180}
0x5468…5482 Head {h00=0x0016, h01=0x0050, text=»COP910 EQU * . =32«, t00=0x0036, t01=0x0016}
0x5482…54a8 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,PRTERR INDICATE ERROR«, t00=0x0036, t01=0x0030}
0x54a8…54c2 Head {h00=0x0016, h01=0x0050, text=» ORS A2,PRTMOD,A11«, t00=0x0036, t01=0x0056}
0x54c2…54d6 Head {h00=0x0010, h01=0x0050, text=»COP950 EQU *«, t00=0x0036, t01=0x0070}
0x54d6…54e6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x0084}
0x54e6…54f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0094}
0x54f4…5544 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0036, t01=0x00a2}
0x5544…554e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00f2}
0x554e…5570 Head {h00=0x001e, h01=0x0050, text=»* TABLE FOR PRINTERORDERS «, t00=0x0036, t01=0x00fc}
0x5570…557a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x011e}
0x557a…55ca Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0036, t01=0x0128}
0x55ca…55de Head {h00=0x0010, h01=0x0050, text=»PRTORD EQU *«, t00=0x0036, t01=0x0178}
0x55de…5608 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF ORDER CODES «, t00=0x0036, t01=0x018c}
0x5608…5630 Head {h00=0x0024, h01=0x0050, text=» DATA /0A0A,NL,NL,NL,NL NEW LINE«, t00=0x0037, t01=0x0026}
0x5630…5666 Head {h00=0x0032, h01=0x0050, text=» DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED «, t00=0x0037, t01=0x004e}
0x5666…5692 Head {h00=0x0028, h01=0x0050, text=» DATA /0D0D,CR,CR,CR,CR CARR. RETURN«, t00=0x0037, t01=0x0084}
0x5692…56be Head {h00=0x0028, h01=0x0050, text=» DATA /1919,EM,EM,EM,EM END MESSAGE «, t00=0x0037, t01=0x00b0}
0x56be…56e4 Head {h00=0x0022, h01=0x0050, text=» DATA INVAL INVALID ORDER CODE«, t00=0x0037, t01=0x00dc}
0x56e4…56f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0102}
0x56f2…5746 Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x0037, t01=0x0110}
0x5746…579a Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0164}
0x579a…57ee Head {h00=0x0050, h01=0x0050, text=»* NL NEW LINE *«, t00=0x0038, t01=0x0028}
0x57ee…5842 Head {h00=0x0050, h01=0x0050, text=»* *«, t00=0x0038, t01=0x007c}
0x5842…5896 Head {h00=0x0050, h01=0x0050, text=»****************************************************************************«, t00=0x0038, t01=0x00d0}
0x5896…58a6 Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x0038, t01=0x0124}
0x58a6…58d6 Head {h00=0x002c, h01=0x0050, text=» CF A14,PRLINE PRINT LINE AFTER NEW LINE«, t00=0x0038, t01=0x0134}
0x58d6…5904 Head {h00=0x002a, h01=0x0050, text=» ORKL A10,NXTCHA+NTONLY GET NEXT CHAR.«, t00=0x0038, t01=0x0164}
0x5904…5914 (57, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0004}
0x5914…5922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0014}
0x5922…5970 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0039, t01=0x0022}
0x5970…59be Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0039, t01=0x0070}
0x59be…5a0c Head {h00=0x004a, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED *«, t00=0x0039, t01=0x00be}
0x5a0c…5a5a Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0039, t01=0x010c}
0x5a5a…5aa8 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0039, t01=0x015a}
0x5aa8…5abc Head {h00=0x0010, h01=0x0050, text=»FFDUM EQU * «, t00=0x003a, t01=0x0018}
0x5abc…5aee Head {h00=0x002e, h01=0x0050, text=» CF A14,FFCHK CHECK IF FORM FEED IS VALID «, t00=0x003a, t01=0x002c}
0x5aee…5b08 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x003a, t01=0x005e}
0x5b08…5b22 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD400 NO «, t00=0x003a, t01=0x0078}
0x5b22…5b3a Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 RESET «, t00=0x003a, t01=0x0092}
0x5b3a…5b64 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTTYP,A11 TYPE OF PRINTER «, t00=0x003a, t01=0x00aa}
0x5b64…5b86 Head {h00=0x001e, h01=0x0050, text=» LC A7,PRTLEN,A1 PAGE SIZE«, t00=0x003a, t01=0x00d4}
0x5b86…5b9a Head {h00=0x0010, h01=0x0050, text=»FFD100 EQU *«, t00=0x003a, t01=0x00f6}
0x5b9a…5bbe Head {h00=0x0020, h01=0x0050, text=» CW A7,LINCNT,A11 NEW PAGE? «, t00=0x003a, t01=0x010a}
0x5bbe…5be4 Head {h00=0x0022, h01=0x0050, text=» RF(L) FFD200 YES BUT TO MANY «, t00=0x003a, t01=0x012e}
0x5be4…5c06 Head {h00=0x001e, h01=0x0050, text=» RF(E) FFD300 YES FINISHED«, t00=0x003a, t01=0x0154}
0x5c06…5c1e Head {h00=0x0014, h01=0x0050, text=» ORKL A10,NTONLY«, t00=0x003a, t01=0x0176}
0x5c1e…5c3a Head {h00=0x0018, h01=0x0050, text=» ST A7,REGI,A11 SAVE«, t00=0x003a, t01=0x018e}
0x5c3a…5c62 Head {h00=0x0024, h01=0x0050, text=» CF A14,PRLINE ADVANCE ONE LINE «, t00=0x003b, t01=0x001a}
0x5c62…5c82 Head {h00=0x001c, h01=0x0050, text=» LD A7,REGI,A11 RESTORE «, t00=0x003b, t01=0x0042}
0x5c82…5ca4 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x003b, t01=0x0062}
0x5ca4…5cbe Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD500 YES«, t00=0x003b, t01=0x0084}
0x5cbe…5cd0 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x003b, t01=0x009e}
0x5cd0…5ce4 Head {h00=0x0010, h01=0x0050, text=»FFD200 EQU *«, t00=0x003b, t01=0x00b0}
0x5ce4…5cf6 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A7«, t00=0x003b, t01=0x00c4}
0x5cf6…5d24 Head {h00=0x002a, h01=0x0050, text=» ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE «, t00=0x003b, t01=0x00d6}
0x5d24…5d36 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x003b, t01=0x0104}
0x5d36…5d4a Head {h00=0x0010, h01=0x0050, text=»FFD300 EQU *«, t00=0x003b, t01=0x0116}
0x5d4a…5d6c Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x003b, t01=0x012a}
0x5d6c…5d96 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x003b, t01=0x014c}
0x5d96…5daa Head {h00=0x0010, h01=0x0050, text=»FFD400 EQU *«, t00=0x003b, t01=0x0176}
0x5daa…5dc8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x018a}
0x5dc8…5ddc Head {h00=0x0010, h01=0x0050, text=»FFD500 EQU *«, t00=0x003c, t01=0x0018}
0x5ddc…5dec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x002c}
0x5dec…5dfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x003c}
0x5dfa…5e48 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x003c, t01=0x004a}
0x5e48…5e96 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0098}
0x5e96…5ee4 Head {h00=0x004a, h01=0x0050, text=»* FFVAL FORM FEED *«, t00=0x003c, t01=0x00e6}
0x5ee4…5f32 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0134}
0x5f32…5f80 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x003c, t01=0x0182}
0x5f80…5f94 Head {h00=0x0010, h01=0x0050, text=»FFVAL EQU * «, t00=0x003d, t01=0x0040}
0x5f94…5fbc Head {h00=0x0024, h01=0x0050, text=» CF A14,FFCHK CHECK IF FF VALID «, t00=0x003d, t01=0x0054}
0x5fbc…5fd6 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x003d, t01=0x007c}
0x5fd6…5ff0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFV200 NO «, t00=0x003d, t01=0x0096}
0x5ff0…6000 Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x003d, t01=0x00b0}
0x6000…601c Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =30 «, t00=0x003d, t01=0x00c0}
0x601c…604a Head {h00=0x002a, h01=0x0050, text=» LDK A1,/31 FF FOR STANDARD WRITE =30 «, t00=0x003d, t01=0x00dc}
0x604a…6076 Head {h00=0x0028, h01=0x0050, text=» SC A1,-1,A8 STORE FF CONTROL CHAR. «, t00=0x003d, t01=0x010a}
0x6076…608a Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x003d, t01=0x0136}
0x608a…60a6 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x003d, t01=0x014a}
0x60a6…60ce Head {h00=0x0024, h01=0x0050, text=» ORKL A10,FFCCH IND. FF CCH =36 «, t00=0x003d, t01=0x0166}
0x60ce…60f4 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LINE =36 «, t00=0x003d, t01=0x018e}
0x60f4…6108 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x003e, t01=0x0024}
0x6108…6132 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x003e, t01=0x0038}
0x6132…6154 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x003e, t01=0x0062}
0x6154…6168 Head {h00=0x0010, h01=0x0050, text=»FFV200 EQU *«, t00=0x003e, t01=0x0084}
0x6168…6186 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003e, t01=0x0098}
0x6186…6196 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003e, t01=0x00b6}
0x6196…61a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00c6}
0x61a4…61f2 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003e, t01=0x00d4}
0x61f2…6240 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003e, t01=0x0122}
0x6240…628e Head {h00=0x004a, h01=0x0050, text=»* CR CARRIAGE RETURN *«, t00=0x003e, t01=0x0170}
0x628e…62dc Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003f, t01=0x002e}
0x62dc…632a Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003f, t01=0x007c}
0x632a…633a Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x003f, t01=0x00ca}
0x633a…635a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 GET ATTRIBUTE«, t00=0x003f, t01=0x00da}
0x635a…636c Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x003f, t01=0x00fa}
0x636c…638e Head {h00=0x001e, h01=0x0050, text=» XRK A1,/C NONPRINT FIELD?«, t00=0x003f, t01=0x010c}
0x638e…63a6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CR100 YES«, t00=0x003f, t01=0x012e}
0x63a6…63bc Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003f, t01=0x0146}
0x63bc…63da Head {h00=0x001a, h01=0x0050, text=» ANK A1,/30 FORMATTED?«, t00=0x003f, t01=0x015c}
0x63da…63f2 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) CR100 NO«, t00=0x003f, t01=0x017a}
0x63f2…641c (64, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ORKL A10,NTONLY+CRREC CR RECEIVED«, t00=0x0040, t01=0x0004}
0x641c…6430 Head {h00=0x0010, h01=0x0050, text=»CR100 EQU * «, t00=0x0040, t01=0x002e}
0x6430…6456 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0040, t01=0x0042}
0x6456…6474 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0040, t01=0x0068}
0x6474…6484 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0086}
0x6484…6492 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0096}
0x6492…64e0 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0040, t01=0x00a4}
0x64e0…652c Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0040, t01=0x00f2}
0x652c…6578 Head {h00=0x0048, h01=0x0050, text=»* EM END MESSAGE *«, t00=0x0040, t01=0x013e}
0x6578…65c4 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0040, t01=0x018a}
0x65c4…6610 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0041, t01=0x0046}
0x6610…6620 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x0041, t01=0x0092}
0x6620…6646 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,ENDPRT END PRINTING «, t00=0x0041, t01=0x00a2}
0x6646…6664 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0041, t01=0x00c8}
0x6664…6674 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x00e6}
0x6674…6682 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x00f6}
0x6682…66cc Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0041, t01=0x0104}
0x66cc…6716 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0041, t01=0x014e}
0x6716…6760 Head {h00=0x0046, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER *«, t00=0x0042, t01=0x0008}
0x6760…67aa Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0042, t01=0x0052}
0x67aa…67f4 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0042, t01=0x009c}
0x67f4…67fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00e6}
0x67fe…6816 Head {h00=0x0014, h01=0x0050, text=»* ALSO HANDLING:«, t00=0x0042, t01=0x00f0}
0x6816…6834 Head {h00=0x001a, h01=0x0050, text=»* DUP & FM CHARACTERS «, t00=0x0042, t01=0x0108}
0x6834…683e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0126}
0x683e…6852 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x0042, t01=0x0130}
0x6852…6872 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 SAVE CHAR =37«, t00=0x0042, t01=0x0144}
0x6872…68a2 Head {h00=0x002c, h01=0x0050, text=» CF A14,RFMDUP REPLACE IF DUP OR FM =37 «, t00=0x0042, t01=0x0164}
0x68a2…68c2 (67, 0, 400) Head {h00=0x001c, h01=0x0050, text=» SUR A1,A2 REPLACED? =37«, t00=0x0043, t01=0x0004}
0x68c2…68e2 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INVA10 YES! =37 «, t00=0x0043, t01=0x0024}
0x68e2…6908 Head {h00=0x0022, h01=0x0050, text=» NO! I.E. INVALID ORDER =37 «, t00=0x0043, t01=0x0044}
0x6908…692e Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0043, t01=0x006a}
0x692e…6948 Head {h00=0x0016, h01=0x0050, text=»INVA10 EQU * . =37«, t00=0x0043, t01=0x0090}
0x6948…696a Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0043, t01=0x00aa}
0x696a…6988 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0043, t01=0x00cc}
0x6988…6998 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x00ea}
0x6998…69a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x00fa}
0x69a6…69f0 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0043, t01=0x0108}
0x69f0…6a3a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0152}
0x6a3a…6a84 Head {h00=0x0046, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID * «, t00=0x0044, t01=0x000c}
0x6a84…6ace Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0044, t01=0x0056}
0x6ace…6b18 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0044, t01=0x00a0}
0x6b18…6b2c Head {h00=0x0010, h01=0x0050, text=»FFCHK EQU * «, t00=0x0044, t01=0x00ea}
0x6b2c…6b42 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0044, t01=0x00fe}
0x6b42…6b56 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x0044, t01=0x0114}
0x6b56…6b74 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 FORMATTED?«, t00=0x0044, t01=0x0128}
0x6b74…6ba8 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY«, t00=0x0044, t01=0x0146}
0x6ba8…6bbe Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0044, t01=0x017a}
0x6bbe…6be2 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 LOCAL HARD COPY?«, t00=0x0044, t01=0x0190}
0x6be2…6c0c Head {h00=0x0026, h01=0x0050, text=» RF(Z) FFCH20 YES, FF NOT ALLOWED «, t00=0x0045, t01=0x0024}
0x6c0c…6c20 Head {h00=0x0010, h01=0x0050, text=»FFCH10 EQU *«, t00=0x0045, t01=0x004e}
0x6c20…6c3e Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 FF ALLOWED «, t00=0x0045, t01=0x0062}
0x6c3e…6c58 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH30 NOT «, t00=0x0045, t01=0x0080}
0x6c58…6c6c Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0045, t01=0x009a}
0x6c6c…6c90 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,CRREC CR RECEIVED? «, t00=0x0045, t01=0x00ae}
0x6c90…6caa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFCH30 YES«, t00=0x0045, t01=0x00d2}
0x6caa…6cbe Head {h00=0x0010, h01=0x0050, text=»FFCH20 EQU *«, t00=0x0045, t01=0x00ec}
0x6cbe…6ce4 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0045, t01=0x0100}
0x6ce4…6d02 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0045, t01=0x0126}
0x6d02…6d14 Head {h00=0x000e, h01=0x0050, text=» RF FFCH40«, t00=0x0045, t01=0x0144}
0x6d14…6d28 Head {h00=0x0010, h01=0x0050, text=»FFCH30 EQU *«, t00=0x0045, t01=0x0156}
0x6d28…6d56 Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x0045, t01=0x016a}
0x6d56…6d74 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 EMPTY LINE «, t00=0x0046, t01=0x0008}
0x6d74…6d8e Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH35 YES «, t00=0x0046, t01=0x0026}
0x6d8e…6db0 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x0046, t01=0x0040}
0x6db0…6dc4 Head {h00=0x0010, h01=0x0050, text=»FFCH35 EQU *«, t00=0x0046, t01=0x0062}
0x6dc4…6de2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0046, t01=0x0076}
0x6de2…6df6 Head {h00=0x0010, h01=0x0050, text=»FFCH40 EQU *«, t00=0x0046, t01=0x0094}
0x6df6…6e18 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0046, t01=0x00a8}
0x6e18…6e28 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x00ca}
0x6e28…6e36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00da}
0x6e36…6e7e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0046, t01=0x00e8}
0x6e7e…6ec6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0046, t01=0x0130}
0x6ec6…6f0e Head {h00=0x0044, h01=0x0050, text=»* PRLINE PRINT LINE *«, t00=0x0046, t01=0x0178}
0x6f0e…6f56 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0047, t01=0x0030}
0x6f56…6f9e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0047, t01=0x0078}
0x6f9e…6fb2 Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x0047, t01=0x00c0}
0x6fb2…6fcc Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0047, t01=0x00d4}
0x6fcc…6fe0 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0047, t01=0x00ee}
0x6fe0…7004 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,NTONLY ONLY RUBB.? «, t00=0x0047, t01=0x0102}
0x7004…701e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL050 NO «, t00=0x0047, t01=0x0126}
0x701e…7034 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0047, t01=0x0140}
0x7034…7046 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0047, t01=0x0156}
0x7046…705a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x0047, t01=0x0168}
0x705a…7078 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 HRADCOPY? «, t00=0x0047, t01=0x017c}
0x7078…7092 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x0048, t01=0x000a}
0x7092…70b4 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/40 HARDCOPY????? «, t00=0x0048, t01=0x0024}
0x70b4…70ce Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x0048, t01=0x0046}
0x70ce…70e2 Head {h00=0x0010, h01=0x0050, text=»PRL050 EQU *«, t00=0x0048, t01=0x0060}
0x70e2…711e Head {h00=0x0038, h01=0x0050, text=» ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 «, t00=0x0048, t01=0x0074}
0x711e…713a Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0048, t01=0x00b0}
0x713a…716c Head {h00=0x002e, h01=0x0050, text=» LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 «, t00=0x0048, t01=0x00cc}
0x716c…718a Head {h00=0x001a, h01=0x0050, text=» ADS A9,ECBRL,A8 . =3 «, t00=0x0048, t01=0x00fe}
0x718a…71a4 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/06 PRINT «, t00=0x0048, t01=0x011c}
0x71a4…71b0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0048, t01=0x0136}
0x71b0…71c0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0048, t01=0x0142}
0x71c0…71d4 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0048, t01=0x0152}
0x71d4…71f0 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0048, t01=0x0166}
0x71f0…721a Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBRL,A8 TEXT TO PRINT? =24«, t00=0x0048, t01=0x0182}
0x721a…7248 Head {h00=0x002a, h01=0x0050, text=» RF(Z) PRL070 NO! JUST CONTROL CH =24 «, t00=0x0049, t01=0x001c}
0x7248…7270 Head {h00=0x0024, h01=0x0050, text=» EJECT HANDLING A TEXT LINE =36«, t00=0x0049, t01=0x004a}
0x7270…729e Head {h00=0x002a, h01=0x0050, text=» PREPARE LINE. FIRST LEFT MARGIN =36«, t00=0x0049, t01=0x0072}
0x729e…72b8 Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =36«, t00=0x0049, t01=0x00a0}
0x72b8…72ec Head {h00=0x0030, h01=0x0050, text=» LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 «, t00=0x0049, t01=0x00ba}
0x72ec…730c Head {h00=0x001c, h01=0x0050, text=» LD A1,PRLMAR,A11 . =36 «, t00=0x0049, t01=0x00ee}
0x730c…732a Head {h00=0x001a, h01=0x0050, text=» AD A1,ECBBA,A8 . =36 «, t00=0x0049, t01=0x010e}
0x732a…7342 Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x0049, t01=0x012c}
0x7342…735c Head {h00=0x0016, h01=0x0050, text=»PRL055 EQU * . =36«, t00=0x0049, t01=0x0144}
0x735c…7374 Head {h00=0x0014, h01=0x0050, text=» SCR A7,A1 . =36«, t00=0x0049, t01=0x015e}
0x7374…738c Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x0049, t01=0x0176}
0x738c…73b2 Head {h00=0x0022, h01=0x0050, text=» CW A1,ECBBA,A8 FINISHED? =36 «, t00=0x0049, t01=0x018e}
0x73b2…73d0 Head {h00=0x001a, h01=0x0050, text=» RB(G) PRL055 NO! =36 «, t00=0x004a, t01=0x0024}
0x73d0…73e4 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x004a, t01=0x0042}
0x73e4…7400 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x004a, t01=0x0056}
0x7400…7410 Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x004a, t01=0x0072}
0x7410…742e Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0D CR CCH =36«, t00=0x004a, t01=0x0082}
0x742e…7462 Head {h00=0x0030, h01=0x0050, text=» SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 «, t00=0x004a, t01=0x00a0}
0x7462…748a Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x004a, t01=0x00d4}
0x748a…74a8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/0A LF CCH =24«, t00=0x004a, t01=0x00fc}
0x74a8…74c6 Head {h00=0x001a, h01=0x0050, text=» LD A7,ECBRL,A8 . =24 «, t00=0x004a, t01=0x011a}
0x74c6…74e4 Head {h00=0x001a, h01=0x0050, text=» AD A7,ECBBA,A8 . =24 «, t00=0x004a, t01=0x0138}
0x74e4…7518 Head {h00=0x0030, h01=0x0050, text=» AD A7,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x004a, t01=0x0156}
0x7518…7542 Head {h00=0x0026, h01=0x0050, text=» SCR A1,A7 LF CCH LAST IN BUF =25 «, t00=0x004a, t01=0x018a}
0x7542…7552 Head {h00=0x000c, h01=0x0050, text=» . =35«, t00=0x004b, t01=0x0024}
0x7552…7576 Head {h00=0x0020, h01=0x0050, text=» CALCULATE LINE LENGTH =36«, t00=0x004b, t01=0x0034}
0x7576…7598 Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 ALLOW FOR LF =36«, t00=0x004b, t01=0x0058}
0x7598…75c2 Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBRL,A8 ALLOW FOR TEXT =36«, t00=0x004b, t01=0x007a}
0x75c2…75f6 Head {h00=0x0030, h01=0x0050, text=» AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 «, t00=0x004b, t01=0x00a4}
0x75f6…762a Head {h00=0x0030, h01=0x0050, text=» ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36«, t00=0x004b, t01=0x00d8}
0x762a…7660 Head {h00=0x0032, h01=0x0050, text=» ADS A1,ECBBA,A8 UPDATE POINTER TO BUFFER =36 «, t00=0x004b, t01=0x010c}
0x7660…7676 Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x004b, t01=0x0142}
0x7676…76ae Head {h00=0x0034, h01=0x0050, text=»PRL060 EQU * ENOUGH SPACE FOR ANOTHER LINE? =36 «, t00=0x004b, t01=0x0158}
0x76ae…76d6 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PRBFL BUFFER LENGTH =36«, t00=0x004b, t01=0x0190}
0x76d6…7708 Head {h00=0x002e, h01=0x0050, text=» SU A1,PRCCCT,A11 USED PART OF BUFFER =36 «, t00=0x004c, t01=0x0028}
0x7708…7730 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A5 MAX. LINE LENGTH =36 «, t00=0x004c, t01=0x005a}
0x7730…775a Head {h00=0x0026, h01=0x0050, text=» SU A1,PRLMAR,A11 LEFT MARGIN =36 «, t00=0x004c, t01=0x0082}
0x775a…778e Head {h00=0x0030, h01=0x0050, text=» RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 «, t00=0x004c, t01=0x00ac}
0x778e…779e Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x004c, t01=0x00e0}
0x779e…77c4 Head {h00=0x0022, h01=0x0050, text=»PRL065 EQU * PRINT BUFFER =36 «, t00=0x004c, t01=0x00f0}
0x77c4…77e4 Head {h00=0x001c, h01=0x0050, text=» LD A1,PRCCCT,A11 . =36 «, t00=0x004c, t01=0x0116}
0x77e4…780c Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBRL,A8 REQ. LENGTH =36 «, t00=0x004c, t01=0x0136}
0x780c…782a Head {h00=0x001a, h01=0x0050, text=» LD A1,PRBA,A11 . =36 «, t00=0x004c, t01=0x015e}
0x782a…7854 Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 BUFFER ADDRESS =36«, t00=0x004c, t01=0x017c}
0x7854…7878 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/05 BASIC WRITE =24 «, t00=0x004d, t01=0x0016}
0x7878…788c Head {h00=0x0010, h01=0x0050, text=» LKM . =24 «, t00=0x004d, t01=0x003a}
0x788c…78a2 Head {h00=0x0012, h01=0x0050, text=» DATA 1 . =24 «, t00=0x004d, t01=0x004e}
0x78a2…78d4 Head {h00=0x002e, h01=0x0050, text=» CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24«, t00=0x004d, t01=0x0064}
0x78d4…78ec Head {h00=0x0014, h01=0x0050, text=» RF PRL090 . =24«, t00=0x004d, t01=0x0096}
0x78ec…791c Head {h00=0x002c, h01=0x0050, text=» EJECT HANDLING A CONTROL CHARACTER =36«, t00=0x004d, t01=0x00ae}
0x791c…794a Head {h00=0x002a, h01=0x0050, text=»PRL070 EQU * STORE CCH IN BUFFER =24 «, t00=0x004d, t01=0x00de}
0x794a…7972 Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x004d, t01=0x010c}
0x7972…7990 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0A LF CCH =24«, t00=0x004d, t01=0x0134}
0x7990…79aa Head {h00=0x0016, h01=0x0050, text=» LDR A1,A10 . =36 «, t00=0x004d, t01=0x0152}
0x79aa…79d0 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,FFCCH FORM FEED? =36 «, t00=0x004d, t01=0x016c}
0x79d0…79ec (78, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RF(Z) PRL075 NO =36«, t00=0x004e, t01=0x0004}
0x79ec…7a10 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/0C YES. FF CCH =36 «, t00=0x004e, t01=0x0020}
0x7a10…7a40 Head {h00=0x002c, h01=0x0050, text=» ANKL A10,/FFFF-FFCCH RESET FF IND. =36 «, t00=0x004e, t01=0x0044}
0x7a40…7a5a Head {h00=0x0016, h01=0x0050, text=»PRL075 EQU * . =36«, t00=0x004e, t01=0x0074}
0x7a5a…7a84 Head {h00=0x0026, h01=0x0050, text=» SC* A7,ECBBA,A8 CCH TO BUFFER =36«, t00=0x004e, t01=0x008e}
0x7a84…7ab0 Head {h00=0x0028, h01=0x0050, text=» IM ECBBA,A8 STEP BUFFER ADDRESS =36«, t00=0x004e, t01=0x00b8}
0x7ab0…7ae6 Head {h00=0x0032, h01=0x0050, text=» IM PRCCCT,A11 STEP NO. OF CH:S IN BUFFER =36 «, t00=0x004e, t01=0x00e4}
0x7ae6…7b10 Head {h00=0x0026, h01=0x0050, text=» ADKL A8,1 STEP BUFFER POINTER =36«, t00=0x004e, t01=0x011a}
0x7b10…7b3e Head {h00=0x002a, h01=0x0050, text=» RB PRL060 CHECK IF END OF BUFFER =36 «, t00=0x004e, t01=0x0144}
0x7b3e…7b54 Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x004e, t01=0x0172}
0x7b54…7b6e Head {h00=0x0016, h01=0x0050, text=»PRL090 EQU * . =24«, t00=0x004e, t01=0x0188}
0x7b6e…7b82 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x004f, t01=0x0012}
0x7b82…7ba6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,50 NUMBER OF DELAYS «, t00=0x004f, t01=0x0026}
0x7ba6…7bba Head {h00=0x0010, h01=0x0050, text=»PRL100 EQU *«, t00=0x004f, t01=0x004a}
0x7bba…7bde Head {h00=0x0020, h01=0x0050, text=» LDKL A8,1 WAIT FOR A WHILE «, t00=0x004f, t01=0x005e}
0x7bde…7bea Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004f, t01=0x0082}
0x7bea…7bfa Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x004f, t01=0x008e}
0x7bfa…7c14 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x004f, t01=0x009e}
0x7c14…7c36 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 PRINT COMPL.? «, t00=0x004f, t01=0x00b8}
0x7c36…7c50 Head {h00=0x0016, h01=0x0050, text=» RF(N) PRL150 YES «, t00=0x004f, t01=0x00da}
0x7c50…7c74 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 MORE TO WAIT FOR? «, t00=0x004f, t01=0x00f4}
0x7c74…7c8e Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PRL100 YES«, t00=0x004f, t01=0x0118}
0x7c8e…7c9a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004f, t01=0x0132}
0x7c9a…7cb0 Head {h00=0x0012, h01=0x0050, text=» DATA 10 ABORT«, t00=0x004f, t01=0x013e}
0x7cb0…7cc0 Head {h00=0x000c, h01=0x0050, text=» . =27«, t00=0x004f, t01=0x0154}
0x7cc0…7ce4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE ERROR =27«, t00=0x004f, t01=0x0164}
0x7ce4…7cf6 Head {h00=0x000e, h01=0x0050, text=» RF PRL300«, t00=0x004f, t01=0x0188}
0x7cf6…7d0a Head {h00=0x0010, h01=0x0050, text=»PRL150 EQU *«, t00=0x0050, t01=0x000a}
0x7d0a…7d18 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0050, t01=0x001e}
0x7d18…7d36 Head {h00=0x001a, h01=0x0050, text=» DATA 2 RESYNCHRONIZE «, t00=0x0050, t01=0x002c}
0x7d36…7d52 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0050, t01=0x004a}
0x7d52…7d76 Head {h00=0x0020, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE «, t00=0x0050, t01=0x0066}
0x7d76…7da0 Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x0050, t01=0x008a}
0x7da0…7db4 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0050, t01=0x00b4}
0x7db4…7dd0 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0050, t01=0x00c8}
0x7dd0…7e0a Head {h00=0x0036, h01=0x0050, text=» ANKL A1,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x0050, t01=0x00e4}
0x7e0a…7e2a Head {h00=0x001c, h01=0x0050, text=» RF(NZ) PRL300 YES! =23 «, t00=0x0050, t01=0x011e}
0x7e2a…7e3e Head {h00=0x0010, h01=0x0050, text=»PRL200 EQU *«, t00=0x0050, t01=0x013e}
0x7e3e…7e5a Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0050, t01=0x0152}
0x7e5a…7e86 Head {h00=0x0028, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =36 «, t00=0x0050, t01=0x016e}
0x7e86…7eb4 Head {h00=0x002a, h01=0x0050, text=» LD A8,ECBBA,A8 SET BUFFER POINTER =36«, t00=0x0051, t01=0x000a}
0x7eb4…7ee8 Head {h00=0x0030, h01=0x0050, text=» AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x0051, t01=0x0038}
0x7ee8…7efc Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0051, t01=0x006c}
0x7efc…7f18 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0051, t01=0x0080}
0x7f18…7f42 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0051, t01=0x009c}
0x7f42…7f66 Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0051, t01=0x00c6}
0x7f66…7f7a Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0051, t01=0x00ea}
0x7f7a…7f8c Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0051, t01=0x00fe}
0x7f8c…7fa8 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0051, t01=0x0110}
0x7fa8…7fba Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0051, t01=0x012c}
0x7fba…7fce Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0051, t01=0x013e}
0x7fce…7fec Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0051, t01=0x0152}
0x7fec…8004 Head {h00=0x0014, h01=0x0050, text=» RF PRL900 . =6 «, t00=0x0051, t01=0x0170}
0x8004…8018 Head {h00=0x0010, h01=0x0050, text=»PRL300 EQU *«, t00=0x0051, t01=0x0188}
0x8018…8046 Head {h00=0x002a, h01=0x0050, text=» LD A2,PRTID,A11 GET PRINTER TASKID =6«, t00=0x0052, t01=0x000c}
0x8046…805e Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF . =6«, t00=0x0052, t01=0x003a}
0x805e…8076 Head {h00=0x0014, h01=0x0050, text=» SUK A2,/30 . =6«, t00=0x0052, t01=0x0052}
0x8076…808c Head {h00=0x0012, h01=0x0050, text=» SLL A2,2 . =6«, t00=0x0052, t01=0x006a}
0x808c…80b6 Head {h00=0x0026, h01=0x0050, text=» LD A3,+6,A13 COMMON BLOCK BASE =6«, t00=0x0052, t01=0x0080}
0x80b6…80d2 Head {h00=0x0018, h01=0x0050, text=» ADK A3,TSKTAB . =6 «, t00=0x0052, t01=0x00aa}
0x80d2…80ea Head {h00=0x0014, h01=0x0050, text=» ADR A3,A2 . =6 «, t00=0x0052, t01=0x00c6}
0x80ea…8114 Head {h00=0x0026, h01=0x0050, text=» SC A1,+3,A3 SET PRINTER STATUS =6«, t00=0x0052, t01=0x00de}
0x8114…812e Head {h00=0x0016, h01=0x0050, text=»PRL900 EQU * . =6 «, t00=0x0052, t01=0x0108}
0x812e…813e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x0122}
0x813e…815a Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0052, t01=0x0132}
0x815a…8170 Head {h00=0x0012, h01=0x0050, text=» EJECT . =24 «, t00=0x0052, t01=0x014e}
0x8170…81c0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0052, t01=0x0164}
0x81c0…81ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0024}
0x81ca…8210 Head {h00=0x0042, h01=0x0050, text=»* PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER «, t00=0x0053, t01=0x002e}
0x8210…821a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0074}
0x821a…826a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0053, t01=0x007e}
0x826a…8274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00ce}
0x8274…828e Head {h00=0x0016, h01=0x0050, text=»PRCCH EQU * . =24 «, t00=0x0053, t01=0x00d8}
0x828e…82be Head {h00=0x002c, h01=0x0050, text=» LD A1,PRCCCT,A11 ANYTHING TO SEND? =24 «, t00=0x0053, t01=0x00f2}
0x82be…82e2 Head {h00=0x0020, h01=0x0050, text=» RB(Z) PRL900 NO! RETURN =24«, t00=0x0053, t01=0x0122}
0x82e2…830c Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBPRT,A11 ECB ADDRESS =24 «, t00=0x0053, t01=0x0146}
0x830c…8338 Head {h00=0x0028, h01=0x0050, text=» RB PRL065 SEND CH:S TO PRINTER =36 «, t00=0x0053, t01=0x0170}
0x8338…834c Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0054, t01=0x000c}
0x834c…835a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0020}
0x835a…83a6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0054, t01=0x002e}
0x83a6…83f2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0054, t01=0x007a}
0x83f2…843e Head {h00=0x0048, h01=0x0050, text=»* INIT INIT ROUTINE * «, t00=0x0054, t01=0x00c6}
0x843e…848a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0054, t01=0x0112}
0x848a…84d6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0054, t01=0x015e}
0x84d6…84e8 Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x0055, t01=0x001a}
0x84e8…850a Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x0055, t01=0x002c}
0x850a…852e Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x0055, t01=0x004e}
0x852e…8540 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0055, t01=0x0072}
0x8540…8552 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0055, t01=0x0084}
0x8552…8566 Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0055, t01=0x0096}
0x8566…8590 Head {h00=0x0026, h01=0x0050, text=» ST A2,PRTID,A11 SAVE WHOLE TASKID«, t00=0x0055, t01=0x00aa}
0x8590…85c6 Head {h00=0x0032, h01=0x0050, text=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX «, t00=0x0055, t01=0x00d4}
0x85c6…85ec Head {h00=0x0022, h01=0x0050, text=» LD A7,PRTTAB NUMBER OF TYPES «, t00=0x0055, t01=0x010a}
0x85ec…861c Head {h00=0x002c, h01=0x0050, text=» LDKL A1,PRTTAB+2 START OF PRINTER TABLE«, t00=0x0055, t01=0x0130}
0x861c…8630 Head {h00=0x0010, h01=0x0050, text=»INI100 EQU *«, t00=0x0055, t01=0x0160}
0x8630…8658 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CONVERT TYPE TO INDEX«, t00=0x0055, t01=0x0174}
0x8658…866e Head {h00=0x0012, h01=0x0050, text=» RF(E) INI200 «, t00=0x0056, t01=0x000c}
0x866e…8680 Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0056, t01=0x0022}
0x8680…869e Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ILLEGAL ID? «, t00=0x0056, t01=0x0034}
0x869e…86b8 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) INI100 NO «, t00=0x0056, t01=0x0052}
0x86b8…86ca Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0056, t01=0x006c}
0x86ca…86e2 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0056, t01=0x007e}
0x86e2…86ee Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0056, t01=0x0096}
0x86ee…8708 Head {h00=0x0016, h01=0x0050, text=» DATA 3 FORGET IT «, t00=0x0056, t01=0x00a2}
0x8708…871c Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x0056, t01=0x00bc}
0x871c…8730 Head {h00=0x0010, h01=0x0050, text=» LD A1,+2,A1«, t00=0x0056, t01=0x00d0}
0x8730…875c Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTTYP,A11 SAVE PRINTER TYPE «, t00=0x0056, t01=0x00e4}
0x875c…8778 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0056, t01=0x0110}
0x8778…87aa Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBPRT,A11 PRINTER ECB ADDRESS =24 «, t00=0x0056, t01=0x012c}
0x87aa…87dc Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBBA,A2 PRINTER BUFFER ADDRESS =24«, t00=0x0056, t01=0x015e}
0x87dc…880c Head {h00=0x002c, h01=0x0050, text=» ST A2,PRBA,A11 SAVE IT IN WORK AREA =24«, t00=0x0056, t01=0x0190}
0x880c…8824 Head {h00=0x0014, h01=0x0050, text=» LDK A2,1 . =25 «, t00=0x0057, t01=0x0030}
0x8824…884e Head {h00=0x0026, h01=0x0050, text=» ST A2,PRLMAR,A11 ALLOW FOR CR =25«, t00=0x0057, t01=0x0048}
0x884e…887e Head {h00=0x002c, h01=0x0050, text=» IFF LMARG=0 LEFT MARGIN FOR PRINTER =25«, t00=0x0057, t01=0x0072}
0x887e…889c Head {h00=0x001a, h01=0x0050, text=» LD A1,LMARGT,A1 . =25«, t00=0x0057, t01=0x00a2}
0x889c…88d2 Head {h00=0x0032, h01=0x0050, text=» ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25«, t00=0x0057, t01=0x00c0}
0x88d2…88e6 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0057, t01=0x00f6}
0x88e6…88f6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x010a}
0x88f6…8904 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x011a}
0x8904…894e Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0057, t01=0x0128}
0x894e…8998 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0057, t01=0x0172}
0x8998…89e2 Head {h00=0x0046, h01=0x0050, text=»* TSTPRT TEST HARDWARE * «, t00=0x0058, t01=0x002c}
0x89e2…8a2c Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0058, t01=0x0076}
0x8a2c…8a76 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0058, t01=0x00c0}
0x8a76…8a8a Head {h00=0x0010, h01=0x0050, text=»TSTPRT EQU *«, t00=0x0058, t01=0x010a}
0x8a8a…8a9a Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0058, t01=0x011e}
0x8a9a…8ab4 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0058, t01=0x012e}
0x8ab4…8ad4 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x0058, t01=0x0148}
0x8ad4…8ae8 Head {h00=0x0010, h01=0x0050, text=»TSTP10 EQU *«, t00=0x0058, t01=0x0168}
0x8ae8…8af4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0058, t01=0x017c}
0x8af4…8b04 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0058, t01=0x0188}
0x8b04…8b20 Head {h00=0x0018, h01=0x0050, text=» LD A4,ECBRC,A8 . =6«, t00=0x0059, t01=0x0008}
0x8b20…8b5a Head {h00=0x0036, h01=0x0050, text=» ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x0059, t01=0x0024}
0x8b5a…8b78 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TSTP20 NO! =31 «, t00=0x0059, t01=0x005e}
0x8b78…8ba2 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 YES. INDICATE ERROR =31 «, t00=0x0059, t01=0x007c}
0x8ba2…8bbc Head {h00=0x0016, h01=0x0050, text=»TSTP20 EQU * . =31«, t00=0x0059, t01=0x00a6}
0x8bbc…8bcc Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0059, t01=0x00c0}
0x8bcc…8bea Head {h00=0x001a, h01=0x0050, text=» LD A2,PRTID,A11 . =6 «, t00=0x0059, t01=0x00d0}
0x8bea…8bfe Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0059, t01=0x00ee}
0x8bfe…8c12 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0059, t01=0x0102}
0x8c12…8c24 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0059, t01=0x0116}
0x8c24…8c3a Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x0059, t01=0x0128}
0x8c3a…8c50 Head {h00=0x0012, h01=0x0050, text=» LDK A1,TSKTAB«, t00=0x0059, t01=0x013e}
0x8c50…8c62 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0059, t01=0x0154}
0x8c62…8c74 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0059, t01=0x0166}
0x8c74…8c84 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0059, t01=0x0178}
0x8c84…8cb8 Head {h00=0x0030, h01=0x0050, text=» SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6«, t00=0x0059, t01=0x0188}
0x8cb8…8cd6 Head {h00=0x001a, h01=0x0050, text=» ANK A4,1 OPERABLE? =6«, t00=0x005a, t01=0x002c}
0x8cd6…8cf4 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TSTP90 YES! =6 «, t00=0x005a, t01=0x004a}
0x8cf4…8d06 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005a, t01=0x0068}
0x8d06…8d1a Head {h00=0x0010, h01=0x0050, text=» LDKL A8,100«, t00=0x005a, t01=0x007a}
0x8d1a…8d26 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005a, t01=0x008e}
0x8d26…8d36 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x005a, t01=0x009a}
0x8d36…8d48 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005a, t01=0x00aa}
0x8d48…8d58 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x00bc}
0x8d58…8d6a Head {h00=0x000e, h01=0x0050, text=» RB TSTP10«, t00=0x005a, t01=0x00cc}
0x8d6a…8d7a Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x00de}
0x8d7a…8d8a Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x00ee}
0x8d8a…8d9a Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x00fe}
0x8d9a…8daa Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x010e}
0x8daa…8dbe Head {h00=0x0010, h01=0x0050, text=»TSTP90 EQU *«, t00=0x005a, t01=0x011e}
0x8dbe…8dce Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x0132}
0x8dce…8ddc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0142}
0x8ddc…8e28 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x005a, t01=0x0150}
0x8e28…8e74 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x005b, t01=0x000c}
0x8e74…8ec0 Head {h00=0x0048, h01=0x0050, text=»* GETTAB GET ORDER INDEX * «, t00=0x005b, t01=0x0058}
0x8ec0…8f0c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x005b, t01=0x00a4}
0x8f0c…8f58 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x005b, t01=0x00f0}
0x8f58…8f6c Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x005b, t01=0x013c}
0x8f6c…8f9e Head {h00=0x002e, h01=0x0050, text=» LD A7,PRTORD NUMBER OF VALID ORDER CODES «, t00=0x005b, t01=0x0150}
0x8f9e…8fc8 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PRTORD+2 ORDERTABLE BASE «, t00=0x005b, t01=0x0182}
0x8fc8…8fdc Head {h00=0x0010, h01=0x0050, text=»GETT10 EQU *«, t00=0x005c, t01=0x001c}
0x8fdc…900c Head {h00=0x002c, h01=0x0050, text=» CCR A2,A1 CONVERT ORDER CODE TO ADDRESS«, t00=0x005c, t01=0x0030}
0x900c…9022 Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x005c, t01=0x0060}
0x9022…9038 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x005c, t01=0x0076}
0x9038…904e Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x005c, t01=0x008c}
0x904e…9060 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x005c, t01=0x00a2}
0x9060…907e Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ORDER FOUND?«, t00=0x005c, t01=0x00b4}
0x907e…909e Head {h00=0x001c, h01=0x0050, text=» RF(Z) GETT30 NO INVALID«, t00=0x005c, t01=0x00d2}
0x909e…90ba Head {h00=0x0018, h01=0x0050, text=» RB GETT10 TRY AGAIN«, t00=0x005c, t01=0x00f2}
0x90ba…90ce Head {h00=0x0010, h01=0x0050, text=»GETT20 EQU *«, t00=0x005c, t01=0x010e}
0x90ce…90e0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x005c, t01=0x0122}
0x90e0…90fa Head {h00=0x0016, h01=0x0050, text=» LD A2,PRTTYP,A11 «, t00=0x005c, t01=0x0134}
0x90fa…910c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x005c, t01=0x014e}
0x910c…9120 Head {h00=0x0010, h01=0x0050, text=»GETT30 EQU *«, t00=0x005c, t01=0x0160}
0x9120…9134 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x005c, t01=0x0174}
0x9134…9144 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x0188}
0x9144…914c Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0008}
0x914c…9158 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005d, t01=0x0010}
0x9158…915c Head {h00=0x4004, h01=0x0000}
0x915c…9160 00 5d 00 1c ┆ ] ┆
0x9160…9168 (94, 1, 8) 20 04 00 00 00 5e 00 04 ┆ ^ ┆
0x9168…91b8 (95, 0, 400) 00 36 01 8c 00 12 00 50 5c 4c 44 4b 4c 5c 41 33 2c 52 45 47 49 20 00 37 00 08 00 10 00 50 5c 41 44 52 5c 41 33 2c 41 31 31 20 00 37 00 1e 00 14 00 50 5c 4c 44 4b 5c 41 32 2c 32 5c 4c 45 4e 47 54 48 00 37 00 32 00 22 00 50 5c 43 46 5c 41 31 ┆ 6 P LDKL A3,REGI 7 P ADR A3,A11 7 P LDK A2,2 LENGTH 7 2 " P CF A1┆
0x91b8…9208 34 2c 49 43 52 45 41 44 5c 52 45 41 44 20 49 4e 54 45 52 54 41 53 4b 20 00 37 00 4a 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 37 00 70 00 0a 00 50 5c 45 4a 45 43 54 00 37 00 80 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆4,ICREAD READ INTERTASK 7 J P RTN A14 7 p P EJECT 7 D P******************┆
0x9208…9258 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 37 00 8e 00 44 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆********************************************** 7 D P* ┆
0x9258…92a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 37 00 d6 00 44 00 50 2a 20 20 20 20 20 20 49 43 49 4e 50 20 20 20 20 20 20 20 49 4e 54 45 52 54 41 53 4b 20 49 4e 50 55 54 ┆ * 7 D P* ICINP INTERTASK INPUT┆
0x92a8…92f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 37 01 1e 00 44 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 7 D P* ┆
0x92f8…9348 (96, 0, 398) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 37 01 66 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 7 f D P**************************************************┆
0x9348…9398 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 38 00 1e 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 47 49 53 54 45 52 53 20 00 38 00 66 00 06 00 50 2a 20 00 38 00 86 00 1c 00 50 2a 5c 41 31 31 3d 20 43 52 45 44 49 54 20 57 4f ┆************** 8 P* REGISTERS 8 f P* 8 P* A11= CREDIT WO┆
0x9398…93e8 52 4b 20 41 52 45 41 20 00 38 00 90 00 14 00 50 2a 5c 41 31 33 3d 20 52 45 53 45 52 56 45 44 20 00 38 00 b0 00 06 00 50 2a 20 00 38 00 c8 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RK AREA 8 P* A13= RESERVED 8 P* 8 D P******************************┆
0x93e8…9438 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 38 00 d2 00 10 00 50 49 43 49 4e 50 5c 45 51 55 5c 2a 20 00 38 01 1a 00 14 00 50 5c 4c 44 2a 5c 41 32 2c 45 43 42 42 41 2c 41 38 00 38 ┆********************************** 8 PICINP EQU * 8 P LD* A2,ECBBA,A8 8┆
0x9438…9486 01 2e 00 12 00 50 5c 49 46 54 5c 43 4f 50 43 4d 44 3d 31 20 00 38 01 46 00 1c 00 50 5c 4c 44 52 5c 41 31 2c 41 32 5c 43 4f 50 59 20 43 4f 4d 4d 41 4e 44 3f 00 38 01 5c 00 16 00 50 5c 52 46 28 4e 4e 29 5c 49 43 49 4e 38 30 5c 4e 4f 20 ┆ . P IFT COPCMD=1 8 F P LDR A1,A2 COPY COMMAND? 8 P RF(NN) ICIN80 NO ┆
0x9486…94d6 (97, 0, 398) 00 38 01 7c 00 20 00 50 5c 4c 44 4b 4c 5c 41 33 2c 42 56 44 55 5c 42 55 46 46 45 52 20 54 4f 20 53 45 4e 44 00 39 00 08 00 10 00 50 5c 41 44 52 5c 41 33 2c 41 31 31 20 00 39 00 2c 00 10 00 50 5c 49 46 54 5c 43 4f 50 4c 3d 31 20 00 39 00 40 ┆ 8 | P LDKL A3,BVDU BUFFER TO SEND 9 P ADR A3,A11 9 , P IFT COPL=1 9 @┆
0x94d6…9526 00 28 00 50 5c 4c 43 52 5c 41 32 2c 41 33 5c 43 48 45 43 4b 20 49 46 20 41 4c 4c 4f 57 45 44 20 54 4f 20 43 4f 50 59 20 00 39 00 54 00 1c 00 50 5c 43 43 4b 5c 41 32 2c 2f 38 30 30 30 5c 41 54 54 52 49 42 55 54 45 3f 00 39 00 80 00 14 00 50 ┆ ( P LCR A2,A3 CHECK IF ALLOWED TO COPY 9 T P CCK A2,/8000 ATTRIBUTE? 9 P┆
0x9526…9576 5c 52 46 28 4c 29 5c 49 43 49 4e 32 30 5c 4e 4f 00 39 00 a0 00 1a 00 50 5c 41 4e 4b 5c 41 32 2c 2f 32 30 5c 50 52 4f 54 45 43 54 45 44 3f 00 39 00 b8 00 22 00 50 5c 52 46 28 4e 5a 29 5c 49 43 49 4e 39 30 5c 59 45 53 20 44 4f 4e 27 54 20 43 ┆ RF(L) ICIN20 NO 9 P ANK A2,/20 PROTECTED? 9 " P RF(NZ) ICIN90 YES DON'T C┆
0x9576…95c6 4f 50 59 20 00 39 00 d6 00 10 00 50 49 43 49 4e 32 30 5c 45 51 55 5c 2a 00 39 00 fc 00 08 00 50 5c 58 49 46 00 39 01 10 00 12 00 50 5c 49 46 54 5c 43 4f 50 43 4d 44 3d 31 20 00 39 01 1c 00 20 00 50 5c 4c 44 5c 41 32 2c 45 43 42 43 57 2c 41 ┆OPY 9 PICIN20 EQU * 9 P XIF 9 P IFT COPCMD=1 9 P LD A2,ECBCW,A┆
0x95c6…9614 38 5c 47 45 54 20 54 4f 20 57 48 4f 4d 20 00 39 01 32 00 16 00 50 5c 4c 44 5c 41 38 2c 45 43 42 49 43 57 2c 41 31 31 20 00 39 01 56 00 1e 00 50 5c 43 46 5c 41 31 34 2c 49 43 53 45 54 5c 53 45 54 20 54 49 4d 45 4f 55 54 20 00 39 01 70 ┆8 GET TO WHOM 9 2 P LD A8,ECBICW,A11 9 V P CF A14,ICSET SET TIMEOUT 9 p┆
0x9614…9664 (98, 0, 398) 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 32 00 3a 00 04 00 1e 00 50 5c 4c 44 4b 4c 5c 41 32 2c 4c 42 56 44 55 2b 2f 32 30 5c 4c 45 4e 47 54 48 20 00 3a 00 16 00 1e 00 50 5c 43 46 5c 41 31 34 2c 49 43 57 52 54 5c 53 45 4e 44 20 49 54 20 41 57 ┆ P LDR A1,A2 : P LDKL A2,LBVDU+/20 LENGTH : P CF A14,ICWRT SEND IT AW┆
0x9664…96b4 41 59 00 3a 00 38 00 28 00 50 5c 4c 44 4b 4c 5c 41 31 2c 48 43 50 4d 4f 44 5c 48 41 52 44 43 4f 50 59 20 4f 55 54 53 54 41 4e 44 49 4e 47 00 3a 00 5a 00 16 00 50 5c 4f 52 53 5c 41 31 2c 42 53 43 4d 4f 44 2c 41 31 31 00 3a 00 86 00 0e 00 50 ┆AY : 8 ( P LDKL A1,HCPMOD HARDCOPY OUTSTANDING : Z P ORS A1,BSCMOD,A11 : P┆
0x96b4…9704 5c 52 46 5c 49 43 49 4e 39 30 00 3a 00 a0 00 10 00 50 49 43 49 4e 38 30 5c 45 51 55 5c 2a 00 3a 00 b2 00 08 00 50 5c 58 49 46 00 3a 00 c6 00 2e 00 50 5c 4c 44 4b 4c 5c 41 31 2c 48 43 50 4d 4f 44 5c 52 45 53 45 54 20 48 41 52 44 43 4f 50 59 ┆ RF ICIN90 : PICIN80 EQU * : P XIF : . P LDKL A1,HCPMOD RESET HARDCOPY┆
0x9704…9754 20 4f 55 54 53 54 41 4e 44 49 4e 47 00 3a 00 d2 00 0e 00 50 5c 49 46 54 5c 53 4e 41 3d 31 00 3a 01 04 00 16 00 50 5c 58 52 53 5c 41 31 2c 53 4e 41 4d 4f 44 2c 41 31 31 00 3a 01 16 00 08 00 50 5c 58 49 46 00 3a 01 30 00 0e 00 50 5c 49 46 46 ┆ OUTSTANDING : P IFT SNA=1 : P XRS A1,SNAMOD,A11 : P XIF : 0 P IFF┆
0x9754…97a2 5c 53 4e 41 3d 31 00 3a 01 3c 00 16 00 50 5c 58 52 53 5c 41 31 2c 42 53 43 4d 4f 44 2c 41 31 31 00 3a 01 4e 00 08 00 50 5c 58 49 46 00 3a 01 68 00 1a 00 50 5c 41 4e 4b 5c 41 32 2c 31 5c 50 52 49 4e 54 45 52 20 4f 4b 3f 20 00 3a 01 74 ┆ SNA=1 : < P XRS A1,BSCMOD,A11 : N P XIF : h P ANK A2,1 PRINTER OK? : t┆
0x97a2…97f2 (99, 0, 400) 00 16 00 50 5c 52 46 28 5a 29 5c 49 43 49 4e 39 30 5c 59 45 53 20 00 3b 00 04 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 50 35 46 4c 00 3b 00 1e 00 10 00 50 49 43 49 4e 39 30 5c 45 51 55 5c 2a 00 3b 00 34 00 0c 00 50 5c 52 54 4e 5c 41 31 34 ┆ P RF(Z) ICIN90 YES ; P CF A14,LMP5FL ; PICIN90 EQU * ; 4 P RTN A14┆
0x97f2…9842 00 3b 00 48 00 0a 00 50 5c 45 4a 45 43 54 00 3b 00 58 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; H P EJECT ; X @ P**********************************************************┆
0x9842…9892 2a 20 00 3b 00 66 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 3b 00 aa 00 40 00 50 2a 20 20 20 ┆* ; f > P* * ; @ P* ┆
0x9892…98e2 20 20 20 20 49 43 53 45 54 20 20 20 20 20 20 20 53 45 54 20 49 4e 54 45 52 54 41 53 4b 20 54 49 4d 45 4f 55 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 3b 00 ec 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ICSET SET INTERTASK TIMEOUT * ; > P* ┆
0x98e2…9932 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 3b 01 30 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * ; 0 @ P******************************┆
0x9932…9982 (100, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 3b 01 72 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 47 49 53 54 45 52 53 20 00 3c 00 26 00 06 00 50 2a 20 00 3c 00 46 00 12 00 50 ┆***************************** ; r P* REGISTERS < & P* < F P┆
0x9982…99d2 2a 5c 41 32 3d 20 52 45 53 45 52 56 45 44 00 3c 00 50 00 18 00 50 2a 5c 41 38 3d 20 49 4e 54 45 52 54 41 53 4b 20 45 43 42 20 00 3c 00 66 00 14 00 50 2a 5c 41 31 31 3d 20 52 45 53 45 52 56 45 44 20 00 3c 00 82 00 14 00 50 2a 5c 41 31 33 3d ┆* A2= RESERVED < P P* A8= INTERTASK ECB < f P* A11= RESERVED < P* A13=┆
0x99d2…9a22 20 52 45 53 45 52 56 45 44 20 00 3c 00 9a 00 06 00 50 2a 20 00 3c 00 b2 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RESERVED < P* < > P****************************************************┆
0x9a22…9a72 2a 2a 2a 2a 2a 2a 00 3c 00 bc 00 10 00 50 49 43 53 45 54 5c 45 51 55 5c 2a 20 00 3c 00 fe 00 1a 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2d 31 5c 4e 4f 20 54 49 4d 45 4f 55 54 00 3c 01 12 00 14 00 50 5c 53 54 5c 41 31 2c 45 43 42 43 57 2c 41 38 20 ┆****** < PICSET EQU * < P LDKL A1,-1 NO TIMEOUT < P ST A1,ECBCW,A8 ┆
0x9a72…9ac2 00 3c 01 30 00 1c 00 50 5c 4c 44 4b 5c 41 37 2c 2f 42 39 5c 53 45 54 20 54 49 4d 45 4f 55 54 20 00 3c 01 48 00 08 00 50 5c 4c 4b 4d 00 3c 01 68 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 3c 01 74 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 3c 01 84 ┆ < 0 P LDK A7,/B9 SET TIMEOUT < H P LKM < h P DATA 1 < t P RTN A14 < ┆