|
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: 33136 (0x8170)
Notes: pts_type(SC)
Names: »DRGP02.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRGP02.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRGP02.SC«
IDENT DRGP02 REL 11.0 81-01-26 870105041100 =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 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 X:A EJECT * * * THE FRONT FEED DEVICE CAN BE EXCLUDED * BY SETTING X:B = 0 * * X:B EQU 1 FFDEV EQU X:B FRONT FEED DEVICE * * * * THE STANDARD PAGELENGTH IS DEFINED * BY SETTING X:C = NUMBER OF LINES * * X:C EQU 48 PAGLEN EQU X:C * * * THE STANDARD NUMBER OF LINES IS DEFINED * BY SETTING X:D = NUMBER OF LINES * * X:D EQU 36 * DOCLEN EQU X:D EJECT * * * * MMU BUFFER SIZE * * X:E EQU 132 DVBLEN EQU X:E * * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1 * * MMUPAG EQU 0 * * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0 * * CPU852 EQU 1 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 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 ADR A7,A2 ADD DWT INDEX TO ORDER 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 EJECT * * * ORDER 00 : TEST STATUS * * TSTSTA EQU * TEST STATUS CF A5,RESREC CF A5,GTSTAT GET STATUS FROM PRINTER ABL LENDIS END REQUEST 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,/5C5C 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 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006a Head {h00=0x0028, h01=0x0050, text=» =1,TIME OUT IF INACTIVE, 25 SEC. «, t00=0x0000, t01=0x0042}
0x006a…0086 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-11-19«, t00=0x0000, t01=0x006e}
0x0086…0090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008a}
0x0090…00d0 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0094}
0x00d0…0110 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x00d4}
0x0110…0150 Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0000, t01=0x0114}
0x0150…0190 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0154}
0x0190…01c8 (1, 0, 400) Head {h00=0x0034, h01=0x0050, text=»* DRGP02 = DRIVER GENERAL PRINTER * «, t00=0x0001, t01=0x0004}
0x01c8…0208 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x003c}
0x0208…0248 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x007c}
0x0248…0288 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x00bc}
0x0288…02c8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x00fc}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x02d2…030a Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER HANDLES GENERAL PRINTER PTS 8081«, t00=0x0001, t01=0x0146}
0x030a…0314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017e}
0x0314…034c Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS :«, t00=0x0001, t01=0x0188}
0x034c…0356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0030}
0x0356…037e Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0002, t01=0x003a}
0x037e…0388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0062}
0x0388…03b0 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0002, t01=0x006c}
0x03b0…03ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0094}
0x03ba…03c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009e}
0x03c4…03d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00a8}
0x03d2…03dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b6}
0x03dc…040a Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x00c0}
0x040a…0414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ee}
0x0414…043c Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0002, t01=0x00f8}
0x043c…045e Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0002, t01=0x0120}
0x045e…048c Head {h00=0x002a, h01=0x0050, text=»* ORDER 0B : POSITION DOCUMENT «, t00=0x0002, t01=0x0142}
0x048c…04be Head {h00=0x002e, h01=0x0050, text=»* ORDER 24 : SET PRINTER PARAMETERS«, t00=0x0002, t01=0x0170}
0x04be…04ea Head {h00=0x0028, h01=0x0050, text=»* ORDER 38 : RELEASE DOCUMENT«, t00=0x0003, t01=0x0012}
0x04ea…04f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003e}
0x04f4…0524 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0003, t01=0x0048}
0x0524…052e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0078}
0x052e…0558 Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0003, t01=0x0082}
0x0558…0596 Head {h00=0x003a, h01=0x0050, text=»* BIT 2 : END OF JOURNAL TAPE, DOCUMENT OUT «, t00=0x0003, t01=0x00ac}
0x0596…05c2 Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0003, t01=0x00ea}
0x05c2…05ea Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0003, t01=0x0116}
0x05ea…05f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013e}
0x05f4…05fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0148}
0x05fe…0620 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0003, t01=0x0152}
0x0620…062a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x062a…0650 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0003, t01=0x017e}
0x0650…0676 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0004, t01=0x0014}
0x0676…069e Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0004, t01=0x003a}
0x069e…06c4 Head {h00=0x0022, h01=0x0050, text=»* A4: WORK REGISTER«, t00=0x0004, t01=0x0062}
0x06c4…06ea Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0004, t01=0x0088}
0x06ea…070e Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0004, t01=0x00ae}
0x070e…072c Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0004, t01=0x00d2}
0x072c…0750 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0004, t01=0x00f0}
0x0750…075a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0114}
0x075a…0764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x011e}
0x0764…0772 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0128}
0x0772…077c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0136}
0x077c…0786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0140}
0x0786…07ba Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0004, t01=0x014a}
0x07ba…07c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017e}
0x07c4…07d6 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0004, t01=0x0188}
0x07d6…07e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000a}
0x07e0…0814 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x0014}
0x0814…081e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0048}
0x081e…0828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0052}
0x0828…084a Head {h00=0x001e, h01=0x0050, text=» ENTRY GPAD8 ADDRESS BLOCK«, t00=0x0005, t01=0x005c}
0x084a…0854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x007e}
0x0854…085e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0088}
0x085e…0868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0092}
0x0868…089c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x009c}
0x089c…08a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d0}
0x08a6…08ba Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0005, t01=0x00da}
0x08ba…08c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ee}
0x08c4…08f8 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x00f8}
0x08f8…0902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012c}
0x0902…090c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0136}
0x090c…093c Head {h00=0x002c, h01=0x0050, text=» EXTRN LDISP DISPATCHING FROM INTERRUPT «, t00=0x0005, t01=0x0140}
0x093c…0964 Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER DISPATCH I/O ERROR«, t00=0x0005, t01=0x0170}
0x0964…098e Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDIS END I/O AND DISPATCH«, t00=0x0006, t01=0x0008}
0x098e…09b8 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0006, t01=0x0032}
0x09b8…09ec Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB BUFFER «, t00=0x0006, t01=0x005c}
0x09ec…0a0e Head {h00=0x001e, h01=0x0050, text=» EXTRN SETIMP SET TIMER =1«, t00=0x0006, t01=0x0090}
0x0a0e…0a3a Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTST DWT STATUS DISPLACEMENT«, t00=0x0006, t01=0x00b2}
0x0a3a…0a64 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTECB DWT ECB DISPLACEMENT«, t00=0x0006, t01=0x00de}
0x0a64…0a90 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTOR DWT ORDER DISPLACEMENT «, t00=0x0006, t01=0x0108}
0x0a90…0ab0 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0006, t01=0x0134}
0x0ab0…0ae6 Head {h00=0x0032, h01=0x0050, text=» EXTRN INPUT STORE REG = GET STATUS INPUT CHAR«, t00=0x0006, t01=0x0154}
0x0ae6…0b0e Head {h00=0x0024, h01=0x0050, text=» EXTRN STABLK DEF START OF BLOCK«, t00=0x0006, t01=0x018a}
0x0b0e…0b34 Head {h00=0x0022, h01=0x0050, text=» EXTRN ENDBLK DEF END OF BLOCK«, t00=0x0007, t01=0x0022}
0x0b34…0b58 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS «, t00=0x0007, t01=0x0048}
0x0b58…0b6a Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x0007, t01=0x006c}
0x0b6a…0b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007e}
0x0b74…0b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0088}
0x0b7e…0bb0 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0007, t01=0x0092}
0x0bb0…0bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bba…0bce Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS «, t00=0x0007, t01=0x00ce}
0x0bce…0bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e2}
0x0bd8…0c0a Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0007, t01=0x00ec}
0x0c0a…0c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011e}
0x0c14…0c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0128}
0x0c1e…0c44 Head {h00=0x0022, h01=0x0050, text=»SPEC EQU /2E SPECIAL CHARACTER«, t00=0x0007, t01=0x0132}
0x0c44…0c60 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x0007, t01=0x0158}
0x0c60…0c7c Head {h00=0x0018, h01=0x0050, text=»FF EQU /0C FORM FEED«, t00=0x0007, t01=0x0174}
0x0c7c…0c9e Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x0007, t01=0x0190}
0x0c9e…0cba Head {h00=0x0018, h01=0x0050, text=»SO EQU /0E SHIFT OUT«, t00=0x0008, t01=0x0022}
0x0cba…0cd6 Head {h00=0x0018, h01=0x0050, text=»SI EQU /0F SHIFT IN «, t00=0x0008, t01=0x003e}
0x0cd6…0cf0 Head {h00=0x0016, h01=0x0050, text=»ESC EQU /1B ESCAPE«, t00=0x0008, t01=0x005a}
0x0cf0…0d20 Head {h00=0x002c, h01=0x0050, text=»CSI EQU /5B CONTROL SEQUENCE INTRODUCER «, t00=0x0008, t01=0x0074}
0x0d20…0d3a Head {h00=0x0016, h01=0x0050, text=»REP EQU /62 REPEAT«, t00=0x0008, t01=0x00a4}
0x0d3a…0d68 Head {h00=0x002a, h01=0x0050, text=»VPR EQU /65 VERTICAL POSITION RELATIVE«, t00=0x0008, t01=0x00be}
0x0d68…0d8e Head {h00=0x0022, h01=0x0050, text=»INFF EQU /74 INPUT FRONT FEED «, t00=0x0008, t01=0x00ec}
0x0d8e…0dc0 Head {h00=0x002e, h01=0x0050, text=»VPFF EQU /71 VERTICAL POSITION FRONT FEED «, t00=0x0008, t01=0x0112}
0x0dc0…0de6 Head {h00=0x0022, h01=0x0050, text=»EJFF EQU /38 EJECT FRONT FEED «, t00=0x0008, t01=0x0144}
0x0de6…0e12 Head {h00=0x0028, h01=0x0050, text=»SNV EQU /77 SELECT NATIONAL VERSION «, t00=0x0008, t01=0x016a}
0x0e12…0e3a Head {h00=0x0024, h01=0x0050, text=»SLPL EQU /76 SELECT PAGE LENGTH «, t00=0x0009, t01=0x0008}
0x0e3a…0e64 Head {h00=0x0026, h01=0x0050, text=»RIS EQU /63 RESET TO INITIAL STATE«, t00=0x0009, t01=0x0030}
0x0e64…0e8c Head {h00=0x0024, h01=0x0050, text=»DSR EQU /6E DEVICE STATUS REPORT«, t00=0x0009, t01=0x005a}
0x0e8c…0eb6 Head {h00=0x0026, h01=0x0050, text=»DCS EQU /50 DEVICE CONTROL STRING «, t00=0x0009, t01=0x0082}
0x0eb6…0eda Head {h00=0x0020, h01=0x0050, text=»ST EQU /5C STRING TERMINATOR«, t00=0x0009, t01=0x00ac}
0x0eda…0ef4 Head {h00=0x0016, h01=0x0050, text=»DEL EQU /7F DELETE«, t00=0x0009, t01=0x00d0}
0x0ef4…0f0e Head {h00=0x0016, h01=0x0050, text=»ZERO EQU /30 ZERO «, t00=0x0009, t01=0x00ea}
0x0f0e…0f22 Head {h00=0x0010, h01=0x0050, text=»NEG EQU /FF «, t00=0x0009, t01=0x0104}
0x0f22…0f46 Head {h00=0x0020, h01=0x0050, text=»TIME EQU /FF 25 SEC TIMER =1«, t00=0x0009, t01=0x0118}
0x0f46…0f58 Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x0009, t01=0x013c}
0x0f58…0f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014e}
0x0f62…0f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0158}
0x0f6c…0fae Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0009, t01=0x0162}
0x0fae…0fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0014}
0x0fb8…0fd4 Head {h00=0x0018, h01=0x0050, text=»* CONTROL SEQUENCES «, t00=0x000a, t01=0x001e}
0x0fd4…0fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003a}
0x0fde…1020 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x0044}
0x1020…102a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0086}
0x102a…1034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0090}
0x1034…104a Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x000a, t01=0x009a}
0x104a…1054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b0}
0x1054…105e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ba}
0x105e…1078 Head {h00=0x0016, h01=0x0050, text=»CSREP EQU * REPEAT«, t00=0x000a, t01=0x00c4}
0x1078…108e Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000a, t01=0x00de}
0x108e…10a6 Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000a, t01=0x00f4}
0x10a6…10bc Head {h00=0x0012, h01=0x0050, text=» BYTE ZERO,REP«, t00=0x000a, t01=0x010c}
0x10bc…10d2 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000a, t01=0x0122}
0x10d2…1100 Head {h00=0x002a, h01=0x0050, text=»CSVPR EQU * VERTICAL POSITION RELATIVE«, t00=0x000a, t01=0x0138}
0x1100…1116 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000a, t01=0x0166}
0x1116…112e Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000a, t01=0x017c}
0x112e…1144 (11, 0, 400) Head {h00=0x0012, h01=0x0050, text=» BYTE ZERO,VPR«, t00=0x000b, t01=0x0004}
0x1144…115a Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000b, t01=0x001a}
0x115a…1180 Head {h00=0x0022, h01=0x0050, text=»CSINFF EQU * INPUT FRONT FEED «, t00=0x000b, t01=0x0030}
0x1180…1196 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000b, t01=0x0056}
0x1196…11ae Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000b, t01=0x006c}
0x11ae…11c4 Head {h00=0x0012, h01=0x0050, text=» BYTE INFF,NEG«, t00=0x000b, t01=0x0084}
0x11c4…11f6 Head {h00=0x002e, h01=0x0050, text=»CSVPFF EQU * VERTICAL POSITION FRONT FEED «, t00=0x000b, t01=0x009a}
0x11f6…120c Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000b, t01=0x00cc}
0x120c…1224 Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000b, t01=0x00e2}
0x1224…123a Head {h00=0x0012, h01=0x0050, text=» BYTE VPFF,NEG«, t00=0x000b, t01=0x00fa}
0x123a…1260 Head {h00=0x0022, h01=0x0050, text=»CSEJFF EQU * EJECT FRONT FEED «, t00=0x000b, t01=0x0110}
0x1260…1276 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,EJFF«, t00=0x000b, t01=0x0136}
0x1276…128c Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000b, t01=0x014c}
0x128c…129a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0162}
0x129a…12ae Head {h00=0x0010, h01=0x0050, text=»CSSNV EQU * «, t00=0x000b, t01=0x0170}
0x12ae…12d0 Head {h00=0x001e, h01=0x0050, text=» SELECT NATIONAL VERSION«, t00=0x000b, t01=0x0184}
0x12d0…12e6 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000c, t01=0x0016}
0x12e6…12fe Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000c, t01=0x002c}
0x12fe…1314 Head {h00=0x0012, h01=0x0050, text=» BYTE SNV,NEG «, t00=0x000c, t01=0x0044}
0x1314…133a Head {h00=0x0022, h01=0x0050, text=»CSSLPL EQU * SELECT PAGELENGTH«, t00=0x000c, t01=0x005a}
0x133a…1350 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000c, t01=0x0080}
0x1350…1368 Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000c, t01=0x0096}
0x1368…1382 Head {h00=0x0016, h01=0x0050, text=» BYTE SLPL,NEG * «, t00=0x000c, t01=0x00ae}
0x1382…1398 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000c, t01=0x00c8}
0x1398…13c2 Head {h00=0x0026, h01=0x0050, text=»CSRIS EQU * RESET TO INITIAL STATE«, t00=0x000c, t01=0x00de}
0x13c2…13d8 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,RIS «, t00=0x000c, t01=0x0108}
0x13d8…13ee Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000c, t01=0x011e}
0x13ee…1416 Head {h00=0x0024, h01=0x0050, text=»CSDSR EQU * DEVICE STATUS REPORT«, t00=0x000c, t01=0x0134}
0x1416…142c Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000c, t01=0x015c}
0x142c…1442 Head {h00=0x0012, h01=0x0050, text=» BYTE /35,DSR «, t00=0x000c, t01=0x0172}
0x1442…1458 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000c, t01=0x0188}
0x1458…1466 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x000e}
0x1466…1470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001c}
0x1470…147a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0026}
0x147a…14ba Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x000d, t01=0x0030}
0x14ba…14c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0070}
0x14c4…14e2 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x000d, t01=0x007a}
0x14e2…14ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0098}
0x14ec…152c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x000d, t01=0x00a2}
0x152c…1536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e2}
0x1536…1540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ec}
0x1540…154a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f6}
0x154a…1582 Head {h00=0x0034, h01=0x0050, text=»* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN«, t00=0x000d, t01=0x0100}
0x1582…15be Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:A TO 1-15 ACCORDING TO THE LIST BELOW«, t00=0x000d, t01=0x0138}
0x15be…15c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0174}
0x15c8…15d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017e}
0x15d2…160a Head {h00=0x0034, h01=0x0050, text=»* NCV=1 GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND «, t00=0x000d, t01=0x0188}
0x160a…1654 Head {h00=0x0046, h01=0x0050, text=» =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA «, t00=0x000e, t01=0x0030}
0x1654…1688 Head {h00=0x0030, h01=0x0050, text=» =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG«, t00=0x000e, t01=0x007a}
0x1688…16b8 Head {h00=0x002c, h01=0x0050, text=» =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA «, t00=0x000e, t01=0x00ae}
0x16b8…16d8 Head {h00=0x001c, h01=0x0050, text=» =5 ITALY,SWITZERLAND«, t00=0x000e, t01=0x00de}
0x16d8…16f6 Head {h00=0x001a, h01=0x0050, text=» =6 SWEDEN,FINLAND «, t00=0x000e, t01=0x00fe}
0x16f6…1714 Head {h00=0x001a, h01=0x0050, text=» =7 DENMARK,NORWAY «, t00=0x000e, t01=0x011c}
0x1714…1732 Head {h00=0x001a, h01=0x0050, text=» =8 PORTUGAL,BRAZIL«, t00=0x000e, t01=0x013a}
0x1732…174c Head {h00=0x0016, h01=0x0050, text=» =9 YUGOSLAVIA «, t00=0x000e, t01=0x0158}
0x174c…1770 Head {h00=0x0020, h01=0x0050, text=» =10 USA,CANADA,AUSTRALIA«, t00=0x000e, t01=0x0172}
0x1770…1798 Head {h00=0x0024, h01=0x0050, text=» =11 SWEDEN (SPECIAL VERSION)«, t00=0x000f, t01=0x0008}
0x1798…17ae Head {h00=0x0012, h01=0x0050, text=» =13 GREEK «, t00=0x000f, t01=0x0030}
0x17ae…17d6 Head {h00=0x0024, h01=0x0050, text=» =14 JAPAN (KATAKANA VERSION)«, t00=0x000f, t01=0x0046}
0x17d6…17fe Head {h00=0x0024, h01=0x0050, text=» =15 ISRAEL (HEBREW VERSION)«, t00=0x000f, t01=0x006e}
0x17fe…1808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0096}
0x1808…1812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a0}
0x1812…183e Head {h00=0x0028, h01=0x0050, text=»X:A EQU 02 GREAT BRITAIN AS STANDARD«, t00=0x000f, t01=0x00aa}
0x183e…1854 Head {h00=0x0012, h01=0x0050, text=»STDNCV EQU X:A«, t00=0x000f, t01=0x00d6}
0x1854…1862 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00ec}
0x1862…186c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fa}
0x186c…1876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0104}
0x1876…18a6 Head {h00=0x002c, h01=0x0050, text=»* THE FRONT FEED DEVICE CAN BE EXCLUDED «, t00=0x000f, t01=0x010e}
0x18a6…18c2 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B = 0«, t00=0x000f, t01=0x013e}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015a}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0164}
0x18d6…18e8 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000f, t01=0x016e}
0x18e8…1910 Head {h00=0x0024, h01=0x0050, text=»FFDEV EQU X:B FRONT FEED DEVICE «, t00=0x000f, t01=0x0180}
0x1910…191a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0018}
0x191a…1924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0022}
0x1924…192e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002c}
0x192e…195a Head {h00=0x0028, h01=0x0050, text=»* THE STANDARD PAGELENGTH IS DEFINED«, t00=0x0010, t01=0x0036}
0x195a…1984 Head {h00=0x0026, h01=0x0050, text=»* BY SETTING X:C = NUMBER OF LINES«, t00=0x0010, t01=0x0062}
0x1984…198e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008c}
0x198e…1998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0096}
0x1998…19aa Head {h00=0x000e, h01=0x0050, text=»X:C EQU 48«, t00=0x0010, t01=0x00a0}
0x19aa…19c0 Head {h00=0x0012, h01=0x0050, text=»PAGLEN EQU X:C«, t00=0x0010, t01=0x00b2}
0x19c0…19ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c8}
0x19ca…19d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d4…1a06 Head {h00=0x002e, h01=0x0050, text=»* THE STANDARD NUMBER OF LINES IS DEFINED «, t00=0x0010, t01=0x00dc}
0x1a06…1a30 Head {h00=0x0026, h01=0x0050, text=»* BY SETTING X:D = NUMBER OF LINES«, t00=0x0010, t01=0x010e}
0x1a30…1a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0138}
0x1a3a…1a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0142}
0x1a44…1a5a Head {h00=0x0012, h01=0x0050, text=»X:D EQU 36 * «, t00=0x0010, t01=0x014c}
0x1a5a…1a70 Head {h00=0x0012, h01=0x0050, text=»DOCLEN EQU X:D«, t00=0x0010, t01=0x0162}
0x1a70…1a7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0178}
0x1a7e…1a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0186}
0x1a88…1a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0190}
0x1a92…1a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x000a}
0x1a9c…1ab6 Head {h00=0x0016, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x0011, t01=0x0014}
0x1ab6…1ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002e}
0x1ac0…1aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0038}
0x1aca…1ade Head {h00=0x0010, h01=0x0050, text=»X:E EQU 132 «, t00=0x0011, t01=0x0042}
0x1ade…1af4 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:E«, t00=0x0011, t01=0x0056}
0x1af4…1afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006c}
0x1afe…1b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0076}
0x1b08…1b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0080}
0x1b12…1b44 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0011, t01=0x008a}
0x1b44…1b72 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1 «, t00=0x0011, t01=0x00bc}
0x1b72…1b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ea}
0x1b7c…1b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f4}
0x1b86…1b9a Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0011, t01=0x00fe}
0x1b9a…1ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0112}
0x1ba4…1bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x011c}
0x1bae…1bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0126}
0x1bb8…1bf2 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0011, t01=0x0130}
0x1bf2…1c24 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0 «, t00=0x0011, t01=0x016a}
0x1c24…1c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000c}
0x1c2e…1c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0016}
0x1c38…1c4c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0012, t01=0x0020}
0x1c4c…1c5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0034}
0x1c5a…1c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0042}
0x1c64…1c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x004c}
0x1c6e…1ca2 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0012, t01=0x0056}
0x1ca2…1cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008a}
0x1cac…1cca Head {h00=0x001a, h01=0x0050, text=»* DWT - DISPLACEMENTS «, t00=0x0012, t01=0x0094}
0x1cca…1cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b2}
0x1cd4…1d08 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0012, t01=0x00bc}
0x1d08…1d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f0}
0x1d12…1d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00fa}
0x1d1c…1d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0104}
0x1d26…1d5a Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x010e}
0x1d5a…1d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0142}
0x1d64…1d7a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x014c}
0x1d7a…1d92 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0012, t01=0x0162}
0x1d92…1d9e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x017a}
0x1d9e…1da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0186}
0x1da8…1dbe Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x0190}
0x1dbe…1dd8 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0013, t01=0x0016}
0x1dd8…1de4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0030}
0x1de4…1dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003c}
0x1dee…1e14 Head {h00=0x0022, h01=0x0050, text=»DWTTP EQU /2 TIMER POINTER =1 «, t00=0x0013, t01=0x0046}
0x1e14…1e40 Head {h00=0x0028, h01=0x0050, text=»DWTDCS EQU /4 DOCUMENT CHARACTER SET«, t00=0x0013, t01=0x006c}
0x1e40…1e6c Head {h00=0x0028, h01=0x0050, text=»DWTPCS EQU /6 PRINTER CHARACTER SET «, t00=0x0013, t01=0x0098}
0x1e6c…1e96 Head {h00=0x0026, h01=0x0050, text=»DWTPL EQU /8 PRINTER PAPER LENGTH «, t00=0x0013, t01=0x00c4}
0x1e96…1ec0 Head {h00=0x0026, h01=0x0050, text=»DWTDL EQU /A DOCUMENT PAPER LENGTH«, t00=0x0013, t01=0x00ee}
0x1ec0…1eee Head {h00=0x002a, h01=0x0050, text=»DWTALN EQU /C ACTUAL LINE ON DOCUMENT «, t00=0x0013, t01=0x0118}
0x1eee…1f1e Head {h00=0x002c, h01=0x0050, text=»DWTRLN EQU /E REQUESTED LINE ON DOCUMENT«, t00=0x0013, t01=0x0146}
0x1f1e…1f4e Head {h00=0x002c, h01=0x0050, text=»DWTRC EQU /11 RETURN CODE (ACKUMULATED) «, t00=0x0013, t01=0x0176}
0x1f4e…1f7c Head {h00=0x002a, h01=0x0050, text=»DWTSTR EQU /12 CONTROL SEQUENCE ADRESS«, t00=0x0014, t01=0x0016}
0x1f7c…1fbe Head {h00=0x003e, h01=0x0050, text=»DWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. «, t00=0x0014, t01=0x0044}
0x1fbe…1fec Head {h00=0x002a, h01=0x0050, text=»DWTACD EQU /16 ACTUAL COLUMN DOCUMENT «, t00=0x0014, t01=0x0086}
0x1fec…2016 Head {h00=0x0026, h01=0x0050, text=»DWTACP EQU /19 ACTUAL COLUMN PAPER«, t00=0x0014, t01=0x00b4}
0x2016…203e Head {h00=0x0024, h01=0x0050, text=»DWTCO1 EQU /1C COLUMN COUNTER 1 «, t00=0x0014, t01=0x00de}
0x203e…2066 Head {h00=0x0024, h01=0x0050, text=»DWTCO2 EQU /1E COLUMN COUNTER 2 «, t00=0x0014, t01=0x0106}
0x2066…2090 Head {h00=0x0026, h01=0x0050, text=»DWTSYST EQU /22 SYSTEM START IND. «, t00=0x0014, t01=0x012e}
0x2090…20c0 Head {h00=0x002c, h01=0x0050, text=»DWTLFD EQU /24 LINE/FORM FEED INDICATOR «, t00=0x0014, t01=0x0158}
0x20c0…20ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0188}
0x20ce…20d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0008}
0x20d8…20e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0012}
0x20e2…2116 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0015, t01=0x001c}
0x2116…2120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0050}
0x2120…213e Head {h00=0x001a, h01=0x0050, text=»* ECB - DISPLACEMENTS «, t00=0x0015, t01=0x005a}
0x213e…2148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0078}
0x2148…217c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0015, t01=0x0082}
0x217c…2186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b6}
0x2186…21b0 Head {h00=0x0026, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS IN ECB «, t00=0x0015, t01=0x00c0}
0x21b0…21dc Head {h00=0x0028, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH IN ECB «, t00=0x0015, t01=0x00ea}
0x21dc…2208 Head {h00=0x0028, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH IN ECB «, t00=0x0015, t01=0x0116}
0x2208…222e Head {h00=0x0022, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE IN ECB«, t00=0x0015, t01=0x0142}
0x222e…2256 Head {h00=0x0024, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD IN ECB«, t00=0x0015, t01=0x0168}
0x2256…2264 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0190}
0x2264…226e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000e}
0x226e…22a2 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0016, t01=0x0018}
0x22a2…22ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004c}
0x22ac…22bc Head {h00=0x000c, h01=0x0050, text=»* TABLES«, t00=0x0016, t01=0x0056}
0x22bc…22c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0066}
0x22c6…22fa Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0016, t01=0x0070}
0x22fa…2304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a4}
0x2304…230e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ae}
0x230e…2332 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0016, t01=0x00b8}
0x2332…234e Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0016, t01=0x00dc}
0x234e…2370 Head {h00=0x001e, h01=0x0050, text=»GPAD8 EQU * ADDRESS BLOCK «, t00=0x0016, t01=0x00f8}
0x2370…2394 Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATION DRIVER«, t00=0x0016, t01=0x011a}
0x2394…23ba Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0016, t01=0x013e}
0x23ba…23dc Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x0016, t01=0x0164}
0x23dc…2400 Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0016, t01=0x0186}
0x2400…2414 Head {h00=0x0010, h01=0x0050, text=»TPTAB EQU * «, t00=0x0017, t01=0x001a}
0x2414…2428 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0017, t01=0x002e}
0x2428…2448 Head {h00=0x001c, h01=0x0050, text=» DATA /0107,/0C25,/3939 «, t00=0x0017, t01=0x0042}
0x2448…2454 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0062}
0x2454…246e Head {h00=0x0016, h01=0x0050, text=» DATA /0006,/2424 «, t00=0x0017, t01=0x006e}
0x246e…2488 Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0017, t01=0x0088}
0x2488…2490 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00a2}
0x2490…2498 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00aa}
0x2498…24a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00b2}
0x24a6…24b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c0}
0x24b0…24ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ca}
0x24ba…24ce Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0017, t01=0x00d4}
0x24ce…24d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e8}
0x24d8…250e Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0017, t01=0x00f2}
0x250e…2550 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0017, t01=0x0128}
0x2550…255a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016a}
0x255a…2564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0174}
0x2564…256e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x017e}
0x256e…2592 Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0017, t01=0x0188}
0x2592…259c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001c}
0x259c…25a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0026}
0x25a6…25e4 Head {h00=0x003a, h01=0x0050, text=»* GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT«, t00=0x0018, t01=0x0030}
0x25e4…25ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x006e}
0x25ee…2614 Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTOR,A6 GET DWT INDEX «, t00=0x0018, t01=0x0078}
0x2614…262a Head {h00=0x0012, h01=0x0050, text=» ANK A2,1 MASK«, t00=0x0018, t01=0x009e}
0x262a…265a Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTDEV+1,A6 GET OLD DEVICE VALUE «, t00=0x0018, t01=0x00b4}
0x265a…266e Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FE «, t00=0x0018, t01=0x00e4}
0x266e…2680 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A2«, t00=0x0018, t01=0x00f8}
0x2680…26a6 Head {h00=0x0022, h01=0x0050, text=» SC A3,DWTDEV+1,A6 STORE INDEX«, t00=0x0018, t01=0x010a}
0x26a6…26d0 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 ADD DWT INDEX TO ORDER «, t00=0x0018, t01=0x0130}
0x26d0…26fe Head {h00=0x002a, h01=0x0050, text=» SC A7,DWTOR+1,A6 STORE MODIFIED ORDER«, t00=0x0018, t01=0x015a}
0x26fe…271c Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0018, t01=0x0188}
0x271c…274e Head {h00=0x002e, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER«, t00=0x0019, t01=0x0016}
0x274e…2770 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0019, t01=0x0048}
0x2770…2782 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0019, t01=0x006a}
0x2782…27a2 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0019, t01=0x007c}
0x27a2…27ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x009c}
0x27ac…27ce Head {h00=0x001e, h01=0x0050, text=» ABL LENDER ILLEGAL ORDER «, t00=0x0019, t01=0x00a6}
0x27ce…27d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c8}
0x27d8…27e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d2}
0x27e2…27f6 Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x0019, t01=0x00dc}
0x27f6…2812 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x0019, t01=0x00f0}
0x2812…2836 Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x0019, t01=0x010c}
0x2836…2844 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0130}
0x2844…2858 Head {h00=0x0010, h01=0x0050, text=»TPFUC EQU * «, t00=0x0019, t01=0x013e}
0x2858…286c Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0019, t01=0x0152}
0x286c…28a4 Head {h00=0x0034, h01=0x0050, text=» DATA TSTSTA,WRTDOC,POSDOC,DOCPAR,RELDOC,RELDOC «, t00=0x0019, t01=0x0166}
0x28a4…28b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x000e}
0x28b0…28da Head {h00=0x0026, h01=0x0050, text=» DATA TSTSTA,WRTCON,CSTPAR,CSTPAR «, t00=0x001a, t01=0x001a}
0x28da…28e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0044}
0x28e8…28f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0052}
0x28f2…28fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005c}
0x28fc…291e Head {h00=0x001e, h01=0x0050, text=»* ORDER 00 : TEST STATUS«, t00=0x001a, t01=0x0066}
0x291e…2928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0088}
0x2928…2932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0092}
0x2932…2952 Head {h00=0x001c, h01=0x0050, text=»TSTSTA EQU * TEST STATUS«, t00=0x001a, t01=0x009c}
0x2952…2968 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x001a, t01=0x00bc}
0x2968…2996 Head {h00=0x002a, h01=0x0050, text=» CF A5,GTSTAT GET STATUS FROM PRINTER «, t00=0x001a, t01=0x00d2}
0x2996…29b6 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x001a, t01=0x0100}
0x29b6…29c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0120}
0x29c4…29d8 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x001a, t01=0x012e}
0x29d8…29e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0142}
0x29e2…29ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x014c}
0x29ec…2a10 Head {h00=0x0020, h01=0x0050, text=»* ORDER 06: WRITE DOCUMENT«, t00=0x001a, t01=0x0156}
0x2a10…2a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017a}
0x2a1a…2a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0184}
0x2a24…2a38 Head {h00=0x0010, h01=0x0050, text=»WRTDOC EQU *«, t00=0x001a, t01=0x018e}
0x2a38…2a4e Head {h00=0x0012, h01=0x0050, text=» CF A5,GTSTAT «, t00=0x001b, t01=0x0012}
0x2a4e…2a74 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTDEV,A6 DEVICE STATUS«, t00=0x001b, t01=0x0028}
0x2a74…2aa0 Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/20 HAS POWER OFF OCCURED? «, t00=0x001b, t01=0x004e}
0x2aa0…2abc Head {h00=0x0018, h01=0x0050, text=» RF(NZ) WRDO05 YES. «, t00=0x001b, t01=0x007a}
0x2abc…2ad6 Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/2000 * «, t00=0x001b, t01=0x0096}
0x2ad6…2af6 Head {h00=0x001c, h01=0x0050, text=» TM A1,A3 DOCUMENT OUT? «, t00=0x001b, t01=0x00b0}
0x2af6…2b0e Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRDO06 NO«, t00=0x001b, t01=0x00d0}
0x2b0e…2b42 Head {h00=0x0030, h01=0x0050, text=» LDKL A3,/8000 YES.SET BIT 0 (REQUEST ERROR)«, t00=0x001b, t01=0x00e8}
0x2b42…2b74 Head {h00=0x002e, h01=0x0050, text=» ORS A3,ECBRC,A8 SET REQUEST ERROR IN R.C.«, t00=0x001b, t01=0x011c}
0x2b74…2b94 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x001b, t01=0x014e}
0x2b94…2bac Head {h00=0x0014, h01=0x0050, text=»WRDO05 EQU * * «, t00=0x001b, t01=0x016e}
0x2bac…2bc4 Head {h00=0x0014, h01=0x0050, text=»WRDO06 LDK A3,1 «, t00=0x001b, t01=0x0186}
0x2bc4…2be4 Head {h00=0x001c, h01=0x0050, text=» TM A1,A3 NOT OPERABLE? «, t00=0x001c, t01=0x000e}
0x2be4…2bfc Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRDO10 NO«, t00=0x001c, t01=0x002e}
0x2bfc…2c1c Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x001c, t01=0x0046}
0x2c1c…2c44 Head {h00=0x0024, h01=0x0050, text=»WRDO10 LDK A2,20 MAX BLOCK SIZE «, t00=0x001c, t01=0x0066}
0x2c44…2c68 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x001c, t01=0x008e}
0x2c68…2c8c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x001c, t01=0x00b2}
0x2c8c…2cbc Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTDEV+DWTALN,A6 GET ACTUAL LINE «, t00=0x001c, t01=0x00d6}
0x2cbc…2cd2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) WRDO15«, t00=0x001c, t01=0x0106}
0x2cd2…2cfe Head {h00=0x0028, h01=0x0050, text=» LDK A3,1 SET UP ECB BUFFER POINTER «, t00=0x001c, t01=0x011c}
0x2cfe…2d2c Head {h00=0x002a, h01=0x0050, text=» CF A15,GETCHR GET CONTROL CHARACTER «, t00=0x001c, t01=0x0148}
0x2d2c…2d50 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CTRL CHAR=/31 ? «, t00=0x001c, t01=0x0176}
0x2d50…2d80 Head {h00=0x002c, h01=0x0050, text=» ABL(NE) POSERR NO, DOC. NOT POSITIONED «, t00=0x001d, t01=0x000a}
0x2d80…2da2 Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTDEV+DWTDL,A6 * «, t00=0x001d, t01=0x003a}
0x2da2…2dd6 Head {h00=0x0030, h01=0x0050, text=» ST A3,DWTDEV+DWTRLN,A6 FIRST LINE ON DOC. «, t00=0x001d, t01=0x005c}
0x2dd6…2e06 Head {h00=0x002c, h01=0x0050, text=»WRDO12 LDKL A2,CSINFF INPUT FRONT FEED «, t00=0x001d, t01=0x0090}
0x2e06…2e44 Head {h00=0x003a, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NO DISPLACEMENT «, t00=0x001d, t01=0x00c0}
0x2e44…2e6e Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND INPUT FRONT FEED «, t00=0x001d, t01=0x00fe}
0x2e6e…2e8e Head {h00=0x001c, h01=0x0050, text=» LD A3,DWTDEV+DWTRLN,A6 «, t00=0x001d, t01=0x0128}
0x2e8e…2ec6 Head {h00=0x0034, h01=0x0050, text=» ST A3,DWTDEV+DWTALN,A6 SET DWTDEV+DWTALN=DWTRLN«, t00=0x001d, t01=0x0148}
0x2ec6…2ece Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0180}
0x2ece…2f02 Head {h00=0x0030, h01=0x0050, text=»WRDO15 LDKL A2,CSSNV SELECT NATIONAL VERSION«, t00=0x001d, t01=0x0188}
0x2f02…2f44 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTDCS DOCUMENT CHARACTER SET DISPLACEMENT«, t00=0x001e, t01=0x002c}
0x2f44…2f74 Head {h00=0x002c, h01=0x0050, text=» CF A5,SEND SEND SELECT NATIONAL VERSION«, t00=0x001e, t01=0x006e}
0x2f74…2f96 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x001e, t01=0x009e}
0x2f96…2fba Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x001e, t01=0x00c0}
0x2fba…2fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e4}
0x2fc4…2fea Head {h00=0x0022, h01=0x0050, text=»* EXAMINE CONTROL CHARACTER«, t00=0x001e, t01=0x00ee}
0x2fea…2ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0114}
0x2ff4…301c Head {h00=0x0024, h01=0x0050, text=» LDK A3,1 SET ECB BUFFER POINTER«, t00=0x001e, t01=0x011e}
0x301c…3048 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CONTROL CHARACTER«, t00=0x001e, t01=0x0146}
0x3048…3072 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 GET DEVICE STATUS«, t00=0x001e, t01=0x0172}
0x3072…309e Head {h00=0x0028, h01=0x0050, text=» ANKL A1,/20 HAS POWER OFF OCCURED ?«, t00=0x001f, t01=0x000c}
0x309e…30b6 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REP1 YES«, t00=0x001f, t01=0x0038}
0x30b6…30c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0050}
0x30c0…30ee Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x001f, t01=0x005a}
0x30ee…3106 Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRT03 YES«, t00=0x001f, t01=0x0088}
0x3106…3136 Head {h00=0x002c, h01=0x0050, text=»WRT04 LDR A4,A2 SAVE CONTROL CHAR. IN A4«, t00=0x001f, t01=0x00a0}
0x3136…314e Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x001f, t01=0x00d0}
0x314e…3170 Head {h00=0x001e, h01=0x0050, text=» ADK A2,/8 MAX BLOCK SIZE «, t00=0x001f, t01=0x00e8}
0x3170…3194 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x001f, t01=0x010a}
0x3194…31b8 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x001f, t01=0x012e}
0x31b8…31e4 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 RESTORE CONT. CHAR. IN A2«, t00=0x001f, t01=0x0152}
0x31e4…321e Head {h00=0x0036, h01=0x0050, text=» CM DWTDEV+DWTCO2,A6 CLEAR DOCUMENT COLUMN COUNTER«, t00=0x001f, t01=0x017e}
0x321e…324c Head {h00=0x002a, h01=0x0050, text=» SUK A2,5 PRINT AFTER TWO LINE FEED ? «, t00=0x0020, t01=0x0028}
0x324c…3266 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TWOLF1 YES «, t00=0x0020, t01=0x0056}
0x3266…3270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0070}
0x3270…329a Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 PRINT AFTER FORM FEED ? «, t00=0x0020, t01=0x007a}
0x329a…32c4 Head {h00=0x0026, h01=0x0050, text=» ABL(Z) WRT14 YES, ALLREADY DONE !«, t00=0x0020, t01=0x00a4}
0x32c4…32ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ce}
0x32ce…32fc Head {h00=0x002a, h01=0x0050, text=» RF ONELF1 PRINT AFTER ONE LINE FEED !«, t00=0x0020, t01=0x00d8}
0x32fc…3306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0106}
0x3306…332c Head {h00=0x0022, h01=0x0050, text=»* EXECUTE CONTROL CHARACTER«, t00=0x0020, t01=0x0110}
0x332c…3336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0136}
0x3336…336c Head {h00=0x0032, h01=0x0050, text=»WRT03 LD A4,DWTDEV+DWTCO2,A6 GET ACTUAL COLUMN«, t00=0x0020, t01=0x0140}
0x336c…3380 Head {h00=0x0010, h01=0x0050, text=» RF(Z) WRT05«, t00=0x0020, t01=0x0176}
0x3380…33aa Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 FOR CORRECT NO OF SPACES«, t00=0x0020, t01=0x018a}
0x33aa…33dc Head {h00=0x002e, h01=0x0050, text=»WRT05 CF A5,KONVER CONVERT BINARY TO ASCII«, t00=0x0021, t01=0x0024}
0x33dc…3420 Head {h00=0x0040, h01=0x0050, text=» SC A2,DWTDEV+DWTACD,A6 STORE THE VALUE IN ACTUAL COL. DOC. «, t00=0x0021, t01=0x0056}
0x3420…3466 Head {h00=0x0042, h01=0x0050, text=» SC A4,DWTDEV+DWTACD+2,A6 STORE THE VALUE IN ACTUAL COL. DOC. «, t00=0x0021, t01=0x009a}
0x3466…3478 Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x0021, t01=0x00e0}
0x3478…34b2 Head {h00=0x0036, h01=0x0050, text=» SC A4,DWTDEV+DWTACD+1,A6 SHIFT FOR CORRECT DIGITS«, t00=0x0021, t01=0x00f2}
0x34b2…34bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x012c}
0x34bc…34e0 Head {h00=0x0020, h01=0x0050, text=»WRT09 LDKL A2,/8C BLOCK SIZE«, t00=0x0021, t01=0x0136}
0x34e0…3504 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0021, t01=0x015a}
0x3504…3528 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0021, t01=0x017e}
0x3528…3548 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTDEV+DWTCO2,A6 «, t00=0x0022, t01=0x0012}
0x3548…357a Head {h00=0x002e, h01=0x0050, text=» ABL(Z) WRT15 JMP IF NO PRECEIDING SPACES «, t00=0x0022, t01=0x0032}
0x357a…3598 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 SEND SPACE«, t00=0x0022, t01=0x0064}
0x3598…35ae Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0022, t01=0x0082}
0x35ae…35d2 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0022, t01=0x0098}
0x35d2…35f0 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,CSREP REPEAT «, t00=0x0022, t01=0x00bc}
0x35f0…3632 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTACD ACTUAL COLUMN DOCUMENT DISPLACEMENT«, t00=0x0022, t01=0x00da}
0x3632…3652 Head {h00=0x001c, h01=0x0050, text=» CF A5,SEND SEND REPEAT «, t00=0x0022, t01=0x011c}
0x3652…3664 Head {h00=0x000e, h01=0x0050, text=» ABL WRT15«, t00=0x0022, t01=0x013c}
0x3664…366e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x014e}
0x366e…36a4 Head {h00=0x0032, h01=0x0050, text=»TWOLF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO «, t00=0x0022, t01=0x0158}
0x36a4…36ce Head {h00=0x0026, h01=0x0050, text=» CF A5,BINARY CONV ASCII TO BINARY«, t00=0x0022, t01=0x018e}
0x36ce…36f0 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 INCR REQ LINE NO«, t00=0x0023, t01=0x0028}
0x36f0…370e Head {h00=0x001a, h01=0x0050, text=» RF TWO TWO LINE FEED «, t00=0x0023, t01=0x004a}
0x370e…3744 Head {h00=0x0032, h01=0x0050, text=»ONELF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO «, t00=0x0023, t01=0x0068}
0x3744…375a Head {h00=0x0012, h01=0x0050, text=» CF A5,BINARY «, t00=0x0023, t01=0x009e}
0x375a…3780 Head {h00=0x0022, h01=0x0050, text=»TWO SUK A3,1 INCR REQ LINE NO «, t00=0x0023, t01=0x00b4}
0x3780…3792 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0023, t01=0x00da}
0x3792…37bc Head {h00=0x0026, h01=0x0050, text=» CF A5,KONVER CONV BINARY TO ASCII«, t00=0x0023, t01=0x00ec}
0x37bc…37ee Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTDEV+DWTRLN,A6 STORE REQ LINE NO «, t00=0x0023, t01=0x0116}
0x37ee…3822 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED«, t00=0x0023, t01=0x0148}
0x3822…3864 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT «, t00=0x0023, t01=0x017c}
0x3864…3878 Head {h00=0x0010, h01=0x0050, text=» CF A5,SEND «, t00=0x0024, t01=0x002e}
0x3878…3898 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTDEV+DWTRLN,A6 «, t00=0x0024, t01=0x0042}
0x3898…38d4 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQUESTED LINE«, t00=0x0024, t01=0x0062}
0x38d4…38e6 Head {h00=0x000e, h01=0x0050, text=» RF WRT14 «, t00=0x0024, t01=0x009e}
0x38e6…38f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b0}
0x38f0…3926 Head {h00=0x0032, h01=0x0050, text=»* REPEAT WRITE REQUEST AT DOCUMENT STATION «, t00=0x0024, t01=0x00ba}
0x3926…3930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f0}
0x3930…394a Head {h00=0x0016, h01=0x0050, text=»REP1 CF A5,RESREC «, t00=0x0024, t01=0x00fa}
0x394a…3978 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x0024, t01=0x0114}
0x3978…3990 Head {h00=0x0014, h01=0x0050, text=» RB(Z) WRT09 YES«, t00=0x0024, t01=0x0142}
0x3990…39be Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR «, t00=0x0024, t01=0x015a}
0x39be…39e6 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) WRT15 JMP IF LF/FF DONE «, t00=0x0024, t01=0x0188}
0x39e6…39f8 Head {h00=0x000e, h01=0x0050, text=» RB WRT04 «, t00=0x0025, t01=0x0020}
0x39f8…3a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0032}
0x3a02…3a0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x003c}
0x3a0e…3a1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0048}
0x3a1c…3a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0056}
0x3a26…3a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0060}
0x3a30…3a60 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06: WRITE CONTINOUS STATIONARY«, t00=0x0025, t01=0x006a}
0x3a60…3a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009a}
0x3a6a…3a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a4}
0x3a74…3a88 Head {h00=0x0010, h01=0x0050, text=»WRTCON EQU *«, t00=0x0025, t01=0x00ae}
0x3a88…3ab0 Head {h00=0x0024, h01=0x0050, text=» CF A5,GTSTAT GET DEVICE STATUS «, t00=0x0025, t01=0x00c2}
0x3ab0…3aca Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/2000 * «, t00=0x0025, t01=0x00ea}
0x3aca…3aea Head {h00=0x001c, h01=0x0050, text=» TM A1,A3 END OF PAPER? «, t00=0x0025, t01=0x0104}
0x3aea…3b04 Head {h00=0x0016, h01=0x0050, text=» RF(Z) WRCO05 NO. «, t00=0x0025, t01=0x0124}
0x3b04…3b22 Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x0025, t01=0x013e}
0x3b22…3b48 Head {h00=0x0022, h01=0x0050, text=»WRCO05 LDK A3,1 NOT OPERABLE? «, t00=0x0025, t01=0x015c}
0x3b48…3b5a Head {h00=0x000e, h01=0x0050, text=» TM A1,A3 «, t00=0x0025, t01=0x0182}
0x3b5a…3b72 (38, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRCO10 NO«, t00=0x0026, t01=0x0004}
0x3b72…3b90 Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x0026, t01=0x001c}
0x3b90…3b98 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x003a}
0x3b98…3bbc Head {h00=0x0020, h01=0x0050, text=»WRCO10 LDK A2,/E BLOCK SIZE «, t00=0x0026, t01=0x0042}
0x3bbc…3be0 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0026, t01=0x0066}
0x3be0…3c04 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0026, t01=0x008a}
0x3c04…3c32 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CSSNV SELECT NATIONAL VERSION«, t00=0x0026, t01=0x00ae}
0x3c32…3c70 Head {h00=0x003a, h01=0x0050, text=» LDKL A3,DWTDEV+DWTPCS PRINTER CHAR. SET DISPLACEMENT «, t00=0x0026, t01=0x00dc}
0x3c70…3ca0 Head {h00=0x002c, h01=0x0050, text=» CF A5,SEND SEND SELECT NATIONAL VERSION«, t00=0x0026, t01=0x011a}
0x3ca0…3cc2 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0026, t01=0x014a}
0x3cc2…3ce6 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0026, t01=0x016c}
0x3ce6…3cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0190}
0x3cf0…3d22 Head {h00=0x002e, h01=0x0050, text=»* EXAMINE CONTROL CHARACTER, CONTINOUS «, t00=0x0027, t01=0x000a}
0x3d22…3d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003c}
0x3d2c…3d58 Head {h00=0x0028, h01=0x0050, text=» LDK A3,1 SET UP ECB BUFFER POINTER «, t00=0x0027, t01=0x0046}
0x3d58…3d84 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CONTROL CHARACTER«, t00=0x0027, t01=0x0072}
0x3d84…3dae Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 GET DEVICE STATUS«, t00=0x0027, t01=0x009e}
0x3dae…3dda Head {h00=0x0028, h01=0x0050, text=» ANKL A1,/20 HAS POWER OFF OCCURED ?«, t00=0x0027, t01=0x00c8}
0x3dda…3df2 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REP2 YES«, t00=0x0027, t01=0x00f4}
0x3df2…3dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x010c}
0x3dfc…3e2a Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x0027, t01=0x0116}
0x3e2a…3e42 Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRC03 YES«, t00=0x0027, t01=0x0144}
0x3e42…3e72 Head {h00=0x002c, h01=0x0050, text=»WRC04 LDR A4,A2 SAVE CONTROL CHAR. IN A4«, t00=0x0027, t01=0x015c}
0x3e72…3e8a Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x0027, t01=0x018c}
0x3e8a…3eaa Head {h00=0x001c, h01=0x0050, text=» ADK A2,/8 BLOCK LENGTH «, t00=0x0028, t01=0x0014}
0x3eaa…3ece Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0028, t01=0x0034}
0x3ece…3ef2 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0028, t01=0x0058}
0x3ef2…3f1e Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 RESTORE CONT. CHAR. IN A2«, t00=0x0028, t01=0x007c}
0x3f1e…3f54 Head {h00=0x0032, h01=0x0050, text=» CM DWTDEV+DWTCO1,A6 CLEAR PAPER COL. COUNTER «, t00=0x0028, t01=0x00a8}
0x3f54…3f82 Head {h00=0x002a, h01=0x0050, text=» SUK A2,5 PRINT AFTER TWO LINE FEED ? «, t00=0x0028, t01=0x00de}
0x3f82…3f9c Head {h00=0x0016, h01=0x0050, text=» RF(Z) TWOLF2 YES «, t00=0x0028, t01=0x010c}
0x3f9c…3fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0126}
0x3fa6…3fd0 Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 PRINT AFTER FORM FEED ? «, t00=0x0028, t01=0x0130}
0x3fd0…3fe8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FORMF YES«, t00=0x0028, t01=0x015a}
0x3fe8…3ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0172}
0x3ff2…4020 Head {h00=0x002a, h01=0x0050, text=» RF ONELF2 PRINT AFTER ONE LINE FEED !«, t00=0x0028, t01=0x017c}
0x4020…402a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x001a}
0x402a…405c Head {h00=0x002e, h01=0x0050, text=»* EXECUTE CONTROL CHARACTER, CONTINOUS «, t00=0x0029, t01=0x0024}
0x405c…4066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0056}
0x4066…409c Head {h00=0x0032, h01=0x0050, text=»WRC03 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN«, t00=0x0029, t01=0x0060}
0x409c…40ca Head {h00=0x002a, h01=0x0050, text=» RF(Z) WRC05 FOR CORRECT NO OF SPACES «, t00=0x0029, t01=0x0096}
0x40ca…40dc Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0029, t01=0x00c4}
0x40dc…410e Head {h00=0x002e, h01=0x0050, text=»WRC05 CF A5,KONVER CONVERT BINARY TO ASCII«, t00=0x0029, t01=0x00d6}
0x410e…4156 Head {h00=0x0044, h01=0x0050, text=» SC A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. CONTINOUS«, t00=0x0029, t01=0x0108}
0x4156…419a Head {h00=0x0040, h01=0x0050, text=» ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. CONT.«, t00=0x0029, t01=0x0150}
0x419a…41a4 (42, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0004}
0x41a4…41ca Head {h00=0x0022, h01=0x0050, text=»WRC07 LDK A2,/8C BLOCK LENGTH «, t00=0x002a, t01=0x000e}
0x41ca…41ee Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002a, t01=0x0034}
0x41ee…4212 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002a, t01=0x0058}
0x4212…4232 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTDEV+DWTCO1,A6 «, t00=0x002a, t01=0x007c}
0x4232…4262 Head {h00=0x002c, h01=0x0050, text=» RF(Z) WRT15 JMP IF NO PRECEIDING SPACES«, t00=0x002a, t01=0x009c}
0x4262…4280 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 SEND SPACE«, t00=0x002a, t01=0x00cc}
0x4280…4296 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002a, t01=0x00ea}
0x4296…42ba Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002a, t01=0x0100}
0x42ba…42d8 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,CSREP REPEAT «, t00=0x002a, t01=0x0124}
0x42d8…4318 Head {h00=0x003c, h01=0x0050, text=» LDKL A3,DWTDEV+DWTACP ACTUAL COLUMN PAPER DISPLACEMENT «, t00=0x002a, t01=0x0142}
0x4318…4338 Head {h00=0x001c, h01=0x0050, text=» CF A5,SEND SEND REPEAT «, t00=0x002a, t01=0x0182}
0x4338…434a Head {h00=0x000e, h01=0x0050, text=» RF WRT15 «, t00=0x002b, t01=0x0012}
0x434a…4354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0024}
0x4354…437c Head {h00=0x0024, h01=0x0050, text=»TWOLF2 LDK A2,LF SEND LINE FEED «, t00=0x002b, t01=0x002e}
0x437c…4392 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002b, t01=0x0056}
0x4392…43b6 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002b, t01=0x006c}
0x43b6…43de Head {h00=0x0024, h01=0x0050, text=»ONELF2 LDK A2,LF SEND LINE FEED «, t00=0x002b, t01=0x0090}
0x43de…43f4 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002b, t01=0x00b8}
0x43f4…4418 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002b, t01=0x00ce}
0x4418…442a Head {h00=0x000e, h01=0x0050, text=» RF WRT14 «, t00=0x002b, t01=0x00f2}
0x442a…4434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0104}
0x4434…445a Head {h00=0x0022, h01=0x0050, text=»FORMF LDK A2,FF SEND FORM FEED«, t00=0x002b, t01=0x010e}
0x445a…4470 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002b, t01=0x0134}
0x4470…4494 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002b, t01=0x014a}
0x4494…44a6 Head {h00=0x000e, h01=0x0050, text=» RF WRT14 «, t00=0x002b, t01=0x016e}
0x44a6…44b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0180}
0x44b0…44e6 Head {h00=0x0032, h01=0x0050, text=»* REPEAT WRITE REQUEST AT CONTINOUS STATION«, t00=0x002b, t01=0x018a}
0x44e6…44f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0030}
0x44f0…450a Head {h00=0x0016, h01=0x0050, text=»REP2 CF A5,RESREC «, t00=0x002c, t01=0x003a}
0x450a…4538 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x002c, t01=0x0054}
0x4538…4550 Head {h00=0x0014, h01=0x0050, text=» RB(Z) WRC07 YES«, t00=0x002c, t01=0x0082}
0x4550…457e Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR «, t00=0x002c, t01=0x009a}
0x457e…45a6 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) WRT15 JMP IF LF/FF DONE «, t00=0x002c, t01=0x00c8}
0x45a6…45b8 Head {h00=0x000e, h01=0x0050, text=» RB WRC04 «, t00=0x002c, t01=0x00f0}
0x45b8…45c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0102}
0x45c6…45d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0110}
0x45d0…4606 Head {h00=0x0032, h01=0x0050, text=»* ORDER 06 : THIS PART SENDS THE CHARACTERS«, t00=0x002c, t01=0x011a}
0x4606…4638 Head {h00=0x002e, h01=0x0050, text=»* TO DOCUMENT OR CONTINOUS STATIONARY. «, t00=0x002c, t01=0x0150}
0x4638…4642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0182}
0x4642…4678 Head {h00=0x0032, h01=0x0050, text=»WRT14 IM DWTDEV+DWTLFD,A6 SET LF/FF INDICATOR «, t00=0x002c, t01=0x018c}
0x4678…4682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0032}
0x4682…46b0 Head {h00=0x002a, h01=0x0050, text=»WRT15 LDK A3,2 SET ECB BUFFER POINTER «, t00=0x002d, t01=0x003c}
0x46b0…46da Head {h00=0x0026, h01=0x0050, text=»WRT16 CF A15,GETCHR GET CHARACTER «, t00=0x002d, t01=0x006a}
0x46da…46fe Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 BUFFER FINISHED ?«, t00=0x002d, t01=0x0094}
0x46fe…4716 Head {h00=0x0014, h01=0x0050, text=» RF(P) WRT20 NO «, t00=0x002d, t01=0x00b8}
0x4716…4748 Head {h00=0x002e, h01=0x0050, text=»WRT17 SUK A3,/02 ECB BUFFER POINTER = /02 «, t00=0x002d, t01=0x00d0}
0x4748…4762 Head {h00=0x0016, h01=0x0050, text=» RF(Z) WRT18 YES. «, t00=0x002d, t01=0x0102}
0x4762…478e Head {h00=0x0028, h01=0x0050, text=» LDK A2,CR NO. SEND CARRIAGE RETURN «, t00=0x002d, t01=0x011c}
0x478e…47a4 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002d, t01=0x0148}
0x47a4…47c8 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002d, t01=0x015e}
0x47c8…47f0 Head {h00=0x0024, h01=0x0050, text=»WRT18 CF A5,ENDBLK END OF BLOCK «, t00=0x002d, t01=0x0182}
0x47f0…4814 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002e, t01=0x001a}
0x4814…4834 Head {h00=0x001c, h01=0x0050, text=» CF A5,GTSTAT GET STATUS«, t00=0x002e, t01=0x003e}
0x4834…4852 Head {h00=0x001a, h01=0x0050, text=» RF ENDIO END REQUEST «, t00=0x002e, t01=0x005e}
0x4852…485c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x007c}
0x485c…4870 Head {h00=0x0010, h01=0x0050, text=»WRT20 EQU * «, t00=0x002e, t01=0x0086}
0x4870…4882 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002e, t01=0x009a}
0x4882…488c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ac}
0x488c…48d0 Head {h00=0x0040, h01=0x0050, text=»* EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER «, t00=0x002e, t01=0x00b6}
0x48d0…48da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fa}
0x48da…48e2 Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x0104}
0x48e2…4902 Head {h00=0x001c, h01=0x0050, text=» SUK A4,/20 CHAR < /20? «, t00=0x002e, t01=0x010c}
0x4902…492e Head {h00=0x0028, h01=0x0050, text=» RB(N) WRT16 YES GET A NEW CHARACTER«, t00=0x002e, t01=0x012c}
0x492e…494e Head {h00=0x001c, h01=0x0050, text=» SUK A4,/5F CHAR < /7F? «, t00=0x002e, t01=0x0158}
0x494e…4968 Head {h00=0x0016, h01=0x0050, text=» RF(N) WRT25 YES. «, t00=0x002e, t01=0x0178}
0x4968…498c (47, 0, 400) Head {h00=0x0020, h01=0x0050, text=» SUK A4,/2F NO. CHAR = /AE? «, t00=0x002f, t01=0x0004}
0x498c…49b8 Head {h00=0x0028, h01=0x0050, text=» RF(Z) WRT30 YES. CONVERT /AE TO /2E«, t00=0x002f, t01=0x0028}
0x49b8…49f0 Head {h00=0x0034, h01=0x0050, text=» LDK A4,/04 ILLEGAL CHARACTER SET BIT 13 IN R.C.«, t00=0x002f, t01=0x0054}
0x49f0…4a08 Head {h00=0x0014, h01=0x0050, text=» ORS A4,ECBRC,A8«, t00=0x002f, t01=0x008c}
0x4a08…4a1a Head {h00=0x000e, h01=0x0050, text=» RB WRT16 «, t00=0x002f, t01=0x00a4}
0x4a1a…4a32 Head {h00=0x0014, h01=0x0050, text=»WRT30 LDK A2,/2E«, t00=0x002f, t01=0x00b6}
0x4a32…4a4a Head {h00=0x0014, h01=0x0050, text=»WRT25 LDR A4,A1 «, t00=0x002f, t01=0x00ce}
0x4a4a…4a6e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x002f, t01=0x00e6}
0x4a6e…4a92 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002f, t01=0x010a}
0x4a92…4aba Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTOR+1,A6 GET DWT INDEX «, t00=0x002f, t01=0x012e}
0x4aba…4ad6 Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 DOCUMENT? «, t00=0x002f, t01=0x0156}
0x4ad6…4af0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) WRT40 YES «, t00=0x002f, t01=0x0172}
0x4af0…4b22 Head {h00=0x002e, h01=0x0050, text=» IM DWTDEV+DWTCO1,A6 INC.COLUMN COUNTER 1 «, t00=0x002f, t01=0x018c}
0x4b22…4b34 Head {h00=0x000e, h01=0x0050, text=» RB WRT16 «, t00=0x0030, t01=0x002e}
0x4b34…4b6a Head {h00=0x0032, h01=0x0050, text=»WRT40 IM DWTDEV+DWTCO2,A6 INC.COLUMN COUNTER 2«, t00=0x0030, t01=0x0040}
0x4b6a…4b7c Head {h00=0x000e, h01=0x0050, text=» RB WRT16 «, t00=0x0030, t01=0x0076}
0x4b7c…4b90 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0030, t01=0x0088}
0x4b90…4bc2 Head {h00=0x002e, h01=0x0050, text=» CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR«, t00=0x0030, t01=0x009c}
0x4bc2…4be2 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x0030, t01=0x00ce}
0x4be2…4bf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00ee}
0x4bf0…4c04 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0030, t01=0x00fc}
0x4c04…4c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0110}
0x4c0e…4c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x011a}
0x4c18…4c40 Head {h00=0x0024, h01=0x0050, text=»* ORDER 0B : POSITION DOCUMENT«, t00=0x0030, t01=0x0124}
0x4c40…4c74 Head {h00=0x0030, h01=0x0050, text=»* CONTROL WORD CONTAINS REQUESTED LINE NO «, t00=0x0030, t01=0x014c}
0x4c74…4c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0180}
0x4c7e…4c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018a}
0x4c88…4cae (49, 0, 400) Head {h00=0x0022, h01=0x0050, text=»POSDOC EQU * POSITION DOCUMENT«, t00=0x0031, t01=0x0004}
0x4cae…4cc4 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x0031, t01=0x002a}
0x4cc4…4cec Head {h00=0x0024, h01=0x0050, text=» CF A5,GTSTAT GET DEVICE STATUS «, t00=0x0031, t01=0x0040}
0x4cec…4d0c Head {h00=0x001c, h01=0x0050, text=» LDK A3,1 NOT OPERABLE «, t00=0x0031, t01=0x0068}
0x4d0c…4d20 Head {h00=0x0010, h01=0x0050, text=» TM A1,A3 * «, t00=0x0031, t01=0x0088}
0x4d20…4d3c Head {h00=0x0018, h01=0x0050, text=» RF(NZ) POS020 YES «, t00=0x0031, t01=0x009c}
0x4d3c…4d5c Head {h00=0x001c, h01=0x0050, text=» LDK A2,/E BLOCK LENGTH «, t00=0x0031, t01=0x00b8}
0x4d5c…4d80 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0031, t01=0x00d8}
0x4d80…4da4 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0031, t01=0x00fc}
0x4da4…4dd2 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CSSNV SELECT NATIONAL VERSION«, t00=0x0031, t01=0x0120}
0x4dd2…4e02 Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DWTDEV+DWTDCS DOCUMENT VERSION «, t00=0x0031, t01=0x014e}
0x4e02…4e1e Head {h00=0x0018, h01=0x0050, text=» CF A5,SEND SEND SNV«, t00=0x0031, t01=0x017e}
0x4e1e…4e40 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0032, t01=0x000a}
0x4e40…4e64 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0032, t01=0x002c}
0x4e64…4e8e Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBCW,A8 GET REQUESTED LINE«, t00=0x0032, t01=0x0050}
0x4e8e…4ea2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0032, t01=0x007a}
0x4ea2…4ecc Head {h00=0x0026, h01=0x0050, text=» RF(Z) POSERR ILLEGAL LINE NUMBER «, t00=0x0032, t01=0x008e}
0x4ecc…4ef4 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV+DWTDL,A6 MAX. LINE«, t00=0x0032, t01=0x00b8}
0x4ef4…4f22 Head {h00=0x002a, h01=0x0050, text=» CF A5,BINARY CONVERT ASCII TO BINARY «, t00=0x0032, t01=0x00e0}
0x4f22…4f48 Head {h00=0x0022, h01=0x0050, text=» CWR A4,A3 REQ. LINE>MAX. LINE«, t00=0x0032, t01=0x010e}
0x4f48…4f62 Head {h00=0x0016, h01=0x0050, text=» RF(G) POSERR YES «, t00=0x0032, t01=0x0134}
0x4f62…4f84 Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 CORRECT POSITION«, t00=0x0032, t01=0x014e}
0x4f84…4fa6 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 INVERT LINE NO.«, t00=0x0032, t01=0x0170}
0x4fa6…4fd2 (51, 0, 398) Head {h00=0x0028, h01=0x0050, text=» NGR A4,A4 GET PRINTER REQ. LINE NO.«, t00=0x0033, t01=0x0004}
0x4fd2…5000 Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BINARY TO ASCII «, t00=0x0033, t01=0x0030}
0x5000…5032 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE«, t00=0x0033, t01=0x005e}
0x5032…5062 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTDEV+DWTALN,A6 GET ACTUAL LINE «, t00=0x0033, t01=0x0090}
0x5062…5094 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) POS030 DOCUMENT ALREADY POSITIONED«, t00=0x0033, t01=0x00c0}
0x5094…50a8 Head {h00=0x0010, h01=0x0050, text=»POS005 EQU *«, t00=0x0033, t01=0x00f2}
0x50a8…50c8 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/6 BLOCK LENGTH «, t00=0x0033, t01=0x0106}
0x50c8…50ec Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0033, t01=0x0126}
0x50ec…5110 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0033, t01=0x014a}
0x5110…5138 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,CSINFF INPUT FRONT FEED«, t00=0x0033, t01=0x016e}
0x5138…517a Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT «, t00=0x0034, t01=0x0008}
0x517a…51a4 Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND INPUT FRONT FEED «, t00=0x0034, t01=0x004a}
0x51a4…51b8 Head {h00=0x0010, h01=0x0050, text=»POS010 EQU *«, t00=0x0034, t01=0x0074}
0x51b8…51da Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0034, t01=0x0088}
0x51da…51fe Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0034, t01=0x00aa}
0x51fe…521e Head {h00=0x001c, h01=0x0050, text=» CF A5,GTSTAT GET STATUS«, t00=0x0034, t01=0x00ce}
0x521e…5240 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 GET RETURN CODE«, t00=0x0034, t01=0x00ee}
0x5240…526c Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/2000 PAPER DOCUMENT OUT ? «, t00=0x0034, t01=0x0110}
0x526c…52a8 Head {h00=0x0038, h01=0x0050, text=» RB(NZ) POS005 YES WAIT FOR DOCUMENT TO BE INSERTED «, t00=0x0034, t01=0x013c}
0x52a8…52da Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTDEV+DWTRLN,A6 GET REQUESTED LINE«, t00=0x0034, t01=0x0178}
0x52da…5310 Head {h00=0x0032, h01=0x0050, text=» ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQ LINE«, t00=0x0035, t01=0x001a}
0x5310…532a Head {h00=0x0016, h01=0x0050, text=»POS020 ABL LENDIS «, t00=0x0035, t01=0x0050}
0x532a…533e Head {h00=0x0010, h01=0x0050, text=»POS030 EQU *«, t00=0x0035, t01=0x006a}
0x533e…535e Head {h00=0x001c, h01=0x0050, text=» LDK A2,/6 BLOCK LENGTH «, t00=0x0035, t01=0x007e}
0x535e…5382 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0035, t01=0x009e}
0x5382…53a6 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0035, t01=0x00c2}
0x53a6…53da Head {h00=0x0030, h01=0x0050, text=» LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED«, t00=0x0035, t01=0x00e6}
0x53da…541c Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT «, t00=0x0035, t01=0x011a}
0x541c…5452 Head {h00=0x0032, h01=0x0050, text=» CF A5,SEND SEND VERTICAL POSITION FRONT FEED «, t00=0x0035, t01=0x015c}
0x5452…5464 (54, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB POS010«, t00=0x0036, t01=0x0004}
0x5464…5470 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0016}
0x5470…5484 Head {h00=0x0010, h01=0x0050, text=»POSERR EQU *«, t00=0x0036, t01=0x0022}
0x5484…54b0 Head {h00=0x0028, h01=0x0050, text=» ABL LENDER REQ. ERROR, END REQUEST «, t00=0x0036, t01=0x0036}
0x54b0…54be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0062}
0x54be…54d2 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0036, t01=0x0070}
0x54d2…54dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0084}
0x54dc…54e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x008e}
0x54e6…5512 Head {h00=0x0028, h01=0x0050, text=»* ORDER 24 : SET DOCUMENT PARAMETERS«, t00=0x0036, t01=0x0098}
0x5512…551c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00c4}
0x551c…5526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00ce}
0x5526…554e Head {h00=0x0024, h01=0x0050, text=»DOCPAR EQU * DOCUMENT PARAMETERS«, t00=0x0036, t01=0x00d8}
0x554e…556a Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 CLEAR A1 «, t00=0x0036, t01=0x0100}
0x556a…5580 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x0036, t01=0x011c}
0x5580…55ac Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBCW,A8 GET NUMBER OF LINES «, t00=0x0036, t01=0x0132}
0x55ac…55c8 Head {h00=0x0018, h01=0x0050, text=» SRL A4,8 GET LINES «, t00=0x0036, t01=0x015e}
0x55c8…55f0 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DOC010 NO CHANGE OF LINES«, t00=0x0036, t01=0x017a}
0x55f0…5610 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/10 INDEX TO BIG«, t00=0x0037, t01=0x0012}
0x5610…562a Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x0037, t01=0x0032}
0x562a…5658 Head {h00=0x002a, h01=0x0050, text=» ADR A4,A4 ADJUST INDEX TO LINE TABLE «, t00=0x0037, t01=0x004c}
0x5658…568c Head {h00=0x0030, h01=0x0050, text=» LD A4,LINNUM,A4 GET LINE ACCORDING TO INDEX«, t00=0x0037, t01=0x007a}
0x568c…56c8 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT «, t00=0x0037, t01=0x00ae}
0x56c8…56dc Head {h00=0x0010, h01=0x0050, text=»DOC010 EQU *«, t00=0x0037, t01=0x00ea}
0x56dc…5714 Head {h00=0x0034, h01=0x0050, text=» LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION«, t00=0x0037, t01=0x00fe}
0x5714…5728 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0037, t01=0x0136}
0x5728…5762 Head {h00=0x0036, h01=0x0050, text=» RF(Z) DOC020 NO CHANGE OF NATIONAL CHARACTER SET «, t00=0x0037, t01=0x014a}
0x5762…5782 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/F INDEX TO BIG «, t00=0x0037, t01=0x0184}
0x5782…579c Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x0038, t01=0x0014}
0x579c…57c2 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A4 ADJUST TABLE INDEX «, t00=0x0038, t01=0x002e}
0x57c2…57fc Head {h00=0x0036, h01=0x0050, text=» LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX «, t00=0x0038, t01=0x0054}
0x57fc…583a Head {h00=0x003a, h01=0x0050, text=» ST A4,DWTDEV+DWTDCS,A6 SET CHARACTER SET FOR DOCUMENT«, t00=0x0038, t01=0x008e}
0x583a…584e Head {h00=0x0010, h01=0x0050, text=»DOC020 EQU *«, t00=0x0038, t01=0x00cc}
0x584e…586c Head {h00=0x001a, h01=0x0050, text=» RB ENDIO END REQUEST «, t00=0x0038, t01=0x00e0}
0x586c…5878 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00fe}
0x5878…5886 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x010a}
0x5886…5890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0118}
0x5890…589a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0122}
0x589a…58d4 Head {h00=0x0036, h01=0x0050, text=»* ORDER 24 : SET CONTINUOUS STATIONARY PARAMETERS «, t00=0x0038, t01=0x012c}
0x58d4…58de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0166}
0x58de…58e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0170}
0x58e8…5922 Head {h00=0x0036, h01=0x0050, text=»CSTPAR EQU * SET PARAMETERS CONTINUOUS STATIONARY «, t00=0x0038, t01=0x017a}
0x5922…593e Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 CLEAR A1 «, t00=0x0039, t01=0x0024}
0x593e…5954 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x0039, t01=0x0040}
0x5954…5984 Head {h00=0x002c, h01=0x0050, text=» LD A4,ECBCW,A8 GET NUMBER OF LINES CST.«, t00=0x0039, t01=0x0056}
0x5984…59a0 Head {h00=0x0018, h01=0x0050, text=» SRL A4,8 GET LINES «, t00=0x0039, t01=0x0086}
0x59a0…59c8 Head {h00=0x0024, h01=0x0050, text=» RF(Z) CST010 NO CHANGE OF LINES«, t00=0x0039, t01=0x00a2}
0x59c8…59e8 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/10 INDEX TO BIG«, t00=0x0039, t01=0x00ca}
0x59e8…5a02 Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x0039, t01=0x00ea}
0x5a02…5a30 Head {h00=0x002a, h01=0x0050, text=» ADR A4,A4 ADJUST INDEX TO LINE TABLE «, t00=0x0039, t01=0x0104}
0x5a30…5a66 Head {h00=0x0032, h01=0x0050, text=» LD A4,LINNUM,A4 GET LINES ACCORDING TO INDEX «, t00=0x0039, t01=0x0132}
0x5a66…5aa4 Head {h00=0x003a, h01=0x0050, text=» ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH FOR CONT.STAT. «, t00=0x0039, t01=0x0168}
0x5aa4…5ac4 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/A BLOCK LENGTH «, t00=0x003a, t01=0x0016}
0x5ac4…5ae8 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x003a, t01=0x0036}
0x5ae8…5b0c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003a, t01=0x005a}
0x5b0c…5b36 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,CSSLPL SELECT PAGELENGTH «, t00=0x003a, t01=0x007e}
0x5b36…5b70 Head {h00=0x0036, h01=0x0050, text=» LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. «, t00=0x003a, t01=0x00a8}
0x5b70…5b9a Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND SLECT PAGELENGTH «, t00=0x003a, t01=0x00e2}
0x5b9a…5bbc Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x003a, t01=0x010c}
0x5bbc…5be0 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003a, t01=0x012e}
0x5be0…5bf4 Head {h00=0x0010, h01=0x0050, text=»CST010 EQU *«, t00=0x003a, t01=0x0152}
0x5bf4…5c2c Head {h00=0x0034, h01=0x0050, text=» LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION«, t00=0x003a, t01=0x0166}
0x5c2c…5c40 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003b, t01=0x000e}
0x5c40…5c72 Head {h00=0x002e, h01=0x0050, text=» RF(Z) CST020 NO CHANGE OF NAT. CHAR. SET «, t00=0x003b, t01=0x0022}
0x5c72…5c92 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/F INDEX TO BIG «, t00=0x003b, t01=0x0054}
0x5c92…5cac Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x003b, t01=0x0074}
0x5cac…5ce0 Head {h00=0x0030, h01=0x0050, text=» ADR A4,A4 ADJUST INDEX TO NAT. CHAR. TABLE «, t00=0x003b, t01=0x008e}
0x5ce0…5d1a Head {h00=0x0036, h01=0x0050, text=» LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX «, t00=0x003b, t01=0x00c2}
0x5d1a…5d5c Head {h00=0x003e, h01=0x0050, text=» ST A4,DWTDEV+DWTPCS,A6 SET NAT. CHAR. SET FOR CONT.STAT. «, t00=0x003b, t01=0x00fc}
0x5d5c…5d70 Head {h00=0x0010, h01=0x0050, text=»CST020 EQU *«, t00=0x003b, t01=0x013e}
0x5d70…5d8e Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x003b, t01=0x0152}
0x5d8e…5d9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0170}
0x5d9c…5db0 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x003b, t01=0x017e}
0x5db0…5dba (60, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0004}
0x5dba…5dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x000e}
0x5dc4…5dea Head {h00=0x0022, h01=0x0050, text=»* ORDER 38 : RELEASE DOCUMENT «, t00=0x003c, t01=0x0018}
0x5dea…5df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x003e}
0x5df4…5dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0048}
0x5dfe…5e12 Head {h00=0x0010, h01=0x0050, text=»RELDOC EQU *«, t00=0x003c, t01=0x0052}
0x5e12…5e32 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x003c, t01=0x0066}
0x5e32…5e56 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x003c, t01=0x0086}
0x5e56…5e7a Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003c, t01=0x00aa}
0x5e7a…5e90 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x003c, t01=0x00ce}
0x5e90…5ec6 Head {h00=0x0032, h01=0x0050, text=» LDKL A2,CSEJFF CONTROL SEQ. EJECT FRONT FEED «, t00=0x003c, t01=0x00e4}
0x5ec6…5ee8 Head {h00=0x001e, h01=0x0050, text=» CF A5,SEND SEND SEQUENCE «, t00=0x003c, t01=0x011a}
0x5ee8…5f0a Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x003c, t01=0x013c}
0x5f0a…5f2e Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003c, t01=0x015e}
0x5f2e…5f5c Head {h00=0x002a, h01=0x0050, text=» CF A5,GTSTAT GET STATUS FROM PRINTER «, t00=0x003c, t01=0x0182}
0x5f5c…5f7e Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 GET RETURN CODE«, t00=0x003d, t01=0x0020}
0x5f7e…5fa4 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 DOCUMENT RELEASED «, t00=0x003d, t01=0x0042}
0x5fa4…5fca Head {h00=0x0022, h01=0x0050, text=» RB(NZ) RELDOC NO , TRY AGAIN «, t00=0x003d, t01=0x0068}
0x5fca…5fee Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/8000 REQUEST ERROR«, t00=0x003d, t01=0x008e}
0x5fee…601c Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE«, t00=0x003d, t01=0x00b2}
0x601c…604e Head {h00=0x002e, h01=0x0050, text=» CM DWTDEV+DWTRLN,A6 RESET REQUESTED LINE «, t00=0x003d, t01=0x00e0}
0x604e…606c Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x003d, t01=0x0112}
0x606c…6078 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0130}
0x6078…6086 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x013c}
0x6086…6090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x014a}
0x6090…609a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0154}
0x609a…60ac Head {h00=0x000e, h01=0x0050, text=»* R C T P«, t00=0x003d, t01=0x015e}
0x60ac…60b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0170}
0x60b6…60f4 Head {h00=0x003a, h01=0x0050, text=»* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON«, t00=0x003d, t01=0x017a}
0x60f4…60fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0028}
0x60fe…6108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0032}
0x6108…611a Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x003e, t01=0x003c}
0x611a…6148 Head {h00=0x002a, h01=0x0050, text=»RCTP07 LDKL A1,/7FFF SET DEVICE BUSY «, t00=0x003e, t01=0x004e}
0x6148…6166 Head {h00=0x001a, h01=0x0050, text=» ANS A1,DWTST,A6 BUSY «, t00=0x003e, t01=0x007c}
0x6166…6188 Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x003e, t01=0x009a}
0x6188…619a Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x003e, t01=0x00bc}
0x619a…61ba Head {h00=0x001c, h01=0x0050, text=» LDK A2,/F BLOCK LENGTH «, t00=0x003e, t01=0x00ce}
0x61ba…61de Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x003e, t01=0x00ee}
0x61de…6202 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003e, t01=0x0112}
0x6202…6230 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CSRIS RESET TO INITIAL STATE «, t00=0x003e, t01=0x0136}
0x6230…6260 Head {h00=0x002c, h01=0x0050, text=» CF A5,SEND SEND RESET TO INITIAL STATE «, t00=0x003e, t01=0x0164}
0x6260…629c (63, 0, 400) Head {h00=0x0038, h01=0x0050, text=» LD A1,DWTDEV+DWTSYST,A6 INTERN. SYSTEM START IND. «, t00=0x003f, t01=0x0004}
0x629c…62c2 Head {h00=0x0022, h01=0x0050, text=» RF(Z) RCTP10 NO SYSTEM START «, t00=0x003f, t01=0x0040}
0x62c2…62d0 Head {h00=0x000a, h01=0x0050, text=» * «, t00=0x003f, t01=0x0066}
0x62d0…630a Head {h00=0x0036, h01=0x0050, text=» CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR «, t00=0x003f, t01=0x0074}
0x630a…6318 Head {h00=0x000a, h01=0x0050, text=» * «, t00=0x003f, t01=0x00ae}
0x6318…634c Head {h00=0x0030, h01=0x0050, text=» LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET «, t00=0x003f, t01=0x00bc}
0x634c…637a Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BIANARY TO ASCII«, t00=0x003f, t01=0x00f0}
0x637a…63b0 Head {h00=0x0032, h01=0x0050, text=» ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT«, t00=0x003f, t01=0x011e}
0x63b0…63e8 Head {h00=0x0034, h01=0x0050, text=» ST A4,DWTDEV+DWTPCS,A6 SET CHAR. SET CONT.STAT.«, t00=0x003f, t01=0x0154}
0x63e8…6414 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,PAGLEN STANDARD PAGE LENGTH«, t00=0x003f, t01=0x018c}
0x6414…6442 Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BINARY TO ASCII «, t00=0x0040, t01=0x0028}
0x6442…647c Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH CONT.STAT. «, t00=0x0040, t01=0x0056}
0x647c…64a6 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,CSSLPL SELECT PAGELENGTH «, t00=0x0040, t01=0x0090}
0x64a6…64e0 Head {h00=0x0036, h01=0x0050, text=» LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. «, t00=0x0040, t01=0x00ba}
0x64e0…650a Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND SELECT PAGELENGTH«, t00=0x0040, t01=0x00f4}
0x650a…6544 Head {h00=0x0036, h01=0x0050, text=» LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT «, t00=0x0040, t01=0x011e}
0x6544…6572 Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BINARY TO ASCII «, t00=0x0040, t01=0x0158}
0x6572…65aa Head {h00=0x0034, h01=0x0050, text=» ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT «, t00=0x0040, t01=0x0186}
0x65aa…65be Head {h00=0x0010, h01=0x0050, text=»RCTP10 EQU *«, t00=0x0041, t01=0x002e}
0x65be…65e0 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0041, t01=0x0042}
0x65e0…6604 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0041, t01=0x0064}
0x6604…6632 Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE«, t00=0x0041, t01=0x0088}
0x6632…6662 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,/20 INDICATE POWER OFF OCCURED «, t00=0x0041, t01=0x00b6}
0x6662…667c Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTDEV,A6 «, t00=0x0041, t01=0x00e6}
0x667c…66a4 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTECB,A6 RUNNING REQUEST«, t00=0x0041, t01=0x0100}
0x66a4…66d4 Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) ACT005 YES , REPEAT THE REQUEST«, t00=0x0041, t01=0x0128}
0x66d4…66f0 Head {h00=0x0018, h01=0x0050, text=» ABL LENDIS DISPATCH«, t00=0x0041, t01=0x0158}
0x66f0…66fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0174}
0x66fe…6708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0182}
0x6708…6712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x018c}
0x6712…6722 Head {h00=0x000c, h01=0x0050, text=»* GTSTAT«, t00=0x0042, t01=0x0008}
0x6722…672c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0018}
0x672c…6736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0022}
0x6736…6778 Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE SENDS 'DEVICE STATUS REPORT TO THE PRINTER «, t00=0x0042, t01=0x002c}
0x6778…6782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x006e}
0x6782…67c0 Head {h00=0x003a, h01=0x0050, text=»* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER«, t00=0x0042, t01=0x0078}
0x67c0…67ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b6}
0x67ca…67ec Head {h00=0x001e, h01=0x0050, text=»* AT EXIT A1 = RETURN CODE«, t00=0x0042, t01=0x00c0}
0x67ec…67f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00e2}
0x67f6…6800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ec}
0x6800…6814 Head {h00=0x0010, h01=0x0050, text=»GTSTAT EQU *«, t00=0x0042, t01=0x00f6}
0x6814…6842 Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTRC,A6 RESET RETURN CODE «, t00=0x0042, t01=0x010a}
0x6842…6862 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x0042, t01=0x0138}
0x6862…6886 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0042, t01=0x0158}
0x6886…68aa Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0042, t01=0x017c}
0x68aa…68c6 Head {h00=0x0018, h01=0x0050, text=» LDK A2,ESC ESCAPE «, t00=0x0043, t01=0x0010}
0x68c6…68e4 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND ESC«, t00=0x0043, t01=0x002c}
0x68e4…6908 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0043, t01=0x004a}
0x6908…6938 Head {h00=0x002c, h01=0x0050, text=» LDK A2,CSI CONTROL SEQUENCE INTRODUCER «, t00=0x0043, t01=0x006e}
0x6938…6956 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND CSI«, t00=0x0043, t01=0x009e}
0x6956…697a Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0043, t01=0x00bc}
0x697a…698e Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0043, t01=0x00e0}
0x698e…69ac Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND /35«, t00=0x0043, t01=0x00f4}
0x69ac…69d0 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0043, t01=0x0112}
0x69d0…69f8 Head {h00=0x0024, h01=0x0050, text=» LDK A2,DSR DEVICE STATUS REPORT«, t00=0x0043, t01=0x0136}
0x69f8…6a16 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND DSR«, t00=0x0043, t01=0x015e}
0x6a16…6a3a Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0043, t01=0x017c}
0x6a3a…6a5c Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0044, t01=0x0010}
0x6a5c…6a80 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0044, t01=0x0032}
0x6a80…6aa6 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 SAVE DWT ADDRESS =1«, t00=0x0044, t01=0x0056}
0x6aa6…6ac8 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,DWTDEV+DWTTP =1 «, t00=0x0044, t01=0x007c}
0x6ac8…6ade Head {h00=0x0012, h01=0x0050, text=» ADR A4,A6 =1«, t00=0x0044, t01=0x009e}
0x6ade…6b02 Head {h00=0x0020, h01=0x0050, text=» CF A15,SETIMP SET TIMER =1 «, t00=0x0044, t01=0x00b4}
0x6b02…6b34 Head {h00=0x002e, h01=0x0050, text=» DATA ERGP00,TIME RETURN ADDR., TIMEOUT =1«, t00=0x0044, t01=0x00d8}
0x6b34…6b60 Head {h00=0x0028, h01=0x0050, text=»GTST05 LDKL A4,TAB GET TABLE ADDRESS«, t00=0x0044, t01=0x010a}
0x6b60…6b74 Head {h00=0x0010, h01=0x0050, text=»GTST10 EQU *«, t00=0x0044, t01=0x0136}
0x6b74…6b92 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 RESET INDEX «, t00=0x0044, t01=0x014a}
0x6b92…6bc0 Head {h00=0x002a, h01=0x0050, text=» CF A5,INPUT READ STATUS FROM PRINTER «, t00=0x0044, t01=0x0168}
0x6bc0…6be2 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FF GET CHARACTER «, t00=0x0045, t01=0x0008}
0x6be2…6c0a Head {h00=0x0024, h01=0x0050, text=» CCK A2,/5C5C STRING TERMINATOR «, t00=0x0045, t01=0x002a}
0x6c0a…6c24 Head {h00=0x0016, h01=0x0050, text=» RF(E) GTSEND YES «, t00=0x0045, t01=0x0052}
0x6c24…6c4c Head {h00=0x0024, h01=0x0050, text=» LCR A3,A4 GET MASK RETURN CODE «, t00=0x0045, t01=0x006c}
0x6c4c…6c5e Head {h00=0x000e, h01=0x0050, text=» ANR A2,A3«, t00=0x0045, t01=0x0094}
0x6c5e…6c8c Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 «, t00=0x0045, t01=0x00a6}
0x6c8c…6ca8 Head {h00=0x0018, h01=0x0050, text=» LC A3,1,A4 A3 TIMES«, t00=0x0045, t01=0x00d4}
0x6ca8…6cd0 Head {h00=0x0024, h01=0x0050, text=» EXR A3 EXECUT SHIFT INSTRUCTION«, t00=0x0045, t01=0x00f0}
0x6cd0…6d0c Head {h00=0x0038, h01=0x0050, text=» ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY«, t00=0x0045, t01=0x0118}
0x6d0c…6d2e Head {h00=0x001e, h01=0x0050, text=» ADK A4,2 INCREMENT ADRESS«, t00=0x0045, t01=0x0154}
0x6d2e…6d5a Head {h00=0x0028, h01=0x0050, text=» RB GTST10 GET NEXT STATUS CHARACTER«, t00=0x0045, t01=0x0176}
0x6d5a…6d6e Head {h00=0x0010, h01=0x0050, text=»GTSEND EQU *«, t00=0x0046, t01=0x0012}
0x6d6e…6d9c Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTRC,A6 GET RETURN CODE«, t00=0x0046, t01=0x0026}
0x6d9c…6dc0 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTDEV+DWTTP,A6 =1 «, t00=0x0046, t01=0x0054}
0x6dc0…6df0 Head {h00=0x002c, h01=0x0050, text=» RF(Z) GTST20 CHECK IF ALLREADY ZERO =1 «, t00=0x0046, t01=0x0078}
0x6df0…6e1c Head {h00=0x0028, h01=0x0050, text=» CM* DWTDEV+DWTTP,A6 RESET TIMER =1 «, t00=0x0046, t01=0x00a8}
0x6e1c…6e54 Head {h00=0x0034, h01=0x0050, text=»GTST20 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1«, t00=0x0046, t01=0x00d4}
0x6e54…6e64 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0046, t01=0x010c}
0x6e64…6e72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x011c}
0x6e72…6e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x012a}
0x6e7c…6eba Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE«, t00=0x0046, t01=0x0134}
0x6eba…6ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0172}
0x6ec4…6eda Head {h00=0x0012, h01=0x0050, text=»* REGISTERS : «, t00=0x0046, t01=0x017c}
0x6eda…6ef8 (71, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* A1= WORK REGISTER «, t00=0x0047, t01=0x0004}
0x6ef8…6f14 Head {h00=0x0018, h01=0x0050, text=»* A4= BINARY INPUT«, t00=0x0047, t01=0x0022}
0x6f14…6f34 Head {h00=0x001c, h01=0x0050, text=»* A2,A4= ASCII OUTPUT «, t00=0x0047, t01=0x003e}
0x6f34…6f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x005e}
0x6f3e…6f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0068}
0x6f48…6f5c Head {h00=0x0010, h01=0x0050, text=»KONVER EQU *«, t00=0x0047, t01=0x0072}
0x6f5c…6f74 Head {h00=0x0014, h01=0x0050, text=»* BINARY TO DEC.«, t00=0x0047, t01=0x0086}
0x6f74…6f8e Head {h00=0x0016, h01=0x0050, text=» LDK A2,0 CLEAR A2«, t00=0x0047, t01=0x009e}
0x6f8e…6fb0 Head {h00=0x001e, h01=0x0050, text=» CWK A4,100 VALUE > 100 ? «, t00=0x0047, t01=0x00b8}
0x6fb0…6fc8 Head {h00=0x0014, h01=0x0050, text=» RF(L) KONV05 NO«, t00=0x0047, t01=0x00da}
0x6fc8…6fdc Head {h00=0x0010, h01=0x0050, text=» SUKL A4,100«, t00=0x0047, t01=0x00f2}
0x6fdc…7006 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/100 LEFT BYTE OF A2=X=1 «, t00=0x0047, t01=0x0106}
0x7006…7034 Head {h00=0x002a, h01=0x0050, text=»KONV05 CWK A4,10 ARE THERE ANY TENS ? «, t00=0x0047, t01=0x0130}
0x7034…704c Head {h00=0x0014, h01=0x0050, text=» RF(L) KONV04 NO«, t00=0x0047, t01=0x015e}
0x704c…705e Head {h00=0x000e, h01=0x0050, text=» SUK A4,10«, t00=0x0047, t01=0x0176}
0x705e…7094 Head {h00=0x0032, h01=0x0050, text=» ADK A2,/1 NUMBER OF TENS IN RIGHT B. OF A2=Y «, t00=0x0047, t01=0x0188}
0x7094…70ac Head {h00=0x0014, h01=0x0050, text=» RB KONV05 NEXT «, t00=0x0048, t01=0x002e}
0x70ac…70d2 Head {h00=0x0022, h01=0x0050, text=»KONV04 ORKL A2,/3030 XY IN A2 «, t00=0x0048, t01=0x0046}
0x70d2…70ee Head {h00=0x0018, h01=0x0050, text=» ORK A4,/30 Z IN A4 «, t00=0x0048, t01=0x006c}
0x70ee…7108 Head {h00=0x0016, h01=0x0050, text=» SRC A2,8 YX IN A2«, t00=0x0048, t01=0x0088}
0x7108…711a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0048, t01=0x00a2}
0x711a…713e Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FF00 KEEP Y IN A1 «, t00=0x0048, t01=0x00b4}
0x713e…7170 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII«, t00=0x0048, t01=0x00d8}
0x7170…7192 Head {h00=0x001e, h01=0x0050, text=» ORR A4,A1 YZ IN A1. ASCII«, t00=0x0048, t01=0x010a}
0x7192…71a2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0048, t01=0x012c}
0x71a2…71b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x013c}
0x71b0…71ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x014a}
0x71ba…71d4 Head {h00=0x0016, h01=0x0050, text=»* RESET RECORVERY «, t00=0x0048, t01=0x0154}
0x71d4…71de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x016e}
0x71de…71f2 Head {h00=0x0010, h01=0x0050, text=»RESREC EQU *«, t00=0x0048, t01=0x0178}
0x71f2…7218 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTDEV,A6 DEVICE STATUS«, t00=0x0048, t01=0x018c}
0x7218…7236 Head {h00=0x001a, h01=0x0050, text=» ANKL A4,/20 RECOVERY?«, t00=0x0049, t01=0x0022}
0x7236…7250 Head {h00=0x0016, h01=0x0050, text=» RF(E) RESRTN NO. «, t00=0x0049, t01=0x0040}
0x7250…7282 Head {h00=0x002e, h01=0x0050, text=» XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT «, t00=0x0049, t01=0x005a}
0x7282…729e Head {h00=0x0018, h01=0x0050, text=»RESRTN RTN A5 RETURN«, t00=0x0049, t01=0x008c}
0x729e…72a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00a8}
0x72a8…72b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00b2}
0x72b2…72bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00bc}
0x72bc…72c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00c6}
0x72c6…7304 Head {h00=0x003a, h01=0x0050, text=»* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK AND TIMER«, t00=0x0049, t01=0x00d0}
0x7304…730e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x010e}
0x730e…7330 Head {h00=0x001e, h01=0x0050, text=»* INPUT : A1 = RETURN CODE«, t00=0x0049, t01=0x0118}
0x7330…733a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x013a}
0x733a…734e Head {h00=0x0010, h01=0x0050, text=»ERROUT EQU *«, t00=0x0049, t01=0x0144}
0x734e…7382 Head {h00=0x0030, h01=0x0050, text=» ANK A1,/1A OUTP. ERR, SOFTW T-OUT, LRC-ERR «, t00=0x0049, t01=0x0158}
0x7382…73a0 Head {h00=0x001a, h01=0x0050, text=» ABL(NZ) RCTP RECOVERY«, t00=0x0049, t01=0x018c}
0x73a0…73c4 Head {h00=0x0020, h01=0x0050, text=»ERGP10 LDK A1,1 IND. NOT OP.«, t00=0x004a, t01=0x001a}
0x73c4…73d8 Head {h00=0x0010, h01=0x0050, text=» ABL LENDIS «, t00=0x004a, t01=0x003e}
0x73d8…73e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0052}
0x73e2…73fa Head {h00=0x0014, h01=0x0050, text=»ERGP00 EQU * =1«, t00=0x004a, t01=0x005c}
0x73fa…7422 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A1 RESTORE DWTADDRESS =1«, t00=0x004a, t01=0x0074}
0x7422…7454 Head {h00=0x002e, h01=0x0050, text=» CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1«, t00=0x004a, t01=0x009c}
0x7454…7466 Head {h00=0x000e, h01=0x0050, text=» RB ERGP10«, t00=0x004a, t01=0x00ce}
0x7466…7474 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x00e0}
0x7474…747e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ee}
0x747e…7488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00f8}
0x7488…749a Head {h00=0x000e, h01=0x0050, text=»* S E N D «, t00=0x004a, t01=0x0102}
0x749a…74a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0114}
0x74a4…74d4 Head {h00=0x002c, h01=0x0050, text=»* THIS ROUTINE SENDS AN CONTROL SEQUENCE«, t00=0x004a, t01=0x011e}
0x74d4…74ec Head {h00=0x0014, h01=0x0050, text=»* TO THE PRINTER«, t00=0x004a, t01=0x014e}
0x74ec…74f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0166}
0x74f6…7500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0170}
0x7500…7514 Head {h00=0x0010, h01=0x0050, text=»* AT ENTRY :«, t00=0x004a, t01=0x017a}
0x7514…753a Head {h00=0x0022, h01=0x0050, text=»* A2 = CONTROL SEQUENCE ADRESS«, t00=0x004a, t01=0x018e}
0x753a…7572 Head {h00=0x0034, h01=0x0050, text=»* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC «, t00=0x004b, t01=0x0024}
0x7572…757c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x005c}
0x757c…7586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0066}
0x7586…759a Head {h00=0x0010, h01=0x0050, text=»* AT EXIT : «, t00=0x004b, t01=0x0070}
0x759a…75ba Head {h00=0x001c, h01=0x0050, text=»* A1,A2,A3 IS DESTROYED «, t00=0x004b, t01=0x0084}
0x75ba…75c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00a4}
0x75c4…75ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00ae}
0x75ce…75d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00b8}
0x75d8…7600 Head {h00=0x0024, h01=0x0050, text=»SEND EQU * SEND CONTROL SEQUENCE«, t00=0x004b, t01=0x00c2}
0x7600…7636 Head {h00=0x0032, h01=0x0050, text=» ST A3,DWTDEV+DWTDISP,A6 SAVE DWT-DISPLACEMENT«, t00=0x004b, t01=0x00ea}
0x7636…766e Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS «, t00=0x004b, t01=0x0120}
0x766e…7682 Head {h00=0x0010, h01=0x0050, text=»SEND10 EQU *«, t00=0x004b, t01=0x0158}
0x7682…76be Head {h00=0x0038, h01=0x0050, text=» LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS «, t00=0x004b, t01=0x016c}
0x76be…76de Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x004c, t01=0x0018}
0x76de…7700 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FF MAKE CHARACTER«, t00=0x004c, t01=0x0038}
0x7700…772a Head {h00=0x0026, h01=0x0050, text=» SLL A2,8 END OF CONTROL SEQUENCE «, t00=0x004c, t01=0x005a}
0x772a…774c Head {h00=0x001e, h01=0x0050, text=» RF(N) SENDEND YES,RETURN «, t00=0x004c, t01=0x0084}
0x774c…7776 Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3000 LINE NO,CHAR.SET,ETC«, t00=0x004c, t01=0x00a6}
0x7776…7790 Head {h00=0x0016, h01=0x0050, text=» RF(E) SEND30 YES «, t00=0x004c, t01=0x00d0}
0x7790…77bc Head {h00=0x0028, h01=0x0050, text=» SRL A2,8 PREPARE TO SEND CHARACTER «, t00=0x004c, t01=0x00ea}
0x77bc…77e0 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x004c, t01=0x0116}
0x77e0…7804 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x004c, t01=0x013a}
0x7804…7818 Head {h00=0x0010, h01=0x0050, text=»SEND20 EQU *«, t00=0x004c, t01=0x015e}
0x7818…7850 Head {h00=0x0034, h01=0x0050, text=» IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS«, t00=0x004c, t01=0x0172}
0x7850…786c Head {h00=0x0018, h01=0x0050, text=» RB SEND10 GET NEXT «, t00=0x004d, t01=0x001a}
0x786c…7880 Head {h00=0x0010, h01=0x0050, text=»SEND30 EQU *«, t00=0x004d, t01=0x0036}
0x7880…78b6 Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTDEV+DWTDISP,A6 GET DWT-DISPLACEMENT «, t00=0x004d, t01=0x004a}
0x78b6…78da Head {h00=0x0020, h01=0x0050, text=» ADR A3,A6 GET PROPER VALUE «, t00=0x004d, t01=0x0080}
0x78da…78fa Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x004d, t01=0x00a4}
0x78fa…791e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x004d, t01=0x00c4}
0x791e…7942 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x004d, t01=0x00e8}
0x7942…7978 Head {h00=0x0032, h01=0x0050, text=» IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS«, t00=0x004d, t01=0x010c}
0x7978…7994 Head {h00=0x0018, h01=0x0050, text=» RB SEND20 GET NEXT «, t00=0x004d, t01=0x0142}
0x7994…79aa Head {h00=0x0012, h01=0x0050, text=»SENDEND EQU * «, t00=0x004d, t01=0x015e}
0x79aa…79ba Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004d, t01=0x0174}
0x79ba…79c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0184}
0x79c8…79d2 (78, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0004}
0x79d2…79dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x000e}
0x79dc…79ec Head {h00=0x000c, h01=0x0050, text=»* BINARY«, t00=0x004e, t01=0x0018}
0x79ec…79f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0028}
0x79f6…7a32 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE CONVERTS ASCII CODE TO A BINARY VALUE«, t00=0x004e, t01=0x0032}
0x7a32…7a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x006e}
0x7a3c…7a50 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS:«, t00=0x004e, t01=0x0078}
0x7a50…7a6a Head {h00=0x0016, h01=0x0050, text=»* A1= ASCII INPUT «, t00=0x004e, t01=0x008c}
0x7a6a…7a86 Head {h00=0x0018, h01=0x0050, text=»* A2= WORK REGISTER «, t00=0x004e, t01=0x00a6}
0x7a86…7aa2 Head {h00=0x0018, h01=0x0050, text=»* A3= BINARY OUTPUT «, t00=0x004e, t01=0x00c2}
0x7aa2…7aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00de}
0x7aac…7ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e8}
0x7ab6…7ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00f2}
0x7ac0…7ae2 Head {h00=0x001e, h01=0x0050, text=»BINARY SUR A3,A3 CLEAR A3 «, t00=0x004e, t01=0x00fc}
0x7ae2…7b04 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 MAX. LINE ASCII«, t00=0x004e, t01=0x011e}
0x7b04…7b16 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x004e, t01=0x0140}
0x7b16…7b2a Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x004e, t01=0x0152}
0x7b2a…7b3c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x004e, t01=0x0166}
0x7b3c…7b4e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x004e, t01=0x0178}
0x7b4e…7b60 Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x004e, t01=0x018a}
0x7b60…7b72 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x004f, t01=0x000c}
0x7b72…7b84 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x004f, t01=0x001e}
0x7b84…7ba8 Head {h00=0x0020, h01=0x0050, text=» ADR A3,A1 MAX. LINE BINARY «, t00=0x004f, t01=0x0030}
0x7ba8…7bb8 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004f, t01=0x0054}
0x7bb8…7bc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0064}
0x7bc6…7bec Head {h00=0x0022, h01=0x0050, text=»LINNUM EQU *-2 NUMBER OF LINES«, t00=0x004f, t01=0x0072}
0x7bec…7c12 Head {h00=0x0022, h01=0x0050, text=» DATA /3132,/3135,/3138,/3234 «, t00=0x004f, t01=0x0098}
0x7c12…7c38 Head {h00=0x0022, h01=0x0050, text=» DATA /3235,/3330,/3333,/3335 «, t00=0x004f, t01=0x00be}
0x7c38…7c5e Head {h00=0x0022, h01=0x0050, text=» DATA /3336,/3438,/3530,/3531 «, t00=0x004f, t01=0x00e4}
0x7c5e…7c84 Head {h00=0x0022, h01=0x0050, text=» DATA /3630,/3636,/3730,/3732 «, t00=0x004f, t01=0x010a}
0x7c84…7c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0130}
0x7c8e…7c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x013a}
0x7c98…7ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0144}
0x7ca2…7cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x014e}
0x7cac…7ce6 Head {h00=0x0036, h01=0x0050, text=»NCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE «, t00=0x004f, t01=0x0158}
0x7ce6…7d0c (80, 2, 346) Head {h00=0x0022, h01=0x0050, text=» DATA /3031,/3032,/3033,/3034 «, t00=0x0050, t01=0x0004}
0x7d0c…7d32 Head {h00=0x0022, h01=0x0050, text=» DATA /3035,/3036,/3037,/3038 «, t00=0x0050, t01=0x002a}
0x7d32…7d58 Head {h00=0x0022, h01=0x0050, text=» DATA /3039,/3130,/3131,/3131 «, t00=0x0050, t01=0x0050}
0x7d58…7d78 Head {h00=0x001c, h01=0x0050, text=» DATA /3133,/3134,/3135 «, t00=0x0050, t01=0x0076}
0x7d78…7db4 Head {h00=0x0038, h01=0x0050, text=»TAB EQU * MASK TABLE FOR STATUS REPORT FROM PRINTER «, t00=0x0050, t01=0x0096}
0x7db4…7dd6 Head {h00=0x001e, h01=0x0050, text=» DATA /C0,/C0,/C0,/2CC * «, t00=0x0050, t01=0x00d2}
0x7dd6…7df8 Head {h00=0x001e, h01=0x0050, text=» DATA /2CF,/4CB,/C0,/C0 * «, t00=0x0050, t01=0x00f4}
0x7df8…7e16 Head {h00=0x001a, h01=0x0050, text=» DATA /C0,/C0,/C0,/C0 «, t00=0x0050, t01=0x0116}
0x7e16…7e2c Head {h00=0x0012, h01=0x0050, text=» DATA /C0,/C0 «, t00=0x0050, t01=0x0134}
0x7e2c…7e38 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0050, t01=0x014a}
0x7e38…7e3c Head {h00=0x4004, h01=0x0000}
0x7e3c…7e40 00 50 01 56 ┆ P V┆
0x7e40…7e48 (81, 2, 8) 40 04 00 00 00 51 00 04 ┆@ Q ┆
0x7e48…7e50 (82, 1, 8) 20 04 00 00 00 52 00 04 ┆ R ┆
0x7e50…7ea0 (83, 0, 400) 2c 49 4e 3a 57 45 31 2d 2f 38 30 5c 31 53 54 20 57 45 52 20 49 4e 53 54 52 55 43 54 49 4f 4e 20 00 12 01 88 00 06 00 50 2a 20 00 13 00 28 00 12 00 50 5c 45 4a 45 43 54 5c 5c 44 52 46 44 30 32 00 13 00 32 00 06 00 50 2a 20 00 13 00 48 00 06 ┆,IN:WE1-/80 1ST WER INSTRUCTION P* ( P EJECT DRFD02 2 P* H ┆
0x7ea0…7ef0 00 50 2a 20 00 13 00 52 00 14 00 50 5c 4c 44 52 5c 41 33 2c 41 37 5c 4f 52 44 45 52 00 13 00 5c 00 1e 00 50 5c 52 42 28 5a 29 5c 54 45 53 54 53 54 5c 54 45 53 54 20 53 54 41 54 55 53 20 00 13 00 74 00 10 00 50 5c 49 46 54 5c 54 4f 53 53 3d ┆ P* R P LDR A3,A7 ORDER P RB(Z) TESTST TEST STATUS t P IFT TOSS=┆
0x7ef0…7f40 31 20 00 13 00 96 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 30 00 13 00 aa 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 4f 52 3a 42 41 52 2d 4f 52 3a 54 45 53 20 00 13 00 bc 00 1a 00 50 5c 52 46 28 5a 29 5c 52 45 41 44 5c 42 41 53 49 43 20 52 45 41 44 ┆1 P IFT IBM=0 P SUK A3,OR:BAR-OR:TES P RF(Z) READ BASIC READ┆
0x7f40…7f90 00 13 00 da 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 4f 52 3a 42 41 57 2d 4f 52 3a 42 41 52 20 00 13 00 f8 00 1c 00 50 5c 52 46 28 5a 29 5c 57 52 49 54 45 5c 42 41 53 49 43 20 57 52 49 54 45 00 13 01 16 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 4f 52 ┆ P SUK A3,OR:BAW-OR:BAR P RF(Z) WRITE BASIC WRITE P SUK A3,OR┆
0x7f90…7fe0 3a 50 48 52 2d 4f 52 3a 42 41 57 20 00 13 01 36 00 1e 00 50 5c 52 46 28 5a 29 5c 52 45 41 44 5c 50 48 59 53 49 43 41 4c 20 52 45 41 44 20 00 13 01 54 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 4f 52 3a 50 48 57 2d 4f 52 3a 50 48 52 20 00 13 01 76 ┆:PHR-OR:BAW 6 P RF(Z) READ PHYSICAL READ T P SUK A3,OR:PHW-OR:PHR v┆
0x7fe0…8030 (84, 0, 400) 00 20 00 50 5c 52 46 28 5a 29 5c 57 52 49 54 45 5c 50 48 59 53 49 43 41 4c 20 57 52 49 54 45 20 00 14 00 04 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 4f 52 3a 46 4f 56 2d 4f 52 3a 50 48 57 20 00 14 00 28 00 20 00 50 5c 41 42 4c 28 5a 29 5c 46 4f ┆ P RF(Z) WRITE PHYSICAL WRITE P SUK A3,OR:FOV-OR:PHW ( P ABL(Z) FO┆
0x8030…8080 52 4d 41 54 5c 46 4f 52 4d 41 54 20 56 4f 4c 55 4d 45 00 14 00 46 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 4f 52 3a 44 44 57 2d 4f 52 3a 46 4f 56 20 00 14 00 6a 00 24 00 50 5c 52 46 28 5a 29 5c 44 44 57 52 49 54 5c 57 52 49 54 45 20 44 45 4c 45 ┆RMAT FORMAT VOLUME F P SUK A3,OR:DDW-OR:FOV j $ P RF(Z) DDWRIT WRITE DELE┆
0x8080…80d0 54 45 44 20 44 41 54 41 00 14 00 88 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 4f 52 3a 4c 43 4b 2d 4f 52 3a 44 44 57 20 00 14 00 b0 00 18 00 50 5c 41 42 4c 28 5a 29 5c 4c 4f 43 4b 44 4f 5c 4c 4f 43 4b 20 00 14 00 ce 00 1a 00 50 5c 53 55 4b 5c 41 ┆TED DATA P SUK A3,OR:LCK-OR:DDW P ABL(Z) LOCKDO LOCK P SUK A┆
0x80d0…8120 33 2c 4f 52 3a 4c 4f 44 2d 4f 52 3a 4c 43 4b 20 00 14 00 ea 00 16 00 50 5c 41 42 4c 28 5a 29 5c 4c 4f 41 44 5c 4c 4f 41 44 20 00 14 01 08 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 4f 52 3a 55 4c 44 2d 4f 52 3a 4c 4f 44 20 00 14 01 22 00 1a 00 50 ┆3,OR:LOD-OR:LCK P ABL(Z) LOAD LOAD P SUK A3,OR:ULD-OR:LOD " P┆
0x8120…8170 5c 41 42 4c 28 5a 29 5c 55 4e 4c 4f 41 44 5c 55 4e 4c 4f 43 4b 20 00 14 01 40 00 08 00 50 5c 58 49 46 00 14 01 5e 00 06 00 50 2a 20 00 14 01 6a 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 14 01 74 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 4f 52 ┆ ABL(Z) UNLOAD UNLOCK @ P XIF ^ P* j P IFT IBM=1 t P SUK A3,OR┆