|
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: 36180 (0x8d54)
Notes: pts_type(SC)
Names: »DRGP02.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »DRGP02/DRGP02.SC«
└─⟦this⟧ »PTMON/DRGP02.SC«
IDENT DRGP02 REL 11.0 82-07-07 870105041100 DK2, BASIC WRITE DK1 STR. TERM = /9C9C =1,TIME OUT IF INACTIVE, 25 SEC. PRR 11.0 80-11-19 * ******************************************************* * * * PHILIPS TERMINAL SYSTEM PTS * * * * DRGP02 = DRIVER GENERAL PRINTER * * * * * * * ******************************************************* * * THIS DRIVER HANDLES GENERAL PRINTER PTS 8081 * * THE DRIVER CONSISTS OF THE FOLLOWING PARTS : * * A C T P : ACTIVATION PART * * R C T P : RECOVERY ROUTINE * * EJECT * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00 : TEST STATUS * ORDER 06 : WRITE * ORDER 05 : BASIC WRITE DK2 * ORDER 0B : POSITION DOCUMENT * ORDER 24 : SET PRINTER PARAMETERS * ORDER 38 : RELEASE DOCUMENT * * THE FOLLOWING RETURN CODES ARE USED: * * BIT 0 : REQUEST ERROR * BIT 2 : END OF JOURNAL TAPE, DOCUMENT OUT * BIT 13 : CODE CHECK ERROR * BIT 15 : NOT OPERABLE * * * NORMAL REGISTER USAGE: * * REGISTER A1: WORK REGISTER * A2: INPUT/OUTPUT * A3: BUFFER POINTER * A4: WORK REGISTER * A5: STACK POINTER * A6: DWT-ADDRESS * A7: ORDER * A8: ECB-ADDRESS * * EJECT * * ******************************************* * * ENTRIES * ******************************************* * * ENTRY GPAD8 ADDRESS BLOCK * * * ******************************************* * * EXTERNALS * ******************************************* * * EXTRN LDISP DISPATCHING FROM INTERRUPT EXTRN LENDER DISPATCH I/O ERROR EXTRN LENDIS END I/O AND DISPATCH EXTRN OUTPUT OUTPUT ONE CHARACTER EXTRN GETCHR GET CHARACTER FROM ECB BUFFER EXTRN SETIMP SET TIMER =1 EXTRN DWTST DWT STATUS DISPLACEMENT EXTRN DWTECB DWT ECB DISPLACEMENT EXTRN DWTOR DWT ORDER DISPLACEMENT EXTRN DWTSB2 STACK BASE EXTRN INPUT STORE REG = GET STATUS INPUT CHAR EXTRN STABLK DEF START OF BLOCK EXTRN ENDBLK DEF END OF BLOCK EXTRN DWTDEV DEVICE STATUS EJECT * * ****************************************** * * CONSTANTS * ****************************************** * * SPEC EQU /2E SPECIAL CHARACTER LF EQU /0A LINE FEED FF EQU /0C FORM FEED CR EQU /0D CARRIAGE RETURN SO EQU /0E SHIFT OUT SI EQU /0F SHIFT IN ESC EQU /1B ESCAPE CSI EQU /5B CONTROL SEQUENCE INTRODUCER REP EQU /62 REPEAT VPR EQU /65 VERTICAL POSITION RELATIVE INFF EQU /74 INPUT FRONT FEED VPFF EQU /71 VERTICAL POSITION FRONT FEED EJFF EQU /38 EJECT FRONT FEED SNV EQU /77 SELECT NATIONAL VERSION SLPL EQU /76 SELECT PAGE LENGTH RIS EQU /63 RESET TO INITIAL STATE DSR EQU /6E DEVICE STATUS REPORT DCS EQU /50 DEVICE CONTROL STRING ST EQU /5C STRING TERMINATOR DEL EQU /7F DELETE ZERO EQU /30 ZERO NEG EQU /FF TIME EQU /FF 25 SEC TIMER =1 EJECT * * ********************************************************* * * CONTROL SEQUENCES * ********************************************************* * * BYTE FORM 8,8 * * CSREP EQU * REPEAT BYTE ESC,CSI BYTE ZERO,ZERO BYTE ZERO,REP BYTE NEG,NEG CSVPR EQU * VERTICAL POSITION RELATIVE BYTE ESC,CSI BYTE ZERO,ZERO BYTE ZERO,VPR BYTE NEG,NEG CSINFF EQU * INPUT FRONT FEED BYTE ESC,CSI BYTE ZERO,ZERO BYTE INFF,NEG CSVPFF EQU * VERTICAL POSITION FRONT FEED BYTE ESC,CSI BYTE ZERO,ZERO BYTE VPFF,NEG CSEJFF EQU * EJECT FRONT FEED BYTE ESC,EJFF BYTE NEG,NEG EJECT CSSNV EQU * SELECT NATIONAL VERSION BYTE ESC,CSI BYTE ZERO,ZERO BYTE SNV,NEG CSSLPL EQU * SELECT PAGELENGTH BYTE ESC,CSI BYTE ZERO,ZERO BYTE SLPL,NEG * BYTE NEG,NEG CSRIS EQU * RESET TO INITIAL STATE BYTE ESC,RIS BYTE NEG,NEG CSDSR EQU * DEVICE STATUS REPORT BYTE ESC,CSI BYTE /35,DSR BYTE NEG,NEG EJECT * * ******************************************************* * * CONDITIONAL ASSEMBLY * ******************************************************* * * * * THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN * BY SETTING X:A TO 1-15 ACCORDING TO THE LIST BELOW * * * NCV=1 GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA =5 ITALY,SWITZERLAND =6 SWEDEN,FINLAND =7 DENMARK,NORWAY =8 PORTUGAL,BRAZIL =9 YUGOSLAVIA =10 USA,CANADA,AUSTRALIA =11 SWEDEN (SPECIAL VERSION) =13 GREEK =14 JAPAN (KATAKANA VERSION) =15 ISRAEL (HEBREW VERSION) * * X:A EQU 02 GREAT BRITAIN AS STANDARD STDNCV EQU 07 EJECT * * * THE FRONT FEED DEVICE CAN BE EXCLUDED * BY SETTING X:B = 0 * * X:B EQU 1 FFDEV EQU 0 FRONT FEED DEVICE * * * * THE STANDARD PAGELENGTH IS DEFINED * BY SETTING X:C = NUMBER OF LINES * * X:C EQU 48 PAGLEN EQU 48 * * * THE STANDARD NUMBER OF LINES IS DEFINED * BY SETTING X:D = NUMBER OF LINES * * X:D EQU 36 * DOCLEN EQU 48 EJECT * * * * MMU BUFFER SIZE * * X:E EQU 132 DVBLEN EQU 256 * * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1 * * MMUPAG EQU 1 * * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0 * * CPU852 EQU 0 EJECT * * ******************************************* * * DWT - DISPLACEMENTS * ******************************************* * * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTTP EQU /2 TIMER POINTER =1 DWTDCS EQU /4 DOCUMENT CHARACTER SET DWTPCS EQU /6 PRINTER CHARACTER SET DWTPL EQU /8 PRINTER PAPER LENGTH DWTDL EQU /A DOCUMENT PAPER LENGTH DWTALN EQU /C ACTUAL LINE ON DOCUMENT DWTRLN EQU /E REQUESTED LINE ON DOCUMENT DWTRC EQU /11 RETURN CODE (ACKUMULATED) DWTSTR EQU /12 CONTROL SEQUENCE ADRESS DWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. DWTACD EQU /16 ACTUAL COLUMN DOCUMENT DWTACP EQU /19 ACTUAL COLUMN PAPER DWTCO1 EQU /1C COLUMN COUNTER 1 DWTCO2 EQU /1E COLUMN COUNTER 2 DWTSYST EQU /22 SYSTEM START IND. DWTLFD EQU /24 LINE/FORM FEED INDICATOR EJECT * * ******************************************* * * ECB - DISPLACEMENTS * ******************************************* * ECBBA EQU 2 BUFFER ADDRESS IN ECB ECBRL EQU 4 REQUESTED LENGTH IN ECB ECBEL EQU 6 EFFECTIVE LENGTH IN ECB ECBRC EQU 8 RETURN CODE IN ECB ECBCW EQU 10 CONTROL WORD IN ECB EJECT * ******************************************* * * TABLES * ******************************************* * * DATA DVBLEN MMU BUFFER SIZE DATA 2 DEVICE INDEX GPAD8 EQU * ADDRESS BLOCK DATA ACTP ACTIVATION DRIVER DATA 0 ABORT ROUTINE ADDRESS DATA 0 INTERRUPT HANDLER DATA RCTP RECOVERY ROUTINE TPTAB EQU * IFT FFDEV=1 DATA /0107,/0C25,/3939 XIF DATA /0006,/2424,/0505 DK2 TPLEN EQU *-TPTAB EJECT * * * A C T P * * THIS IS THE ACTIVATION PART OF THE DRIVER * CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR * * * ACTP EQU * ACTIVATION ENTRY * * * GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT * LC A2,DWTOR,A6 GET DWT INDEX ANK A2,1 MASK LC A3,DWTDEV+1,A6 GET OLD DEVICE VALUE ANK A3,/FE ORR A3,A2 SC A3,DWTDEV+1,A6 STORE INDEX CWK A7,/05 ORDER 5? DK2 RF(E) ACT003 YES DK2 ADR A7,A2 ADD DWT INDEX TO ORDER ACT003 EQU * DK2 SC A7,DWTOR+1,A6 STORE MODIFIED ORDER ACT005 LDK A3,TPLEN-1 ACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER RF(E) ACT020 VALID ORDER SUK A3,1 RB(NN) ACT010 TRY NEXT * ABL LENDER ILLEGAL ORDER * * ACT020 EQU * ADR A3,A3 GET INDEX ABI TPFUC,A3 EXECUTE ORDER EJECT TPFUC EQU * IFT FFDEV=1 DATA TSTSTA,WRTDOC,POSDOC,DOCPAR,RELDOC,RELDOC XIF DATA TSTSTA,WRTCON,CSTPAR,CSTPAR,BASWRT,BASWRT DK2 EJECT * * * ORDER 00 : TEST STATUS * * TSTSTA EQU * TEST STATUS CF A5,RESREC CF A5,GTSTAT GET STATUS FROM PRINTER ABL LENDIS END REQUEST * * * ORDER 05 : BASIC WRITE * * BASWRT EQU * LDK A3,0 BAS10 EQU * LDK A4,/90 TEST FOR END OF BLOCK LDR A2,A4 BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT QUIT IF ERROR BAS15 EQU * CF A15,GETCHR GET A CHARACTER LDR A1,A1 FINISHED? RF(Z) BAS25 YES CF A5,OUTPUT NO, SEND IT ABL(NZ) ERROUT QUIT IF ERROR SUK A4,1 END OF BLOCK? RF(Z) BAS20 YES RB BAS15 NO, GET ANOTHER CHAR. BAS20 EQU * CF A5,ENDBLK FINISH IT. ABL(NZ) ERROUT QUIT IF ERROR RB BAS10 GET NEXT BLOCK BAS25 EQU * CF A5,ENDBLK ABL(NZ) ERROUT QUIT IF ERROR RB TSTSTA TEST STATUS & END REQUEST EJECT EJECT IFT FFDEV=1 * * * ORDER 06: WRITE DOCUMENT * * WRTDOC EQU * CF A5,GTSTAT LD A4,DWTDEV,A6 DEVICE STATUS ANKL A4,/20 HAS POWER OFF OCCURED? RF(NZ) WRDO05 YES. LDKL A3,/2000 * TM A1,A3 DOCUMENT OUT? RF(Z) WRDO06 NO LDKL A3,/8000 YES.SET BIT 0 (REQUEST ERROR) ORS A3,ECBRC,A8 SET REQUEST ERROR IN R.C. ABL LENDIS END REQUEST WRDO05 EQU * * WRDO06 LDK A3,1 TM A1,A3 NOT OPERABLE? RF(Z) WRDO10 NO ABL LENDIS END REQUEST WRDO10 LDK A2,20 MAX BLOCK SIZE CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LD A3,DWTDEV+DWTALN,A6 GET ACTUAL LINE RF(NZ) WRDO15 LDK A3,1 SET UP ECB BUFFER POINTER CF A15,GETCHR GET CONTROL CHARACTER SUK A2,/31 CTRL CHAR=/31 ? ABL(NE) POSERR NO, DOC. NOT POSITIONED LD A3,DWTDEV+DWTDL,A6 * ST A3,DWTDEV+DWTRLN,A6 FIRST LINE ON DOC. WRDO12 LDKL A2,CSINFF INPUT FRONT FEED LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NO DISPLACEMENT CF A5,SEND SEND INPUT FRONT FEED LD A3,DWTDEV+DWTRLN,A6 ST A3,DWTDEV+DWTALN,A6 SET DWTDEV+DWTALN=DWTRLN WRDO15 LDKL A2,CSSNV SELECT NATIONAL VERSION LDKL A3,DWTDEV+DWTDCS DOCUMENT CHARACTER SET DISPLACEMENT CF A5,SEND SEND SELECT NATIONAL VERSION CF A5,ENDBLK END OF BLOCK ABL(NZ) ERROUT JMP IF ERROR * * EXAMINE CONTROL CHARACTER * LDK A3,1 SET ECB BUFFER POINTER CF A15,GETCHR GET CONTROL CHARACTER LD A1,DWTDEV,A6 GET DEVICE STATUS ANKL A1,/20 HAS POWER OFF OCCURED ? RF(NZ) REP1 YES * SUK A2,/2B PRINT WITHOUT LINE FEED ? RF(Z) WRT03 YES WRT04 LDR A4,A2 SAVE CONTROL CHAR. IN A4 LD A2,ECBRL,A8 ADK A2,/8 MAX BLOCK SIZE CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDR A2,A4 RESTORE CONT. CHAR. IN A2 CM DWTDEV+DWTCO2,A6 CLEAR DOCUMENT COLUMN COUNTER SUK A2,5 PRINT AFTER TWO LINE FEED ? RF(Z) TWOLF1 YES * SUK A2,1 PRINT AFTER FORM FEED ? ABL(Z) WRT14 YES, ALLREADY DONE ! * RF ONELF1 PRINT AFTER ONE LINE FEED ! * * EXECUTE CONTROL CHARACTER * WRT03 LD A4,DWTDEV+DWTCO2,A6 GET ACTUAL COLUMN RF(Z) WRT05 SUK A4,1 FOR CORRECT NO OF SPACES WRT05 CF A5,KONVER CONVERT BINARY TO ASCII SC A2,DWTDEV+DWTACD,A6 STORE THE VALUE IN ACTUAL COL. DOC. SC A4,DWTDEV+DWTACD+2,A6 STORE THE VALUE IN ACTUAL COL. DOC. SRL A4,8 SC A4,DWTDEV+DWTACD+1,A6 SHIFT FOR CORRECT DIGITS * WRT09 LDKL A2,/8C BLOCK SIZE CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LD A4,DWTDEV+DWTCO2,A6 ABL(Z) WRT15 JMP IF NO PRECEIDING SPACES LDK A2,/20 SEND SPACE CF A5,OUTPUT ABL(NZ) ERROUT JMP IF ERROR LDKL A2,CSREP REPEAT LDKL A3,DWTDEV+DWTACD ACTUAL COLUMN DOCUMENT DISPLACEMENT CF A5,SEND SEND REPEAT ABL WRT15 * TWOLF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO CF A5,BINARY CONV ASCII TO BINARY SUK A3,1 INCR REQ LINE NO RF TWO TWO LINE FEED ONELF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO CF A5,BINARY TWO SUK A3,1 INCR REQ LINE NO LDR A4,A3 CF A5,KONVER CONV BINARY TO ASCII ST A4,DWTDEV+DWTRLN,A6 STORE REQ LINE NO LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT CF A5,SEND LD A4,DWTDEV+DWTRLN,A6 ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQUESTED LINE RF WRT14 * * REPEAT WRITE REQUEST AT DOCUMENT STATION * REP1 CF A5,RESREC SUK A2,/2B PRINT WITHOUT LINE FEED ? RB(Z) WRT09 YES LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR RF(NZ) WRT15 JMP IF LF/FF DONE RB WRT04 * XIF EJECT * * * ORDER 06: WRITE CONTINOUS STATIONARY * * WRTCON EQU * CF A5,GTSTAT GET DEVICE STATUS LDKL A3,/2000 * TM A1,A3 END OF PAPER? RF(Z) WRCO05 NO. ABL ENDIO END REQUEST WRCO05 LDK A3,1 NOT OPERABLE? TM A1,A3 RF(Z) WRCO10 NO ABL ENDIO END REQUEST WRCO10 LDK A2,/E BLOCK SIZE CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDKL A2,CSSNV SELECT NATIONAL VERSION LDKL A3,DWTDEV+DWTPCS PRINTER CHAR. SET DISPLACEMENT CF A5,SEND SEND SELECT NATIONAL VERSION CF A5,ENDBLK END OF BLOCK ABL(NZ) ERROUT JMP IF ERROR * * EXAMINE CONTROL CHARACTER, CONTINOUS * LDK A3,1 SET UP ECB BUFFER POINTER CF A15,GETCHR GET CONTROL CHARACTER LD A1,DWTDEV,A6 GET DEVICE STATUS ANKL A1,/20 HAS POWER OFF OCCURED ? RF(NZ) REP2 YES * SUK A2,/2B PRINT WITHOUT LINE FEED ? RF(Z) WRC03 YES WRC04 LDR A4,A2 SAVE CONTROL CHAR. IN A4 LD A2,ECBRL,A8 ADK A2,/8 BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDR A2,A4 RESTORE CONT. CHAR. IN A2 CM DWTDEV+DWTCO1,A6 CLEAR PAPER COL. COUNTER SUK A2,5 PRINT AFTER TWO LINE FEED ? RF(Z) TWOLF2 YES * SUK A2,1 PRINT AFTER FORM FEED ? RF(Z) FORMF YES * RF ONELF2 PRINT AFTER ONE LINE FEED ! * * EXECUTE CONTROL CHARACTER, CONTINOUS * WRC03 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN RF(Z) WRC05 FOR CORRECT NO OF SPACES SUK A4,1 WRC05 CF A5,KONVER CONVERT BINARY TO ASCII SC A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. CONTINOUS ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. CONT. * WRC07 LDK A2,/8C BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LD A4,DWTDEV+DWTCO1,A6 RF(Z) WRT15 JMP IF NO PRECEIDING SPACES LDK A2,/20 SEND SPACE CF A5,OUTPUT ABL(NZ) ERROUT JMP IF ERROR LDKL A2,CSREP REPEAT LDKL A3,DWTDEV+DWTACP ACTUAL COLUMN PAPER DISPLACEMENT CF A5,SEND SEND REPEAT RF WRT15 * TWOLF2 LDK A2,LF SEND LINE FEED CF A5,OUTPUT ABL(NZ) ERROUT JMP IF ERROR ONELF2 LDK A2,LF SEND LINE FEED CF A5,OUTPUT ABL(NZ) ERROUT JMP IF ERROR RF WRT14 * FORMF LDK A2,FF SEND FORM FEED CF A5,OUTPUT ABL(NZ) ERROUT JMP IF ERROR RF WRT14 * * REPEAT WRITE REQUEST AT CONTINOUS STATION * REP2 CF A5,RESREC SUK A2,/2B PRINT WITHOUT LINE FEED ? RB(Z) WRC07 YES LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR RF(NZ) WRT15 JMP IF LF/FF DONE RB WRC04 EJECT * * ORDER 06 : THIS PART SENDS THE CHARACTERS * TO DOCUMENT OR CONTINOUS STATIONARY. * WRT14 IM DWTDEV+DWTLFD,A6 SET LF/FF INDICATOR * WRT15 LDK A3,2 SET ECB BUFFER POINTER WRT16 CF A15,GETCHR GET CHARACTER LDR A4,A1 BUFFER FINISHED ? RF(P) WRT20 NO WRT17 SUK A3,/02 ECB BUFFER POINTER = /02 RF(Z) WRT18 YES. LDK A2,CR NO. SEND CARRIAGE RETURN CF A5,OUTPUT ABL(NZ) ERROUT JMP IF ERROR WRT18 CF A5,ENDBLK END OF BLOCK ABL(NZ) ERROUT JMP IF ERROR CF A5,GTSTAT GET STATUS RF ENDIO END REQUEST * WRT20 EQU * LDR A4,A2 * * EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER * SUK A4,/20 CHAR < /20? RB(N) WRT16 YES GET A NEW CHARACTER SUK A4,/5F CHAR < /7F? RF(N) WRT25 YES. SUK A4,/2F NO. CHAR = /AE? RF(Z) WRT30 YES. CONVERT /AE TO /2E LDK A4,/04 ILLEGAL CHARACTER SET BIT 13 IN R.C. ORS A4,ECBRC,A8 RB WRT16 WRT30 LDK A2,/2E WRT25 LDR A4,A1 CF A5,OUTPUT SEND CHARACTER ABL(NZ) ERROUT JMP IF ERROR LC A2,DWTOR+1,A6 GET DWT INDEX ANK A2,1 DOCUMENT? RF(NZ) WRT40 YES IM DWTDEV+DWTCO1,A6 INC.COLUMN COUNTER 1 RB WRT16 WRT40 IM DWTDEV+DWTCO2,A6 INC.COLUMN COUNTER 2 RB WRT16 ENDIO EQU * CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR ABL LENDIS END REQUEST EJECT IFT FFDEV=1 * * * ORDER 0B : POSITION DOCUMENT * CONTROL WORD CONTAINS REQUESTED LINE NO * * POSDOC EQU * POSITION DOCUMENT CF A5,RESREC CF A5,GTSTAT GET DEVICE STATUS LDK A3,1 NOT OPERABLE TM A1,A3 * RF(NZ) POS020 YES LDK A2,/E BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDKL A2,CSSNV SELECT NATIONAL VERSION LDKL A3,DWTDEV+DWTDCS DOCUMENT VERSION CF A5,SEND SEND SNV CF A5,ENDBLK END OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LD A4,ECBCW,A8 GET REQUESTED LINE ANK A4,/FF RF(Z) POSERR ILLEGAL LINE NUMBER LD A1,DWTDEV+DWTDL,A6 MAX. LINE CF A5,BINARY CONVERT ASCII TO BINARY CWR A4,A3 REQ. LINE>MAX. LINE RF(G) POSERR YES ADK A3,1 CORRECT POSITION SUR A4,A3 INVERT LINE NO. NGR A4,A4 GET PRINTER REQ. LINE NO. CF A5,KONVER CONVERT BINARY TO ASCII ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE LD A4,DWTDEV+DWTALN,A6 GET ACTUAL LINE RF(NZ) POS030 DOCUMENT ALREADY POSITIONED POS005 EQU * LDK A2,/6 BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDKL A2,CSINFF INPUT FRONT FEED LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT CF A5,SEND SEND INPUT FRONT FEED POS010 EQU * CF A5,ENDBLK END OF BLOCK ABL(NZ) ERROUT JMP IF ERROR CF A5,GTSTAT GET STATUS LDR A2,A1 GET RETURN CODE ANKL A2,/2000 PAPER DOCUMENT OUT ? RB(NZ) POS005 YES WAIT FOR DOCUMENT TO BE INSERTED LD A4,DWTDEV+DWTRLN,A6 GET REQUESTED LINE ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQ LINE POS020 ABL LENDIS POS030 EQU * LDK A2,/6 BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT CF A5,SEND SEND VERTICAL POSITION FRONT FEED RB POS010 XIF POSERR EQU * ABL LENDER REQ. ERROR, END REQUEST EJECT IFT FFDEV=1 * * * ORDER 24 : SET DOCUMENT PARAMETERS * * DOCPAR EQU * DOCUMENT PARAMETERS LDK A1,0 CLEAR A1 CF A5,RESREC LD A4,ECBCW,A8 GET NUMBER OF LINES SRL A4,8 GET LINES RF(Z) DOC010 NO CHANGE OF LINES CWK A4,/10 INDEX TO BIG RB(G) POSERR YES ADR A4,A4 ADJUST INDEX TO LINE TABLE LD A4,LINNUM,A4 GET LINE ACCORDING TO INDEX ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT DOC010 EQU * LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION ANK A4,/FF RF(Z) DOC020 NO CHANGE OF NATIONAL CHARACTER SET CWK A4,/F INDEX TO BIG RB(G) POSERR YES ADR A4,A4 ADJUST TABLE INDEX LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX ST A4,DWTDEV+DWTDCS,A6 SET CHARACTER SET FOR DOCUMENT DOC020 EQU * RB ENDIO END REQUEST XIF EJECT * * * ORDER 24 : SET CONTINUOUS STATIONARY PARAMETERS * * CSTPAR EQU * SET PARAMETERS CONTINUOUS STATIONARY LDK A1,0 CLEAR A1 CF A5,RESREC LD A4,ECBCW,A8 GET NUMBER OF LINES CST. SRL A4,8 GET LINES RF(Z) CST010 NO CHANGE OF LINES CWK A4,/10 INDEX TO BIG RB(G) POSERR YES ADR A4,A4 ADJUST INDEX TO LINE TABLE LD A4,LINNUM,A4 GET LINES ACCORDING TO INDEX ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH FOR CONT.STAT. LDK A2,/A BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDKL A2,CSSLPL SELECT PAGELENGTH LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. CF A5,SEND SEND SLECT PAGELENGTH CF A5,ENDBLK END OF BLOCK ABL(NZ) ERROUT JMP IF ERROR CST010 EQU * LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION ANK A4,/FF RF(Z) CST020 NO CHANGE OF NAT. CHAR. SET CWK A4,/F INDEX TO BIG RB(G) POSERR YES ADR A4,A4 ADJUST INDEX TO NAT. CHAR. TABLE LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX ST A4,DWTDEV+DWTPCS,A6 SET NAT. CHAR. SET FOR CONT.STAT. CST020 EQU * ABL ENDIO END REQUEST EJECT IFT FFDEV=1 * * * ORDER 38 : RELEASE DOCUMENT * * RELDOC EQU * LDK A2,/4 BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR CF A5,RESREC LDKL A2,CSEJFF CONTROL SEQ. EJECT FRONT FEED CF A5,SEND SEND SEQUENCE CF A5,ENDBLK END OF BLOCK ABL(NZ) ERROUT JMP IF ERROR CF A5,GTSTAT GET STATUS FROM PRINTER LDR A2,A1 GET RETURN CODE ANK A2,/20 DOCUMENT RELEASED RB(NZ) RELDOC NO , TRY AGAIN ANKL A1,/8000 REQUEST ERROR CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE CM DWTDEV+DWTRLN,A6 RESET REQUESTED LINE ABL ENDIO END REQUEST XIF EJECT * * * R C T P * * RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON * * RCTP EQU * RCTP07 LDKL A1,/7FFF SET DEVICE BUSY ANS A1,DWTST,A6 BUSY LDKL A5,DWTSB2 STACK BASE ADR A5,A6 LDK A2,/F BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDKL A2,CSRIS RESET TO INITIAL STATE CF A5,SEND SEND RESET TO INITIAL STATE LD A1,DWTDEV+DWTSYST,A6 INTERN. SYSTEM START IND. RF(Z) RCTP10 NO SYSTEM START * CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR * LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET CF A5,KONVER CONVERT BIANARY TO ASCII ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT ST A4,DWTDEV+DWTPCS,A6 SET CHAR. SET CONT.STAT. LDKL A4,PAGLEN STANDARD PAGE LENGTH CF A5,KONVER CONVERT BINARY TO ASCII ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH CONT.STAT. LDKL A2,CSSLPL SELECT PAGELENGTH LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. CF A5,SEND SEND SELECT PAGELENGTH LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT CF A5,KONVER CONVERT BINARY TO ASCII ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT RCTP10 EQU * CF A5,ENDBLK END OF BLOCK ABL(NZ) ERROUT JMP IF ERROR CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE LDKL A1,/20 INDICATE POWER OFF OCCURED ORS A1,DWTDEV,A6 LD A1,DWTECB,A6 RUNNING REQUEST ABL(NZ) ACT005 YES , REPEAT THE REQUEST ABL LENDIS DISPATCH EJECT * * * GTSTAT * * * THIS ROUTINE SENDS 'DEVICE STATUS REPORT TO THE PRINTER * * AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER * * AT EXIT A1 = RETURN CODE * * GTSTAT EQU * CM DWTDEV+DWTRC,A6 RESET RETURN CODE LDK A2,/4 BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDK A2,ESC ESCAPE CF A5,OUTPUT SEND ESC ABL(NZ) ERROUT JMP IF ERROR LDK A2,CSI CONTROL SEQUENCE INTRODUCER CF A5,OUTPUT SEND CSI ABL(NZ) ERROUT JMP IF ERROR LDK A2,/35 CF A5,OUTPUT SEND /35 ABL(NZ) ERROUT JMP IF ERROR LDK A2,DSR DEVICE STATUS REPORT CF A5,OUTPUT SEND DSR ABL(NZ) ERROUT JMP IF ERROR CF A5,ENDBLK END OF BLOCK ABL(NZ) ERROUT JMP IF ERROR LDR A1,A6 SAVE DWT ADDRESS =1 LDKL A4,DWTDEV+DWTTP =1 ADR A4,A6 =1 CF A15,SETIMP SET TIMER =1 DATA ERGP00,TIME RETURN ADDR., TIMEOUT =1 GTST05 LDKL A4,TAB GET TABLE ADDRESS GTST10 EQU * LDK A3,0 RESET INDEX CF A5,INPUT READ STATUS FROM PRINTER ANK A2,/FF GET CHARACTER CCK A2,/9C9C STRING TERMINATOR RF(E) GTSEND YES LCR A3,A4 GET MASK RETURN CODE ANR A2,A3 LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 LC A3,1,A4 A3 TIMES EXR A3 EXECUT SHIFT INSTRUCTION ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY ADK A4,2 INCREMENT ADRESS RB GTST10 GET NEXT STATUS CHARACTER GTSEND EQU * LD A1,DWTDEV+DWTRC,A6 GET RETURN CODE LD A2,DWTDEV+DWTTP,A6 =1 RF(Z) GTST20 CHECK IF ALLREADY ZERO =1 CM* DWTDEV+DWTTP,A6 RESET TIMER =1 GTST20 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 RTN A5 EJECT * * THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE * * REGISTERS : * A1= WORK REGISTER * A4= BINARY INPUT * A2,A4= ASCII OUTPUT * * KONVER EQU * * BINARY TO DEC. LDK A2,0 CLEAR A2 CWK A4,100 VALUE > 100 ? RF(L) KONV05 NO SUKL A4,100 LDKL A2,/100 LEFT BYTE OF A2=X=1 KONV05 CWK A4,10 ARE THERE ANY TENS ? RF(L) KONV04 NO SUK A4,10 ADK A2,/1 NUMBER OF TENS IN RIGHT B. OF A2=Y RB KONV05 NEXT KONV04 ORKL A2,/3030 XY IN A2 ORK A4,/30 Z IN A4 SRC A2,8 YX IN A2 LDR A1,A2 ANKL A1,/FF00 KEEP Y IN A1 ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII ORR A4,A1 YZ IN A1. ASCII RTN A5 EJECT * * RESET RECORVERY * RESREC EQU * LD A4,DWTDEV,A6 DEVICE STATUS ANKL A4,/20 RECOVERY? RF(E) RESRTN NO. XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT RESRTN RTN A5 RETURN * * * * * ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK AND TIMER * * INPUT : A1 = RETURN CODE * ERROUT EQU * ANK A1,/1A OUTP. ERR, SOFTW T-OUT, LRC-ERR ABL(NZ) RCTP RECOVERY ERGP10 LDK A1,1 IND. NOT OP. ABL LENDIS * ERGP00 EQU * =1 LDR A6,A1 RESTORE DWTADDRESS =1 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 RB ERGP10 EJECT * * * S E N D * * THIS ROUTINE SENDS AN CONTROL SEQUENCE * TO THE PRINTER * * * AT ENTRY : * A2 = CONTROL SEQUENCE ADRESS * A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC * * * AT EXIT : * A1,A2,A3 IS DESTROYED * * * SEND EQU * SEND CONTROL SEQUENCE ST A3,DWTDEV+DWTDISP,A6 SAVE DWT-DISPLACEMENT ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS SEND10 EQU * LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS LCR A2,A3 GET CHARACTER ANK A2,/FF MAKE CHARACTER SLL A2,8 END OF CONTROL SEQUENCE RF(N) SENDEND YES,RETURN CWK A2,/3000 LINE NO,CHAR.SET,ETC RF(E) SEND30 YES SRL A2,8 PREPARE TO SEND CHARACTER CF A5,OUTPUT SEND CHARACTER ABL(NZ) ERROUT JMP IF ERROR SEND20 EQU * IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS RB SEND10 GET NEXT SEND30 EQU * LD A3,DWTDEV+DWTDISP,A6 GET DWT-DISPLACEMENT ADR A3,A6 GET PROPER VALUE LCR A2,A3 GET CHARACTER CF A5,OUTPUT SEND CHARACTER ABL(NZ) ERROUT JMP IF ERROR IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS RB SEND20 GET NEXT SENDEND EQU * RTN A5 EJECT * * * BINARY * * THIS ROUTINE CONVERTS ASCII CODE TO A BINARY VALUE * * REGISTERS: * A1= ASCII INPUT * A2= WORK REGISTER * A3= BINARY OUTPUT * * * BINARY SUR A3,A3 CLEAR A3 LDR A2,A1 MAX. LINE ASCII SRL A2,8 SUK A2,/30 ADR A3,A2 ADR A3,A2 SLL A2,3 ADR A3,A2 ANK A1,/F ADR A3,A1 MAX. LINE BINARY RTN A5 EJECT LINNUM EQU *-2 NUMBER OF LINES DATA /3132,/3135,/3138,/3234 DATA /3235,/3330,/3333,/3335 DATA /3336,/3438,/3530,/3531 DATA /3630,/3636,/3730,/3732 * * * * NCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE DATA /3031,/3032,/3033,/3034 DATA /3035,/3036,/3037,/3038 DATA /3039,/3130,/3131,/3131 DATA /3133,/3134,/3135 TAB EQU * MASK TABLE FOR STATUS REPORT FROM PRINTER DATA /C0,/C0,/C0,/2CC * DATA /2CF,/4CB,/C0,/C0 * DATA /C0,/C0,/C0,/C0 DATA /C0,/C0 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRGP02 REL 11.0 82-07-07 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005a Head {h00=0x0018, h01=0x0050, text=» DK2, BASIC WRITE «, t00=0x0000, t01=0x0042}
0x005a…007a Head {h00=0x001c, h01=0x0050, text=» DK1 STR. TERM = /9C9C«, t00=0x0000, t01=0x005e}
0x007a…00a6 Head {h00=0x0028, h01=0x0050, text=» =1,TIME OUT IF INACTIVE, 25 SEC. «, t00=0x0000, t01=0x007e}
0x00a6…00c2 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-11-19«, t00=0x0000, t01=0x00aa}
0x00c2…00cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…010c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x00d0}
0x010c…014c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0110}
0x014c…018c Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0000, t01=0x0150}
0x018c…01cc Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0190}
0x01cc…0204 Head {h00=0x0034, h01=0x0050, text=»* DRGP02 = DRIVER GENERAL PRINTER * «, t00=0x0001, t01=0x0040}
0x0204…0244 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0078}
0x0244…0284 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x00b8}
0x0284…02c4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x00f8}
0x02c4…0304 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x0138}
0x0304…030e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0178}
0x030e…0346 Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER HANDLES GENERAL PRINTER PTS 8081«, t00=0x0001, t01=0x0182}
0x0346…0350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002a}
0x0350…0388 Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS :«, t00=0x0002, t01=0x0034}
0x0388…0392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0392…03ba Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0002, t01=0x0076}
0x03ba…03c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009e}
0x03c4…03ec Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0002, t01=0x00a8}
0x03ec…03f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d0}
0x03f6…0400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00da}
0x0400…040e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e4}
0x040e…0418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f2}
0x0418…0446 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x00fc}
0x0446…0450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x0450…0478 Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0002, t01=0x0134}
0x0478…049a Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0002, t01=0x015c}
0x049a…04be Head {h00=0x0020, h01=0x0050, text=»* ORDER 05 : BASIC WRITE DK2«, t00=0x0002, t01=0x017e}
0x04be…04ec Head {h00=0x002a, h01=0x0050, text=»* ORDER 0B : POSITION DOCUMENT «, t00=0x0003, t01=0x0012}
0x04ec…051e Head {h00=0x002e, h01=0x0050, text=»* ORDER 24 : SET PRINTER PARAMETERS«, t00=0x0003, t01=0x0040}
0x051e…054a Head {h00=0x0028, h01=0x0050, text=»* ORDER 38 : RELEASE DOCUMENT«, t00=0x0003, t01=0x0072}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009e}
0x0554…0584 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0003, t01=0x00a8}
0x0584…058e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d8}
0x058e…05b8 Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0003, t01=0x00e2}
0x05b8…05f6 Head {h00=0x003a, h01=0x0050, text=»* BIT 2 : END OF JOURNAL TAPE, DOCUMENT OUT «, t00=0x0003, t01=0x010c}
0x05f6…0622 Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0003, t01=0x014a}
0x0622…064a Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0003, t01=0x0176}
0x064a…0654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000e}
0x0654…065e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0018}
0x065e…0680 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0004, t01=0x0022}
0x0680…068a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0044}
0x068a…06b0 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0004, t01=0x004e}
0x06b0…06d6 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0004, t01=0x0074}
0x06d6…06fe Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0004, t01=0x009a}
0x06fe…0724 Head {h00=0x0022, h01=0x0050, text=»* A4: WORK REGISTER«, t00=0x0004, t01=0x00c2}
0x0724…074a Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0004, t01=0x00e8}
0x074a…076e Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0004, t01=0x010e}
0x076e…078c Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0004, t01=0x0132}
0x078c…07b0 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0004, t01=0x0150}
0x07b0…07ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0174}
0x07ba…07c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017e}
0x07c4…07d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0188}
0x07d2…07dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07dc…07e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0012}
0x07e6…081a Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x001c}
0x081a…0824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0050}
0x0824…0836 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0005, t01=0x005a}
0x0836…0840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006c}
0x0840…0874 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x0076}
0x0874…087e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00aa}
0x087e…0888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b4}
0x0888…08aa Head {h00=0x001e, h01=0x0050, text=» ENTRY GPAD8 ADDRESS BLOCK«, t00=0x0005, t01=0x00be}
0x08aa…08b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e0}
0x08b4…08be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ea}
0x08be…08c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f4}
0x08c8…08fc Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x00fe}
0x08fc…0906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0132}
0x0906…091a Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0005, t01=0x013c}
0x091a…0924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x0924…0958 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x015a}
0x0958…0962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018e}
0x0962…096c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096c…099c Head {h00=0x002c, h01=0x0050, text=» EXTRN LDISP DISPATCHING FROM INTERRUPT «, t00=0x0006, t01=0x0012}
0x099c…09c4 Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER DISPATCH I/O ERROR«, t00=0x0006, t01=0x0042}
0x09c4…09ee Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDIS END I/O AND DISPATCH«, t00=0x0006, t01=0x006a}
0x09ee…0a18 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0006, t01=0x0094}
0x0a18…0a4c Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB BUFFER «, t00=0x0006, t01=0x00be}
0x0a4c…0a6e Head {h00=0x001e, h01=0x0050, text=» EXTRN SETIMP SET TIMER =1«, t00=0x0006, t01=0x00f2}
0x0a6e…0a9a Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTST DWT STATUS DISPLACEMENT«, t00=0x0006, t01=0x0114}
0x0a9a…0ac4 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTECB DWT ECB DISPLACEMENT«, t00=0x0006, t01=0x0140}
0x0ac4…0af0 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTOR DWT ORDER DISPLACEMENT «, t00=0x0006, t01=0x016a}
0x0af0…0b10 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0007, t01=0x0008}
0x0b10…0b46 Head {h00=0x0032, h01=0x0050, text=» EXTRN INPUT STORE REG = GET STATUS INPUT CHAR«, t00=0x0007, t01=0x0028}
0x0b46…0b6e Head {h00=0x0024, h01=0x0050, text=» EXTRN STABLK DEF START OF BLOCK«, t00=0x0007, t01=0x005e}
0x0b6e…0b94 Head {h00=0x0022, h01=0x0050, text=» EXTRN ENDBLK DEF END OF BLOCK«, t00=0x0007, t01=0x0086}
0x0b94…0bb8 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS «, t00=0x0007, t01=0x00ac}
0x0bb8…0bca Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x0007, t01=0x00d0}
0x0bca…0bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e2}
0x0bd4…0bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ec}
0x0bde…0c10 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0007, t01=0x00f6}
0x0c10…0c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0128}
0x0c1a…0c2e Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS «, t00=0x0007, t01=0x0132}
0x0c2e…0c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0146}
0x0c38…0c6a Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0007, t01=0x0150}
0x0c6a…0c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0182}
0x0c74…0c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018c}
0x0c7e…0ca4 Head {h00=0x0022, h01=0x0050, text=»SPEC EQU /2E SPECIAL CHARACTER«, t00=0x0008, t01=0x0008}
0x0ca4…0cc0 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x0008, t01=0x002e}
0x0cc0…0cdc Head {h00=0x0018, h01=0x0050, text=»FF EQU /0C FORM FEED«, t00=0x0008, t01=0x004a}
0x0cdc…0cfe Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x0008, t01=0x0066}
0x0cfe…0d1a Head {h00=0x0018, h01=0x0050, text=»SO EQU /0E SHIFT OUT«, t00=0x0008, t01=0x0088}
0x0d1a…0d36 Head {h00=0x0018, h01=0x0050, text=»SI EQU /0F SHIFT IN «, t00=0x0008, t01=0x00a4}
0x0d36…0d50 Head {h00=0x0016, h01=0x0050, text=»ESC EQU /1B ESCAPE«, t00=0x0008, t01=0x00c0}
0x0d50…0d80 Head {h00=0x002c, h01=0x0050, text=»CSI EQU /5B CONTROL SEQUENCE INTRODUCER «, t00=0x0008, t01=0x00da}
0x0d80…0d9a Head {h00=0x0016, h01=0x0050, text=»REP EQU /62 REPEAT«, t00=0x0008, t01=0x010a}
0x0d9a…0dc8 Head {h00=0x002a, h01=0x0050, text=»VPR EQU /65 VERTICAL POSITION RELATIVE«, t00=0x0008, t01=0x0124}
0x0dc8…0dee Head {h00=0x0022, h01=0x0050, text=»INFF EQU /74 INPUT FRONT FEED «, t00=0x0008, t01=0x0152}
0x0dee…0e20 Head {h00=0x002e, h01=0x0050, text=»VPFF EQU /71 VERTICAL POSITION FRONT FEED «, t00=0x0008, t01=0x0178}
0x0e20…0e46 Head {h00=0x0022, h01=0x0050, text=»EJFF EQU /38 EJECT FRONT FEED «, t00=0x0009, t01=0x001a}
0x0e46…0e72 Head {h00=0x0028, h01=0x0050, text=»SNV EQU /77 SELECT NATIONAL VERSION «, t00=0x0009, t01=0x0040}
0x0e72…0e9a Head {h00=0x0024, h01=0x0050, text=»SLPL EQU /76 SELECT PAGE LENGTH «, t00=0x0009, t01=0x006c}
0x0e9a…0ec4 Head {h00=0x0026, h01=0x0050, text=»RIS EQU /63 RESET TO INITIAL STATE«, t00=0x0009, t01=0x0094}
0x0ec4…0eec Head {h00=0x0024, h01=0x0050, text=»DSR EQU /6E DEVICE STATUS REPORT«, t00=0x0009, t01=0x00be}
0x0eec…0f16 Head {h00=0x0026, h01=0x0050, text=»DCS EQU /50 DEVICE CONTROL STRING «, t00=0x0009, t01=0x00e6}
0x0f16…0f3a Head {h00=0x0020, h01=0x0050, text=»ST EQU /5C STRING TERMINATOR«, t00=0x0009, t01=0x0110}
0x0f3a…0f54 Head {h00=0x0016, h01=0x0050, text=»DEL EQU /7F DELETE«, t00=0x0009, t01=0x0134}
0x0f54…0f6e Head {h00=0x0016, h01=0x0050, text=»ZERO EQU /30 ZERO «, t00=0x0009, t01=0x014e}
0x0f6e…0f82 Head {h00=0x0010, h01=0x0050, text=»NEG EQU /FF «, t00=0x0009, t01=0x0168}
0x0f82…0fa6 Head {h00=0x0020, h01=0x0050, text=»TIME EQU /FF 25 SEC TIMER =1«, t00=0x0009, t01=0x017c}
0x0fa6…0fb8 Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x000a, t01=0x0010}
0x0fb8…0fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0022}
0x0fc2…0fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002c}
0x0fcc…100e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x0036}
0x100e…1018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0078}
0x1018…1034 Head {h00=0x0018, h01=0x0050, text=»* CONTROL SEQUENCES «, t00=0x000a, t01=0x0082}
0x1034…103e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009e}
0x103e…1080 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x00a8}
0x1080…108a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ea}
0x108a…1094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f4}
0x1094…10aa Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x000a, t01=0x00fe}
0x10aa…10b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0114}
0x10b4…10be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10be…10d8 Head {h00=0x0016, h01=0x0050, text=»CSREP EQU * REPEAT«, t00=0x000a, t01=0x0128}
0x10d8…10ee Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000a, t01=0x0142}
0x10ee…1106 Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000a, t01=0x0158}
0x1106…111c Head {h00=0x0012, h01=0x0050, text=» BYTE ZERO,REP«, t00=0x000a, t01=0x0170}
0x111c…1132 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000a, t01=0x0186}
0x1132…1160 Head {h00=0x002a, h01=0x0050, text=»CSVPR EQU * VERTICAL POSITION RELATIVE«, t00=0x000b, t01=0x000c}
0x1160…1176 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000b, t01=0x003a}
0x1176…118e Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000b, t01=0x0050}
0x118e…11a4 Head {h00=0x0012, h01=0x0050, text=» BYTE ZERO,VPR«, t00=0x000b, t01=0x0068}
0x11a4…11ba Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000b, t01=0x007e}
0x11ba…11e0 Head {h00=0x0022, h01=0x0050, text=»CSINFF EQU * INPUT FRONT FEED «, t00=0x000b, t01=0x0094}
0x11e0…11f6 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000b, t01=0x00ba}
0x11f6…120e Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000b, t01=0x00d0}
0x120e…1224 Head {h00=0x0012, h01=0x0050, text=» BYTE INFF,NEG«, t00=0x000b, t01=0x00e8}
0x1224…1256 Head {h00=0x002e, h01=0x0050, text=»CSVPFF EQU * VERTICAL POSITION FRONT FEED «, t00=0x000b, t01=0x00fe}
0x1256…126c Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000b, t01=0x0130}
0x126c…1284 Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000b, t01=0x0146}
0x1284…129a Head {h00=0x0012, h01=0x0050, text=» BYTE VPFF,NEG«, t00=0x000b, t01=0x015e}
0x129a…12c0 Head {h00=0x0022, h01=0x0050, text=»CSEJFF EQU * EJECT FRONT FEED «, t00=0x000b, t01=0x0174}
0x12c0…12d6 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,EJFF«, t00=0x000c, t01=0x000a}
0x12d6…12ec Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000c, t01=0x0020}
0x12ec…12fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0036}
0x12fa…130e Head {h00=0x0010, h01=0x0050, text=»CSSNV EQU * «, t00=0x000c, t01=0x0044}
0x130e…1330 Head {h00=0x001e, h01=0x0050, text=» SELECT NATIONAL VERSION«, t00=0x000c, t01=0x0058}
0x1330…1346 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000c, t01=0x007a}
0x1346…135e Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000c, t01=0x0090}
0x135e…1374 Head {h00=0x0012, h01=0x0050, text=» BYTE SNV,NEG «, t00=0x000c, t01=0x00a8}
0x1374…139a Head {h00=0x0022, h01=0x0050, text=»CSSLPL EQU * SELECT PAGELENGTH«, t00=0x000c, t01=0x00be}
0x139a…13b0 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000c, t01=0x00e4}
0x13b0…13c8 Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000c, t01=0x00fa}
0x13c8…13e2 Head {h00=0x0016, h01=0x0050, text=» BYTE SLPL,NEG * «, t00=0x000c, t01=0x0112}
0x13e2…13f8 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000c, t01=0x012c}
0x13f8…1422 Head {h00=0x0026, h01=0x0050, text=»CSRIS EQU * RESET TO INITIAL STATE«, t00=0x000c, t01=0x0142}
0x1422…1438 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,RIS «, t00=0x000c, t01=0x016c}
0x1438…144e Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000c, t01=0x0182}
0x144e…1476 Head {h00=0x0024, h01=0x0050, text=»CSDSR EQU * DEVICE STATUS REPORT«, t00=0x000d, t01=0x0008}
0x1476…148c Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000d, t01=0x0030}
0x148c…14a2 Head {h00=0x0012, h01=0x0050, text=» BYTE /35,DSR «, t00=0x000d, t01=0x0046}
0x14a2…14b8 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000d, t01=0x005c}
0x14b8…14c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0072}
0x14c6…14d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0080}
0x14d0…14da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008a}
0x14da…151a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x000d, t01=0x0094}
0x151a…1524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d4}
0x1524…1542 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x000d, t01=0x00de}
0x1542…154c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fc}
0x154c…158c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x000d, t01=0x0106}
0x158c…1596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0146}
0x1596…15a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0150}
0x15a0…15aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015a}
0x15aa…15e2 Head {h00=0x0034, h01=0x0050, text=»* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN«, t00=0x000d, t01=0x0164}
0x15e2…161e Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:A TO 1-15 ACCORDING TO THE LIST BELOW«, t00=0x000e, t01=0x000c}
0x161e…1628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0048}
0x1628…1632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0052}
0x1632…166a Head {h00=0x0034, h01=0x0050, text=»* NCV=1 GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND «, t00=0x000e, t01=0x005c}
0x166a…16b4 Head {h00=0x0046, h01=0x0050, text=» =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA «, t00=0x000e, t01=0x0094}
0x16b4…16e8 Head {h00=0x0030, h01=0x0050, text=» =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG«, t00=0x000e, t01=0x00de}
0x16e8…1718 Head {h00=0x002c, h01=0x0050, text=» =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA «, t00=0x000e, t01=0x0112}
0x1718…1738 Head {h00=0x001c, h01=0x0050, text=» =5 ITALY,SWITZERLAND«, t00=0x000e, t01=0x0142}
0x1738…1756 Head {h00=0x001a, h01=0x0050, text=» =6 SWEDEN,FINLAND «, t00=0x000e, t01=0x0162}
0x1756…1774 Head {h00=0x001a, h01=0x0050, text=» =7 DENMARK,NORWAY «, t00=0x000e, t01=0x0180}
0x1774…1792 Head {h00=0x001a, h01=0x0050, text=» =8 PORTUGAL,BRAZIL«, t00=0x000f, t01=0x000e}
0x1792…17ac Head {h00=0x0016, h01=0x0050, text=» =9 YUGOSLAVIA «, t00=0x000f, t01=0x002c}
0x17ac…17d0 Head {h00=0x0020, h01=0x0050, text=» =10 USA,CANADA,AUSTRALIA«, t00=0x000f, t01=0x0046}
0x17d0…17f8 Head {h00=0x0024, h01=0x0050, text=» =11 SWEDEN (SPECIAL VERSION)«, t00=0x000f, t01=0x006a}
0x17f8…180e Head {h00=0x0012, h01=0x0050, text=» =13 GREEK «, t00=0x000f, t01=0x0092}
0x180e…1836 Head {h00=0x0024, h01=0x0050, text=» =14 JAPAN (KATAKANA VERSION)«, t00=0x000f, t01=0x00a8}
0x1836…185e Head {h00=0x0024, h01=0x0050, text=» =15 ISRAEL (HEBREW VERSION)«, t00=0x000f, t01=0x00d0}
0x185e…1868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f8}
0x1868…1872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0102}
0x1872…189e Head {h00=0x0028, h01=0x0050, text=»X:A EQU 02 GREAT BRITAIN AS STANDARD«, t00=0x000f, t01=0x010c}
0x189e…18b4 Head {h00=0x0012, h01=0x0050, text=»STDNCV EQU 07 «, t00=0x000f, t01=0x0138}
0x18b4…18c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x014e}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015c}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0166}
0x18d6…1906 Head {h00=0x002c, h01=0x0050, text=»* THE FRONT FEED DEVICE CAN BE EXCLUDED «, t00=0x000f, t01=0x0170}
0x1906…1922 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B = 0«, t00=0x0010, t01=0x0010}
0x1922…192c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002c}
0x192c…1936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x1936…1948 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0010, t01=0x0040}
0x1948…196e Head {h00=0x0022, h01=0x0050, text=»FFDEV EQU 0 FRONT FEED DEVICE «, t00=0x0010, t01=0x0052}
0x196e…1978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0078}
0x1978…1982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0082}
0x1982…198c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008c}
0x198c…19b8 Head {h00=0x0028, h01=0x0050, text=»* THE STANDARD PAGELENGTH IS DEFINED«, t00=0x0010, t01=0x0096}
0x19b8…19e2 Head {h00=0x0026, h01=0x0050, text=»* BY SETTING X:C = NUMBER OF LINES«, t00=0x0010, t01=0x00c2}
0x19e2…19ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ec}
0x19ec…19f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f6}
0x19f6…1a08 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 48«, t00=0x0010, t01=0x0100}
0x1a08…1a1e Head {h00=0x0012, h01=0x0050, text=»PAGLEN EQU 48 «, t00=0x0010, t01=0x0112}
0x1a1e…1a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0128}
0x1a28…1a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0132}
0x1a32…1a64 Head {h00=0x002e, h01=0x0050, text=»* THE STANDARD NUMBER OF LINES IS DEFINED «, t00=0x0010, t01=0x013c}
0x1a64…1a8e Head {h00=0x0026, h01=0x0050, text=»* BY SETTING X:D = NUMBER OF LINES«, t00=0x0010, t01=0x016e}
0x1a8e…1a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a98…1aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0012}
0x1aa2…1ab8 Head {h00=0x0012, h01=0x0050, text=»X:D EQU 36 * «, t00=0x0011, t01=0x001c}
0x1ab8…1ace Head {h00=0x0012, h01=0x0050, text=»DOCLEN EQU 48 «, t00=0x0011, t01=0x0032}
0x1ace…1adc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0048}
0x1adc…1ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0056}
0x1ae6…1af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0060}
0x1af0…1afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006a}
0x1afa…1b14 Head {h00=0x0016, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x0011, t01=0x0074}
0x1b14…1b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008e}
0x1b1e…1b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0098}
0x1b28…1b3c Head {h00=0x0010, h01=0x0050, text=»X:E EQU 132 «, t00=0x0011, t01=0x00a2}
0x1b3c…1b52 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 256«, t00=0x0011, t01=0x00b6}
0x1b52…1b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00cc}
0x1b5c…1b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d6}
0x1b66…1b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e0}
0x1b70…1ba2 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0011, t01=0x00ea}
0x1ba2…1bd0 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1 «, t00=0x0011, t01=0x011c}
0x1bd0…1bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014a}
0x1bda…1be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0154}
0x1be4…1bf8 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0011, t01=0x015e}
0x1bf8…1c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0172}
0x1c02…1c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017c}
0x1c0c…1c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0186}
0x1c16…1c50 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0011, t01=0x0190}
0x1c50…1c82 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0 «, t00=0x0012, t01=0x003a}
0x1c82…1c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x006c}
0x1c8c…1c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0076}
0x1c96…1caa Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0012, t01=0x0080}
0x1caa…1cb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0094}
0x1cb8…1cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a2}
0x1cc2…1ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ac}
0x1ccc…1d00 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0012, t01=0x00b6}
0x1d00…1d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ea}
0x1d0a…1d28 Head {h00=0x001a, h01=0x0050, text=»* DWT - DISPLACEMENTS «, t00=0x0012, t01=0x00f4}
0x1d28…1d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0112}
0x1d32…1d66 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0012, t01=0x011c}
0x1d66…1d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0150}
0x1d70…1d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015a}
0x1d7a…1d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0164}
0x1d84…1db8 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x016e}
0x1db8…1dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0012}
0x1dc2…1dd8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x001c}
0x1dd8…1df0 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0013, t01=0x0032}
0x1df0…1dfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x004a}
0x1dfc…1e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0056}
0x1e06…1e1c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x0060}
0x1e1c…1e36 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0013, t01=0x0076}
0x1e36…1e42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0090}
0x1e42…1e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009c}
0x1e4c…1e72 Head {h00=0x0022, h01=0x0050, text=»DWTTP EQU /2 TIMER POINTER =1 «, t00=0x0013, t01=0x00a6}
0x1e72…1e9e Head {h00=0x0028, h01=0x0050, text=»DWTDCS EQU /4 DOCUMENT CHARACTER SET«, t00=0x0013, t01=0x00cc}
0x1e9e…1eca Head {h00=0x0028, h01=0x0050, text=»DWTPCS EQU /6 PRINTER CHARACTER SET «, t00=0x0013, t01=0x00f8}
0x1eca…1ef4 Head {h00=0x0026, h01=0x0050, text=»DWTPL EQU /8 PRINTER PAPER LENGTH «, t00=0x0013, t01=0x0124}
0x1ef4…1f1e Head {h00=0x0026, h01=0x0050, text=»DWTDL EQU /A DOCUMENT PAPER LENGTH«, t00=0x0013, t01=0x014e}
0x1f1e…1f4c Head {h00=0x002a, h01=0x0050, text=»DWTALN EQU /C ACTUAL LINE ON DOCUMENT «, t00=0x0013, t01=0x0178}
0x1f4c…1f7c Head {h00=0x002c, h01=0x0050, text=»DWTRLN EQU /E REQUESTED LINE ON DOCUMENT«, t00=0x0014, t01=0x0016}
0x1f7c…1fac Head {h00=0x002c, h01=0x0050, text=»DWTRC EQU /11 RETURN CODE (ACKUMULATED) «, t00=0x0014, t01=0x0046}
0x1fac…1fda Head {h00=0x002a, h01=0x0050, text=»DWTSTR EQU /12 CONTROL SEQUENCE ADRESS«, t00=0x0014, t01=0x0076}
0x1fda…201c Head {h00=0x003e, h01=0x0050, text=»DWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. «, t00=0x0014, t01=0x00a4}
0x201c…204a Head {h00=0x002a, h01=0x0050, text=»DWTACD EQU /16 ACTUAL COLUMN DOCUMENT «, t00=0x0014, t01=0x00e6}
0x204a…2074 Head {h00=0x0026, h01=0x0050, text=»DWTACP EQU /19 ACTUAL COLUMN PAPER«, t00=0x0014, t01=0x0114}
0x2074…209c Head {h00=0x0024, h01=0x0050, text=»DWTCO1 EQU /1C COLUMN COUNTER 1 «, t00=0x0014, t01=0x013e}
0x209c…20c4 Head {h00=0x0024, h01=0x0050, text=»DWTCO2 EQU /1E COLUMN COUNTER 2 «, t00=0x0014, t01=0x0166}
0x20c4…20ee Head {h00=0x0026, h01=0x0050, text=»DWTSYST EQU /22 SYSTEM START IND. «, t00=0x0014, t01=0x018e}
0x20ee…211e Head {h00=0x002c, h01=0x0050, text=»DWTLFD EQU /24 LINE/FORM FEED INDICATOR «, t00=0x0015, t01=0x0028}
0x211e…212c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0058}
0x212c…2136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0066}
0x2136…2140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x2140…2174 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0015, t01=0x007a}
0x2174…217e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ae}
0x217e…219c Head {h00=0x001a, h01=0x0050, text=»* ECB - DISPLACEMENTS «, t00=0x0015, t01=0x00b8}
0x219c…21a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d6}
0x21a6…21da Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0015, t01=0x00e0}
0x21da…21e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0114}
0x21e4…220e Head {h00=0x0026, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS IN ECB «, t00=0x0015, t01=0x011e}
0x220e…223a Head {h00=0x0028, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH IN ECB «, t00=0x0015, t01=0x0148}
0x223a…2266 Head {h00=0x0028, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH IN ECB «, t00=0x0015, t01=0x0174}
0x2266…228c Head {h00=0x0022, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE IN ECB«, t00=0x0016, t01=0x0010}
0x228c…22b4 Head {h00=0x0024, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD IN ECB«, t00=0x0016, t01=0x0036}
0x22b4…22c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x005e}
0x22c2…22cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x006c}
0x22cc…2300 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0016, t01=0x0076}
0x2300…230a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00aa}
0x230a…231a Head {h00=0x000c, h01=0x0050, text=»* TABLES«, t00=0x0016, t01=0x00b4}
0x231a…2324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c4}
0x2324…2358 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0016, t01=0x00ce}
0x2358…2362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0102}
0x2362…236c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010c}
0x236c…2390 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0016, t01=0x0116}
0x2390…23ac Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0016, t01=0x013a}
0x23ac…23ce Head {h00=0x001e, h01=0x0050, text=»GPAD8 EQU * ADDRESS BLOCK «, t00=0x0016, t01=0x0156}
0x23ce…23f2 Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATION DRIVER«, t00=0x0016, t01=0x0178}
0x23f2…2418 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0017, t01=0x000c}
0x2418…243a Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x0017, t01=0x0032}
0x243a…245e Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0017, t01=0x0054}
0x245e…2472 Head {h00=0x0010, h01=0x0050, text=»TPTAB EQU * «, t00=0x0017, t01=0x0078}
0x2472…2486 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0017, t01=0x008c}
0x2486…24a6 Head {h00=0x001c, h01=0x0050, text=» DATA /0107,/0C25,/3939 «, t00=0x0017, t01=0x00a0}
0x24a6…24b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00c0}
0x24b2…24d6 Head {h00=0x0020, h01=0x0050, text=» DATA /0006,/2424,/0505 DK2«, t00=0x0017, t01=0x00cc}
0x24d6…24f0 Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0017, t01=0x00f0}
0x24f0…24f8 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x010a}
0x24f8…2500 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0112}
0x2500…250e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x011a}
0x250e…2518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0128}
0x2518…2522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0132}
0x2522…2536 Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0017, t01=0x013c}
0x2536…2540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0150}
0x2540…2576 Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0017, t01=0x015a}
0x2576…25b8 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0017, t01=0x0190}
0x25b8…25c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0042}
0x25c2…25cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004c}
0x25cc…25d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0056}
0x25d6…25fa Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0018, t01=0x0060}
0x25fa…2604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0084}
0x2604…260e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008e}
0x260e…264c Head {h00=0x003a, h01=0x0050, text=»* GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT«, t00=0x0018, t01=0x0098}
0x264c…2656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d6}
0x2656…267c Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTOR,A6 GET DWT INDEX «, t00=0x0018, t01=0x00e0}
0x267c…2692 Head {h00=0x0012, h01=0x0050, text=» ANK A2,1 MASK«, t00=0x0018, t01=0x0106}
0x2692…26c2 Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTDEV+1,A6 GET OLD DEVICE VALUE «, t00=0x0018, t01=0x011c}
0x26c2…26d6 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FE «, t00=0x0018, t01=0x014c}
0x26d6…26e8 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A2«, t00=0x0018, t01=0x0160}
0x26e8…270e Head {h00=0x0022, h01=0x0050, text=» SC A3,DWTDEV+1,A6 STORE INDEX«, t00=0x0018, t01=0x0172}
0x270e…272e Head {h00=0x001c, h01=0x0050, text=» CWK A7,/05 ORDER 5? DK2«, t00=0x0019, t01=0x0008}
0x272e…274c Head {h00=0x001a, h01=0x0050, text=» RF(E) ACT003 YES DK2 «, t00=0x0019, t01=0x0028}
0x274c…2776 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 ADD DWT INDEX TO ORDER «, t00=0x0019, t01=0x0046}
0x2776…2790 Head {h00=0x0016, h01=0x0050, text=»ACT003 EQU * DK2 «, t00=0x0019, t01=0x0070}
0x2790…27be Head {h00=0x002a, h01=0x0050, text=» SC A7,DWTOR+1,A6 STORE MODIFIED ORDER«, t00=0x0019, t01=0x008a}
0x27be…27dc Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0019, t01=0x00b8}
0x27dc…280e Head {h00=0x002e, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER«, t00=0x0019, t01=0x00d6}
0x280e…2830 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0019, t01=0x0108}
0x2830…2842 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0019, t01=0x012a}
0x2842…2862 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0019, t01=0x013c}
0x2862…286c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015c}
0x286c…288e Head {h00=0x001e, h01=0x0050, text=» ABL LENDER ILLEGAL ORDER «, t00=0x0019, t01=0x0166}
0x288e…2898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0188}
0x2898…28a2 (26, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0004}
0x28a2…28b6 Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x001a, t01=0x000e}
0x28b6…28d2 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x001a, t01=0x0022}
0x28d2…28f6 Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x001a, t01=0x003e}
0x28f6…2904 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0062}
0x2904…2918 Head {h00=0x0010, h01=0x0050, text=»TPFUC EQU * «, t00=0x001a, t01=0x0070}
0x2918…292c Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x001a, t01=0x0084}
0x292c…2964 Head {h00=0x0034, h01=0x0050, text=» DATA TSTSTA,WRTDOC,POSDOC,DOCPAR,RELDOC,RELDOC «, t00=0x001a, t01=0x0098}
0x2964…2970 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00d0}
0x2970…29ac Head {h00=0x0038, h01=0x0050, text=» DATA TSTSTA,WRTCON,CSTPAR,CSTPAR,BASWRT,BASWRT DK2«, t00=0x001a, t01=0x00dc}
0x29ac…29ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0118}
0x29ba…29c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0126}
0x29c4…29ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0130}
0x29ce…29f0 Head {h00=0x001e, h01=0x0050, text=»* ORDER 00 : TEST STATUS«, t00=0x001a, t01=0x013a}
0x29f0…29fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x015c}
0x29fa…2a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0166}
0x2a04…2a24 Head {h00=0x001c, h01=0x0050, text=»TSTSTA EQU * TEST STATUS«, t00=0x001a, t01=0x0170}
0x2a24…2a3a Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x001a, t01=0x0190}
0x2a3a…2a68 Head {h00=0x002a, h01=0x0050, text=» CF A5,GTSTAT GET STATUS FROM PRINTER «, t00=0x001b, t01=0x0016}
0x2a68…2a88 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x001b, t01=0x0044}
0x2a88…2a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0064}
0x2a92…2a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006e}
0x2a9c…2abc Head {h00=0x001c, h01=0x0050, text=»* ORDER 05 : BASIC WRITE«, t00=0x001b, t01=0x0078}
0x2abc…2ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0098}
0x2ac6…2ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a2}
0x2ad0…2ae6 Head {h00=0x0012, h01=0x0050, text=»BASWRT EQU * «, t00=0x001b, t01=0x00ac}
0x2ae6…2af8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001b, t01=0x00c2}
0x2af8…2b0c Head {h00=0x0010, h01=0x0050, text=»BAS10 EQU * «, t00=0x001b, t01=0x00d4}
0x2b0c…2b36 Head {h00=0x0026, h01=0x0050, text=» LDK A4,/90 TEST FOR END OF BLOCK «, t00=0x001b, t01=0x00e8}
0x2b36…2b56 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 BLOCK LENGTH «, t00=0x001b, t01=0x0112}
0x2b56…2b7a Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x001b, t01=0x0132}
0x2b7a…2ba0 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ERROUT QUIT IF ERROR «, t00=0x001b, t01=0x0156}
0x2ba0…2bb4 Head {h00=0x0010, h01=0x0050, text=»BAS15 EQU * «, t00=0x001b, t01=0x017c}
0x2bb4…2bdc Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCHR GET A CHARACTER «, t00=0x001b, t01=0x0190}
0x2bdc…2bfa Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 FINISHED? «, t00=0x001c, t01=0x0028}
0x2bfa…2c14 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BAS25 YES «, t00=0x001c, t01=0x0046}
0x2c14…2c36 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT NO, SEND IT «, t00=0x001c, t01=0x0060}
0x2c36…2c5c Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ERROUT QUIT IF ERROR «, t00=0x001c, t01=0x0082}
0x2c5c…2c7c Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 END OF BLOCK? «, t00=0x001c, t01=0x00a8}
0x2c7c…2c96 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BAS20 YES «, t00=0x001c, t01=0x00c8}
0x2c96…2cbe Head {h00=0x0024, h01=0x0050, text=» RB BAS15 NO, GET ANOTHER CHAR. «, t00=0x001c, t01=0x00e2}
0x2cbe…2cd2 Head {h00=0x0010, h01=0x0050, text=»BAS20 EQU * «, t00=0x001c, t01=0x010a}
0x2cd2…2cf4 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK FINISH IT. «, t00=0x001c, t01=0x011e}
0x2cf4…2d1a Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ERROUT QUIT IF ERROR «, t00=0x001c, t01=0x0140}
0x2d1a…2d3c Head {h00=0x001e, h01=0x0050, text=» RB BAS10 GET NEXT BLOCK «, t00=0x001c, t01=0x0166}
0x2d3c…2d50 Head {h00=0x0010, h01=0x0050, text=»BAS25 EQU * «, t00=0x001c, t01=0x0188}
0x2d50…2d68 Head {h00=0x0014, h01=0x0050, text=» CF A5,ENDBLK «, t00=0x001d, t01=0x000c}
0x2d68…2d8e Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ERROUT QUIT IF ERROR «, t00=0x001d, t01=0x0024}
0x2d8e…2dba Head {h00=0x0028, h01=0x0050, text=» RB TSTSTA TEST STATUS & END REQUEST«, t00=0x001d, t01=0x004a}
0x2dba…2dca Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x001d, t01=0x0076}
0x2dca…2dd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0086}
0x2dd8…2dec Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x001d, t01=0x0094}
0x2dec…2df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a8}
0x2df6…2e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b2}
0x2e00…2e24 Head {h00=0x0020, h01=0x0050, text=»* ORDER 06: WRITE DOCUMENT«, t00=0x001d, t01=0x00bc}
0x2e24…2e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e0}
0x2e2e…2e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ea}
0x2e38…2e4c Head {h00=0x0010, h01=0x0050, text=»WRTDOC EQU *«, t00=0x001d, t01=0x00f4}
0x2e4c…2e62 Head {h00=0x0012, h01=0x0050, text=» CF A5,GTSTAT «, t00=0x001d, t01=0x0108}
0x2e62…2e88 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTDEV,A6 DEVICE STATUS«, t00=0x001d, t01=0x011e}
0x2e88…2eb4 Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/20 HAS POWER OFF OCCURED? «, t00=0x001d, t01=0x0144}
0x2eb4…2ed0 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) WRDO05 YES. «, t00=0x001d, t01=0x0170}
0x2ed0…2eea Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/2000 * «, t00=0x001d, t01=0x018c}
0x2eea…2f0a Head {h00=0x001c, h01=0x0050, text=» TM A1,A3 DOCUMENT OUT? «, t00=0x001e, t01=0x0016}
0x2f0a…2f22 Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRDO06 NO«, t00=0x001e, t01=0x0036}
0x2f22…2f56 Head {h00=0x0030, h01=0x0050, text=» LDKL A3,/8000 YES.SET BIT 0 (REQUEST ERROR)«, t00=0x001e, t01=0x004e}
0x2f56…2f88 Head {h00=0x002e, h01=0x0050, text=» ORS A3,ECBRC,A8 SET REQUEST ERROR IN R.C.«, t00=0x001e, t01=0x0082}
0x2f88…2fa8 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x001e, t01=0x00b4}
0x2fa8…2fc0 Head {h00=0x0014, h01=0x0050, text=»WRDO05 EQU * * «, t00=0x001e, t01=0x00d4}
0x2fc0…2fd8 Head {h00=0x0014, h01=0x0050, text=»WRDO06 LDK A3,1 «, t00=0x001e, t01=0x00ec}
0x2fd8…2ff8 Head {h00=0x001c, h01=0x0050, text=» TM A1,A3 NOT OPERABLE? «, t00=0x001e, t01=0x0104}
0x2ff8…3010 Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRDO10 NO«, t00=0x001e, t01=0x0124}
0x3010…3030 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x001e, t01=0x013c}
0x3030…3058 Head {h00=0x0024, h01=0x0050, text=»WRDO10 LDK A2,20 MAX BLOCK SIZE «, t00=0x001e, t01=0x015c}
0x3058…307c Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x001e, t01=0x0184}
0x307c…30a0 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x001f, t01=0x0018}
0x30a0…30d0 Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTDEV+DWTALN,A6 GET ACTUAL LINE «, t00=0x001f, t01=0x003c}
0x30d0…30e6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) WRDO15«, t00=0x001f, t01=0x006c}
0x30e6…3112 Head {h00=0x0028, h01=0x0050, text=» LDK A3,1 SET UP ECB BUFFER POINTER «, t00=0x001f, t01=0x0082}
0x3112…3140 Head {h00=0x002a, h01=0x0050, text=» CF A15,GETCHR GET CONTROL CHARACTER «, t00=0x001f, t01=0x00ae}
0x3140…3164 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CTRL CHAR=/31 ? «, t00=0x001f, t01=0x00dc}
0x3164…3194 Head {h00=0x002c, h01=0x0050, text=» ABL(NE) POSERR NO, DOC. NOT POSITIONED «, t00=0x001f, t01=0x0100}
0x3194…31b6 Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTDEV+DWTDL,A6 * «, t00=0x001f, t01=0x0130}
0x31b6…31ea Head {h00=0x0030, h01=0x0050, text=» ST A3,DWTDEV+DWTRLN,A6 FIRST LINE ON DOC. «, t00=0x001f, t01=0x0152}
0x31ea…321a Head {h00=0x002c, h01=0x0050, text=»WRDO12 LDKL A2,CSINFF INPUT FRONT FEED «, t00=0x001f, t01=0x0186}
0x321a…3258 Head {h00=0x003a, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NO DISPLACEMENT «, t00=0x0020, t01=0x0026}
0x3258…3282 Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND INPUT FRONT FEED «, t00=0x0020, t01=0x0064}
0x3282…32a2 Head {h00=0x001c, h01=0x0050, text=» LD A3,DWTDEV+DWTRLN,A6 «, t00=0x0020, t01=0x008e}
0x32a2…32da Head {h00=0x0034, h01=0x0050, text=» ST A3,DWTDEV+DWTALN,A6 SET DWTDEV+DWTALN=DWTRLN«, t00=0x0020, t01=0x00ae}
0x32da…32e2 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00e6}
0x32e2…3316 Head {h00=0x0030, h01=0x0050, text=»WRDO15 LDKL A2,CSSNV SELECT NATIONAL VERSION«, t00=0x0020, t01=0x00ee}
0x3316…3358 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTDCS DOCUMENT CHARACTER SET DISPLACEMENT«, t00=0x0020, t01=0x0122}
0x3358…3388 Head {h00=0x002c, h01=0x0050, text=» CF A5,SEND SEND SELECT NATIONAL VERSION«, t00=0x0020, t01=0x0164}
0x3388…33aa (33, 0, 398) Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0021, t01=0x0004}
0x33aa…33ce Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0021, t01=0x0026}
0x33ce…33d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x004a}
0x33d8…33fe Head {h00=0x0022, h01=0x0050, text=»* EXAMINE CONTROL CHARACTER«, t00=0x0021, t01=0x0054}
0x33fe…3408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007a}
0x3408…3430 Head {h00=0x0024, h01=0x0050, text=» LDK A3,1 SET ECB BUFFER POINTER«, t00=0x0021, t01=0x0084}
0x3430…345c Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CONTROL CHARACTER«, t00=0x0021, t01=0x00ac}
0x345c…3486 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 GET DEVICE STATUS«, t00=0x0021, t01=0x00d8}
0x3486…34b2 Head {h00=0x0028, h01=0x0050, text=» ANKL A1,/20 HAS POWER OFF OCCURED ?«, t00=0x0021, t01=0x0102}
0x34b2…34ca Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REP1 YES«, t00=0x0021, t01=0x012e}
0x34ca…34d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0146}
0x34d4…3502 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x0021, t01=0x0150}
0x3502…351a Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRT03 YES«, t00=0x0021, t01=0x017e}
0x351a…354a Head {h00=0x002c, h01=0x0050, text=»WRT04 LDR A4,A2 SAVE CONTROL CHAR. IN A4«, t00=0x0022, t01=0x0008}
0x354a…3562 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x0022, t01=0x0038}
0x3562…3584 Head {h00=0x001e, h01=0x0050, text=» ADK A2,/8 MAX BLOCK SIZE «, t00=0x0022, t01=0x0050}
0x3584…35a8 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0022, t01=0x0072}
0x35a8…35cc Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0022, t01=0x0096}
0x35cc…35f8 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 RESTORE CONT. CHAR. IN A2«, t00=0x0022, t01=0x00ba}
0x35f8…3632 Head {h00=0x0036, h01=0x0050, text=» CM DWTDEV+DWTCO2,A6 CLEAR DOCUMENT COLUMN COUNTER«, t00=0x0022, t01=0x00e6}
0x3632…3660 Head {h00=0x002a, h01=0x0050, text=» SUK A2,5 PRINT AFTER TWO LINE FEED ? «, t00=0x0022, t01=0x0120}
0x3660…367a Head {h00=0x0016, h01=0x0050, text=» RF(Z) TWOLF1 YES «, t00=0x0022, t01=0x014e}
0x367a…3684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0168}
0x3684…36ae Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 PRINT AFTER FORM FEED ? «, t00=0x0022, t01=0x0172}
0x36ae…36d8 Head {h00=0x0026, h01=0x0050, text=» ABL(Z) WRT14 YES, ALLREADY DONE !«, t00=0x0023, t01=0x000c}
0x36d8…36e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0036}
0x36e2…3710 Head {h00=0x002a, h01=0x0050, text=» RF ONELF1 PRINT AFTER ONE LINE FEED !«, t00=0x0023, t01=0x0040}
0x3710…371a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006e}
0x371a…3740 Head {h00=0x0022, h01=0x0050, text=»* EXECUTE CONTROL CHARACTER«, t00=0x0023, t01=0x0078}
0x3740…374a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009e}
0x374a…3780 Head {h00=0x0032, h01=0x0050, text=»WRT03 LD A4,DWTDEV+DWTCO2,A6 GET ACTUAL COLUMN«, t00=0x0023, t01=0x00a8}
0x3780…3794 Head {h00=0x0010, h01=0x0050, text=» RF(Z) WRT05«, t00=0x0023, t01=0x00de}
0x3794…37be Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 FOR CORRECT NO OF SPACES«, t00=0x0023, t01=0x00f2}
0x37be…37f0 Head {h00=0x002e, h01=0x0050, text=»WRT05 CF A5,KONVER CONVERT BINARY TO ASCII«, t00=0x0023, t01=0x011c}
0x37f0…3834 Head {h00=0x0040, h01=0x0050, text=» SC A2,DWTDEV+DWTACD,A6 STORE THE VALUE IN ACTUAL COL. DOC. «, t00=0x0023, t01=0x014e}
0x3834…387a (36, 0, 398) Head {h00=0x0042, h01=0x0050, text=» SC A4,DWTDEV+DWTACD+2,A6 STORE THE VALUE IN ACTUAL COL. DOC. «, t00=0x0024, t01=0x0004}
0x387a…388c Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x0024, t01=0x004a}
0x388c…38c6 Head {h00=0x0036, h01=0x0050, text=» SC A4,DWTDEV+DWTACD+1,A6 SHIFT FOR CORRECT DIGITS«, t00=0x0024, t01=0x005c}
0x38c6…38d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0096}
0x38d0…38f4 Head {h00=0x0020, h01=0x0050, text=»WRT09 LDKL A2,/8C BLOCK SIZE«, t00=0x0024, t01=0x00a0}
0x38f4…3918 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0024, t01=0x00c4}
0x3918…393c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0024, t01=0x00e8}
0x393c…395c Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTDEV+DWTCO2,A6 «, t00=0x0024, t01=0x010c}
0x395c…398e Head {h00=0x002e, h01=0x0050, text=» ABL(Z) WRT15 JMP IF NO PRECEIDING SPACES «, t00=0x0024, t01=0x012c}
0x398e…39ac Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 SEND SPACE«, t00=0x0024, t01=0x015e}
0x39ac…39c2 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0024, t01=0x017c}
0x39c2…39e6 (37, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0025, t01=0x0004}
0x39e6…3a04 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,CSREP REPEAT «, t00=0x0025, t01=0x0028}
0x3a04…3a46 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTACD ACTUAL COLUMN DOCUMENT DISPLACEMENT«, t00=0x0025, t01=0x0046}
0x3a46…3a66 Head {h00=0x001c, h01=0x0050, text=» CF A5,SEND SEND REPEAT «, t00=0x0025, t01=0x0088}
0x3a66…3a78 Head {h00=0x000e, h01=0x0050, text=» ABL WRT15«, t00=0x0025, t01=0x00a8}
0x3a78…3a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ba}
0x3a82…3ab8 Head {h00=0x0032, h01=0x0050, text=»TWOLF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO «, t00=0x0025, t01=0x00c4}
0x3ab8…3ae2 Head {h00=0x0026, h01=0x0050, text=» CF A5,BINARY CONV ASCII TO BINARY«, t00=0x0025, t01=0x00fa}
0x3ae2…3b04 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 INCR REQ LINE NO«, t00=0x0025, t01=0x0124}
0x3b04…3b22 Head {h00=0x001a, h01=0x0050, text=» RF TWO TWO LINE FEED «, t00=0x0025, t01=0x0146}
0x3b22…3b58 Head {h00=0x0032, h01=0x0050, text=»ONELF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO «, t00=0x0025, t01=0x0164}
0x3b58…3b6e Head {h00=0x0012, h01=0x0050, text=» CF A5,BINARY «, t00=0x0026, t01=0x000a}
0x3b6e…3b94 Head {h00=0x0022, h01=0x0050, text=»TWO SUK A3,1 INCR REQ LINE NO «, t00=0x0026, t01=0x0020}
0x3b94…3ba6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0026, t01=0x0046}
0x3ba6…3bd0 Head {h00=0x0026, h01=0x0050, text=» CF A5,KONVER CONV BINARY TO ASCII«, t00=0x0026, t01=0x0058}
0x3bd0…3c02 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTDEV+DWTRLN,A6 STORE REQ LINE NO «, t00=0x0026, t01=0x0082}
0x3c02…3c36 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED«, t00=0x0026, t01=0x00b4}
0x3c36…3c78 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT «, t00=0x0026, t01=0x00e8}
0x3c78…3c8c Head {h00=0x0010, h01=0x0050, text=» CF A5,SEND «, t00=0x0026, t01=0x012a}
0x3c8c…3cac Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTDEV+DWTRLN,A6 «, t00=0x0026, t01=0x013e}
0x3cac…3ce8 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQUESTED LINE«, t00=0x0026, t01=0x015e}
0x3ce8…3cfa Head {h00=0x000e, h01=0x0050, text=» RF WRT14 «, t00=0x0027, t01=0x000a}
0x3cfa…3d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x001c}
0x3d04…3d3a Head {h00=0x0032, h01=0x0050, text=»* REPEAT WRITE REQUEST AT DOCUMENT STATION «, t00=0x0027, t01=0x0026}
0x3d3a…3d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005c}
0x3d44…3d5e Head {h00=0x0016, h01=0x0050, text=»REP1 CF A5,RESREC «, t00=0x0027, t01=0x0066}
0x3d5e…3d8c Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x0027, t01=0x0080}
0x3d8c…3da4 Head {h00=0x0014, h01=0x0050, text=» RB(Z) WRT09 YES«, t00=0x0027, t01=0x00ae}
0x3da4…3dd2 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR «, t00=0x0027, t01=0x00c6}
0x3dd2…3dfa Head {h00=0x0024, h01=0x0050, text=» RF(NZ) WRT15 JMP IF LF/FF DONE «, t00=0x0027, t01=0x00f4}
0x3dfa…3e0c Head {h00=0x000e, h01=0x0050, text=» RB WRT04 «, t00=0x0027, t01=0x011c}
0x3e0c…3e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x012e}
0x3e16…3e22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0138}
0x3e22…3e30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0144}
0x3e30…3e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0152}
0x3e3a…3e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x015c}
0x3e44…3e74 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06: WRITE CONTINOUS STATIONARY«, t00=0x0027, t01=0x0166}
0x3e74…3e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0008}
0x3e7e…3e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0012}
0x3e88…3e9c Head {h00=0x0010, h01=0x0050, text=»WRTCON EQU *«, t00=0x0028, t01=0x001c}
0x3e9c…3ec4 Head {h00=0x0024, h01=0x0050, text=» CF A5,GTSTAT GET DEVICE STATUS «, t00=0x0028, t01=0x0030}
0x3ec4…3ede Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/2000 * «, t00=0x0028, t01=0x0058}
0x3ede…3efe Head {h00=0x001c, h01=0x0050, text=» TM A1,A3 END OF PAPER? «, t00=0x0028, t01=0x0072}
0x3efe…3f18 Head {h00=0x0016, h01=0x0050, text=» RF(Z) WRCO05 NO. «, t00=0x0028, t01=0x0092}
0x3f18…3f36 Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x0028, t01=0x00ac}
0x3f36…3f5c Head {h00=0x0022, h01=0x0050, text=»WRCO05 LDK A3,1 NOT OPERABLE? «, t00=0x0028, t01=0x00ca}
0x3f5c…3f6e Head {h00=0x000e, h01=0x0050, text=» TM A1,A3 «, t00=0x0028, t01=0x00f0}
0x3f6e…3f86 Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRCO10 NO«, t00=0x0028, t01=0x0102}
0x3f86…3fa4 Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x0028, t01=0x011a}
0x3fa4…3fac Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x0138}
0x3fac…3fd0 Head {h00=0x0020, h01=0x0050, text=»WRCO10 LDK A2,/E BLOCK SIZE «, t00=0x0028, t01=0x0140}
0x3fd0…3ff4 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0028, t01=0x0164}
0x3ff4…4018 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0028, t01=0x0188}
0x4018…4046 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CSSNV SELECT NATIONAL VERSION«, t00=0x0029, t01=0x001c}
0x4046…4084 Head {h00=0x003a, h01=0x0050, text=» LDKL A3,DWTDEV+DWTPCS PRINTER CHAR. SET DISPLACEMENT «, t00=0x0029, t01=0x004a}
0x4084…40b4 Head {h00=0x002c, h01=0x0050, text=» CF A5,SEND SEND SELECT NATIONAL VERSION«, t00=0x0029, t01=0x0088}
0x40b4…40d6 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0029, t01=0x00b8}
0x40d6…40fa Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0029, t01=0x00da}
0x40fa…4104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00fe}
0x4104…4136 Head {h00=0x002e, h01=0x0050, text=»* EXAMINE CONTROL CHARACTER, CONTINOUS «, t00=0x0029, t01=0x0108}
0x4136…4140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x013a}
0x4140…416c Head {h00=0x0028, h01=0x0050, text=» LDK A3,1 SET UP ECB BUFFER POINTER «, t00=0x0029, t01=0x0144}
0x416c…4198 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CONTROL CHARACTER«, t00=0x0029, t01=0x0170}
0x4198…41c2 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 GET DEVICE STATUS«, t00=0x002a, t01=0x000c}
0x41c2…41ee Head {h00=0x0028, h01=0x0050, text=» ANKL A1,/20 HAS POWER OFF OCCURED ?«, t00=0x002a, t01=0x0036}
0x41ee…4206 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REP2 YES«, t00=0x002a, t01=0x0062}
0x4206…4210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x007a}
0x4210…423e Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x002a, t01=0x0084}
0x423e…4256 Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRC03 YES«, t00=0x002a, t01=0x00b2}
0x4256…4286 Head {h00=0x002c, h01=0x0050, text=»WRC04 LDR A4,A2 SAVE CONTROL CHAR. IN A4«, t00=0x002a, t01=0x00ca}
0x4286…429e Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x002a, t01=0x00fa}
0x429e…42be Head {h00=0x001c, h01=0x0050, text=» ADK A2,/8 BLOCK LENGTH «, t00=0x002a, t01=0x0112}
0x42be…42e2 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002a, t01=0x0132}
0x42e2…4306 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002a, t01=0x0156}
0x4306…4332 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 RESTORE CONT. CHAR. IN A2«, t00=0x002a, t01=0x017a}
0x4332…4368 Head {h00=0x0032, h01=0x0050, text=» CM DWTDEV+DWTCO1,A6 CLEAR PAPER COL. COUNTER «, t00=0x002b, t01=0x0016}
0x4368…4396 Head {h00=0x002a, h01=0x0050, text=» SUK A2,5 PRINT AFTER TWO LINE FEED ? «, t00=0x002b, t01=0x004c}
0x4396…43b0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TWOLF2 YES «, t00=0x002b, t01=0x007a}
0x43b0…43ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0094}
0x43ba…43e4 Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 PRINT AFTER FORM FEED ? «, t00=0x002b, t01=0x009e}
0x43e4…43fc Head {h00=0x0014, h01=0x0050, text=» RF(Z) FORMF YES«, t00=0x002b, t01=0x00c8}
0x43fc…4406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e0}
0x4406…4434 Head {h00=0x002a, h01=0x0050, text=» RF ONELF2 PRINT AFTER ONE LINE FEED !«, t00=0x002b, t01=0x00ea}
0x4434…443e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0118}
0x443e…4470 Head {h00=0x002e, h01=0x0050, text=»* EXECUTE CONTROL CHARACTER, CONTINOUS «, t00=0x002b, t01=0x0122}
0x4470…447a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0154}
0x447a…44b0 Head {h00=0x0032, h01=0x0050, text=»WRC03 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN«, t00=0x002b, t01=0x015e}
0x44b0…44de (44, 0, 400) Head {h00=0x002a, h01=0x0050, text=» RF(Z) WRC05 FOR CORRECT NO OF SPACES «, t00=0x002c, t01=0x0004}
0x44de…44f0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002c, t01=0x0032}
0x44f0…4522 Head {h00=0x002e, h01=0x0050, text=»WRC05 CF A5,KONVER CONVERT BINARY TO ASCII«, t00=0x002c, t01=0x0044}
0x4522…456a Head {h00=0x0044, h01=0x0050, text=» SC A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. CONTINOUS«, t00=0x002c, t01=0x0076}
0x456a…45ae Head {h00=0x0040, h01=0x0050, text=» ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. CONT.«, t00=0x002c, t01=0x00be}
0x45ae…45b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0102}
0x45b8…45de Head {h00=0x0022, h01=0x0050, text=»WRC07 LDK A2,/8C BLOCK LENGTH «, t00=0x002c, t01=0x010c}
0x45de…4602 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002c, t01=0x0132}
0x4602…4626 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002c, t01=0x0156}
0x4626…4646 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTDEV+DWTCO1,A6 «, t00=0x002c, t01=0x017a}
0x4646…4676 Head {h00=0x002c, h01=0x0050, text=» RF(Z) WRT15 JMP IF NO PRECEIDING SPACES«, t00=0x002d, t01=0x000a}
0x4676…4694 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 SEND SPACE«, t00=0x002d, t01=0x003a}
0x4694…46aa Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002d, t01=0x0058}
0x46aa…46ce Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002d, t01=0x006e}
0x46ce…46ec Head {h00=0x001a, h01=0x0050, text=» LDKL A2,CSREP REPEAT «, t00=0x002d, t01=0x0092}
0x46ec…472c Head {h00=0x003c, h01=0x0050, text=» LDKL A3,DWTDEV+DWTACP ACTUAL COLUMN PAPER DISPLACEMENT «, t00=0x002d, t01=0x00b0}
0x472c…474c Head {h00=0x001c, h01=0x0050, text=» CF A5,SEND SEND REPEAT «, t00=0x002d, t01=0x00f0}
0x474c…475e Head {h00=0x000e, h01=0x0050, text=» RF WRT15 «, t00=0x002d, t01=0x0110}
0x475e…4768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0122}
0x4768…4790 Head {h00=0x0024, h01=0x0050, text=»TWOLF2 LDK A2,LF SEND LINE FEED «, t00=0x002d, t01=0x012c}
0x4790…47a6 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002d, t01=0x0154}
0x47a6…47ca Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002d, t01=0x016a}
0x47ca…47f2 Head {h00=0x0024, h01=0x0050, text=»ONELF2 LDK A2,LF SEND LINE FEED «, t00=0x002d, t01=0x018e}
0x47f2…4808 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002e, t01=0x0026}
0x4808…482c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002e, t01=0x003c}
0x482c…483e Head {h00=0x000e, h01=0x0050, text=» RF WRT14 «, t00=0x002e, t01=0x0060}
0x483e…4848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0072}
0x4848…486e Head {h00=0x0022, h01=0x0050, text=»FORMF LDK A2,FF SEND FORM FEED«, t00=0x002e, t01=0x007c}
0x486e…4884 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002e, t01=0x00a2}
0x4884…48a8 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002e, t01=0x00b8}
0x48a8…48ba Head {h00=0x000e, h01=0x0050, text=» RF WRT14 «, t00=0x002e, t01=0x00dc}
0x48ba…48c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ee}
0x48c4…48fa Head {h00=0x0032, h01=0x0050, text=»* REPEAT WRITE REQUEST AT CONTINOUS STATION«, t00=0x002e, t01=0x00f8}
0x48fa…4904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012e}
0x4904…491e Head {h00=0x0016, h01=0x0050, text=»REP2 CF A5,RESREC «, t00=0x002e, t01=0x0138}
0x491e…494c Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x002e, t01=0x0152}
0x494c…4964 Head {h00=0x0014, h01=0x0050, text=» RB(Z) WRC07 YES«, t00=0x002e, t01=0x0180}
0x4964…4992 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR «, t00=0x002f, t01=0x0008}
0x4992…49ba Head {h00=0x0024, h01=0x0050, text=» RF(NZ) WRT15 JMP IF LF/FF DONE «, t00=0x002f, t01=0x0036}
0x49ba…49cc Head {h00=0x000e, h01=0x0050, text=» RB WRC04 «, t00=0x002f, t01=0x005e}
0x49cc…49da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0070}
0x49da…49e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007e}
0x49e4…4a1a Head {h00=0x0032, h01=0x0050, text=»* ORDER 06 : THIS PART SENDS THE CHARACTERS«, t00=0x002f, t01=0x0088}
0x4a1a…4a4c Head {h00=0x002e, h01=0x0050, text=»* TO DOCUMENT OR CONTINOUS STATIONARY. «, t00=0x002f, t01=0x00be}
0x4a4c…4a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f0}
0x4a56…4a8c Head {h00=0x0032, h01=0x0050, text=»WRT14 IM DWTDEV+DWTLFD,A6 SET LF/FF INDICATOR «, t00=0x002f, t01=0x00fa}
0x4a8c…4a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0130}
0x4a96…4ac4 Head {h00=0x002a, h01=0x0050, text=»WRT15 LDK A3,2 SET ECB BUFFER POINTER «, t00=0x002f, t01=0x013a}
0x4ac4…4aee Head {h00=0x0026, h01=0x0050, text=»WRT16 CF A15,GETCHR GET CHARACTER «, t00=0x002f, t01=0x0168}
0x4aee…4b12 (48, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 BUFFER FINISHED ?«, t00=0x0030, t01=0x0004}
0x4b12…4b2a Head {h00=0x0014, h01=0x0050, text=» RF(P) WRT20 NO «, t00=0x0030, t01=0x0028}
0x4b2a…4b5c Head {h00=0x002e, h01=0x0050, text=»WRT17 SUK A3,/02 ECB BUFFER POINTER = /02 «, t00=0x0030, t01=0x0040}
0x4b5c…4b76 Head {h00=0x0016, h01=0x0050, text=» RF(Z) WRT18 YES. «, t00=0x0030, t01=0x0072}
0x4b76…4ba2 Head {h00=0x0028, h01=0x0050, text=» LDK A2,CR NO. SEND CARRIAGE RETURN «, t00=0x0030, t01=0x008c}
0x4ba2…4bb8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0030, t01=0x00b8}
0x4bb8…4bdc Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0030, t01=0x00ce}
0x4bdc…4c04 Head {h00=0x0024, h01=0x0050, text=»WRT18 CF A5,ENDBLK END OF BLOCK «, t00=0x0030, t01=0x00f2}
0x4c04…4c28 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0030, t01=0x011a}
0x4c28…4c48 Head {h00=0x001c, h01=0x0050, text=» CF A5,GTSTAT GET STATUS«, t00=0x0030, t01=0x013e}
0x4c48…4c66 Head {h00=0x001a, h01=0x0050, text=» RF ENDIO END REQUEST «, t00=0x0030, t01=0x015e}
0x4c66…4c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x017c}
0x4c70…4c84 Head {h00=0x0010, h01=0x0050, text=»WRT20 EQU * «, t00=0x0030, t01=0x0186}
0x4c84…4c96 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0031, t01=0x000a}
0x4c96…4ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x001c}
0x4ca0…4ce4 Head {h00=0x0040, h01=0x0050, text=»* EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER «, t00=0x0031, t01=0x0026}
0x4ce4…4cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x006a}
0x4cee…4cf6 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x0074}
0x4cf6…4d16 Head {h00=0x001c, h01=0x0050, text=» SUK A4,/20 CHAR < /20? «, t00=0x0031, t01=0x007c}
0x4d16…4d42 Head {h00=0x0028, h01=0x0050, text=» RB(N) WRT16 YES GET A NEW CHARACTER«, t00=0x0031, t01=0x009c}
0x4d42…4d62 Head {h00=0x001c, h01=0x0050, text=» SUK A4,/5F CHAR < /7F? «, t00=0x0031, t01=0x00c8}
0x4d62…4d7c Head {h00=0x0016, h01=0x0050, text=» RF(N) WRT25 YES. «, t00=0x0031, t01=0x00e8}
0x4d7c…4da0 Head {h00=0x0020, h01=0x0050, text=» SUK A4,/2F NO. CHAR = /AE? «, t00=0x0031, t01=0x0102}
0x4da0…4dcc Head {h00=0x0028, h01=0x0050, text=» RF(Z) WRT30 YES. CONVERT /AE TO /2E«, t00=0x0031, t01=0x0126}
0x4dcc…4e04 Head {h00=0x0034, h01=0x0050, text=» LDK A4,/04 ILLEGAL CHARACTER SET BIT 13 IN R.C.«, t00=0x0031, t01=0x0152}
0x4e04…4e1c Head {h00=0x0014, h01=0x0050, text=» ORS A4,ECBRC,A8«, t00=0x0031, t01=0x018a}
0x4e1c…4e2e Head {h00=0x000e, h01=0x0050, text=» RB WRT16 «, t00=0x0032, t01=0x0012}
0x4e2e…4e46 Head {h00=0x0014, h01=0x0050, text=»WRT30 LDK A2,/2E«, t00=0x0032, t01=0x0024}
0x4e46…4e5e Head {h00=0x0014, h01=0x0050, text=»WRT25 LDR A4,A1 «, t00=0x0032, t01=0x003c}
0x4e5e…4e82 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0032, t01=0x0054}
0x4e82…4ea6 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0032, t01=0x0078}
0x4ea6…4ece Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTOR+1,A6 GET DWT INDEX «, t00=0x0032, t01=0x009c}
0x4ece…4eea Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 DOCUMENT? «, t00=0x0032, t01=0x00c4}
0x4eea…4f04 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) WRT40 YES «, t00=0x0032, t01=0x00e0}
0x4f04…4f36 Head {h00=0x002e, h01=0x0050, text=» IM DWTDEV+DWTCO1,A6 INC.COLUMN COUNTER 1 «, t00=0x0032, t01=0x00fa}
0x4f36…4f48 Head {h00=0x000e, h01=0x0050, text=» RB WRT16 «, t00=0x0032, t01=0x012c}
0x4f48…4f7e Head {h00=0x0032, h01=0x0050, text=»WRT40 IM DWTDEV+DWTCO2,A6 INC.COLUMN COUNTER 2«, t00=0x0032, t01=0x013e}
0x4f7e…4f90 Head {h00=0x000e, h01=0x0050, text=» RB WRT16 «, t00=0x0032, t01=0x0174}
0x4f90…4fa4 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0032, t01=0x0186}
0x4fa4…4fd6 Head {h00=0x002e, h01=0x0050, text=» CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR«, t00=0x0033, t01=0x000a}
0x4fd6…4ff6 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x0033, t01=0x003c}
0x4ff6…5004 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x005c}
0x5004…5018 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0033, t01=0x006a}
0x5018…5022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x007e}
0x5022…502c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0088}
0x502c…5054 Head {h00=0x0024, h01=0x0050, text=»* ORDER 0B : POSITION DOCUMENT«, t00=0x0033, t01=0x0092}
0x5054…5088 Head {h00=0x0030, h01=0x0050, text=»* CONTROL WORD CONTAINS REQUESTED LINE NO «, t00=0x0033, t01=0x00ba}
0x5088…5092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ee}
0x5092…509c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f8}
0x509c…50c2 Head {h00=0x0022, h01=0x0050, text=»POSDOC EQU * POSITION DOCUMENT«, t00=0x0033, t01=0x0102}
0x50c2…50d8 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x0033, t01=0x0128}
0x50d8…5100 Head {h00=0x0024, h01=0x0050, text=» CF A5,GTSTAT GET DEVICE STATUS «, t00=0x0033, t01=0x013e}
0x5100…5120 Head {h00=0x001c, h01=0x0050, text=» LDK A3,1 NOT OPERABLE «, t00=0x0033, t01=0x0166}
0x5120…5134 Head {h00=0x0010, h01=0x0050, text=» TM A1,A3 * «, t00=0x0033, t01=0x0186}
0x5134…5150 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) POS020 YES «, t00=0x0034, t01=0x000a}
0x5150…5170 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/E BLOCK LENGTH «, t00=0x0034, t01=0x0026}
0x5170…5194 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0034, t01=0x0046}
0x5194…51b8 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0034, t01=0x006a}
0x51b8…51e6 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CSSNV SELECT NATIONAL VERSION«, t00=0x0034, t01=0x008e}
0x51e6…5216 Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DWTDEV+DWTDCS DOCUMENT VERSION «, t00=0x0034, t01=0x00bc}
0x5216…5232 Head {h00=0x0018, h01=0x0050, text=» CF A5,SEND SEND SNV«, t00=0x0034, t01=0x00ec}
0x5232…5254 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0034, t01=0x0108}
0x5254…5278 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0034, t01=0x012a}
0x5278…52a2 Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBCW,A8 GET REQUESTED LINE«, t00=0x0034, t01=0x014e}
0x52a2…52b6 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0034, t01=0x0178}
0x52b6…52e0 Head {h00=0x0026, h01=0x0050, text=» RF(Z) POSERR ILLEGAL LINE NUMBER «, t00=0x0034, t01=0x018c}
0x52e0…5308 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV+DWTDL,A6 MAX. LINE«, t00=0x0035, t01=0x0026}
0x5308…5336 Head {h00=0x002a, h01=0x0050, text=» CF A5,BINARY CONVERT ASCII TO BINARY «, t00=0x0035, t01=0x004e}
0x5336…535c Head {h00=0x0022, h01=0x0050, text=» CWR A4,A3 REQ. LINE>MAX. LINE«, t00=0x0035, t01=0x007c}
0x535c…5376 Head {h00=0x0016, h01=0x0050, text=» RF(G) POSERR YES «, t00=0x0035, t01=0x00a2}
0x5376…5398 Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 CORRECT POSITION«, t00=0x0035, t01=0x00bc}
0x5398…53ba Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 INVERT LINE NO.«, t00=0x0035, t01=0x00de}
0x53ba…53e6 Head {h00=0x0028, h01=0x0050, text=» NGR A4,A4 GET PRINTER REQ. LINE NO.«, t00=0x0035, t01=0x0100}
0x53e6…5414 Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BINARY TO ASCII «, t00=0x0035, t01=0x012c}
0x5414…5446 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE«, t00=0x0035, t01=0x015a}
0x5446…5476 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTDEV+DWTALN,A6 GET ACTUAL LINE «, t00=0x0035, t01=0x018c}
0x5476…54a8 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) POS030 DOCUMENT ALREADY POSITIONED«, t00=0x0036, t01=0x002c}
0x54a8…54bc Head {h00=0x0010, h01=0x0050, text=»POS005 EQU *«, t00=0x0036, t01=0x005e}
0x54bc…54dc Head {h00=0x001c, h01=0x0050, text=» LDK A2,/6 BLOCK LENGTH «, t00=0x0036, t01=0x0072}
0x54dc…5500 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0036, t01=0x0092}
0x5500…5524 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0036, t01=0x00b6}
0x5524…554c Head {h00=0x0024, h01=0x0050, text=» LDKL A2,CSINFF INPUT FRONT FEED«, t00=0x0036, t01=0x00da}
0x554c…558e Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT «, t00=0x0036, t01=0x0102}
0x558e…55b8 Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND INPUT FRONT FEED «, t00=0x0036, t01=0x0144}
0x55b8…55cc Head {h00=0x0010, h01=0x0050, text=»POS010 EQU *«, t00=0x0036, t01=0x016e}
0x55cc…55ee Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0036, t01=0x0182}
0x55ee…5612 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0037, t01=0x0014}
0x5612…5632 Head {h00=0x001c, h01=0x0050, text=» CF A5,GTSTAT GET STATUS«, t00=0x0037, t01=0x0038}
0x5632…5654 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 GET RETURN CODE«, t00=0x0037, t01=0x0058}
0x5654…5680 Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/2000 PAPER DOCUMENT OUT ? «, t00=0x0037, t01=0x007a}
0x5680…56bc Head {h00=0x0038, h01=0x0050, text=» RB(NZ) POS005 YES WAIT FOR DOCUMENT TO BE INSERTED «, t00=0x0037, t01=0x00a6}
0x56bc…56ee Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTDEV+DWTRLN,A6 GET REQUESTED LINE«, t00=0x0037, t01=0x00e2}
0x56ee…5724 Head {h00=0x0032, h01=0x0050, text=» ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQ LINE«, t00=0x0037, t01=0x0114}
0x5724…573e Head {h00=0x0016, h01=0x0050, text=»POS020 ABL LENDIS «, t00=0x0037, t01=0x014a}
0x573e…5752 Head {h00=0x0010, h01=0x0050, text=»POS030 EQU *«, t00=0x0037, t01=0x0164}
0x5752…5772 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/6 BLOCK LENGTH «, t00=0x0037, t01=0x0178}
0x5772…5796 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0038, t01=0x0008}
0x5796…57ba Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0038, t01=0x002c}
0x57ba…57ee Head {h00=0x0030, h01=0x0050, text=» LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED«, t00=0x0038, t01=0x0050}
0x57ee…5830 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT «, t00=0x0038, t01=0x0084}
0x5830…5866 Head {h00=0x0032, h01=0x0050, text=» CF A5,SEND SEND VERTICAL POSITION FRONT FEED «, t00=0x0038, t01=0x00c6}
0x5866…5878 Head {h00=0x000e, h01=0x0050, text=» RB POS010«, t00=0x0038, t01=0x00fc}
0x5878…5884 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x010e}
0x5884…5898 Head {h00=0x0010, h01=0x0050, text=»POSERR EQU *«, t00=0x0038, t01=0x011a}
0x5898…58c4 Head {h00=0x0028, h01=0x0050, text=» ABL LENDER REQ. ERROR, END REQUEST «, t00=0x0038, t01=0x012e}
0x58c4…58d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x015a}
0x58d2…58e6 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0038, t01=0x0168}
0x58e6…58f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x017c}
0x58f0…58fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0186}
0x58fa…5926 Head {h00=0x0028, h01=0x0050, text=»* ORDER 24 : SET DOCUMENT PARAMETERS«, t00=0x0038, t01=0x0190}
0x5926…5930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x002c}
0x5930…593a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0036}
0x593a…5962 Head {h00=0x0024, h01=0x0050, text=»DOCPAR EQU * DOCUMENT PARAMETERS«, t00=0x0039, t01=0x0040}
0x5962…597e Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 CLEAR A1 «, t00=0x0039, t01=0x0068}
0x597e…5994 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x0039, t01=0x0084}
0x5994…59c0 Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBCW,A8 GET NUMBER OF LINES «, t00=0x0039, t01=0x009a}
0x59c0…59dc Head {h00=0x0018, h01=0x0050, text=» SRL A4,8 GET LINES «, t00=0x0039, t01=0x00c6}
0x59dc…5a04 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DOC010 NO CHANGE OF LINES«, t00=0x0039, t01=0x00e2}
0x5a04…5a24 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/10 INDEX TO BIG«, t00=0x0039, t01=0x010a}
0x5a24…5a3e Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x0039, t01=0x012a}
0x5a3e…5a6c Head {h00=0x002a, h01=0x0050, text=» ADR A4,A4 ADJUST INDEX TO LINE TABLE «, t00=0x0039, t01=0x0144}
0x5a6c…5aa0 Head {h00=0x0030, h01=0x0050, text=» LD A4,LINNUM,A4 GET LINE ACCORDING TO INDEX«, t00=0x0039, t01=0x0172}
0x5aa0…5adc Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT «, t00=0x003a, t01=0x0016}
0x5adc…5af0 Head {h00=0x0010, h01=0x0050, text=»DOC010 EQU *«, t00=0x003a, t01=0x0052}
0x5af0…5b28 Head {h00=0x0034, h01=0x0050, text=» LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION«, t00=0x003a, t01=0x0066}
0x5b28…5b3c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003a, t01=0x009e}
0x5b3c…5b76 Head {h00=0x0036, h01=0x0050, text=» RF(Z) DOC020 NO CHANGE OF NATIONAL CHARACTER SET «, t00=0x003a, t01=0x00b2}
0x5b76…5b96 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/F INDEX TO BIG «, t00=0x003a, t01=0x00ec}
0x5b96…5bb0 Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x003a, t01=0x010c}
0x5bb0…5bd6 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A4 ADJUST TABLE INDEX «, t00=0x003a, t01=0x0126}
0x5bd6…5c10 Head {h00=0x0036, h01=0x0050, text=» LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX «, t00=0x003a, t01=0x014c}
0x5c10…5c4e Head {h00=0x003a, h01=0x0050, text=» ST A4,DWTDEV+DWTDCS,A6 SET CHARACTER SET FOR DOCUMENT«, t00=0x003a, t01=0x0186}
0x5c4e…5c62 Head {h00=0x0010, h01=0x0050, text=»DOC020 EQU *«, t00=0x003b, t01=0x0034}
0x5c62…5c80 Head {h00=0x001a, h01=0x0050, text=» RB ENDIO END REQUEST «, t00=0x003b, t01=0x0048}
0x5c80…5c8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0066}
0x5c8c…5c9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0072}
0x5c9a…5ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0080}
0x5ca4…5cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x008a}
0x5cae…5ce8 Head {h00=0x0036, h01=0x0050, text=»* ORDER 24 : SET CONTINUOUS STATIONARY PARAMETERS «, t00=0x003b, t01=0x0094}
0x5ce8…5cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ce}
0x5cf2…5cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d8}
0x5cfc…5d36 Head {h00=0x0036, h01=0x0050, text=»CSTPAR EQU * SET PARAMETERS CONTINUOUS STATIONARY «, t00=0x003b, t01=0x00e2}
0x5d36…5d52 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 CLEAR A1 «, t00=0x003b, t01=0x011c}
0x5d52…5d68 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x003b, t01=0x0138}
0x5d68…5d98 Head {h00=0x002c, h01=0x0050, text=» LD A4,ECBCW,A8 GET NUMBER OF LINES CST.«, t00=0x003b, t01=0x014e}
0x5d98…5db4 Head {h00=0x0018, h01=0x0050, text=» SRL A4,8 GET LINES «, t00=0x003b, t01=0x017e}
0x5db4…5ddc Head {h00=0x0024, h01=0x0050, text=» RF(Z) CST010 NO CHANGE OF LINES«, t00=0x003c, t01=0x000a}
0x5ddc…5dfc Head {h00=0x001c, h01=0x0050, text=» CWK A4,/10 INDEX TO BIG«, t00=0x003c, t01=0x0032}
0x5dfc…5e16 Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x003c, t01=0x0052}
0x5e16…5e44 Head {h00=0x002a, h01=0x0050, text=» ADR A4,A4 ADJUST INDEX TO LINE TABLE «, t00=0x003c, t01=0x006c}
0x5e44…5e7a Head {h00=0x0032, h01=0x0050, text=» LD A4,LINNUM,A4 GET LINES ACCORDING TO INDEX «, t00=0x003c, t01=0x009a}
0x5e7a…5eb8 Head {h00=0x003a, h01=0x0050, text=» ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH FOR CONT.STAT. «, t00=0x003c, t01=0x00d0}
0x5eb8…5ed8 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/A BLOCK LENGTH «, t00=0x003c, t01=0x010e}
0x5ed8…5efc Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x003c, t01=0x012e}
0x5efc…5f20 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003c, t01=0x0152}
0x5f20…5f4a Head {h00=0x0026, h01=0x0050, text=» LDKL A2,CSSLPL SELECT PAGELENGTH «, t00=0x003c, t01=0x0176}
0x5f4a…5f84 Head {h00=0x0036, h01=0x0050, text=» LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. «, t00=0x003d, t01=0x0010}
0x5f84…5fae Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND SLECT PAGELENGTH «, t00=0x003d, t01=0x004a}
0x5fae…5fd0 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x003d, t01=0x0074}
0x5fd0…5ff4 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003d, t01=0x0096}
0x5ff4…6008 Head {h00=0x0010, h01=0x0050, text=»CST010 EQU *«, t00=0x003d, t01=0x00ba}
0x6008…6040 Head {h00=0x0034, h01=0x0050, text=» LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION«, t00=0x003d, t01=0x00ce}
0x6040…6054 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003d, t01=0x0106}
0x6054…6086 Head {h00=0x002e, h01=0x0050, text=» RF(Z) CST020 NO CHANGE OF NAT. CHAR. SET «, t00=0x003d, t01=0x011a}
0x6086…60a6 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/F INDEX TO BIG «, t00=0x003d, t01=0x014c}
0x60a6…60c0 Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x003d, t01=0x016c}
0x60c0…60f4 Head {h00=0x0030, h01=0x0050, text=» ADR A4,A4 ADJUST INDEX TO NAT. CHAR. TABLE «, t00=0x003d, t01=0x0186}
0x60f4…612e Head {h00=0x0036, h01=0x0050, text=» LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX «, t00=0x003e, t01=0x002a}
0x612e…6170 Head {h00=0x003e, h01=0x0050, text=» ST A4,DWTDEV+DWTPCS,A6 SET NAT. CHAR. SET FOR CONT.STAT. «, t00=0x003e, t01=0x0064}
0x6170…6184 Head {h00=0x0010, h01=0x0050, text=»CST020 EQU *«, t00=0x003e, t01=0x00a6}
0x6184…61a2 Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x003e, t01=0x00ba}
0x61a2…61b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00d8}
0x61b0…61c4 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x003e, t01=0x00e6}
0x61c4…61ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00fa}
0x61ce…61d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0104}
0x61d8…61fe Head {h00=0x0022, h01=0x0050, text=»* ORDER 38 : RELEASE DOCUMENT «, t00=0x003e, t01=0x010e}
0x61fe…6208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0134}
0x6208…6212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x013e}
0x6212…6226 Head {h00=0x0010, h01=0x0050, text=»RELDOC EQU *«, t00=0x003e, t01=0x0148}
0x6226…6246 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x003e, t01=0x015c}
0x6246…626a Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x003e, t01=0x017c}
0x626a…628e Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003f, t01=0x0010}
0x628e…62a4 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x003f, t01=0x0034}
0x62a4…62da Head {h00=0x0032, h01=0x0050, text=» LDKL A2,CSEJFF CONTROL SEQ. EJECT FRONT FEED «, t00=0x003f, t01=0x004a}
0x62da…62fc Head {h00=0x001e, h01=0x0050, text=» CF A5,SEND SEND SEQUENCE «, t00=0x003f, t01=0x0080}
0x62fc…631e Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x003f, t01=0x00a2}
0x631e…6342 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003f, t01=0x00c4}
0x6342…6370 Head {h00=0x002a, h01=0x0050, text=» CF A5,GTSTAT GET STATUS FROM PRINTER «, t00=0x003f, t01=0x00e8}
0x6370…6392 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 GET RETURN CODE«, t00=0x003f, t01=0x0116}
0x6392…63b8 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 DOCUMENT RELEASED «, t00=0x003f, t01=0x0138}
0x63b8…63de Head {h00=0x0022, h01=0x0050, text=» RB(NZ) RELDOC NO , TRY AGAIN «, t00=0x003f, t01=0x015e}
0x63de…6402 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/8000 REQUEST ERROR«, t00=0x003f, t01=0x0184}
0x6402…6430 Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE«, t00=0x0040, t01=0x0018}
0x6430…6462 Head {h00=0x002e, h01=0x0050, text=» CM DWTDEV+DWTRLN,A6 RESET REQUESTED LINE «, t00=0x0040, t01=0x0046}
0x6462…6480 Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x0040, t01=0x0078}
0x6480…648c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0096}
0x648c…649a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x00a2}
0x649a…64a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00b0}
0x64a4…64ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ba}
0x64ae…64c0 Head {h00=0x000e, h01=0x0050, text=»* R C T P«, t00=0x0040, t01=0x00c4}
0x64c0…64ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d6}
0x64ca…6508 Head {h00=0x003a, h01=0x0050, text=»* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON«, t00=0x0040, t01=0x00e0}
0x6508…6512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x011e}
0x6512…651c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0128}
0x651c…652e Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x0040, t01=0x0132}
0x652e…655c Head {h00=0x002a, h01=0x0050, text=»RCTP07 LDKL A1,/7FFF SET DEVICE BUSY «, t00=0x0040, t01=0x0144}
0x655c…657a Head {h00=0x001a, h01=0x0050, text=» ANS A1,DWTST,A6 BUSY «, t00=0x0040, t01=0x0172}
0x657a…659c Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x0040, t01=0x0190}
0x659c…65ae Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0041, t01=0x0022}
0x65ae…65ce Head {h00=0x001c, h01=0x0050, text=» LDK A2,/F BLOCK LENGTH «, t00=0x0041, t01=0x0034}
0x65ce…65f2 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0041, t01=0x0054}
0x65f2…6616 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0041, t01=0x0078}
0x6616…6644 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CSRIS RESET TO INITIAL STATE «, t00=0x0041, t01=0x009c}
0x6644…6674 Head {h00=0x002c, h01=0x0050, text=» CF A5,SEND SEND RESET TO INITIAL STATE «, t00=0x0041, t01=0x00ca}
0x6674…66b0 Head {h00=0x0038, h01=0x0050, text=» LD A1,DWTDEV+DWTSYST,A6 INTERN. SYSTEM START IND. «, t00=0x0041, t01=0x00fa}
0x66b0…66d6 Head {h00=0x0022, h01=0x0050, text=» RF(Z) RCTP10 NO SYSTEM START «, t00=0x0041, t01=0x0136}
0x66d6…66e4 Head {h00=0x000a, h01=0x0050, text=» * «, t00=0x0041, t01=0x015c}
0x66e4…671e Head {h00=0x0036, h01=0x0050, text=» CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR «, t00=0x0041, t01=0x016a}
0x671e…672c Head {h00=0x000a, h01=0x0050, text=» * «, t00=0x0042, t01=0x0014}
0x672c…6760 Head {h00=0x0030, h01=0x0050, text=» LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET «, t00=0x0042, t01=0x0022}
0x6760…678e Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BIANARY TO ASCII«, t00=0x0042, t01=0x0056}
0x678e…67c4 Head {h00=0x0032, h01=0x0050, text=» ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT«, t00=0x0042, t01=0x0084}
0x67c4…67fc Head {h00=0x0034, h01=0x0050, text=» ST A4,DWTDEV+DWTPCS,A6 SET CHAR. SET CONT.STAT.«, t00=0x0042, t01=0x00ba}
0x67fc…6828 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,PAGLEN STANDARD PAGE LENGTH«, t00=0x0042, t01=0x00f2}
0x6828…6856 Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BINARY TO ASCII «, t00=0x0042, t01=0x011e}
0x6856…6890 Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH CONT.STAT. «, t00=0x0042, t01=0x014c}
0x6890…68ba Head {h00=0x0026, h01=0x0050, text=» LDKL A2,CSSLPL SELECT PAGELENGTH «, t00=0x0042, t01=0x0186}
0x68ba…68f4 Head {h00=0x0036, h01=0x0050, text=» LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. «, t00=0x0043, t01=0x0020}
0x68f4…691e Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND SELECT PAGELENGTH«, t00=0x0043, t01=0x005a}
0x691e…6958 Head {h00=0x0036, h01=0x0050, text=» LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT «, t00=0x0043, t01=0x0084}
0x6958…6986 Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BINARY TO ASCII «, t00=0x0043, t01=0x00be}
0x6986…69be Head {h00=0x0034, h01=0x0050, text=» ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT «, t00=0x0043, t01=0x00ec}
0x69be…69d2 Head {h00=0x0010, h01=0x0050, text=»RCTP10 EQU *«, t00=0x0043, t01=0x0124}
0x69d2…69f4 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0043, t01=0x0138}
0x69f4…6a18 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0043, t01=0x015a}
0x6a18…6a46 Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE«, t00=0x0043, t01=0x017e}
0x6a46…6a76 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,/20 INDICATE POWER OFF OCCURED «, t00=0x0044, t01=0x001c}
0x6a76…6a90 Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTDEV,A6 «, t00=0x0044, t01=0x004c}
0x6a90…6ab8 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTECB,A6 RUNNING REQUEST«, t00=0x0044, t01=0x0066}
0x6ab8…6ae8 Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) ACT005 YES , REPEAT THE REQUEST«, t00=0x0044, t01=0x008e}
0x6ae8…6b04 Head {h00=0x0018, h01=0x0050, text=» ABL LENDIS DISPATCH«, t00=0x0044, t01=0x00be}
0x6b04…6b12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x00da}
0x6b12…6b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00e8}
0x6b1c…6b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00f2}
0x6b26…6b36 Head {h00=0x000c, h01=0x0050, text=»* GTSTAT«, t00=0x0044, t01=0x00fc}
0x6b36…6b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x010c}
0x6b40…6b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0116}
0x6b4a…6b8c Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE SENDS 'DEVICE STATUS REPORT TO THE PRINTER «, t00=0x0044, t01=0x0120}
0x6b8c…6b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0162}
0x6b96…6bd4 Head {h00=0x003a, h01=0x0050, text=»* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER«, t00=0x0044, t01=0x016c}
0x6bd4…6bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x001a}
0x6bde…6c00 Head {h00=0x001e, h01=0x0050, text=»* AT EXIT A1 = RETURN CODE«, t00=0x0045, t01=0x0024}
0x6c00…6c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0046}
0x6c0a…6c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0050}
0x6c14…6c28 Head {h00=0x0010, h01=0x0050, text=»GTSTAT EQU *«, t00=0x0045, t01=0x005a}
0x6c28…6c56 Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTRC,A6 RESET RETURN CODE «, t00=0x0045, t01=0x006e}
0x6c56…6c76 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x0045, t01=0x009c}
0x6c76…6c9a Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0045, t01=0x00bc}
0x6c9a…6cbe Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0045, t01=0x00e0}
0x6cbe…6cda Head {h00=0x0018, h01=0x0050, text=» LDK A2,ESC ESCAPE «, t00=0x0045, t01=0x0104}
0x6cda…6cf8 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND ESC«, t00=0x0045, t01=0x0120}
0x6cf8…6d1c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0045, t01=0x013e}
0x6d1c…6d4c Head {h00=0x002c, h01=0x0050, text=» LDK A2,CSI CONTROL SEQUENCE INTRODUCER «, t00=0x0045, t01=0x0162}
0x6d4c…6d6a (70, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND CSI«, t00=0x0046, t01=0x0004}
0x6d6a…6d8e Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0046, t01=0x0022}
0x6d8e…6da2 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0046, t01=0x0046}
0x6da2…6dc0 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND /35«, t00=0x0046, t01=0x005a}
0x6dc0…6de4 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0046, t01=0x0078}
0x6de4…6e0c Head {h00=0x0024, h01=0x0050, text=» LDK A2,DSR DEVICE STATUS REPORT«, t00=0x0046, t01=0x009c}
0x6e0c…6e2a Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND DSR«, t00=0x0046, t01=0x00c4}
0x6e2a…6e4e Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0046, t01=0x00e2}
0x6e4e…6e70 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0046, t01=0x0106}
0x6e70…6e94 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0046, t01=0x0128}
0x6e94…6eba Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 SAVE DWT ADDRESS =1«, t00=0x0046, t01=0x014c}
0x6eba…6edc Head {h00=0x001e, h01=0x0050, text=» LDKL A4,DWTDEV+DWTTP =1 «, t00=0x0046, t01=0x0172}
0x6edc…6ef2 (71, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ADR A4,A6 =1«, t00=0x0047, t01=0x0004}
0x6ef2…6f16 Head {h00=0x0020, h01=0x0050, text=» CF A15,SETIMP SET TIMER =1 «, t00=0x0047, t01=0x001a}
0x6f16…6f48 Head {h00=0x002e, h01=0x0050, text=» DATA ERGP00,TIME RETURN ADDR., TIMEOUT =1«, t00=0x0047, t01=0x003e}
0x6f48…6f74 Head {h00=0x0028, h01=0x0050, text=»GTST05 LDKL A4,TAB GET TABLE ADDRESS«, t00=0x0047, t01=0x0070}
0x6f74…6f88 Head {h00=0x0010, h01=0x0050, text=»GTST10 EQU *«, t00=0x0047, t01=0x009c}
0x6f88…6fa6 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 RESET INDEX «, t00=0x0047, t01=0x00b0}
0x6fa6…6fd4 Head {h00=0x002a, h01=0x0050, text=» CF A5,INPUT READ STATUS FROM PRINTER «, t00=0x0047, t01=0x00ce}
0x6fd4…6ff6 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FF GET CHARACTER «, t00=0x0047, t01=0x00fc}
0x6ff6…701e Head {h00=0x0024, h01=0x0050, text=» CCK A2,/9C9C STRING TERMINATOR «, t00=0x0047, t01=0x011e}
0x701e…7038 Head {h00=0x0016, h01=0x0050, text=» RF(E) GTSEND YES «, t00=0x0047, t01=0x0146}
0x7038…7060 Head {h00=0x0024, h01=0x0050, text=» LCR A3,A4 GET MASK RETURN CODE «, t00=0x0047, t01=0x0160}
0x7060…7072 Head {h00=0x000e, h01=0x0050, text=» ANR A2,A3«, t00=0x0047, t01=0x0188}
0x7072…70a0 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 «, t00=0x0048, t01=0x000a}
0x70a0…70bc Head {h00=0x0018, h01=0x0050, text=» LC A3,1,A4 A3 TIMES«, t00=0x0048, t01=0x0038}
0x70bc…70e4 Head {h00=0x0024, h01=0x0050, text=» EXR A3 EXECUT SHIFT INSTRUCTION«, t00=0x0048, t01=0x0054}
0x70e4…7120 Head {h00=0x0038, h01=0x0050, text=» ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY«, t00=0x0048, t01=0x007c}
0x7120…7142 Head {h00=0x001e, h01=0x0050, text=» ADK A4,2 INCREMENT ADRESS«, t00=0x0048, t01=0x00b8}
0x7142…716e Head {h00=0x0028, h01=0x0050, text=» RB GTST10 GET NEXT STATUS CHARACTER«, t00=0x0048, t01=0x00da}
0x716e…7182 Head {h00=0x0010, h01=0x0050, text=»GTSEND EQU *«, t00=0x0048, t01=0x0106}
0x7182…71b0 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTRC,A6 GET RETURN CODE«, t00=0x0048, t01=0x011a}
0x71b0…71d4 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTDEV+DWTTP,A6 =1 «, t00=0x0048, t01=0x0148}
0x71d4…7204 Head {h00=0x002c, h01=0x0050, text=» RF(Z) GTST20 CHECK IF ALLREADY ZERO =1 «, t00=0x0048, t01=0x016c}
0x7204…7230 Head {h00=0x0028, h01=0x0050, text=» CM* DWTDEV+DWTTP,A6 RESET TIMER =1 «, t00=0x0049, t01=0x000c}
0x7230…7268 Head {h00=0x0034, h01=0x0050, text=»GTST20 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1«, t00=0x0049, t01=0x0038}
0x7268…7278 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0049, t01=0x0070}
0x7278…7286 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0080}
0x7286…7290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x008e}
0x7290…72ce Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE«, t00=0x0049, t01=0x0098}
0x72ce…72d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00d6}
0x72d8…72ee Head {h00=0x0012, h01=0x0050, text=»* REGISTERS : «, t00=0x0049, t01=0x00e0}
0x72ee…730c Head {h00=0x001a, h01=0x0050, text=»* A1= WORK REGISTER «, t00=0x0049, t01=0x00f6}
0x730c…7328 Head {h00=0x0018, h01=0x0050, text=»* A4= BINARY INPUT«, t00=0x0049, t01=0x0114}
0x7328…7348 Head {h00=0x001c, h01=0x0050, text=»* A2,A4= ASCII OUTPUT «, t00=0x0049, t01=0x0130}
0x7348…7352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0150}
0x7352…735c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x015a}
0x735c…7370 Head {h00=0x0010, h01=0x0050, text=»KONVER EQU *«, t00=0x0049, t01=0x0164}
0x7370…7388 Head {h00=0x0014, h01=0x0050, text=»* BINARY TO DEC.«, t00=0x0049, t01=0x0178}
0x7388…73a2 Head {h00=0x0016, h01=0x0050, text=» LDK A2,0 CLEAR A2«, t00=0x0049, t01=0x0190}
0x73a2…73c4 Head {h00=0x001e, h01=0x0050, text=» CWK A4,100 VALUE > 100 ? «, t00=0x004a, t01=0x001a}
0x73c4…73dc Head {h00=0x0014, h01=0x0050, text=» RF(L) KONV05 NO«, t00=0x004a, t01=0x003c}
0x73dc…73f0 Head {h00=0x0010, h01=0x0050, text=» SUKL A4,100«, t00=0x004a, t01=0x0054}
0x73f0…741a Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/100 LEFT BYTE OF A2=X=1 «, t00=0x004a, t01=0x0068}
0x741a…7448 Head {h00=0x002a, h01=0x0050, text=»KONV05 CWK A4,10 ARE THERE ANY TENS ? «, t00=0x004a, t01=0x0092}
0x7448…7460 Head {h00=0x0014, h01=0x0050, text=» RF(L) KONV04 NO«, t00=0x004a, t01=0x00c0}
0x7460…7472 Head {h00=0x000e, h01=0x0050, text=» SUK A4,10«, t00=0x004a, t01=0x00d8}
0x7472…74a8 Head {h00=0x0032, h01=0x0050, text=» ADK A2,/1 NUMBER OF TENS IN RIGHT B. OF A2=Y «, t00=0x004a, t01=0x00ea}
0x74a8…74c0 Head {h00=0x0014, h01=0x0050, text=» RB KONV05 NEXT «, t00=0x004a, t01=0x0120}
0x74c0…74e6 Head {h00=0x0022, h01=0x0050, text=»KONV04 ORKL A2,/3030 XY IN A2 «, t00=0x004a, t01=0x0138}
0x74e6…7502 Head {h00=0x0018, h01=0x0050, text=» ORK A4,/30 Z IN A4 «, t00=0x004a, t01=0x015e}
0x7502…751c Head {h00=0x0016, h01=0x0050, text=» SRC A2,8 YX IN A2«, t00=0x004a, t01=0x017a}
0x751c…752e (75, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x004b, t01=0x0004}
0x752e…7552 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FF00 KEEP Y IN A1 «, t00=0x004b, t01=0x0016}
0x7552…7584 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII«, t00=0x004b, t01=0x003a}
0x7584…75a6 Head {h00=0x001e, h01=0x0050, text=» ORR A4,A1 YZ IN A1. ASCII«, t00=0x004b, t01=0x006c}
0x75a6…75b6 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x008e}
0x75b6…75c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x009e}
0x75c4…75ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00ac}
0x75ce…75e8 Head {h00=0x0016, h01=0x0050, text=»* RESET RECORVERY «, t00=0x004b, t01=0x00b6}
0x75e8…75f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d0}
0x75f2…7606 Head {h00=0x0010, h01=0x0050, text=»RESREC EQU *«, t00=0x004b, t01=0x00da}
0x7606…762c Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTDEV,A6 DEVICE STATUS«, t00=0x004b, t01=0x00ee}
0x762c…764a Head {h00=0x001a, h01=0x0050, text=» ANKL A4,/20 RECOVERY?«, t00=0x004b, t01=0x0114}
0x764a…7664 Head {h00=0x0016, h01=0x0050, text=» RF(E) RESRTN NO. «, t00=0x004b, t01=0x0132}
0x7664…7696 Head {h00=0x002e, h01=0x0050, text=» XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT «, t00=0x004b, t01=0x014c}
0x7696…76b2 Head {h00=0x0018, h01=0x0050, text=»RESRTN RTN A5 RETURN«, t00=0x004b, t01=0x017e}
0x76b2…76bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x000a}
0x76bc…76c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0014}
0x76c6…76d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x001e}
0x76d0…76da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0028}
0x76da…7718 Head {h00=0x003a, h01=0x0050, text=»* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK AND TIMER«, t00=0x004c, t01=0x0032}
0x7718…7722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0070}
0x7722…7744 Head {h00=0x001e, h01=0x0050, text=»* INPUT : A1 = RETURN CODE«, t00=0x004c, t01=0x007a}
0x7744…774e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x009c}
0x774e…7762 Head {h00=0x0010, h01=0x0050, text=»ERROUT EQU *«, t00=0x004c, t01=0x00a6}
0x7762…7796 Head {h00=0x0030, h01=0x0050, text=» ANK A1,/1A OUTP. ERR, SOFTW T-OUT, LRC-ERR «, t00=0x004c, t01=0x00ba}
0x7796…77b4 Head {h00=0x001a, h01=0x0050, text=» ABL(NZ) RCTP RECOVERY«, t00=0x004c, t01=0x00ee}
0x77b4…77d8 Head {h00=0x0020, h01=0x0050, text=»ERGP10 LDK A1,1 IND. NOT OP.«, t00=0x004c, t01=0x010c}
0x77d8…77ec Head {h00=0x0010, h01=0x0050, text=» ABL LENDIS «, t00=0x004c, t01=0x0130}
0x77ec…77f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0144}
0x77f6…780e Head {h00=0x0014, h01=0x0050, text=»ERGP00 EQU * =1«, t00=0x004c, t01=0x014e}
0x780e…7836 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A1 RESTORE DWTADDRESS =1«, t00=0x004c, t01=0x0166}
0x7836…7868 Head {h00=0x002e, h01=0x0050, text=» CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1«, t00=0x004c, t01=0x018e}
0x7868…787a Head {h00=0x000e, h01=0x0050, text=» RB ERGP10«, t00=0x004d, t01=0x0030}
0x787a…7888 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0042}
0x7888…7892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0050}
0x7892…789c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x005a}
0x789c…78ae Head {h00=0x000e, h01=0x0050, text=»* S E N D «, t00=0x004d, t01=0x0064}
0x78ae…78b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0076}
0x78b8…78e8 Head {h00=0x002c, h01=0x0050, text=»* THIS ROUTINE SENDS AN CONTROL SEQUENCE«, t00=0x004d, t01=0x0080}
0x78e8…7900 Head {h00=0x0014, h01=0x0050, text=»* TO THE PRINTER«, t00=0x004d, t01=0x00b0}
0x7900…790a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00c8}
0x790a…7914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00d2}
0x7914…7928 Head {h00=0x0010, h01=0x0050, text=»* AT ENTRY :«, t00=0x004d, t01=0x00dc}
0x7928…794e Head {h00=0x0022, h01=0x0050, text=»* A2 = CONTROL SEQUENCE ADRESS«, t00=0x004d, t01=0x00f0}
0x794e…7986 Head {h00=0x0034, h01=0x0050, text=»* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC «, t00=0x004d, t01=0x0116}
0x7986…7990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x014e}
0x7990…799a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0158}
0x799a…79ae Head {h00=0x0010, h01=0x0050, text=»* AT EXIT : «, t00=0x004d, t01=0x0162}
0x79ae…79ce Head {h00=0x001c, h01=0x0050, text=»* A1,A2,A3 IS DESTROYED «, t00=0x004d, t01=0x0176}
0x79ce…79d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0008}
0x79d8…79e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0012}
0x79e2…79ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x001c}
0x79ec…7a14 Head {h00=0x0024, h01=0x0050, text=»SEND EQU * SEND CONTROL SEQUENCE«, t00=0x004e, t01=0x0026}
0x7a14…7a4a Head {h00=0x0032, h01=0x0050, text=» ST A3,DWTDEV+DWTDISP,A6 SAVE DWT-DISPLACEMENT«, t00=0x004e, t01=0x004e}
0x7a4a…7a82 Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS «, t00=0x004e, t01=0x0084}
0x7a82…7a96 Head {h00=0x0010, h01=0x0050, text=»SEND10 EQU *«, t00=0x004e, t01=0x00bc}
0x7a96…7ad2 Head {h00=0x0038, h01=0x0050, text=» LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS «, t00=0x004e, t01=0x00d0}
0x7ad2…7af2 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x004e, t01=0x010c}
0x7af2…7b14 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FF MAKE CHARACTER«, t00=0x004e, t01=0x012c}
0x7b14…7b3e Head {h00=0x0026, h01=0x0050, text=» SLL A2,8 END OF CONTROL SEQUENCE «, t00=0x004e, t01=0x014e}
0x7b3e…7b60 Head {h00=0x001e, h01=0x0050, text=» RF(N) SENDEND YES,RETURN «, t00=0x004e, t01=0x0178}
0x7b60…7b8a Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3000 LINE NO,CHAR.SET,ETC«, t00=0x004f, t01=0x000a}
0x7b8a…7ba4 Head {h00=0x0016, h01=0x0050, text=» RF(E) SEND30 YES «, t00=0x004f, t01=0x0034}
0x7ba4…7bd0 Head {h00=0x0028, h01=0x0050, text=» SRL A2,8 PREPARE TO SEND CHARACTER «, t00=0x004f, t01=0x004e}
0x7bd0…7bf4 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x004f, t01=0x007a}
0x7bf4…7c18 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x004f, t01=0x009e}
0x7c18…7c2c Head {h00=0x0010, h01=0x0050, text=»SEND20 EQU *«, t00=0x004f, t01=0x00c2}
0x7c2c…7c64 Head {h00=0x0034, h01=0x0050, text=» IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS«, t00=0x004f, t01=0x00d6}
0x7c64…7c80 Head {h00=0x0018, h01=0x0050, text=» RB SEND10 GET NEXT «, t00=0x004f, t01=0x010e}
0x7c80…7c94 Head {h00=0x0010, h01=0x0050, text=»SEND30 EQU *«, t00=0x004f, t01=0x012a}
0x7c94…7cca Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTDEV+DWTDISP,A6 GET DWT-DISPLACEMENT «, t00=0x004f, t01=0x013e}
0x7cca…7cee Head {h00=0x0020, h01=0x0050, text=» ADR A3,A6 GET PROPER VALUE «, t00=0x004f, t01=0x0174}
0x7cee…7d0e Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x0050, t01=0x0008}
0x7d0e…7d32 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0050, t01=0x0028}
0x7d32…7d56 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0050, t01=0x004c}
0x7d56…7d8c Head {h00=0x0032, h01=0x0050, text=» IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS«, t00=0x0050, t01=0x0070}
0x7d8c…7da8 Head {h00=0x0018, h01=0x0050, text=» RB SEND20 GET NEXT «, t00=0x0050, t01=0x00a6}
0x7da8…7dbe Head {h00=0x0012, h01=0x0050, text=»SENDEND EQU * «, t00=0x0050, t01=0x00c2}
0x7dbe…7dce Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0050, t01=0x00d8}
0x7dce…7ddc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x00e8}
0x7ddc…7de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00f6}
0x7de6…7df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0100}
0x7df0…7e00 Head {h00=0x000c, h01=0x0050, text=»* BINARY«, t00=0x0050, t01=0x010a}
0x7e00…7e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x011a}
0x7e0a…7e46 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE CONVERTS ASCII CODE TO A BINARY VALUE«, t00=0x0050, t01=0x0124}
0x7e46…7e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0160}
0x7e50…7e64 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS:«, t00=0x0050, t01=0x016a}
0x7e64…7e7e Head {h00=0x0016, h01=0x0050, text=»* A1= ASCII INPUT «, t00=0x0050, t01=0x017e}
0x7e7e…7e9a Head {h00=0x0018, h01=0x0050, text=»* A2= WORK REGISTER «, t00=0x0051, t01=0x0008}
0x7e9a…7eb6 Head {h00=0x0018, h01=0x0050, text=»* A3= BINARY OUTPUT «, t00=0x0051, t01=0x0024}
0x7eb6…7ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0040}
0x7ec0…7eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x004a}
0x7eca…7ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0054}
0x7ed4…7ef6 Head {h00=0x001e, h01=0x0050, text=»BINARY SUR A3,A3 CLEAR A3 «, t00=0x0051, t01=0x005e}
0x7ef6…7f18 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 MAX. LINE ASCII«, t00=0x0051, t01=0x0080}
0x7f18…7f2a Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0051, t01=0x00a2}
0x7f2a…7f3e Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0051, t01=0x00b4}
0x7f3e…7f50 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0051, t01=0x00c8}
0x7f50…7f62 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0051, t01=0x00da}
0x7f62…7f74 Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0051, t01=0x00ec}
0x7f74…7f86 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0051, t01=0x00fe}
0x7f86…7f98 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0051, t01=0x0110}
0x7f98…7fbc Head {h00=0x0020, h01=0x0050, text=» ADR A3,A1 MAX. LINE BINARY «, t00=0x0051, t01=0x0122}
0x7fbc…7fcc Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0051, t01=0x0146}
0x7fcc…7fda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0156}
0x7fda…8000 Head {h00=0x0022, h01=0x0050, text=»LINNUM EQU *-2 NUMBER OF LINES«, t00=0x0051, t01=0x0164}
0x8000…8026 Head {h00=0x0022, h01=0x0050, text=» DATA /3132,/3135,/3138,/3234 «, t00=0x0051, t01=0x018a}
0x8026…804c Head {h00=0x0022, h01=0x0050, text=» DATA /3235,/3330,/3333,/3335 «, t00=0x0052, t01=0x0020}
0x804c…8072 Head {h00=0x0022, h01=0x0050, text=» DATA /3336,/3438,/3530,/3531 «, t00=0x0052, t01=0x0046}
0x8072…8098 Head {h00=0x0022, h01=0x0050, text=» DATA /3630,/3636,/3730,/3732 «, t00=0x0052, t01=0x006c}
0x8098…80a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0092}
0x80a2…80ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x009c}
0x80ac…80b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00a6}
0x80b6…80c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00b0}
0x80c0…80fa Head {h00=0x0036, h01=0x0050, text=»NCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE «, t00=0x0052, t01=0x00ba}
0x80fa…8120 Head {h00=0x0022, h01=0x0050, text=» DATA /3031,/3032,/3033,/3034 «, t00=0x0052, t01=0x00f4}
0x8120…8146 Head {h00=0x0022, h01=0x0050, text=» DATA /3035,/3036,/3037,/3038 «, t00=0x0052, t01=0x011a}
0x8146…816c Head {h00=0x0022, h01=0x0050, text=» DATA /3039,/3130,/3131,/3131 «, t00=0x0052, t01=0x0140}
0x816c…818c Head {h00=0x001c, h01=0x0050, text=» DATA /3133,/3134,/3135 «, t00=0x0052, t01=0x0166}
0x818c…81c8 Head {h00=0x0038, h01=0x0050, text=»TAB EQU * MASK TABLE FOR STATUS REPORT FROM PRINTER «, t00=0x0052, t01=0x0186}
0x81c8…81ea Head {h00=0x001e, h01=0x0050, text=» DATA /C0,/C0,/C0,/2CC * «, t00=0x0053, t01=0x0032}
0x81ea…820c Head {h00=0x001e, h01=0x0050, text=» DATA /2CF,/4CB,/C0,/C0 * «, t00=0x0053, t01=0x0054}
0x820c…822a Head {h00=0x001a, h01=0x0050, text=» DATA /C0,/C0,/C0,/C0 «, t00=0x0053, t01=0x0076}
0x822a…8240 Head {h00=0x0012, h01=0x0050, text=» DATA /C0,/C0 «, t00=0x0053, t01=0x0094}
0x8240…824c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0053, t01=0x00aa}
0x824c…8250 Head {h00=0x4004, h01=0x0000}
0x8250…8254 00 53 00 b6 ┆ S ┆
0x8254…825c (84, 2, 8) 40 04 00 00 00 54 00 04 ┆@ T ┆
0x825c…8264 (85, 1, 8) 20 04 00 00 00 55 00 04 ┆ U ┆
0x8264…83f4 (86, 0, 400) 0x00[0x190]
[…0x6…]