|
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: 39624 (0x9ac8)
Notes: pts_type(SC)
Names: »PRINT.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »KJELL/PRINT.SC«
IDENT PRINT REL 11.1 82-07-07 DK 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 2 X:O EQU 0 TEST MODE IF:=1 TEST EQU X:O X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4 TRANAT EQU X:R . =4 * BASWRI EQU 1 BASIC WRITE ON PRINTER =24 SCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 LMARG EQU 0 LEFT MARGIN FOR PRINTER =25 EJECT ******************************************************************* * * * DECLARATIONS OF DATA AND EQUATES * * ******************************************************************* * * TABLE OF PRINTER TYPES * PRTTAB EQU * DATA /0004 NUMBER OF PRINTERTYPES DATA 'TT',0 GTP DATA 'LL',2 LINE PRINTER DATA 'GG',4 GP 74 DATA 'CC',6 COPY 80 * * DEFAULT VALUES FOR DIFF. PRINTERS * BYTE1= NUMBER OF LINES/PAGE * BYTE2= NUMBER OF CHAR./LINE * PRTLEN DATA /2382 GTP DATA /2382 LP DATA /2382 GP 74 DATA /2382 COPY 80 IFF LMARG=0 . =25 LMARGT EQU * NO. OF POSITIONS IN LEFT MARGIN =25 DATA 0 GTP =25 DATA 0 LP =25 DATA 3 GP74 =25 DATA 0 COPY80 =25 XIF . =25 * =24 IFF BASWRI=1 . =36 PRBFL EQU 132 PRINTER BUFFER LENGTH =24 =BUFL-2 (IN DATXXX) =24 XIF . =36 IFT BASWRI=1 . =36 PRBFL EQU 256 PRINTER BUFFER LENGTH =36 =BUFL IN DATXXX =36 XIF . =36 * * LINE LENGTHS FROM WCC * LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * PRINTER MODES * LOCAL EQU 0 LOCAL MODE SHARED EQU 2 SHARED MODE * * PRINTER STATUS IN PRTMOD * PRTERR EQU /4000 PRINTER ERROR * * COPY INTERNAL STATUS IN A10 * NXTCHA EQU /8000 GET NEXT CHAR. ENDPRT EQU /4000 END PRINTING NTONLY EQU /2000 NOT ONLY SPACES CRREC EQU /1000 CR RECEIVED FFCCH EQU /0800 FF CCH IND. =36 * * 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 * ORKL A10,NXTCHA+NTONLY GET NEXT CHAR. CF A14,PRLINE PRINT LINE AFTER NEW LINE . =DK RTN A14 EJECT ********************************************************************** * * * FFDUM SIMULATED FORM FEED * * * ********************************************************************** FFDUM EQU * CF A14,FFCHK CHECK IF FORM FEED IS VALID LDR A1,A1 VALID? RF(NZ) FFD400 NO LDK A7,0 RESET LD A1,PRTTYP,A11 TYPE OF PRINTER LC A7,PRTLEN,A1 PAGE SIZE FFD100 EQU * CW A7,LINCNT,A11 NEW PAGE? RF(L) FFD200 YES BUT TO MANY RF(E) FFD300 YES FINISHED ORKL A10,NTONLY ST A7,REGI,A11 SAVE CF A14,PRLINE ADVANCE ONE LINE LD A7,REGI,A11 RESTORE LDR A1,A1 PRINTER ERROR? RF(NZ) FFD500 YES RB FFD100 FFD200 EQU * NGR A1,A7 ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE RB FFD100 FFD300 EQU * CM LINCNT,A11 TOP OF PAGE LDK A2,/20 REPLACE FF WITH SPACE FFD400 EQU * LDK A1,0 RETURN CODE FFD500 EQU * RTN A14 EJECT ********************************************************************* * * * FFVAL FORM FEED * * * ********************************************************************* FFVAL EQU * CF A14,FFCHK CHECK IF FF VALID LDR A1,A1 VALID? RF(NZ) FFV200 NO . =36 IFF BASWRI=1 . =30 LDK A1,/31 FF FOR STANDARD WRITE =30 SC A1,-1,A8 STORE FF CONTROL CHAR. XIF . =24 IFT BASWRI=1 . =24 ORKL A10,FFCCH IND. FF CCH =36 CF A14,PRLINE PRINT LINE =36 XIF . =24 ORKL A10,NXTCHA . =DK CM LINCNT,A11 TOP OF PAGE FFV200 EQU * LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************** * * * CR CARRIAGE RETURN * * * ********************************************************************** CR EQU * LDR A1,A6 GET ATTRIBUTE ANK A1,/C XRK A1,/C NONPRINT FIELD? RF(Z) CR100 YES LD A1,WCC,A11 ANK A1,/30 FORMATTED? RF(NZ) CR100 NO ORKL A10,NTONLY+CRREC CR RECEIVED CR100 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,0 RETURN CODE RTN A14 EJECT ********************************************************************* * * * EM END MESSAGE * * * ******************************************************************** EM EQU * ORKL A10,ENDPRT END PRINTING LDK A1,0 RETURN CODE RTN A14 EJECT ****************************************************************** * * * INVAL INVALID PRINTER ORDER * * * ****************************************************************** * * ALSO HANDLING: * DUP & FM CHARACTERS * INVAL EQU * LDR A1,A2 SAVE CHAR =37 CF A14,RFMDUP REPLACE IF DUP OR FM =37 SUR A1,A2 REPLACED? =37 RF(NZ) INVA10 YES! =37 NO! I.E. INVALID ORDER =37 LDK A2,/20 REPLACE WITH SPACE INVA10 EQU * . =37 ORKL A10,NTONLY NOT ONLY LDK A1,0 RETURN CODE RTN A14 EJECT ***************************************************************** * * * FFCHK CHECK IF FF IS VALID * * * ***************************************************************** FFCHK EQU * LD A1,WCC,A11 ANK A1,/30 XRK A1,/30 FORMATTED? RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY LD A1,WCC,A11 ANK A1,/40 LOCAL HARD COPY? RF(Z) FFCH20 YES, FF NOT ALLOWED FFCH10 EQU * LDR A9,A9 FF ALLOWED RF(Z) FFCH30 NOT LDR A1,A10 ANKL A1,CRREC CR RECEIVED? RF(NZ) FFCH30 YES FFCH20 EQU * LDK A2,/20 REPLACE WITH SPACE LDK A1,1 RETURN CODE RF FFCH40 FFCH30 EQU * ANKL A10,/FFFF-CRREC RESET CR RCV =3 LDR A9,A9 EMPTY LINE RF(Z) FFCH35 YES CF A14,PRLINE PRINT LINE FFCH35 EQU * LDK A1,0 RETURN CODE FFCH40 EQU * ORKL A10,NTONLY NOT ONLY RTN A14 EJECT **************************************************************** * * * PRLINE PRINT LINE * * * **************************************************************** PRLINE EQU * LD A8,ECBPRT,A11 LDR A1,A10 ANKL A1,NTONLY ONLY RUBB.? RF(NZ) PRL050 NO LD A1,WCC,A11 LDR A2,A1 ANK A1,/30 XRK A1,/30 HRADCOPY? RF(NZ) PRL200 NO ANK A2,/40 HARDCOPY????? RF(NZ) PRL200 NO PRL050 EQU * ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 IFF BASWRI=1 . =24 LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 ADS A9,ECBRL,A8 . =3 LDK A7,/06 PRINT LKM DATA 1 XIF . =24 IFT BASWRI=1 . =24 LD A1,ECBRL,A8 TEXT TO PRINT? =24 RF(Z) PRL070 NO! JUST CONTROL CH =24 EJECT HANDLING A TEXT LINE =36 PREPARE LINE. FIRST LEFT MARGIN =36 IFF LMARG=0 . =36 LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 LD A1,PRLMAR,A11 . =36 AD A1,ECBBA,A8 . =36 SUK A1,1 . =36 PRL055 EQU * . =36 SCR A7,A1 . =36 SUK A1,1 . =36 CW A1,ECBBA,A8 FINISHED? =36 RB(G) PRL055 NO! =36 XIF . =36 IFT BASWRI=1 . =36 . =36 LDK A7,/0D CR CCH =36 SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 IM LINCNT,A11 ANOTHER LINE =24 LDK A1,/0A LF CCH =24 LD A7,ECBRL,A8 . =24 AD A7,ECBBA,A8 . =24 AD A7,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25 SCR A1,A7 LF CCH LAST IN BUF =25 . =35 CALCULATE LINE LENGTH =36 LDK A1,1 ALLOW FOR LF =36 AD A1,ECBRL,A8 ALLOW FOR TEXT =36 AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36 ADS A1,ECBBA,A8 UPDATE POINTER TO BUFFER =36 EJECT . =36 PRL060 EQU * ENOUGH SPACE FOR ANOTHER LINE? =36 LDKL A1,PRBFL BUFFER LENGTH =36 SU A1,PRCCCT,A11 USED PART OF BUFFER =36 SUR A1,A5 MAX. LINE LENGTH =36 SU A1,PRLMAR,A11 LEFT MARGIN =36 RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 . =36 PRL065 EQU * PRINT BUFFER =36 LD A1,PRCCCT,A11 . =36 ST A1,ECBRL,A8 REQ. LENGTH =36 LD A1,PRBA,A11 . =36 ST A1,ECBBA,A8 BUFFER ADDRESS =36 LDK A7,/05 BASIC WRITE =24 LKM . =24 DATA 1 . =24 CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24 RF PRL090 . =24 EJECT HANDLING A CONTROL CHARACTER =36 PRL070 EQU * STORE CCH IN BUFFER =24 IM LINCNT,A11 ANOTHER LINE =24 LDK A7,/0A LF CCH =24 LDR A1,A10 . =36 ANKL A1,FFCCH FORM FEED? =36 RF(Z) PRL075 NO =36 LDK A7,/0C YES. FF CCH =36 ANKL A10,/FFFF-FFCCH RESET FF IND. =36 PRL075 EQU * . =36 SC* A7,ECBBA,A8 CCH TO BUFFER =36 IM ECBBA,A8 STEP BUFFER ADDRESS =36 IM PRCCCT,A11 STEP NO. OF CH:S IN BUFFER =36 ADKL A8,1 STEP BUFFER POINTER =36 RB PRL060 CHECK IF END OF BUFFER =36 EJECT . =36 PRL090 EQU * . =24 XIF . =24 LDK A1,50 NUMBER OF DELAYS PRL100 EQU * LDKL A8,1 WAIT FOR A WHILE LKM DATA 6 LD A8,ECBPRT,A11 LDR* A2,A8 PRINT COMPL.? RF(N) PRL150 YES SUK A1,1 MORE TO WAIT FOR? RB(NZ) PRL100 YES LKM DATA 10 ABORT . =27 LDK A1,1 INDICATE ERROR =27 RF PRL300 PRL150 EQU * LKM DATA 2 RESYNCHRONIZE IFF BASWRI=1 . =24 IM LINCNT,A11 ANOTHER LINE CM ECBRL,A8 RESET PRINT LENGTH =3 XIF . =36 LD A1,ECBRC,A8 OK? ANKL A1,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 RF(NZ) PRL300 YES! =23 PRL200 EQU * IFT BASWRI=1 . =24 CM ECBRL,A8 RESET PRINT LENGTH =36 LD A8,ECBBA,A8 SET BUFFER POINTER =36 AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25 XIF . =24 IFF BASWRI=1 . =24 LD A8,ECBBA,A8 GET BUFFER ADDRESS CMR A8 RESET CONTROL CHAR. XIF . =24 SUR A9,A9 IFF BASWRI=1 . =24 ADKL A8,2 XIF . =24 LDK A1,0 RETURN CODE RF PRL900 . =6 PRL300 EQU * LD A2,PRTID,A11 GET PRINTER TASKID =6 ANK A2,/FF . =6 SUK A2,/30 . =6 SLL A2,2 . =6 LD A3,+6,A13 COMMON BLOCK BASE =6 ADK A3,TSKTAB . =6 ADR A3,A2 . =6 SC A1,+3,A3 SET PRINTER STATUS =6 PRL900 EQU * . =6 RTN A14 IFT BASWRI=1 . =24 EJECT . =24 ************************************************************************ * * PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER * ************************************************************************ * PRCCH EQU * . =24 LD A1,PRCCCT,A11 ANYTHING TO SEND? =24 RB(Z) PRL900 NO! RETURN =24 LD A8,ECBPRT,A11 ECB ADDRESS =24 RB PRL065 SEND CH:S TO PRINTER =36 XIF . =24 EJECT ******************************************************************* * * * INIT INIT ROUTINE * * * ******************************************************************* INIT EQU * CF A14,COMINI COMMON INIT CF A14,ECBINI INIT OF ECB:S LCR A2,A1 SLL A2,8 LC A2,+1,A1 ST A2,PRTID,A11 SAVE WHOLE TASKID LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX LD A7,PRTTAB NUMBER OF TYPES LDKL A1,PRTTAB+2 START OF PRINTER TABLE INI100 EQU * CCR A2,A1 CONVERT TYPE TO INDEX RF(E) INI200 ADK A1,4 SUK A7,1 ILLEGAL ID? RB(NZ) INI100 NO LDKL A1,* ST A1,REGI,A11 LKM DATA 3 FORGET IT INI200 EQU * LD A1,+2,A1 ST A1,PRTTYP,A11 SAVE PRINTER TYPE IFT BASWRI=1 . =24 LD A2,ECBPRT,A11 PRINTER ECB ADDRESS =24 LD A2,ECBBA,A2 PRINTER BUFFER ADDRESS =24 ST A2,PRBA,A11 SAVE IT IN WORK AREA =24 LDK A2,1 . =25 ST A2,PRLMAR,A11 ALLOW FOR CR =25 IFF LMARG=0 LEFT MARGIN FOR PRINTER =25 LD A1,LMARGT,A1 . =25 ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25 XIF . =24 RTN A14 EJECT ***************************************************************** * * * TSTPRT TEST HARDWARE * * * ***************************************************************** TSTPRT EQU * . =6 LD A8,ECBPRT,A11 LDK A7,/80 TEST STATUS TSTP10 EQU * LKM DATA 1 LD A4,ECBRC,A8 . =6 ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 RF(Z) TSTP20 NO! =31 LDK A4,1 YES. INDICATE ERROR =31 TSTP20 EQU * . =31 . =6 LD A2,PRTID,A11 . =6 ANK A2,/FF SUK A2,/30 SLL A2,2 LD A3,+6,A13 LDK A1,TSKTAB ADR A3,A1 ADR A3,A2 . =6 SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6 ANK A4,1 OPERABLE? =6 RF(Z) TSTP90 YES! =6 LDR A1,A8 LDKL A8,100 LKM DATA 6 LDR A8,A1 . =6 RB TSTP10 . =6 . =6 . =6 . =6 TSTP90 EQU * RTN A14 EJECT ******************************************************************* * * * GETTAB GET ORDER INDEX * * * ******************************************************************* GETTAB EQU * LD A7,PRTORD NUMBER OF VALID ORDER CODES LDKL A1,PRTORD+2 ORDERTABLE BASE GETT10 EQU * CCR A2,A1 CONVERT ORDER CODE TO ADDRESS RF(E) GETT20 AD A1,PRTTAB AD A1,PRTTAB ADK A1,2 SUK A7,1 ORDER FOUND? RF(Z) GETT30 NO INVALID RB GETT10 TRY AGAIN GETT20 EQU * ADK A1,2 LD A2,PRTTYP,A11 ADR A1,A2 GETT30 EQU * LDR* A1,A1 RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT PRINT REL 11.1 82-07-07 DK 870150541110«, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0066 Head {h00=0x0024, h01=0x0050, text=» =37 DUP OR FM CHAR ON PRINTER«, t00=0x0000, t01=0x0042}
0x0066…0088 Head {h00=0x001e, h01=0x0050, text=» =36 IMPROVEMENT OF =24 «, t00=0x0000, t01=0x006a}
0x0088…009c Head {h00=0x0010, h01=0x0050, text=» 82-06-28 «, t00=0x0000, t01=0x008c}
0x009c…00be Head {h00=0x001e, h01=0x0050, text=» =35 IMPROVEMENT OF =24 «, t00=0x0000, t01=0x00a0}
0x00be…00f2 Head {h00=0x0030, h01=0x0050, text=» =32 MISSING PRINTING AFTER PRINTER ERROR «, t00=0x0000, t01=0x00c2}
0x00f2…011a Head {h00=0x0024, h01=0x0050, text=» =31 PAPER OUT ON COPY80 (SUM)«, t00=0x0000, t01=0x00f6}
0x011a…012e Head {h00=0x0010, h01=0x0050, text=» 82-06-21 «, t00=0x0000, t01=0x011e}
0x012e…014e Head {h00=0x001c, h01=0x0050, text=» =30 IMPROVEMENT OF =5«, t00=0x0000, t01=0x0132}
0x014e…0178 Head {h00=0x0026, h01=0x0050, text=» =27 NO STATUS CHECK AFTER ABORT«, t00=0x0000, t01=0x0152}
0x0178…019a Head {h00=0x001e, h01=0x0050, text=» =26 LONG SNA CH STRING «, t00=0x0000, t01=0x017c}
0x019a…01c0 Head {h00=0x0022, h01=0x0050, text=» =25 LEFT MARGIN FOR PRINTER«, t00=0x0001, t01=0x000e}
0x01c0…01d4 Head {h00=0x0010, h01=0x0050, text=» 82-05-12 «, t00=0x0001, t01=0x0034}
0x01d4…01fa Head {h00=0x0022, h01=0x0050, text=» =24 BASIC WRITE ON PRINTER «, t00=0x0001, t01=0x0048}
0x01fa…020e Head {h00=0x0010, h01=0x0050, text=» 82-04-28 «, t00=0x0001, t01=0x006e}
0x020e…0230 Head {h00=0x001e, h01=0x0050, text=» =23 PRINTER RETURN CODE«, t00=0x0001, t01=0x0082}
0x0230…0258 Head {h00=0x0024, h01=0x0050, text=» =19 ERRONEOUS PRINTER STATUS «, t00=0x0001, t01=0x00a4}
0x0258…027c Head {h00=0x0020, h01=0x0050, text=» =18 DOUBLE SETTIM ENTRIES«, t00=0x0001, t01=0x00cc}
0x027c…0298 Head {h00=0x0018, h01=0x0050, text=» =17 TWO DC LINES «, t00=0x0001, t01=0x00f0}
0x0298…02ac Head {h00=0x0010, h01=0x0050, text=» 82-04-16 «, t00=0x0001, t01=0x010c}
0x02ac…02d4 Head {h00=0x0024, h01=0x0050, text=» =15 CORRECTION OF =7 FOR SNA «, t00=0x0001, t01=0x0120}
0x02d4…02e8 Head {h00=0x0010, h01=0x0050, text=» 82-02-12 «, t00=0x0001, t01=0x0148}
0x02e8…0312 Head {h00=0x0026, h01=0x0050, text=» =7 TEST PRINTER BEFORE CONNECT «, t00=0x0001, t01=0x015c}
0x0312…0332 Head {h00=0x001c, h01=0x0050, text=» =6 SET PRINTER STATUS«, t00=0x0001, t01=0x0186}
0x0332…0358 Head {h00=0x0022, h01=0x0050, text=» =5 DIFFERENT FF CH FOR GP74«, t00=0x0002, t01=0x0016}
0x0358…036c Head {h00=0x0010, h01=0x0050, text=» 82-01-26 «, t00=0x0002, t01=0x003c}
0x036c…0388 Head {h00=0x0018, h01=0x0050, text=» =4 NATIONAL CHAR «, t00=0x0002, t01=0x0050}
0x0388…039c Head {h00=0x0010, h01=0x0050, text=» 81-11-20 «, t00=0x0002, t01=0x006c}
0x039c…03ba Head {h00=0x001a, h01=0x0050, text=» =3 SPACE SUPRESSION«, t00=0x0002, t01=0x0080}
0x03ba…03ce Head {h00=0x0010, h01=0x0050, text=» 81-05-12 «, t00=0x0002, t01=0x009e}
0x03ce…03e6 Head {h00=0x0014, h01=0x0050, text=» =2 NEW LABEL «, t00=0x0002, t01=0x00b2}
0x03e6…03fa Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0002, t01=0x00ca}
0x03fa…041a Head {h00=0x001c, h01=0x0050, text=» =1, EOC ON FIRST READ«, t00=0x0002, t01=0x00de}
0x041a…042e Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0002, t01=0x00fe}
0x042e…047a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0002, t01=0x0112}
0x047a…04c6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0002, t01=0x015e}
0x04c6…0512 Head {h00=0x0048, h01=0x0050, text=»* MODULE PRINT : «, t00=0x0003, t01=0x001a}
0x0512…055e Head {h00=0x0048, h01=0x0050, text=»* MODULE HANDLING THE PRINTOUTS BOTH FROM * «, t00=0x0003, t01=0x0066}
0x055e…05aa Head {h00=0x0048, h01=0x0050, text=»* DISPLAY AND MAIN-FRAME * «, t00=0x0003, t01=0x00b2}
0x05aa…05f6 Head {h00=0x0048, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC * «, t00=0x0003, t01=0x00fe}
0x05f6…0642 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0003, t01=0x014a}
0x0642…068e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0004, t01=0x0008}
0x068e…069c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0054}
0x069c…06dc Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0004, t01=0x0062}
0x06dc…06e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a2}
0x06e6…0708 Head {h00=0x001e, h01=0x0050, text=»* LIST OF ROUTINES «, t00=0x0004, t01=0x00ac}
0x0708…0712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ce}
0x0712…073a Head {h00=0x0024, h01=0x0050, text=»* PRINT MAIN ROUTINE«, t00=0x0004, t01=0x00d8}
0x073a…076e Head {h00=0x0030, h01=0x0050, text=»* IOACT ACTIVATE IN CURRENT MODE«, t00=0x0004, t01=0x0100}
0x076e…07a2 Head {h00=0x0030, h01=0x0050, text=»* IOCPL COMPLETE IN CURRENT MODE«, t00=0x0004, t01=0x0134}
0x07a2…07ce Head {h00=0x0028, h01=0x0050, text=»* DCPINP DC PRINTER INPUT«, t00=0x0004, t01=0x0168}
0x07ce…07fa (5, 0, 400) Head {h00=0x0028, h01=0x0050, text=»* ICPINP INTERTASK INPUT «, t00=0x0005, t01=0x0004}
0x07fa…0824 Head {h00=0x0026, h01=0x0050, text=»* ICPRED INTERTASK READ«, t00=0x0005, t01=0x0030}
0x0824…0850 Head {h00=0x0028, h01=0x0050, text=»* ICPWRT INTERTASK WRITE «, t00=0x0005, t01=0x005a}
0x0850…087c Head {h00=0x0028, h01=0x0050, text=»* ICABOR INTERTASK ABORT «, t00=0x0005, t01=0x0086}
0x087c…08b6 Head {h00=0x0036, h01=0x0050, text=»* COPP COPY SCREEN BUFFER TO PRINTER «, t00=0x0005, t01=0x00b2}
0x08b6…08de Head {h00=0x0024, h01=0x0050, text=»* TABLE OF PRINTERORDERS «, t00=0x0005, t01=0x00ec}
0x08de…0902 Head {h00=0x0020, h01=0x0050, text=»* NL NEW LINE«, t00=0x0005, t01=0x0114}
0x0902…0932 Head {h00=0x002c, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED «, t00=0x0005, t01=0x0138}
0x0932…0958 Head {h00=0x0022, h01=0x0050, text=»* FFVAL FORM FEED «, t00=0x0005, t01=0x0168}
0x0958…0984 Head {h00=0x0028, h01=0x0050, text=»* CR CARRIAGE RETURN «, t00=0x0005, t01=0x018e}
0x0984…09ac Head {h00=0x0024, h01=0x0050, text=»* EM END MESSAGE «, t00=0x0006, t01=0x002a}
0x09ac…09de Head {h00=0x002e, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER «, t00=0x0006, t01=0x0052}
0x09de…0a0e Head {h00=0x002c, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID«, t00=0x0006, t01=0x0084}
0x0a0e…0a34 Head {h00=0x0022, h01=0x0050, text=»* PRLINE PRINT LINE«, t00=0x0006, t01=0x00b4}
0x0a34…0a5c Head {h00=0x0024, h01=0x0050, text=»* INIT INIT ROUTINE«, t00=0x0006, t01=0x00da}
0x0a5c…0a86 Head {h00=0x0026, h01=0x0050, text=»* TSTPRT TEST HARDWARE «, t00=0x0006, t01=0x0102}
0x0a86…0ab2 Head {h00=0x0028, h01=0x0050, text=»* GETTAB GET ORDER INDEX «, t00=0x0006, t01=0x012c}
0x0ab2…0abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0158}
0x0abc…0b00 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0006, t01=0x0162}
0x0b00…0b0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0016}
0x0b0e…0b5a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x0024}
0x0b5a…0ba6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0070}
0x0ba6…0bf2 Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0007, t01=0x00bc}
0x0bf2…0c3e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0108}
0x0c3e…0c8a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0007, t01=0x0154}
0x0c8a…0c92 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0010}
0x0c92…0cce Head {h00=0x0038, h01=0x0050, text=» ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT)«, t00=0x0008, t01=0x0018}
0x0cce…0d02 Head {h00=0x0030, h01=0x0050, text=» ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2«, t00=0x0008, t01=0x0054}
0x0d02…0d0a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0088}
0x0d0a…0d56 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0008, t01=0x0090}
0x0d56…0da2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0008, t01=0x00dc}
0x0da2…0dee Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0008, t01=0x0128}
0x0dee…0e3a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0008, t01=0x0174}
0x0e3a…0e86 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0009, t01=0x0030}
0x0e86…0e8e Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x007c}
0x0e8e…0ec4 Head {h00=0x0032, h01=0x0050, text=» EXTRN COMINI COMMON INITIATE ROUTINE (DSPSNA)«, t00=0x0009, t01=0x0084}
0x0ec4…0efa Head {h00=0x0032, h01=0x0050, text=» EXTRN OPINIT OPEN CONNECTION INITIATE (DCSNA9«, t00=0x0009, t01=0x00ba}
0x0efa…0f22 Head {h00=0x0024, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA)«, t00=0x0009, t01=0x00f0}
0x0f22…0f42 Head {h00=0x001c, h01=0x0050, text=» EXTRN OPEN OPEN (DCBSC)«, t00=0x0009, t01=0x0118}
0x0f42…0f6e Head {h00=0x0028, h01=0x0050, text=» EXTRN CONCT CONNECT PASSIVE (DCBSC)«, t00=0x0009, t01=0x0138}
0x0f6e…0fa2 Head {h00=0x0030, h01=0x0050, text=» EXTRN SETTYM SET REQUEST TIMER (DCBSC) =18 «, t00=0x0009, t01=0x0164}
0x0fa2…0fd2 Head {h00=0x002c, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x000a, t01=0x0008}
0x0fd2…0ffc Head {h00=0x0026, h01=0x0050, text=» EXTRN TSTMES TEST MESSAGE (DCSNA)«, t00=0x000a, t01=0x0038}
0x0ffc…1028 Head {h00=0x0028, h01=0x0050, text=» EXTRN READW READ WITH WAIT (DCSNA) «, t00=0x000a, t01=0x0062}
0x1028…1058 Head {h00=0x002c, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA) «, t00=0x000a, t01=0x008e}
0x1058…107e Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x000a, t01=0x00be}
0x107e…10a8 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x000a, t01=0x00e4}
0x10a8…10d4 Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x000a, t01=0x010e}
0x10d4…1100 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBINI INIT IF ECB:S (DSPSNA)«, t00=0x000a, t01=0x013a}
0x1100…1132 Head {h00=0x002e, h01=0x0050, text=» EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) «, t00=0x000a, t01=0x0166}
0x1132…115e Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000b, t01=0x0008}
0x115e…118a Head {h00=0x0028, h01=0x0050, text=» EXTRN ICREAD INTERTASK READ (KEYB) «, t00=0x000b, t01=0x0034}
0x118a…11b2 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCBSC)«, t00=0x000b, t01=0x0060}
0x11b2…11e0 Head {h00=0x002a, h01=0x0050, text=» EXTRN CONNAT TRANSFORM OF NAT CHAR =4«, t00=0x000b, t01=0x0088}
0x11e0…1210 Head {h00=0x002c, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM OR DUP CHAR =37«, t00=0x000b, t01=0x00b6}
0x1210…121e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00e6}
0x121e…1266 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000b, t01=0x00f4}
0x1266…12ae Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000b, t01=0x013c}
0x12ae…12f6 Head {h00=0x0044, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000b, t01=0x0184}
0x12f6…133e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000c, t01=0x003c}
0x133e…1386 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000c, t01=0x0084}
0x1386…138e Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00cc}
0x138e…13b2 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000c, t01=0x00d4}
0x13b2…13c6 Head {h00=0x0010, h01=0x0050, text=»SNA EQU X:A «, t00=0x000c, t01=0x00f8}
0x13c6…13f0 Head {h00=0x0026, h01=0x0050, text=»X:D EQU 1 NUMBER OF DC LINES (1-2)«, t00=0x000c, t01=0x010c}
0x13f0…1404 Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x000c, t01=0x0136}
0x1404…1426 Head {h00=0x001e, h01=0x0050, text=»X:O EQU 0 TEST MODE IF:=1 «, t00=0x000c, t01=0x014a}
0x1426…143a Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x000c, t01=0x016c}
0x143a…146a Head {h00=0x002c, h01=0x0050, text=»X:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4«, t00=0x000c, t01=0x0180}
0x146a…1486 Head {h00=0x0018, h01=0x0050, text=»TRANAT EQU X:R . =4 «, t00=0x000d, t01=0x0020}
0x1486…1490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003c}
0x1490…14c0 Head {h00=0x002c, h01=0x0050, text=»BASWRI EQU 1 BASIC WRITE ON PRINTER =24 «, t00=0x000d, t01=0x0046}
0x14c0…14f4 Head {h00=0x0030, h01=0x0050, text=»SCS EQU 0 SIMPLE SNA CH STRING HANDLING =26 «, t00=0x000d, t01=0x0076}
0x14f4…1524 Head {h00=0x002c, h01=0x0050, text=»LMARG EQU 0 LEFT MARGIN FOR PRINTER =25 «, t00=0x000d, t01=0x00aa}
0x1524…1532 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00da}
0x1532…157e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000d, t01=0x00e8}
0x157e…15ca Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0134}
0x15ca…15f4 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000d, t01=0x0180}
0x15f4…1640 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x000e, t01=0x001a}
0x1640…168c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000e, t01=0x0066}
0x168c…1694 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00b2}
0x1694…169e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ba}
0x169e…16be Head {h00=0x001c, h01=0x0050, text=»* TABLE OF PRINTER TYPES«, t00=0x000e, t01=0x00c4}
0x16be…16c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e4}
0x16c8…16dc Head {h00=0x0010, h01=0x0050, text=»PRTTAB EQU *«, t00=0x000e, t01=0x00ee}
0x16dc…1706 Head {h00=0x0026, h01=0x0050, text=» DATA /0004 NUMBER OF PRINTERTYPES«, t00=0x000e, t01=0x0102}
0x1706…171e Head {h00=0x0014, h01=0x0050, text=» DATA 'TT',0 GTP«, t00=0x000e, t01=0x012c}
0x171e…1740 Head {h00=0x001e, h01=0x0050, text=» DATA 'LL',2 LINE PRINTER «, t00=0x000e, t01=0x0144}
0x1740…175a Head {h00=0x0016, h01=0x0050, text=» DATA 'GG',4 GP 74«, t00=0x000e, t01=0x0166}
0x175a…1776 Head {h00=0x0018, h01=0x0050, text=» DATA 'CC',6 COPY 80«, t00=0x000e, t01=0x0180}
0x1776…1780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000c}
0x1780…17b2 Head {h00=0x002e, h01=0x0050, text=»* DEFAULT VALUES FOR DIFF. PRINTERS«, t00=0x000f, t01=0x0016}
0x17b2…17d8 Head {h00=0x0022, h01=0x0050, text=»* BYTE1= NUMBER OF LINES/PAGE «, t00=0x000f, t01=0x0048}
0x17d8…17fe Head {h00=0x0022, h01=0x0050, text=»* BYTE2= NUMBER OF CHAR./LINE «, t00=0x000f, t01=0x006e}
0x17fe…1808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0094}
0x1808…1826 Head {h00=0x001a, h01=0x0050, text=»PRTLEN DATA /2382 GTP «, t00=0x000f, t01=0x009e}
0x1826…183c Head {h00=0x0012, h01=0x0050, text=» DATA /2382 LP«, t00=0x000f, t01=0x00bc}
0x183c…1856 Head {h00=0x0016, h01=0x0050, text=» DATA /2382 GP 74 «, t00=0x000f, t01=0x00d2}
0x1856…1872 Head {h00=0x0018, h01=0x0050, text=» DATA /2382 COPY 80 «, t00=0x000f, t01=0x00ec}
0x1872…188c Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =25«, t00=0x000f, t01=0x0108}
0x188c…18c4 Head {h00=0x0034, h01=0x0050, text=»LMARGT EQU * NO. OF POSITIONS IN LEFT MARGIN =25«, t00=0x000f, t01=0x0122}
0x18c4…18dc Head {h00=0x0014, h01=0x0050, text=» DATA 0 GTP =25 «, t00=0x000f, t01=0x015a}
0x18dc…18f2 Head {h00=0x0012, h01=0x0050, text=» DATA 0 LP =25«, t00=0x000f, t01=0x0172}
0x18f2…190a Head {h00=0x0014, h01=0x0050, text=» DATA 3 GP74 =25«, t00=0x000f, t01=0x0188}
0x190a…1924 Head {h00=0x0016, h01=0x0050, text=» DATA 0 COPY80 =25«, t00=0x0010, t01=0x0010}
0x1924…1938 Head {h00=0x0010, h01=0x0050, text=» XIF . =25 «, t00=0x0010, t01=0x002a}
0x1938…1948 Head {h00=0x000c, h01=0x0050, text=»* =24«, t00=0x0010, t01=0x003e}
0x1948…1964 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =36 «, t00=0x0010, t01=0x004e}
0x1964…1994 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 132 PRINTER BUFFER LENGTH =24 «, t00=0x0010, t01=0x006a}
0x1994…19b6 Head {h00=0x001e, h01=0x0050, text=» =BUFL-2 (IN DATXXX) =24«, t00=0x0010, t01=0x009a}
0x19b6…19ca Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0010, t01=0x00bc}
0x19ca…19e6 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x0010, t01=0x00d0}
0x19e6…1a16 Head {h00=0x002c, h01=0x0050, text=»PRBFL EQU 256 PRINTER BUFFER LENGTH =36 «, t00=0x0010, t01=0x00ec}
0x1a16…1a34 Head {h00=0x001a, h01=0x0050, text=» =BUFL IN DATXXX =36«, t00=0x0010, t01=0x011c}
0x1a34…1a48 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0010, t01=0x013a}
0x1a48…1a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014e}
0x1a52…1a78 Head {h00=0x0022, h01=0x0050, text=»* LINE LENGTHS FROM WCC«, t00=0x0010, t01=0x0158}
0x1a78…1a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017e}
0x1a82…1aba Head {h00=0x0034, h01=0x0050, text=»LINLEN DATA /0028,/4050 40, 64 AND 80 CHAR/LINE «, t00=0x0010, t01=0x0188}
0x1aba…1ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0030}
0x1ac4…1aee Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR ECB HANDLING «, t00=0x0011, t01=0x003a}
0x1aee…1af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0064}
0x1af8…1b1a Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0011, t01=0x006e}
0x1b1a…1b3e Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0011, t01=0x0090}
0x1b3e…1b62 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0011, t01=0x00b4}
0x1b62…1b82 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0011, t01=0x00d8}
0x1b82…1ba4 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0011, t01=0x00f8}
0x1ba4…1bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x011a}
0x1bae…1bc6 Head {h00=0x0014, h01=0x0050, text=»* PRINTER MODES «, t00=0x0011, t01=0x0124}
0x1bc6…1bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x013c}
0x1bd0…1bee Head {h00=0x001a, h01=0x0050, text=»LOCAL EQU 0 LOCAL MODE«, t00=0x0011, t01=0x0146}
0x1bee…1c0e Head {h00=0x001c, h01=0x0050, text=»SHARED EQU 2 SHARED MODE«, t00=0x0011, t01=0x0164}
0x1c0e…1c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0184}
0x1c18…1c3a Head {h00=0x001e, h01=0x0050, text=»* PRINTER STATUS IN PRTMOD«, t00=0x0011, t01=0x018e}
0x1c3a…1c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0020}
0x1c44…1c6a Head {h00=0x0022, h01=0x0050, text=»PRTERR EQU /4000 PRINTER ERROR«, t00=0x0012, t01=0x002a}
0x1c6a…1c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0050}
0x1c74…1c9a Head {h00=0x0022, h01=0x0050, text=»* COPY INTERNAL STATUS IN A10 «, t00=0x0012, t01=0x005a}
0x1c9a…1ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0080}
0x1ca4…1ccc Head {h00=0x0024, h01=0x0050, text=»NXTCHA EQU /8000 GET NEXT CHAR. «, t00=0x0012, t01=0x008a}
0x1ccc…1cf2 Head {h00=0x0022, h01=0x0050, text=»ENDPRT EQU /4000 END PRINTING «, t00=0x0012, t01=0x00b2}
0x1cf2…1d1a Head {h00=0x0024, h01=0x0050, text=»NTONLY EQU /2000 NOT ONLY SPACES«, t00=0x0012, t01=0x00d8}
0x1d1a…1d3e Head {h00=0x0020, h01=0x0050, text=»CRREC EQU /1000 CR RECEIVED «, t00=0x0012, t01=0x0100}
0x1d3e…1d66 Head {h00=0x0024, h01=0x0050, text=»FFCCH EQU /0800 FF CCH IND. =36 «, t00=0x0012, t01=0x0124}
0x1d66…1d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014c}
0x1d70…1d9c Head {h00=0x0028, h01=0x0050, text=»* RELATIVE POS. IN ECB-BLOCK «, t00=0x0012, t01=0x0156}
0x1d9c…1da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0182}
0x1da6…1dc0 Head {h00=0x0016, h01=0x0050, text=»IC EQU 2 INTERTASK«, t00=0x0012, t01=0x018c}
0x1dc0…1dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dca…1de0 Head {h00=0x0012, h01=0x0050, text=»* SCREEN SIZE «, t00=0x0013, t01=0x0020}
0x1de0…1dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0036}
0x1dea…1e00 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x0013, t01=0x0040}
0x1e00…1e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0056}
0x1e0a…1e22 Head {h00=0x0014, h01=0x0050, text=»* RECEIVE STATUS«, t00=0x0013, t01=0x0060}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0078}
0x1e2c…1e4a Head {h00=0x001a, h01=0x0050, text=»LICREC EQU /2000 . =1 «, t00=0x0013, t01=0x0082}
0x1e4a…1e58 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00a0}
0x1e58…1e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ae}
0x1e62…1e82 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0013, t01=0x00b8}
0x1e82…1e9e Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0013, t01=0x00d8}
0x1e9e…1ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f4}
0x1ea8…1ec8 Head {h00=0x001c, h01=0x0050, text=»BVDU EQU 2 SCREEN BUFFER«, t00=0x0013, t01=0x00fe}
0x1ec8…1ee6 Head {h00=0x001a, h01=0x0050, text=»WCC EQU BVDU+1950 WCC «, t00=0x0013, t01=0x011e}
0x1ee6…1f0c Head {h00=0x0022, h01=0x0050, text=»LINCNT EQU WCC+4 LINE COUNTER «, t00=0x0013, t01=0x013c}
0x1f0c…1f42 Head {h00=0x0032, h01=0x0050, text=»DCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER «, t00=0x0013, t01=0x0162}
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…58d4 Head {h00=0x002a, h01=0x0050, text=» ORKL A10,NXTCHA+NTONLY GET NEXT CHAR.«, t00=0x0038, t01=0x0134}
0x58d4…5904 Head {h00=0x002c, h01=0x0050, text=» CF A14,PRLINE PRINT LINE AFTER NEW LINE«, t00=0x0038, t01=0x0162}
0x5904…5914 (57, 0, 400) Head {h00=0x000c, h01=0x0050, text=» . =DK«, t00=0x0039, t01=0x0004}
0x5914…5924 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0014}
0x5924…5932 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0024}
0x5932…5980 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0039, t01=0x0032}
0x5980…59ce Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0039, t01=0x0080}
0x59ce…5a1c Head {h00=0x004a, h01=0x0050, text=»* FFDUM SIMULATED FORM FEED *«, t00=0x0039, t01=0x00ce}
0x5a1c…5a6a Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0039, t01=0x011c}
0x5a6a…5ab8 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0039, t01=0x016a}
0x5ab8…5acc Head {h00=0x0010, h01=0x0050, text=»FFDUM EQU * «, t00=0x003a, t01=0x0028}
0x5acc…5afe Head {h00=0x002e, h01=0x0050, text=» CF A14,FFCHK CHECK IF FORM FEED IS VALID «, t00=0x003a, t01=0x003c}
0x5afe…5b18 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x003a, t01=0x006e}
0x5b18…5b32 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD400 NO «, t00=0x003a, t01=0x0088}
0x5b32…5b4a Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 RESET «, t00=0x003a, t01=0x00a2}
0x5b4a…5b74 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTTYP,A11 TYPE OF PRINTER «, t00=0x003a, t01=0x00ba}
0x5b74…5b96 Head {h00=0x001e, h01=0x0050, text=» LC A7,PRTLEN,A1 PAGE SIZE«, t00=0x003a, t01=0x00e4}
0x5b96…5baa Head {h00=0x0010, h01=0x0050, text=»FFD100 EQU *«, t00=0x003a, t01=0x0106}
0x5baa…5bce Head {h00=0x0020, h01=0x0050, text=» CW A7,LINCNT,A11 NEW PAGE? «, t00=0x003a, t01=0x011a}
0x5bce…5bf4 Head {h00=0x0022, h01=0x0050, text=» RF(L) FFD200 YES BUT TO MANY «, t00=0x003a, t01=0x013e}
0x5bf4…5c16 Head {h00=0x001e, h01=0x0050, text=» RF(E) FFD300 YES FINISHED«, t00=0x003a, t01=0x0164}
0x5c16…5c2e Head {h00=0x0014, h01=0x0050, text=» ORKL A10,NTONLY«, t00=0x003a, t01=0x0186}
0x5c2e…5c4a Head {h00=0x0018, h01=0x0050, text=» ST A7,REGI,A11 SAVE«, t00=0x003b, t01=0x000e}
0x5c4a…5c72 Head {h00=0x0024, h01=0x0050, text=» CF A14,PRLINE ADVANCE ONE LINE «, t00=0x003b, t01=0x002a}
0x5c72…5c92 Head {h00=0x001c, h01=0x0050, text=» LD A7,REGI,A11 RESTORE «, t00=0x003b, t01=0x0052}
0x5c92…5cb4 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 PRINTER ERROR? «, t00=0x003b, t01=0x0072}
0x5cb4…5cce Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFD500 YES«, t00=0x003b, t01=0x0094}
0x5cce…5ce0 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x003b, t01=0x00ae}
0x5ce0…5cf4 Head {h00=0x0010, h01=0x0050, text=»FFD200 EQU *«, t00=0x003b, t01=0x00c0}
0x5cf4…5d06 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A7«, t00=0x003b, t01=0x00d4}
0x5d06…5d34 Head {h00=0x002a, h01=0x0050, text=» ADS A1,LINCNT,A11 TAKE AWAY ONE PAGE «, t00=0x003b, t01=0x00e6}
0x5d34…5d46 Head {h00=0x000e, h01=0x0050, text=» RB FFD100«, t00=0x003b, t01=0x0114}
0x5d46…5d5a Head {h00=0x0010, h01=0x0050, text=»FFD300 EQU *«, t00=0x003b, t01=0x0126}
0x5d5a…5d7c Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x003b, t01=0x013a}
0x5d7c…5da6 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/20 REPLACE FF WITH SPACE «, t00=0x003b, t01=0x015c}
0x5da6…5dba Head {h00=0x0010, h01=0x0050, text=»FFD400 EQU *«, t00=0x003b, t01=0x0186}
0x5dba…5dd8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003c, t01=0x000a}
0x5dd8…5dec Head {h00=0x0010, h01=0x0050, text=»FFD500 EQU *«, t00=0x003c, t01=0x0028}
0x5dec…5dfc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x003c}
0x5dfc…5e0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x004c}
0x5e0a…5e58 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x003c, t01=0x005a}
0x5e58…5ea6 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x003c, t01=0x00a8}
0x5ea6…5ef4 Head {h00=0x004a, h01=0x0050, text=»* FFVAL FORM FEED *«, t00=0x003c, t01=0x00f6}
0x5ef4…5f42 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0144}
0x5f42…5f90 (61, 0, 400) Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x003d, t01=0x0004}
0x5f90…5fa4 Head {h00=0x0010, h01=0x0050, text=»FFVAL EQU * «, t00=0x003d, t01=0x0052}
0x5fa4…5fcc Head {h00=0x0024, h01=0x0050, text=» CF A14,FFCHK CHECK IF FF VALID «, t00=0x003d, t01=0x0066}
0x5fcc…5fe6 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 VALID? «, t00=0x003d, t01=0x008e}
0x5fe6…6000 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFV200 NO «, t00=0x003d, t01=0x00a8}
0x6000…6010 Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x003d, t01=0x00c2}
0x6010…602c Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =30 «, t00=0x003d, t01=0x00d2}
0x602c…605a Head {h00=0x002a, h01=0x0050, text=» LDK A1,/31 FF FOR STANDARD WRITE =30 «, t00=0x003d, t01=0x00ee}
0x605a…6086 Head {h00=0x0028, h01=0x0050, text=» SC A1,-1,A8 STORE FF CONTROL CHAR. «, t00=0x003d, t01=0x011c}
0x6086…609a Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x003d, t01=0x0148}
0x609a…60b6 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x003d, t01=0x015c}
0x60b6…60de Head {h00=0x0024, h01=0x0050, text=» ORKL A10,FFCCH IND. FF CCH =36 «, t00=0x003d, t01=0x0178}
0x60de…6104 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LINE =36 «, t00=0x003e, t01=0x0010}
0x6104…6118 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x003e, t01=0x0036}
0x6118…6136 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,NXTCHA . =DK«, t00=0x003e, t01=0x004a}
0x6136…6158 Head {h00=0x001e, h01=0x0050, text=» CM LINCNT,A11 TOP OF PAGE«, t00=0x003e, t01=0x0068}
0x6158…616c Head {h00=0x0010, h01=0x0050, text=»FFV200 EQU *«, t00=0x003e, t01=0x008a}
0x616c…618a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003e, t01=0x009e}
0x618a…619a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003e, t01=0x00bc}
0x619a…61a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00cc}
0x61a8…61f6 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003e, t01=0x00da}
0x61f6…6244 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003e, t01=0x0128}
0x6244…6292 Head {h00=0x004a, h01=0x0050, text=»* CR CARRIAGE RETURN *«, t00=0x003e, t01=0x0176}
0x6292…62e0 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x003f, t01=0x0034}
0x62e0…632e Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003f, t01=0x0082}
0x632e…633e Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x003f, t01=0x00d0}
0x633e…635e Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 GET ATTRIBUTE«, t00=0x003f, t01=0x00e0}
0x635e…6370 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/C«, t00=0x003f, t01=0x0100}
0x6370…6392 Head {h00=0x001e, h01=0x0050, text=» XRK A1,/C NONPRINT FIELD?«, t00=0x003f, t01=0x0112}
0x6392…63aa Head {h00=0x0014, h01=0x0050, text=» RF(Z) CR100 YES«, t00=0x003f, t01=0x0134}
0x63aa…63c0 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x003f, t01=0x014c}
0x63c0…63de Head {h00=0x001a, h01=0x0050, text=» ANK A1,/30 FORMATTED?«, t00=0x003f, t01=0x0162}
0x63de…63f6 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) CR100 NO«, t00=0x003f, t01=0x0180}
0x63f6…6420 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,NTONLY+CRREC CR RECEIVED«, t00=0x0040, t01=0x0008}
0x6420…6434 Head {h00=0x0010, h01=0x0050, text=»CR100 EQU * «, t00=0x0040, t01=0x0032}
0x6434…645a Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0040, t01=0x0046}
0x645a…6478 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0040, t01=0x006c}
0x6478…6488 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x008a}
0x6488…6496 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x009a}
0x6496…64e4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0040, t01=0x00a8}
0x64e4…6530 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0040, t01=0x00f6}
0x6530…657c Head {h00=0x0048, h01=0x0050, text=»* EM END MESSAGE *«, t00=0x0040, t01=0x0142}
0x657c…65c8 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0040, t01=0x018e}
0x65c8…6614 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0041, t01=0x004a}
0x6614…6624 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x0041, t01=0x0096}
0x6624…664a Head {h00=0x0022, h01=0x0050, text=» ORKL A10,ENDPRT END PRINTING «, t00=0x0041, t01=0x00a6}
0x664a…6668 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0041, t01=0x00cc}
0x6668…6678 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x00ea}
0x6678…6686 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x00fa}
0x6686…66d0 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0041, t01=0x0108}
0x66d0…671a Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0041, t01=0x0152}
0x671a…6764 Head {h00=0x0046, h01=0x0050, text=»* INVAL INVALID PRINTER ORDER *«, t00=0x0042, t01=0x000c}
0x6764…67ae Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0042, t01=0x0056}
0x67ae…67f8 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0042, t01=0x00a0}
0x67f8…6802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ea}
0x6802…681a Head {h00=0x0014, h01=0x0050, text=»* ALSO HANDLING:«, t00=0x0042, t01=0x00f4}
0x681a…6838 Head {h00=0x001a, h01=0x0050, text=»* DUP & FM CHARACTERS «, t00=0x0042, t01=0x010c}
0x6838…6842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x012a}
0x6842…6856 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x0042, t01=0x0134}
0x6856…6876 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 SAVE CHAR =37«, t00=0x0042, t01=0x0148}
0x6876…68a6 Head {h00=0x002c, h01=0x0050, text=» CF A14,RFMDUP REPLACE IF DUP OR FM =37 «, t00=0x0042, t01=0x0168}
0x68a6…68c6 Head {h00=0x001c, h01=0x0050, text=» SUR A1,A2 REPLACED? =37«, t00=0x0043, t01=0x0008}
0x68c6…68e6 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INVA10 YES! =37 «, t00=0x0043, t01=0x0028}
0x68e6…690c Head {h00=0x0022, h01=0x0050, text=» NO! I.E. INVALID ORDER =37 «, t00=0x0043, t01=0x0048}
0x690c…6932 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0043, t01=0x006e}
0x6932…694c Head {h00=0x0016, h01=0x0050, text=»INVA10 EQU * . =37«, t00=0x0043, t01=0x0094}
0x694c…696e Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0043, t01=0x00ae}
0x696e…698c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0043, t01=0x00d0}
0x698c…699c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x00ee}
0x699c…69aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x00fe}
0x69aa…69f4 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0043, t01=0x010c}
0x69f4…6a3e Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0156}
0x6a3e…6a88 Head {h00=0x0046, h01=0x0050, text=»* FFCHK CHECK IF FF IS VALID * «, t00=0x0044, t01=0x0010}
0x6a88…6ad2 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0044, t01=0x005a}
0x6ad2…6b1c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0044, t01=0x00a4}
0x6b1c…6b30 Head {h00=0x0010, h01=0x0050, text=»FFCHK EQU * «, t00=0x0044, t01=0x00ee}
0x6b30…6b46 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0044, t01=0x0102}
0x6b46…6b5a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x0044, t01=0x0118}
0x6b5a…6b78 Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 FORMATTED?«, t00=0x0044, t01=0x012c}
0x6b78…6bac Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY«, t00=0x0044, t01=0x014a}
0x6bac…6bc2 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0044, t01=0x017e}
0x6bc2…6be6 (69, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 LOCAL HARD COPY?«, t00=0x0045, t01=0x0004}
0x6be6…6c10 Head {h00=0x0026, h01=0x0050, text=» RF(Z) FFCH20 YES, FF NOT ALLOWED «, t00=0x0045, t01=0x0028}
0x6c10…6c24 Head {h00=0x0010, h01=0x0050, text=»FFCH10 EQU *«, t00=0x0045, t01=0x0052}
0x6c24…6c42 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 FF ALLOWED «, t00=0x0045, t01=0x0066}
0x6c42…6c5c Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH30 NOT «, t00=0x0045, t01=0x0084}
0x6c5c…6c70 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0045, t01=0x009e}
0x6c70…6c94 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,CRREC CR RECEIVED? «, t00=0x0045, t01=0x00b2}
0x6c94…6cae Head {h00=0x0016, h01=0x0050, text=» RF(NZ) FFCH30 YES«, t00=0x0045, t01=0x00d6}
0x6cae…6cc2 Head {h00=0x0010, h01=0x0050, text=»FFCH20 EQU *«, t00=0x0045, t01=0x00f0}
0x6cc2…6ce8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0045, t01=0x0104}
0x6ce8…6d06 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0045, t01=0x012a}
0x6d06…6d18 Head {h00=0x000e, h01=0x0050, text=» RF FFCH40«, t00=0x0045, t01=0x0148}
0x6d18…6d2c Head {h00=0x0010, h01=0x0050, text=»FFCH30 EQU *«, t00=0x0045, t01=0x015a}
0x6d2c…6d5a Head {h00=0x002a, h01=0x0050, text=» ANKL A10,/FFFF-CRREC RESET CR RCV =3 «, t00=0x0045, t01=0x016e}
0x6d5a…6d78 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A9 EMPTY LINE «, t00=0x0046, t01=0x000c}
0x6d78…6d92 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FFCH35 YES «, t00=0x0046, t01=0x002a}
0x6d92…6db4 Head {h00=0x001e, h01=0x0050, text=» CF A14,PRLINE PRINT LINE «, t00=0x0046, t01=0x0044}
0x6db4…6dc8 Head {h00=0x0010, h01=0x0050, text=»FFCH35 EQU *«, t00=0x0046, t01=0x0066}
0x6dc8…6de6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0046, t01=0x007a}
0x6de6…6dfa Head {h00=0x0010, h01=0x0050, text=»FFCH40 EQU *«, t00=0x0046, t01=0x0098}
0x6dfa…6e1c Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NTONLY NOT ONLY «, t00=0x0046, t01=0x00ac}
0x6e1c…6e2c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x00ce}
0x6e2c…6e3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00de}
0x6e3a…6e82 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0046, t01=0x00ec}
0x6e82…6eca Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0046, t01=0x0134}
0x6eca…6f12 Head {h00=0x0044, h01=0x0050, text=»* PRLINE PRINT LINE *«, t00=0x0046, t01=0x017c}
0x6f12…6f5a Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0047, t01=0x0034}
0x6f5a…6fa2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0047, t01=0x007c}
0x6fa2…6fb6 Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x0047, t01=0x00c4}
0x6fb6…6fd0 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0047, t01=0x00d8}
0x6fd0…6fe4 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0047, t01=0x00f2}
0x6fe4…7008 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,NTONLY ONLY RUBB.? «, t00=0x0047, t01=0x0106}
0x7008…7022 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL050 NO «, t00=0x0047, t01=0x012a}
0x7022…7038 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0047, t01=0x0144}
0x7038…704a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0047, t01=0x015a}
0x704a…705e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x0047, t01=0x016c}
0x705e…707c Head {h00=0x001a, h01=0x0050, text=» XRK A1,/30 HRADCOPY? «, t00=0x0047, t01=0x0180}
0x707c…7096 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x0048, t01=0x000e}
0x7096…70b8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/40 HARDCOPY????? «, t00=0x0048, t01=0x0028}
0x70b8…70d2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PRL200 NO «, t00=0x0048, t01=0x004a}
0x70d2…70e6 Head {h00=0x0010, h01=0x0050, text=»PRL050 EQU *«, t00=0x0048, t01=0x0064}
0x70e6…7122 Head {h00=0x0038, h01=0x0050, text=» ANKL A10,/FFFF-NTONLY RESET NOT ONLY SPACES RCV =3 «, t00=0x0048, t01=0x0078}
0x7122…713e Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0048, t01=0x00b4}
0x713e…7170 Head {h00=0x002e, h01=0x0050, text=» LDKL A9,2 ADD CONTROL CHAR. TO LENGTH =3 «, t00=0x0048, t01=0x00d0}
0x7170…718e Head {h00=0x001a, h01=0x0050, text=» ADS A9,ECBRL,A8 . =3 «, t00=0x0048, t01=0x0102}
0x718e…71a8 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/06 PRINT «, t00=0x0048, t01=0x0120}
0x71a8…71b4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0048, t01=0x013a}
0x71b4…71c4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0048, t01=0x0146}
0x71c4…71d8 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0048, t01=0x0156}
0x71d8…71f4 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0048, t01=0x016a}
0x71f4…721e Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBRL,A8 TEXT TO PRINT? =24«, t00=0x0048, t01=0x0186}
0x721e…724c Head {h00=0x002a, h01=0x0050, text=» RF(Z) PRL070 NO! JUST CONTROL CH =24 «, t00=0x0049, t01=0x0020}
0x724c…7274 Head {h00=0x0024, h01=0x0050, text=» EJECT HANDLING A TEXT LINE =36«, t00=0x0049, t01=0x004e}
0x7274…72a2 Head {h00=0x002a, h01=0x0050, text=» PREPARE LINE. FIRST LEFT MARGIN =36«, t00=0x0049, t01=0x0076}
0x72a2…72bc Head {h00=0x0016, h01=0x0050, text=» IFF LMARG=0 . =36«, t00=0x0049, t01=0x00a4}
0x72bc…72f0 Head {h00=0x0030, h01=0x0050, text=» LDK A7,/20 FILL LEFT MARGIN WITH SPACE =36 «, t00=0x0049, t01=0x00be}
0x72f0…7310 Head {h00=0x001c, h01=0x0050, text=» LD A1,PRLMAR,A11 . =36 «, t00=0x0049, t01=0x00f2}
0x7310…732e Head {h00=0x001a, h01=0x0050, text=» AD A1,ECBBA,A8 . =36 «, t00=0x0049, t01=0x0112}
0x732e…7346 Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x0049, t01=0x0130}
0x7346…7360 Head {h00=0x0016, h01=0x0050, text=»PRL055 EQU * . =36«, t00=0x0049, t01=0x0148}
0x7360…7378 Head {h00=0x0014, h01=0x0050, text=» SCR A7,A1 . =36«, t00=0x0049, t01=0x0162}
0x7378…7390 Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 . =36 «, t00=0x0049, t01=0x017a}
0x7390…73b6 (74, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CW A1,ECBBA,A8 FINISHED? =36 «, t00=0x004a, t01=0x0004}
0x73b6…73d4 Head {h00=0x001a, h01=0x0050, text=» RB(G) PRL055 NO! =36 «, t00=0x004a, t01=0x002a}
0x73d4…73e8 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x004a, t01=0x0048}
0x73e8…7404 Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =36 «, t00=0x004a, t01=0x005c}
0x7404…7414 Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x004a, t01=0x0078}
0x7414…7432 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0D CR CCH =36«, t00=0x004a, t01=0x0088}
0x7432…7466 Head {h00=0x0030, h01=0x0050, text=» SC* A7,ECBBA,A8 CR CCH FIRST IN BUFFER =36 «, t00=0x004a, t01=0x00a6}
0x7466…748e Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x004a, t01=0x00da}
0x748e…74ac Head {h00=0x001a, h01=0x0050, text=» LDK A1,/0A LF CCH =24«, t00=0x004a, t01=0x0102}
0x74ac…74ca Head {h00=0x001a, h01=0x0050, text=» LD A7,ECBRL,A8 . =24 «, t00=0x004a, t01=0x0120}
0x74ca…74e8 Head {h00=0x001a, h01=0x0050, text=» AD A7,ECBBA,A8 . =24 «, t00=0x004a, t01=0x013e}
0x74e8…751c Head {h00=0x0030, h01=0x0050, text=» AD A7,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x004a, t01=0x015c}
0x751c…7546 Head {h00=0x0026, h01=0x0050, text=» SCR A1,A7 LF CCH LAST IN BUF =25 «, t00=0x004a, t01=0x0190}
0x7546…7556 Head {h00=0x000c, h01=0x0050, text=» . =35«, t00=0x004b, t01=0x002a}
0x7556…757a Head {h00=0x0020, h01=0x0050, text=» CALCULATE LINE LENGTH =36«, t00=0x004b, t01=0x003a}
0x757a…759c Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 ALLOW FOR LF =36«, t00=0x004b, t01=0x005e}
0x759c…75c6 Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBRL,A8 ALLOW FOR TEXT =36«, t00=0x004b, t01=0x0080}
0x75c6…75fa Head {h00=0x0030, h01=0x0050, text=» AD A1,PRLMAR,A11 ALLOW FOR LEFT MARGIN =36 «, t00=0x004b, t01=0x00aa}
0x75fa…762e Head {h00=0x0030, h01=0x0050, text=» ADS A1,PRCCCT,A11 NO. OF CH:S TO PRINT =36«, t00=0x004b, t01=0x00de}
0x762e…7664 Head {h00=0x0032, h01=0x0050, text=» ADS A1,ECBBA,A8 UPDATE POINTER TO BUFFER =36 «, t00=0x004b, t01=0x0112}
0x7664…767a Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x004b, t01=0x0148}
0x767a…76b2 Head {h00=0x0034, h01=0x0050, text=»PRL060 EQU * ENOUGH SPACE FOR ANOTHER LINE? =36 «, t00=0x004b, t01=0x015e}
0x76b2…76da Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PRBFL BUFFER LENGTH =36«, t00=0x004c, t01=0x0008}
0x76da…770c Head {h00=0x002e, h01=0x0050, text=» SU A1,PRCCCT,A11 USED PART OF BUFFER =36 «, t00=0x004c, t01=0x0030}
0x770c…7734 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A5 MAX. LINE LENGTH =36 «, t00=0x004c, t01=0x0062}
0x7734…775e Head {h00=0x0026, h01=0x0050, text=» SU A1,PRLMAR,A11 LEFT MARGIN =36 «, t00=0x004c, t01=0x008a}
0x775e…7792 Head {h00=0x0030, h01=0x0050, text=» RF(G) PRL200 ENOUGH SPACE. DON'T PRINT =36 «, t00=0x004c, t01=0x00b4}
0x7792…77a2 Head {h00=0x000c, h01=0x0050, text=» . =36«, t00=0x004c, t01=0x00e8}
0x77a2…77c8 Head {h00=0x0022, h01=0x0050, text=»PRL065 EQU * PRINT BUFFER =36 «, t00=0x004c, t01=0x00f8}
0x77c8…77e8 Head {h00=0x001c, h01=0x0050, text=» LD A1,PRCCCT,A11 . =36 «, t00=0x004c, t01=0x011e}
0x77e8…7810 Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBRL,A8 REQ. LENGTH =36 «, t00=0x004c, t01=0x013e}
0x7810…782e Head {h00=0x001a, h01=0x0050, text=» LD A1,PRBA,A11 . =36 «, t00=0x004c, t01=0x0166}
0x782e…7858 Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 BUFFER ADDRESS =36«, t00=0x004c, t01=0x0184}
0x7858…787c Head {h00=0x0020, h01=0x0050, text=» LDK A7,/05 BASIC WRITE =24 «, t00=0x004d, t01=0x001e}
0x787c…7890 Head {h00=0x0010, h01=0x0050, text=» LKM . =24 «, t00=0x004d, t01=0x0042}
0x7890…78a6 Head {h00=0x0012, h01=0x0050, text=» DATA 1 . =24 «, t00=0x004d, t01=0x0056}
0x78a6…78d8 Head {h00=0x002e, h01=0x0050, text=» CM PRCCCT,A11 CLEAR CHARACTER COUNTER =24«, t00=0x004d, t01=0x006c}
0x78d8…78f0 Head {h00=0x0014, h01=0x0050, text=» RF PRL090 . =24«, t00=0x004d, t01=0x009e}
0x78f0…7920 Head {h00=0x002c, h01=0x0050, text=» EJECT HANDLING A CONTROL CHARACTER =36«, t00=0x004d, t01=0x00b6}
0x7920…794e Head {h00=0x002a, h01=0x0050, text=»PRL070 EQU * STORE CCH IN BUFFER =24 «, t00=0x004d, t01=0x00e6}
0x794e…7976 Head {h00=0x0024, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE =24 «, t00=0x004d, t01=0x0114}
0x7976…7994 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/0A LF CCH =24«, t00=0x004d, t01=0x013c}
0x7994…79ae Head {h00=0x0016, h01=0x0050, text=» LDR A1,A10 . =36 «, t00=0x004d, t01=0x015a}
0x79ae…79d4 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,FFCCH FORM FEED? =36 «, t00=0x004d, t01=0x0174}
0x79d4…79f0 Head {h00=0x0018, h01=0x0050, text=» RF(Z) PRL075 NO =36«, t00=0x004e, t01=0x000a}
0x79f0…7a14 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/0C YES. FF CCH =36 «, t00=0x004e, t01=0x0026}
0x7a14…7a44 Head {h00=0x002c, h01=0x0050, text=» ANKL A10,/FFFF-FFCCH RESET FF IND. =36 «, t00=0x004e, t01=0x004a}
0x7a44…7a5e Head {h00=0x0016, h01=0x0050, text=»PRL075 EQU * . =36«, t00=0x004e, t01=0x007a}
0x7a5e…7a88 Head {h00=0x0026, h01=0x0050, text=» SC* A7,ECBBA,A8 CCH TO BUFFER =36«, t00=0x004e, t01=0x0094}
0x7a88…7ab4 Head {h00=0x0028, h01=0x0050, text=» IM ECBBA,A8 STEP BUFFER ADDRESS =36«, t00=0x004e, t01=0x00be}
0x7ab4…7aea Head {h00=0x0032, h01=0x0050, text=» IM PRCCCT,A11 STEP NO. OF CH:S IN BUFFER =36 «, t00=0x004e, t01=0x00ea}
0x7aea…7b14 Head {h00=0x0026, h01=0x0050, text=» ADKL A8,1 STEP BUFFER POINTER =36«, t00=0x004e, t01=0x0120}
0x7b14…7b42 Head {h00=0x002a, h01=0x0050, text=» RB PRL060 CHECK IF END OF BUFFER =36 «, t00=0x004e, t01=0x014a}
0x7b42…7b58 Head {h00=0x0012, h01=0x0050, text=» EJECT . =36 «, t00=0x004e, t01=0x0178}
0x7b58…7b72 Head {h00=0x0016, h01=0x0050, text=»PRL090 EQU * . =24«, t00=0x004e, t01=0x018e}
0x7b72…7b86 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x004f, t01=0x0018}
0x7b86…7baa Head {h00=0x0020, h01=0x0050, text=» LDK A1,50 NUMBER OF DELAYS «, t00=0x004f, t01=0x002c}
0x7baa…7bbe Head {h00=0x0010, h01=0x0050, text=»PRL100 EQU *«, t00=0x004f, t01=0x0050}
0x7bbe…7be2 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,1 WAIT FOR A WHILE «, t00=0x004f, t01=0x0064}
0x7be2…7bee Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004f, t01=0x0088}
0x7bee…7bfe Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x004f, t01=0x0094}
0x7bfe…7c18 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x004f, t01=0x00a4}
0x7c18…7c3a Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 PRINT COMPL.? «, t00=0x004f, t01=0x00be}
0x7c3a…7c54 Head {h00=0x0016, h01=0x0050, text=» RF(N) PRL150 YES «, t00=0x004f, t01=0x00e0}
0x7c54…7c78 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 MORE TO WAIT FOR? «, t00=0x004f, t01=0x00fa}
0x7c78…7c92 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PRL100 YES«, t00=0x004f, t01=0x011e}
0x7c92…7c9e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004f, t01=0x0138}
0x7c9e…7cb4 Head {h00=0x0012, h01=0x0050, text=» DATA 10 ABORT«, t00=0x004f, t01=0x0144}
0x7cb4…7cc4 Head {h00=0x000c, h01=0x0050, text=» . =27«, t00=0x004f, t01=0x015a}
0x7cc4…7ce8 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE ERROR =27«, t00=0x004f, t01=0x016a}
0x7ce8…7cfa Head {h00=0x000e, h01=0x0050, text=» RF PRL300«, t00=0x004f, t01=0x018e}
0x7cfa…7d0e Head {h00=0x0010, h01=0x0050, text=»PRL150 EQU *«, t00=0x0050, t01=0x0010}
0x7d0e…7d1c Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0050, t01=0x0024}
0x7d1c…7d3a Head {h00=0x001a, h01=0x0050, text=» DATA 2 RESYNCHRONIZE «, t00=0x0050, t01=0x0032}
0x7d3a…7d56 Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0050, t01=0x0050}
0x7d56…7d7a Head {h00=0x0020, h01=0x0050, text=» IM LINCNT,A11 ANOTHER LINE «, t00=0x0050, t01=0x006c}
0x7d7a…7da4 Head {h00=0x0026, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =3«, t00=0x0050, t01=0x0090}
0x7da4…7db8 Head {h00=0x0010, h01=0x0050, text=» XIF . =36 «, t00=0x0050, t01=0x00ba}
0x7db8…7dd4 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBRC,A8 OK? «, t00=0x0050, t01=0x00ce}
0x7dd4…7e0e Head {h00=0x0036, h01=0x0050, text=» ANKL A1,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x0050, t01=0x00ea}
0x7e0e…7e2e Head {h00=0x001c, h01=0x0050, text=» RF(NZ) PRL300 YES! =23 «, t00=0x0050, t01=0x0124}
0x7e2e…7e42 Head {h00=0x0010, h01=0x0050, text=»PRL200 EQU *«, t00=0x0050, t01=0x0144}
0x7e42…7e5e Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0050, t01=0x0158}
0x7e5e…7e8a Head {h00=0x0028, h01=0x0050, text=» CM ECBRL,A8 RESET PRINT LENGTH =36 «, t00=0x0050, t01=0x0174}
0x7e8a…7eb8 Head {h00=0x002a, h01=0x0050, text=» LD A8,ECBBA,A8 SET BUFFER POINTER =36«, t00=0x0051, t01=0x0010}
0x7eb8…7eec Head {h00=0x0030, h01=0x0050, text=» AD A8,PRLMAR,A11 ALLOW FOR LEFT MARG/CR =25«, t00=0x0051, t01=0x003e}
0x7eec…7f00 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0051, t01=0x0072}
0x7f00…7f1c Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0051, t01=0x0086}
0x7f1c…7f46 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0051, t01=0x00a2}
0x7f46…7f6a Head {h00=0x0020, h01=0x0050, text=» CMR A8 RESET CONTROL CHAR. «, t00=0x0051, t01=0x00cc}
0x7f6a…7f7e Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0051, t01=0x00f0}
0x7f7e…7f90 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0051, t01=0x0104}
0x7f90…7fac Head {h00=0x0018, h01=0x0050, text=» IFF BASWRI=1 . =24 «, t00=0x0051, t01=0x0116}
0x7fac…7fbe Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0051, t01=0x0132}
0x7fbe…7fd2 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0051, t01=0x0144}
0x7fd2…7ff0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0051, t01=0x0158}
0x7ff0…8008 Head {h00=0x0014, h01=0x0050, text=» RF PRL900 . =6 «, t00=0x0051, t01=0x0176}
0x8008…801c Head {h00=0x0010, h01=0x0050, text=»PRL300 EQU *«, t00=0x0051, t01=0x018e}
0x801c…804a Head {h00=0x002a, h01=0x0050, text=» LD A2,PRTID,A11 GET PRINTER TASKID =6«, t00=0x0052, t01=0x0012}
0x804a…8062 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF . =6«, t00=0x0052, t01=0x0040}
0x8062…807a Head {h00=0x0014, h01=0x0050, text=» SUK A2,/30 . =6«, t00=0x0052, t01=0x0058}
0x807a…8090 Head {h00=0x0012, h01=0x0050, text=» SLL A2,2 . =6«, t00=0x0052, t01=0x0070}
0x8090…80ba Head {h00=0x0026, h01=0x0050, text=» LD A3,+6,A13 COMMON BLOCK BASE =6«, t00=0x0052, t01=0x0086}
0x80ba…80d6 Head {h00=0x0018, h01=0x0050, text=» ADK A3,TSKTAB . =6 «, t00=0x0052, t01=0x00b0}
0x80d6…80ee Head {h00=0x0014, h01=0x0050, text=» ADR A3,A2 . =6 «, t00=0x0052, t01=0x00cc}
0x80ee…8118 Head {h00=0x0026, h01=0x0050, text=» SC A1,+3,A3 SET PRINTER STATUS =6«, t00=0x0052, t01=0x00e4}
0x8118…8132 Head {h00=0x0016, h01=0x0050, text=»PRL900 EQU * . =6 «, t00=0x0052, t01=0x010e}
0x8132…8142 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x0128}
0x8142…815e Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0052, t01=0x0138}
0x815e…8174 Head {h00=0x0012, h01=0x0050, text=» EJECT . =24 «, t00=0x0052, t01=0x0154}
0x8174…81c4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0052, t01=0x016a}
0x81c4…81ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x002a}
0x81ce…8214 Head {h00=0x0042, h01=0x0050, text=»* PRCCH - SEND BUFFER WITH CONTROL CH:S TO PRINTER «, t00=0x0053, t01=0x0034}
0x8214…821e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x007a}
0x821e…826e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0053, t01=0x0084}
0x826e…8278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00d4}
0x8278…8292 Head {h00=0x0016, h01=0x0050, text=»PRCCH EQU * . =24 «, t00=0x0053, t01=0x00de}
0x8292…82c2 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRCCCT,A11 ANYTHING TO SEND? =24 «, t00=0x0053, t01=0x00f8}
0x82c2…82e6 Head {h00=0x0020, h01=0x0050, text=» RB(Z) PRL900 NO! RETURN =24«, t00=0x0053, t01=0x0128}
0x82e6…8310 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBPRT,A11 ECB ADDRESS =24 «, t00=0x0053, t01=0x014c}
0x8310…833c Head {h00=0x0028, h01=0x0050, text=» RB PRL065 SEND CH:S TO PRINTER =36 «, t00=0x0053, t01=0x0176}
0x833c…8350 Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0054, t01=0x0012}
0x8350…835e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0026}
0x835e…83aa Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0054, t01=0x0034}
0x83aa…83f6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0054, t01=0x0080}
0x83f6…8442 Head {h00=0x0048, h01=0x0050, text=»* INIT INIT ROUTINE * «, t00=0x0054, t01=0x00cc}
0x8442…848e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0054, t01=0x0118}
0x848e…84da Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0054, t01=0x0164}
0x84da…84ec Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x0055, t01=0x0020}
0x84ec…850e Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x0055, t01=0x0032}
0x850e…8532 Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x0055, t01=0x0054}
0x8532…8544 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0055, t01=0x0078}
0x8544…8556 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0055, t01=0x008a}
0x8556…856a Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0055, t01=0x009c}
0x856a…8594 Head {h00=0x0026, h01=0x0050, text=» ST A2,PRTID,A11 SAVE WHOLE TASKID«, t00=0x0055, t01=0x00b0}
0x8594…85ca Head {h00=0x0032, h01=0x0050, text=» LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX «, t00=0x0055, t01=0x00da}
0x85ca…85f0 Head {h00=0x0022, h01=0x0050, text=» LD A7,PRTTAB NUMBER OF TYPES «, t00=0x0055, t01=0x0110}
0x85f0…8620 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,PRTTAB+2 START OF PRINTER TABLE«, t00=0x0055, t01=0x0136}
0x8620…8634 Head {h00=0x0010, h01=0x0050, text=»INI100 EQU *«, t00=0x0055, t01=0x0166}
0x8634…865c Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CONVERT TYPE TO INDEX«, t00=0x0055, t01=0x017a}
0x865c…8672 Head {h00=0x0012, h01=0x0050, text=» RF(E) INI200 «, t00=0x0056, t01=0x0012}
0x8672…8684 Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0056, t01=0x0028}
0x8684…86a2 Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ILLEGAL ID? «, t00=0x0056, t01=0x003a}
0x86a2…86bc Head {h00=0x0016, h01=0x0050, text=» RB(NZ) INI100 NO «, t00=0x0056, t01=0x0058}
0x86bc…86ce Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0056, t01=0x0072}
0x86ce…86e6 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0056, t01=0x0084}
0x86e6…86f2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0056, t01=0x009c}
0x86f2…870c Head {h00=0x0016, h01=0x0050, text=» DATA 3 FORGET IT «, t00=0x0056, t01=0x00a8}
0x870c…8720 Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x0056, t01=0x00c2}
0x8720…8734 Head {h00=0x0010, h01=0x0050, text=» LD A1,+2,A1«, t00=0x0056, t01=0x00d6}
0x8734…8760 Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTTYP,A11 SAVE PRINTER TYPE «, t00=0x0056, t01=0x00ea}
0x8760…877c Head {h00=0x0018, h01=0x0050, text=» IFT BASWRI=1 . =24 «, t00=0x0056, t01=0x0116}
0x877c…87ae Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBPRT,A11 PRINTER ECB ADDRESS =24 «, t00=0x0056, t01=0x0132}
0x87ae…87e0 Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBBA,A2 PRINTER BUFFER ADDRESS =24«, t00=0x0056, t01=0x0164}
0x87e0…8810 Head {h00=0x002c, h01=0x0050, text=» ST A2,PRBA,A11 SAVE IT IN WORK AREA =24«, t00=0x0057, t01=0x0008}
0x8810…8828 Head {h00=0x0014, h01=0x0050, text=» LDK A2,1 . =25 «, t00=0x0057, t01=0x0038}
0x8828…8852 Head {h00=0x0026, h01=0x0050, text=» ST A2,PRLMAR,A11 ALLOW FOR CR =25«, t00=0x0057, t01=0x0050}
0x8852…8882 Head {h00=0x002c, h01=0x0050, text=» IFF LMARG=0 LEFT MARGIN FOR PRINTER =25«, t00=0x0057, t01=0x007a}
0x8882…88a0 Head {h00=0x001a, h01=0x0050, text=» LD A1,LMARGT,A1 . =25«, t00=0x0057, t01=0x00aa}
0x88a0…88d6 Head {h00=0x0032, h01=0x0050, text=» ADS A1,PRLMAR,A11 SAVE VALUE IN WORK AREA =25«, t00=0x0057, t01=0x00c8}
0x88d6…88ea Head {h00=0x0010, h01=0x0050, text=» XIF . =24 «, t00=0x0057, t01=0x00fe}
0x88ea…88fa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x0112}
0x88fa…8908 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0122}
0x8908…8952 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0057, t01=0x0130}
0x8952…899c Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0057, t01=0x017a}
0x899c…89e6 Head {h00=0x0046, h01=0x0050, text=»* TSTPRT TEST HARDWARE * «, t00=0x0058, t01=0x0034}
0x89e6…8a30 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0058, t01=0x007e}
0x8a30…8a7a Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0058, t01=0x00c8}
0x8a7a…8a8e Head {h00=0x0010, h01=0x0050, text=»TSTPRT EQU *«, t00=0x0058, t01=0x0112}
0x8a8e…8a9e Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0058, t01=0x0126}
0x8a9e…8ab8 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBPRT,A11 «, t00=0x0058, t01=0x0136}
0x8ab8…8ad8 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x0058, t01=0x0150}
0x8ad8…8aec Head {h00=0x0010, h01=0x0050, text=»TSTP10 EQU *«, t00=0x0058, t01=0x0170}
0x8aec…8af8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0058, t01=0x0184}
0x8af8…8b08 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0058, t01=0x0190}
0x8b08…8b24 Head {h00=0x0018, h01=0x0050, text=» LD A4,ECBRC,A8 . =6«, t00=0x0059, t01=0x0010}
0x8b24…8b5e Head {h00=0x0036, h01=0x0050, text=» ANKL A4,/2011 PAPER OUT/HARDWARE T-O/NOT OP? =31 «, t00=0x0059, t01=0x002c}
0x8b5e…8b7c Head {h00=0x001a, h01=0x0050, text=» RF(Z) TSTP20 NO! =31 «, t00=0x0059, t01=0x0066}
0x8b7c…8ba6 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 YES. INDICATE ERROR =31 «, t00=0x0059, t01=0x0084}
0x8ba6…8bc0 Head {h00=0x0016, h01=0x0050, text=»TSTP20 EQU * . =31«, t00=0x0059, t01=0x00ae}
0x8bc0…8bd0 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0059, t01=0x00c8}
0x8bd0…8bee Head {h00=0x001a, h01=0x0050, text=» LD A2,PRTID,A11 . =6 «, t00=0x0059, t01=0x00d8}
0x8bee…8c02 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0059, t01=0x00f6}
0x8c02…8c16 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0059, t01=0x010a}
0x8c16…8c28 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0059, t01=0x011e}
0x8c28…8c3e Head {h00=0x0012, h01=0x0050, text=» LD A3,+6,A13 «, t00=0x0059, t01=0x0130}
0x8c3e…8c54 Head {h00=0x0012, h01=0x0050, text=» LDK A1,TSKTAB«, t00=0x0059, t01=0x0146}
0x8c54…8c66 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0059, t01=0x015c}
0x8c66…8c78 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0059, t01=0x016e}
0x8c78…8c88 Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x0059, t01=0x0180}
0x8c88…8cbc Head {h00=0x0030, h01=0x0050, text=» SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6«, t00=0x0059, t01=0x0190}
0x8cbc…8cda Head {h00=0x001a, h01=0x0050, text=» ANK A4,1 OPERABLE? =6«, t00=0x005a, t01=0x0034}
0x8cda…8cf8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TSTP90 YES! =6 «, t00=0x005a, t01=0x0052}
0x8cf8…8d0a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005a, t01=0x0070}
0x8d0a…8d1e Head {h00=0x0010, h01=0x0050, text=» LDKL A8,100«, t00=0x005a, t01=0x0082}
0x8d1e…8d2a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005a, t01=0x0096}
0x8d2a…8d3a Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x005a, t01=0x00a2}
0x8d3a…8d4c Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005a, t01=0x00b2}
0x8d4c…8d5c Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x00c4}
0x8d5c…8d6e Head {h00=0x000e, h01=0x0050, text=» RB TSTP10«, t00=0x005a, t01=0x00d4}
0x8d6e…8d7e Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x00e6}
0x8d7e…8d8e Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x00f6}
0x8d8e…8d9e Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x0106}
0x8d9e…8dae Head {h00=0x000c, h01=0x0050, text=» . =6 «, t00=0x005a, t01=0x0116}
0x8dae…8dc2 Head {h00=0x0010, h01=0x0050, text=»TSTP90 EQU *«, t00=0x005a, t01=0x0126}
0x8dc2…8dd2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x013a}
0x8dd2…8de0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x014a}
0x8de0…8e2c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x005a, t01=0x0158}
0x8e2c…8e78 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x005b, t01=0x0014}
0x8e78…8ec4 Head {h00=0x0048, h01=0x0050, text=»* GETTAB GET ORDER INDEX * «, t00=0x005b, t01=0x0060}
0x8ec4…8f10 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x005b, t01=0x00ac}
0x8f10…8f5c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x005b, t01=0x00f8}
0x8f5c…8f70 Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x005b, t01=0x0144}
0x8f70…8fa2 Head {h00=0x002e, h01=0x0050, text=» LD A7,PRTORD NUMBER OF VALID ORDER CODES «, t00=0x005b, t01=0x0158}
0x8fa2…8fcc Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PRTORD+2 ORDERTABLE BASE «, t00=0x005b, t01=0x018a}
0x8fcc…8fe0 Head {h00=0x0010, h01=0x0050, text=»GETT10 EQU *«, t00=0x005c, t01=0x0024}
0x8fe0…9010 Head {h00=0x002c, h01=0x0050, text=» CCR A2,A1 CONVERT ORDER CODE TO ADDRESS«, t00=0x005c, t01=0x0038}
0x9010…9026 Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x005c, t01=0x0068}
0x9026…903c Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x005c, t01=0x007e}
0x903c…9052 Head {h00=0x0012, h01=0x0050, text=» AD A1,PRTTAB «, t00=0x005c, t01=0x0094}
0x9052…9064 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x005c, t01=0x00aa}
0x9064…9082 Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 ORDER FOUND?«, t00=0x005c, t01=0x00bc}
0x9082…90a2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) GETT30 NO INVALID«, t00=0x005c, t01=0x00da}
0x90a2…90be Head {h00=0x0018, h01=0x0050, text=» RB GETT10 TRY AGAIN«, t00=0x005c, t01=0x00fa}
0x90be…90d2 Head {h00=0x0010, h01=0x0050, text=»GETT20 EQU *«, t00=0x005c, t01=0x0116}
0x90d2…90e4 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x005c, t01=0x012a}
0x90e4…90fe Head {h00=0x0016, h01=0x0050, text=» LD A2,PRTTYP,A11 «, t00=0x005c, t01=0x013c}
0x90fe…9110 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x005c, t01=0x0156}
0x9110…9124 Head {h00=0x0010, h01=0x0050, text=»GETT30 EQU *«, t00=0x005c, t01=0x0168}
0x9124…9138 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x005c, t01=0x017c}
0x9138…9148 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x0190}
0x9148…9150 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0010}
0x9150…915c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005d, t01=0x0018}
0x915c…9160 Head {h00=0x4004, h01=0x0000}
0x9160…9164 00 5d 00 24 ┆ ] $┆
0x9164…916c (94, 1, 8) 20 04 00 00 00 5e 00 04 ┆ ^ ┆
0x916c…91bc (95, 0, 400) 00 5e 01 6e 00 0c 00 50 2a 5c 5c 5c 5c 3d 34 20 00 5f 00 08 00 14 00 50 47 52 43 48 31 30 5c 45 51 55 5c 2a 5c 5c 3d 34 00 5f 00 18 00 10 00 50 5c 52 54 4e 5c 41 31 35 5c 5c 3d 34 00 5f 00 30 00 0c 00 50 2a 5c 5c 5c 5c 3d 34 20 00 5f 00 44 ┆ ^ n P* =4 _ PGRCH10 EQU * =4 _ P RTN A15 =4 _ 0 P* =4 _ D┆
0x91bc…920c 00 14 00 50 47 52 54 41 42 5c 45 51 55 5c 2a 5c 5c 3d 34 20 00 5f 00 54 00 2c 00 50 5c 44 41 54 41 5c 2f 32 32 32 33 2c 2f 32 36 33 42 2c 2f 34 30 35 42 2c 2f 35 43 35 44 2c 2f 35 45 35 46 5c 5c 3d 34 20 00 5f 00 6c 00 0e 00 50 5c 58 49 46 ┆ PGRTAB EQU * =4 _ T , P DATA /2223,/263B,/405B,/5C5D,/5E5F =4 _ l P XIF┆
0x920c…925c 5c 5c 5c 3d 34 20 00 5f 00 9c 00 12 00 50 5c 49 46 54 5c 54 52 41 53 50 41 3d 31 20 00 5f 00 ae 00 0a 00 50 5c 45 4a 45 43 54 00 5f 00 c4 00 36 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 ┆ =4 _ P IFT TRASPA=1 _ P EJECT _ 6 P******************************┆
0x925c…92ac 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 5f 00 d2 00 06 00 50 2a 20 00 5f 01 0c 00 34 00 50 2a 20 20 20 54 52 41 53 50 20 3d 20 53 55 42 52 4f 55 54 49 4e 45 20 54 48 41 54 20 45 4c 49 4d 49 4e 41 54 45 53 20 54 52 41 ┆******************** _ P* _ 4 P* TRASP = SUBROUTINE THAT ELIMINATES TRA┆
0x92ac…92fc 49 4c 49 4e 47 20 00 5f 01 16 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 53 50 41 43 45 53 20 46 52 4f 4d 20 45 43 42 2d 42 55 46 46 45 52 2e 20 49 54 20 41 4c 53 4f 20 44 45 2d 20 00 5f 01 4e 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ILING _ 4 P* SPACES FROM ECB-BUFFER. IT ALSO DE- _ N 0 P* ┆
0x92fc…934c (96, 0, 400) 20 20 4c 45 54 45 53 20 4c 4f 57 20 49 4e 54 45 4e 53 49 54 59 20 53 54 41 52 54 2c 20 48 49 47 48 20 00 5f 01 86 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 45 4e 53 49 54 59 20 53 54 41 52 54 2e 00 60 00 2a 00 18 00 50 2a 20 ┆ LETES LOW INTENSITY START, HIGH _ P* INTENSITY START. ` * P* ┆
0x934c…939c 20 20 41 4e 44 20 54 41 42 55 4c 41 54 49 4f 4e 53 20 00 60 00 4e 00 06 00 50 2a 20 00 60 00 6a 00 36 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 ┆ AND TABULATIONS ` N P* ` j 6 P********************************************┆
0x939c…93ec 2a 2a 2a 2a 2a 2a 00 60 00 74 00 06 00 50 2a 20 00 60 00 ae 00 10 00 50 54 52 41 53 50 5c 45 51 55 5c 2a 20 00 60 00 b8 00 2c 00 50 5c 4c 44 5c 41 31 2c 45 43 42 42 41 2c 41 38 5c 47 45 54 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 28 ┆****** ` t P* ` PTRASP EQU * ` , P LD A1,ECBBA,A8 GET BUFFER ADDRESS (┆
0x93ec…943c 42 41 29 20 00 60 00 cc 00 2c 00 50 5c 4c 44 5c 41 32 2c 45 43 42 52 4c 2c 41 38 5c 47 45 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 28 52 4c 29 00 60 00 fc 00 20 00 50 5c 41 44 52 5c 41 31 2c 41 32 5c 47 45 54 20 45 4e 44 20 4f ┆BA) ` , P LD A2,ECBRL,A8 GET REQUESTED LENGTH(RL) ` P ADR A1,A2 GET END O┆
0x943c…948c 46 20 42 55 46 46 45 52 00 60 01 2c 00 14 00 50 53 4b 49 50 30 35 5c 43 57 4b 5c 41 32 2c 32 20 00 60 01 50 00 1a 00 50 5c 52 46 28 4e 47 29 5c 53 4b 49 50 33 30 5c 52 4c 20 3c 20 33 20 00 60 01 68 00 16 00 50 5c 53 55 4b 5c 41 31 2c 31 5c ┆F BUFFER ` , PSKIP05 CWK A2,2 ` P P RF(NG) SKIP30 RL < 3 ` h P SUK A1,1 ┆
0x948c…94dc (97, 0, 398) 44 45 43 52 2e 20 42 41 00 60 01 86 00 18 00 50 5c 4c 43 52 5c 41 34 2c 41 31 5c 47 45 54 20 43 48 41 52 20 00 61 00 10 00 10 00 50 5c 41 4e 4b 5c 41 34 2c 2f 46 46 20 00 61 00 2c 00 18 00 50 5c 53 55 4b 5c 41 34 2c 2f 32 30 5c 53 50 41 43 ┆DECR. BA ` P LCR A4,A1 GET CHAR a P ANK A4,/FF a , P SUK A4,/20 SPAC┆
0x94dc…952c 45 20 3f 20 00 61 00 40 00 16 00 50 5c 52 46 28 5a 29 5c 53 4b 49 50 30 37 5c 59 45 53 20 00 61 00 5c 00 1e 00 50 5c 41 44 4b 5c 41 34 2c 31 5c 4c 4f 57 20 49 4e 54 2e 20 53 54 4f 50 20 3f 20 00 61 00 76 00 18 00 50 5c 52 46 28 5a 29 5c 53 ┆E ? a @ P RF(Z) SKIP07 YES a P ADK A4,1 LOW INT. STOP ? a v P RF(Z) S┆
0x952c…957c 4b 49 50 30 37 5c 59 45 53 20 21 20 00 61 00 98 00 1e 00 50 5c 41 44 4b 5c 41 34 2c 31 5c 4c 4f 57 20 49 4e 54 2e 20 53 54 41 52 54 20 3f 00 61 00 b4 00 18 00 50 5c 52 46 28 5a 29 5c 53 4b 49 50 30 37 5c 59 45 53 20 21 20 00 61 00 d6 00 0e ┆KIP07 YES ! a P ADK A4,1 LOW INT. START ? a P RF(Z) SKIP07 YES ! a ┆
0x957c…95cc 00 50 5c 43 57 4b 5c 41 32 2c 34 20 00 61 00 f2 00 22 00 50 5c 52 46 28 4e 47 29 5c 53 4b 49 50 33 30 5c 52 45 51 2c 20 4c 45 4e 47 54 48 20 3c 20 35 00 61 01 04 00 1e 00 50 5c 4c 43 5c 41 34 2c 2d 32 2c 41 31 5c 47 45 54 20 43 48 41 52 41 ┆ P CWK A2,4 a " P RF(NG) SKIP30 REQ, LENGTH < 5 a P LC A4,-2,A1 GET CHARA┆
0x95cc…961a 43 54 45 52 00 61 01 2a 00 26 00 50 5c 53 55 4b 5c 41 34 2c 2f 31 31 5c 54 41 42 55 4c 41 54 49 4f 4e 20 43 48 41 52 41 43 54 45 52 20 3f 00 61 01 4c 00 18 00 50 5c 52 46 28 4e 5a 29 5c 53 4b 49 50 33 30 5c 59 45 53 20 21 00 61 01 76 ┆CTER a * & P SUK A4,/11 TABULATION CHARACTER ? a L P RF(NZ) SKIP30 YES ! a v┆
0x961a…966a (98, 0, 400) 00 1c 00 50 53 4b 49 50 30 37 5c 53 55 4b 5c 41 32 2c 31 5c 44 45 43 52 20 52 4c 20 00 62 00 04 00 18 00 50 5c 52 42 5c 53 4b 49 50 30 35 5c 47 45 54 20 4e 45 58 54 20 00 62 00 24 00 10 00 50 53 4b 49 50 33 30 5c 45 51 55 5c 2a 00 62 00 40 ┆ PSKIP07 SUK A2,1 DECR RL b P RB SKIP05 GET NEXT b $ PSKIP30 EQU * b @┆
0x966a…96ba 00 14 00 50 5c 4c 44 5c 41 34 2c 45 43 42 52 4c 2c 41 38 20 00 62 00 54 00 28 00 50 5c 53 54 5c 41 34 2c 45 43 42 43 57 2c 41 38 5c 53 41 56 45 20 4f 4c 44 20 52 45 51 2e 20 4c 45 4e 47 54 48 00 62 00 6c 00 06 00 50 2a 20 00 62 00 98 00 20 ┆ P LD A4,ECBRL,A8 b T ( P ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH b l P* b ┆
0x96ba…970a 00 50 5c 53 54 5c 41 32 2c 45 43 42 52 4c 2c 41 38 5c 53 54 4f 52 45 20 4e 45 57 20 52 4c 00 62 00 a2 00 06 00 50 2a 20 00 62 00 c6 00 0c 00 50 5c 52 54 4e 5c 41 31 35 00 62 00 d0 00 08 00 50 5c 58 49 46 00 62 00 e0 00 0a 00 50 5c 45 4a 45 ┆ P ST A2,ECBRL,A8 STORE NEW RL b P* b P RTN A15 b P XIF b P EJE┆
0x970a…975a 43 54 00 62 00 ec 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 2a 2a 00 62 00 fa 00 06 00 50 2a 20 ┆CT b @ P************************************************************ b P* ┆
0x975a…97aa 00 62 01 3e 00 20 00 50 2a 20 20 20 52 43 44 59 20 3d 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 20 00 62 01 48 00 36 00 50 2a 20 20 20 43 4c 45 41 52 53 20 44 49 53 50 4c 41 59 20 41 4e 44 20 53 45 54 53 20 43 55 52 53 4f 52 20 26 ┆ b > P* RCDY = RECOVERY ROUTINE b H 6 P* CLEARS DISPLAY AND SETS CURSOR &┆
0x97aa…97fa (99, 0, 398) 20 48 45 41 44 20 50 4f 53 49 54 49 4f 4e 00 62 01 6c 00 2c 00 50 2a 20 20 20 43 4f 55 4e 54 45 52 20 54 4f 20 48 4f 4d 45 20 50 4f 53 49 54 49 4f 4e 20 28 20 2f 30 31 30 31 20 29 2e 20 00 63 00 16 00 06 00 50 2a 20 00 63 00 46 00 40 00 50 ┆ HEAD POSITION b l , P* COUNTER TO HOME POSITION ( /0101 ). c P* c F @ P┆
0x97fa…984a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 63 00 50 00 06 00 50 2a 20 00 63 00 94 00 0e 00 50 52 43 ┆************************************************************ c P P* c PRC┆
0x984a…989a 44 59 5c 45 51 55 5c 2a 00 63 00 9e 00 12 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 37 46 46 46 00 63 00 b0 00 22 00 50 5c 41 4e 53 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 42 55 53 59 00 63 00 c6 00 06 00 50 2a 20 00 63 ┆DY EQU * c P LDKL A2,/7FFF c " P ANS A2,DWTST,A6 INDICATE BUSY c P* c┆
0x989a…98ea 00 ec 00 24 00 50 5c 4c 44 4b 4c 5c 41 32 2c 4d 41 58 42 4c 4b 5c 4d 41 58 2e 20 42 4c 4f 43 4b 20 53 49 5a 45 20 00 63 00 f6 00 20 00 50 5c 43 46 5c 41 35 2c 53 54 41 42 4c 4b 5c 53 54 41 52 54 20 4f 46 20 42 4c 4f 43 4b 00 63 01 1e 00 16 ┆ $ P LDKL A2,MAXBLK MAX. BLOCK SIZE c P CF A5,STABLK START OF BLOCK c ┆
0x98ea…9938 00 50 52 43 45 52 5c 52 42 28 4e 5a 29 5c 44 59 45 52 35 30 00 63 01 42 00 14 00 50 5c 49 46 54 5c 50 4c 41 53 4d 3d 30 5c 5c 3d 34 00 63 01 5c 00 1a 00 50 5c 49 46 46 5c 53 54 45 41 44 59 2b 43 4f 55 4e 54 52 59 3d 30 20 00 63 01 74 ┆ PRCER RB(NZ) DYER50 c B P IFT PLASM=0 =4 c P IFF STEADY+COUNTRY=0 c t┆
0x9938…9988 (100, 0, 400) 00 26 00 50 5c 4c 44 5c 41 32 2c 44 57 54 44 45 56 2c 41 36 5c 47 45 54 20 44 45 56 49 43 45 20 53 54 41 54 55 53 00 64 00 04 00 26 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 32 30 30 30 5c 50 54 53 20 36 33 38 35 20 4f 52 20 36 33 38 36 20 3f 20 ┆ & P LD A2,DWTDEV,A6 GET DEVICE STATUS d & P ANKL A2,/2000 PTS 6385 OR 6386 ? ┆
0x9988…99d8 00 64 00 2e 00 16 00 50 5c 52 46 28 5a 29 5c 52 43 44 59 32 30 5c 4e 4f 20 21 00 64 00 58 00 28 00 50 5c 4c 44 4b 5c 41 33 2c 2f 34 30 5c 53 45 54 20 55 50 20 54 52 41 4e 53 46 45 52 20 43 4f 55 4e 54 45 52 20 00 64 00 72 00 06 00 50 2a 20 ┆ d . P RF(Z) RCDY20 NO ! d X ( P LDK A3,/40 SET UP TRANSFER COUNTER d r P* ┆
0x99d8…9a28 00 64 00 9e 00 30 00 50 52 43 44 59 31 30 5c 4c 44 4b 5c 41 32 2c 53 54 49 4c 4c 2d 31 5c 53 45 54 20 55 50 20 43 55 52 53 4f 52 20 42 4c 49 4e 4b 49 4e 47 00 64 00 a8 00 2a 00 50 5c 41 44 4b 5c 41 32 2c 53 54 45 41 44 59 5c 41 44 4a 55 53 ┆ d 0 PRCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING d * P ADK A2,STEADY ADJUS┆
0x9a28…9a78 54 20 54 4f 20 53 54 45 41 44 59 20 49 46 20 53 4f 20 00 64 00 dc 00 2a 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 43 55 52 53 4f 52 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 00 64 01 0a 00 10 00 50 5c 52 42 28 4e 5a 29 5c ┆T TO STEADY IF SO d * P CF A5,OUTPUT SEND CURSOR INFORMATION d P RB(NZ) ┆
0x9a78…9ac8 52 43 45 52 00 64 01 38 00 28 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 54 52 41 4e 53 46 45 52 20 43 4f 55 4e 54 45 52 00 64 01 4c 00 26 00 50 5c 52 42 28 50 29 5c 52 43 44 59 31 30 5c 4e 4f 54 20 45 4e 4f 55 47 48 ┆RCER d 8 ( P SUK A3,1 DECREMENT TRANSFER COUNTER d L & P RB(P) RCDY10 NOT ENOUGH┆