|
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: 36118 (0x8d16)
Notes: pts_type(SC)
Names: »DRGP02.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PTMON/DRGP02.SC«
IDENT DRGP02 REL 11.0 83-12-28 870105041100 DK4, VARIABLE STATUS TIME-OUT DK3, NO RECOVERY FOR LP100(NORCVY) DK2, BASIC WRITE DK1 STR. TERM = /9C9C =1,TIME OUT IF INACTIVE, 25 SEC. PRR 11.0 80-11-19 * ******************************************************* * * * PHILIPS TERMINAL SYSTEM PTS * * * * DRGP02 = DRIVER GENERAL PRINTER * * * * * * * ******************************************************* * * THIS DRIVER HANDLES GENERAL PRINTER PTS 8081 * * THE DRIVER CONSISTS OF THE FOLLOWING PARTS : * * A C T P : ACTIVATION PART * * R C T P : RECOVERY ROUTINE * * EJECT * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00 : TEST STATUS * ORDER 06 : WRITE * ORDER 05 : BASIC WRITE DK2 * ORDER 0B : POSITION DOCUMENT * ORDER 24 : SET PRINTER PARAMETERS * ORDER 38 : RELEASE DOCUMENT * * THE FOLLOWING RETURN CODES ARE USED: * * BIT 0 : REQUEST ERROR * BIT 2 : END OF JOURNAL TAPE, DOCUMENT OUT * BIT 13 : CODE CHECK ERROR * BIT 15 : NOT OPERABLE * * * NORMAL REGISTER USAGE: * * REGISTER A1: WORK REGISTER * A2: INPUT/OUTPUT * A3: BUFFER POINTER * A4: WORK REGISTER * A5: STACK POINTER * A6: DWT-ADDRESS * A7: ORDER * A8: ECB-ADDRESS * * EJECT * * ******************************************* * * ENTRIES * ******************************************* * * ENTRY GPAD8 ADDRESS BLOCK * * * ******************************************* * * EXTERNALS * ******************************************* * * EXTRN LDISP DISPATCHING FROM INTERRUPT EXTRN LENDER DISPATCH I/O ERROR EXTRN LENDIS END I/O AND DISPATCH EXTRN OUTPUT OUTPUT ONE CHARACTER EXTRN GETCHR GET CHARACTER FROM ECB BUFFER EXTRN SETIMP SET TIMER =1 EXTRN DWTST DWT STATUS DISPLACEMENT EXTRN DWTECB DWT ECB DISPLACEMENT EXTRN DWTOR DWT ORDER DISPLACEMENT EXTRN DWTSB2 STACK BASE EXTRN INPUT STORE REG = GET STATUS INPUT CHAR EXTRN STABLK DEF START OF BLOCK EXTRN ENDBLK DEF END OF BLOCK EXTRN DWTDEV DEVICE STATUS EJECT * * ****************************************** * * CONSTANTS * ****************************************** * * SPEC EQU /2E SPECIAL CHARACTER LF EQU /0A LINE FEED FF EQU /0C FORM FEED CR EQU /0D CARRIAGE RETURN SO EQU /0E SHIFT OUT SI EQU /0F SHIFT IN ESC EQU /1B ESCAPE CSI EQU /5B CONTROL SEQUENCE INTRODUCER REP EQU /62 REPEAT VPR EQU /65 VERTICAL POSITION RELATIVE INFF EQU /74 INPUT FRONT FEED VPFF EQU /71 VERTICAL POSITION FRONT FEED EJFF EQU /38 EJECT FRONT FEED SNV EQU /77 SELECT NATIONAL VERSION SLPL EQU /76 SELECT PAGE LENGTH RIS EQU /63 RESET TO INITIAL STATE DSR EQU /6E DEVICE STATUS REPORT DCS EQU /50 DEVICE CONTROL STRING ST EQU /5C STRING TERMINATOR DEL EQU /7F DELETE ZERO EQU /30 ZERO NEG EQU /FF TIME EQU /FF 25 SEC TIMER =1 IMTIME EQU /20 2 SEC. TIMER DK4 EJECT * * ********************************************************* * * CONTROL SEQUENCES * ********************************************************* * * BYTE FORM 8,8 * * CSREP EQU * REPEAT BYTE ESC,CSI BYTE ZERO,ZERO BYTE ZERO,REP BYTE NEG,NEG CSVPR EQU * VERTICAL POSITION RELATIVE BYTE ESC,CSI BYTE ZERO,ZERO BYTE ZERO,VPR BYTE NEG,NEG CSINFF EQU * INPUT FRONT FEED BYTE ESC,CSI BYTE ZERO,ZERO BYTE INFF,NEG CSVPFF EQU * VERTICAL POSITION FRONT FEED BYTE ESC,CSI BYTE ZERO,ZERO BYTE VPFF,NEG CSEJFF EQU * EJECT FRONT FEED BYTE ESC,EJFF BYTE NEG,NEG EJECT CSSNV EQU * SELECT NATIONAL VERSION BYTE ESC,CSI BYTE ZERO,ZERO BYTE SNV,NEG CSSLPL EQU * SELECT PAGELENGTH BYTE ESC,CSI BYTE ZERO,ZERO BYTE SLPL,NEG * BYTE NEG,NEG CSRIS EQU * RESET TO INITIAL STATE BYTE ESC,RIS BYTE NEG,NEG CSDSR EQU * DEVICE STATUS REPORT BYTE ESC,CSI BYTE /35,DSR BYTE NEG,NEG EJECT * * ******************************************************* * * CONDITIONAL ASSEMBLY * ******************************************************* * * * * THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN * BY SETTING X:A TO 1-15 ACCORDING TO THE LIST BELOW * * * NCV=1 GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA =5 ITALY,SWITZERLAND =6 SWEDEN,FINLAND =7 DENMARK,NORWAY =8 PORTUGAL,BRAZIL =9 YUGOSLAVIA =10 USA,CANADA,AUSTRALIA =11 SWEDEN (SPECIAL VERSION) =13 GREEK =14 JAPAN (KATAKANA VERSION) =15 ISRAEL (HEBREW VERSION) * * X:A EQU 02 GREAT BRITAIN AS STANDARD STDNCV EQU 07 EJECT * * * THE FRONT FEED DEVICE CAN BE EXCLUDED * BY SETTING X:B = 0 * * X:B EQU 1 FFDEV EQU 0 FRONT FEED DEVICE * * * * THE STANDARD PAGELENGTH IS DEFINED * BY SETTING X:C = NUMBER OF LINES * * X:C EQU 48 PAGLEN EQU 48 * * * THE STANDARD NUMBER OF LINES IS DEFINED * BY SETTING X:D = NUMBER OF LINES * * X:D EQU 36 * DOCLEN EQU 48 EJECT * * * * MMU BUFFER SIZE * * X:E EQU 132 DVBLEN EQU 256 * * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1 * * MMUPAG EQU 1 * * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0 * * CPU852 EQU 0 * * * A PROGRAM VERSION WITHOUT RECOVERY IS OBTAINED * BY SETTING NORCVY = 1 * NORCVY 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,/0505 DK2 TPLEN EQU *-TPTAB EJECT * * * A C T P * * THIS IS THE ACTIVATION PART OF THE DRIVER * CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR * * * ACTP EQU * ACTIVATION ENTRY * * * GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT * LC A2,DWTOR,A6 GET DWT INDEX ANK A2,1 MASK LC A3,DWTDEV+1,A6 GET OLD DEVICE VALUE ANK A3,/FE ORR A3,A2 SC A3,DWTDEV+1,A6 STORE INDEX CWK A7,/05 ORDER 5? DK2 RF(E) ACT003 YES DK2 ADR A7,A2 ADD DWT INDEX TO ORDER ACT003 EQU * DK2 SC A7,DWTOR+1,A6 STORE MODIFIED ORDER ACT005 LDK A3,TPLEN-1 ACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER RF(E) ACT020 VALID ORDER SUK A3,1 RB(NN) ACT010 TRY NEXT * ABL LENDER ILLEGAL ORDER * * ACT020 EQU * ADR A3,A3 GET INDEX ABI TPFUC,A3 EXECUTE ORDER EJECT TPFUC EQU * IFT FFDEV=1 DATA TSTSTA,WRTDOC,POSDOC,DOCPAR,RELDOC,RELDOC XIF DATA TSTSTA,WRTCON,CSTPAR,CSTPAR,BASWRT,BASWRT DK2 EJECT * * * ORDER 00 : TEST STATUS * * TSTSTA EQU * TEST STATUS CF A5,RESREC CF A5,GTSTAT GET STATUS IMMEDIATELY DK4 ABL LENDIS END REQUEST * * * ORDER 05 : BASIC WRITE * * BASWRT EQU * LDK A3,0 BAS10 EQU * LDK A4,/90 TEST FOR END OF BLOCK LDR A2,A4 BLOCK LENGTH CF A5,STABLK START OF BLOCK ABL(NZ) ERROUT QUIT IF ERROR BAS15 EQU * CF A15,GETCHR GET A CHARACTER LDR A1,A1 FINISHED? RF(Z) BAS25 YES CF A5,OUTPUT NO, SEND IT ABL(NZ) ERROUT QUIT IF ERROR SUK A4,1 END OF BLOCK? RF(Z) BAS20 YES RB BAS15 NO, GET ANOTHER CHAR. BAS20 EQU * CF A5,ENDBLK FINISH IT. ABL(NZ) ERROUT QUIT IF ERROR RB BAS10 GET NEXT BLOCK BAS25 EQU * CF A5,ENDBLK ABL(NZ) ERROUT QUIT IF ERROR CF A5,GTSTAT TEST STATUS + END REQUEST DK4 ABL LENDIS 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 IFT NORCVY=1 RF RCTP20 DON'T CHANGE PARAMETERS DK3 XIF 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 RCTP20 EQU * 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 LC A2,DWTOR+1,A6 TEST STATUS ORDER? DK4 ANK A2,/FF RF(NZ) GTST02 NO, 25 SEC. TIMER DK4 LDK A2,IMTIME IMMEDIATE = 2 SECONDS DK4 ST A2,VARTIM GTST02 EQU * CF A15,SETIMP SET TIMER =1 DATA ERGP00,TIME RETURN ADDR., TIMEOUT =1 VARTIM EQU *-2 VARIABLE TIME VALUE DK4 LDK A2,TIME RESTORE 25 SEC. TIMER DK4 ST A2,VARTIM . DK4 GTST05 LDKL A4,TAB GET TABLE ADDRESS GTST10 EQU * LDK A3,0 RESET INDEX CF A5,INPUT READ STATUS FROM PRINTER ANK A2,/FF GET CHARACTER CCK A2,/9C9C STRING TERMINATOR RF(E) GTSEND YES LCR A3,A4 GET MASK RETURN CODE ANR A2,A3 LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 LC A3,1,A4 A3 TIMES EXR A3 EXECUT SHIFT INSTRUCTION ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY ADK A4,2 INCREMENT ADRESS RB GTST10 GET NEXT STATUS CHARACTER GTSEND EQU * LD A1,DWTDEV+DWTRC,A6 GET RETURN CODE LD A2,DWTDEV+DWTTP,A6 =1 RF(Z) GTST20 CHECK IF ALLREADY ZERO =1 CM* DWTDEV+DWTTP,A6 RESET TIMER =1 GTST20 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 RTN A5 EJECT * * THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE * * REGISTERS : * A1= WORK REGISTER * A4= BINARY INPUT * A2,A4= ASCII OUTPUT * * KONVER EQU * * BINARY TO DEC. LDK A2,0 CLEAR A2 CWK A4,100 VALUE > 100 ? RF(L) KONV05 NO SUKL A4,100 LDKL A2,/100 LEFT BYTE OF A2=X=1 KONV05 CWK A4,10 ARE THERE ANY TENS ? RF(L) KONV04 NO SUK A4,10 ADK A2,/1 NUMBER OF TENS IN RIGHT B. OF A2=Y RB KONV05 NEXT KONV04 ORKL A2,/3030 XY IN A2 ORK A4,/30 Z IN A4 SRC A2,8 YX IN A2 LDR A1,A2 ANKL A1,/FF00 KEEP Y IN A1 ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII ORR A4,A1 YZ IN A1. ASCII RTN A5 EJECT * * RESET RECORVERY * RESREC EQU * LD A4,DWTDEV,A6 DEVICE STATUS ANKL A4,/20 RECOVERY? RF(E) RESRTN NO. XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT RESRTN RTN A5 RETURN * * * * * ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK AND TIMER * * INPUT : A1 = RETURN CODE * ERROUT EQU * ANK A1,/1A OUTP. ERR, SOFTW T-OUT, LRC-ERR ABL(NZ) RCTP RECOVERY ERGP10 LDK A1,1 IND. NOT OP. ABL LENDIS * ERGP00 EQU * =1 LDR A6,A1 RESTORE DWTADDRESS =1 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 RB ERGP10 EJECT * * * S E N D * * THIS ROUTINE SENDS AN CONTROL SEQUENCE * TO THE PRINTER * * * AT ENTRY : * A2 = CONTROL SEQUENCE ADRESS * A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC * * * AT EXIT : * A1,A2,A3 IS DESTROYED * * * SEND EQU * SEND CONTROL SEQUENCE ST A3,DWTDEV+DWTDISP,A6 SAVE DWT-DISPLACEMENT ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS SEND10 EQU * LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS LCR A2,A3 GET CHARACTER ANK A2,/FF MAKE CHARACTER SLL A2,8 END OF CONTROL SEQUENCE RF(N) SENDEND YES,RETURN CWK A2,/3000 LINE NO,CHAR.SET,ETC RF(E) SEND30 YES SRL A2,8 PREPARE TO SEND CHARACTER CF A5,OUTPUT SEND CHARACTER ABL(NZ) ERROUT JMP IF ERROR SEND20 EQU * IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS RB SEND10 GET NEXT SEND30 EQU * LD A3,DWTDEV+DWTDISP,A6 GET DWT-DISPLACEMENT ADR A3,A6 GET PROPER VALUE LCR A2,A3 GET CHARACTER CF A5,OUTPUT SEND CHARACTER ABL(NZ) ERROUT JMP IF ERROR IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS RB SEND20 GET NEXT SENDEND EQU * RTN A5 EJECT * * * BINARY * * THIS ROUTINE CONVERTS ASCII CODE TO A BINARY VALUE * * REGISTERS: * A1= ASCII INPUT * A2= WORK REGISTER * A3= BINARY OUTPUT * * * BINARY SUR A3,A3 CLEAR A3 LDR A2,A1 MAX. LINE ASCII SRL A2,8 SUK A2,/30 ADR A3,A2 ADR A3,A2 SLL A2,3 ADR A3,A2 ANK A1,/F ADR A3,A1 MAX. LINE BINARY RTN A5 EJECT LINNUM EQU *-2 NUMBER OF LINES DATA /3132,/3135,/3138,/3234 DATA /3235,/3330,/3333,/3335 DATA /3336,/3438,/3530,/3531 DATA /3630,/3636,/3730,/3732 * * * * NCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE DATA /3031,/3032,/3033,/3034 DATA /3035,/3036,/3037,/3038 DATA /3039,/3130,/3131,/3131 DATA /3133,/3134,/3135 TAB EQU * MASK TABLE FOR STATUS REPORT FROM PRINTER DATA /C0,/C0,/C0,/2CC * DATA /2CF,/4CB,/C0,/C0 * DATA /C0,/C0,/C0,/C0 DATA /C0,/C0 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRGP02 REL 11.0 83-12-28 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0066 Head {h00=0x0024, h01=0x0050, text=» DK4, VARIABLE STATUS TIME-OUT«, t00=0x0000, t01=0x0042}
0x0066…0094 Head {h00=0x002a, h01=0x0050, text=» DK3, NO RECOVERY FOR LP100(NORCVY) «, t00=0x0000, t01=0x006a}
0x0094…00b0 Head {h00=0x0018, h01=0x0050, text=» DK2, BASIC WRITE «, t00=0x0000, t01=0x0098}
0x00b0…00d0 Head {h00=0x001c, h01=0x0050, text=» DK1 STR. TERM = /9C9C«, t00=0x0000, t01=0x00b4}
0x00d0…00fc Head {h00=0x0028, h01=0x0050, text=» =1,TIME OUT IF INACTIVE, 25 SEC. «, t00=0x0000, t01=0x00d4}
0x00fc…0118 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-11-19«, t00=0x0000, t01=0x0100}
0x0118…0122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…0162 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0126}
0x0162…01a2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0166}
0x01a2…01e2 Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0001, t01=0x0016}
0x01e2…0222 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0056}
0x0222…025a Head {h00=0x0034, h01=0x0050, text=»* DRGP02 = DRIVER GENERAL PRINTER * «, t00=0x0001, t01=0x0096}
0x025a…029a Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x00ce}
0x029a…02da Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x010e}
0x02da…031a Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x014e}
0x031a…035a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x018e}
0x035a…0364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003e}
0x0364…039c Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER HANDLES GENERAL PRINTER PTS 8081«, t00=0x0002, t01=0x0048}
0x039c…03a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0080}
0x03a6…03de Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS :«, t00=0x0002, t01=0x008a}
0x03de…03e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c2}
0x03e8…0410 Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0002, t01=0x00cc}
0x0410…041a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f4}
0x041a…0442 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0002, t01=0x00fe}
0x0442…044c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0126}
0x044c…0456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0130}
0x0456…0464 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x013a}
0x0464…046e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x046e…049c Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x0152}
0x049c…04a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0180}
0x04a6…04ce Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0002, t01=0x018a}
0x04ce…04f0 Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0003, t01=0x0022}
0x04f0…0514 Head {h00=0x0020, h01=0x0050, text=»* ORDER 05 : BASIC WRITE DK2«, t00=0x0003, t01=0x0044}
0x0514…0542 Head {h00=0x002a, h01=0x0050, text=»* ORDER 0B : POSITION DOCUMENT «, t00=0x0003, t01=0x0068}
0x0542…0574 Head {h00=0x002e, h01=0x0050, text=»* ORDER 24 : SET PRINTER PARAMETERS«, t00=0x0003, t01=0x0096}
0x0574…05a0 Head {h00=0x0028, h01=0x0050, text=»* ORDER 38 : RELEASE DOCUMENT«, t00=0x0003, t01=0x00c8}
0x05a0…05aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f4}
0x05aa…05da Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0003, t01=0x00fe}
0x05da…05e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e4…060e Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0003, t01=0x0138}
0x060e…064c Head {h00=0x003a, h01=0x0050, text=»* BIT 2 : END OF JOURNAL TAPE, DOCUMENT OUT «, t00=0x0003, t01=0x0162}
0x064c…0678 Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0004, t01=0x0010}
0x0678…06a0 Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0004, t01=0x003c}
0x06a0…06aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0064}
0x06aa…06b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006e}
0x06b4…06d6 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0004, t01=0x0078}
0x06d6…06e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009a}
0x06e0…0706 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0004, t01=0x00a4}
0x0706…072c Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0004, t01=0x00ca}
0x072c…0754 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0004, t01=0x00f0}
0x0754…077a Head {h00=0x0022, h01=0x0050, text=»* A4: WORK REGISTER«, t00=0x0004, t01=0x0118}
0x077a…07a0 Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0004, t01=0x013e}
0x07a0…07c4 Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0004, t01=0x0164}
0x07c4…07e2 Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0004, t01=0x0188}
0x07e2…0806 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0005, t01=0x0016}
0x0806…0810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003a}
0x0810…081a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0044}
0x081a…0828 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x004e}
0x0828…0832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005c}
0x0832…083c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0066}
0x083c…0870 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x0070}
0x0870…087a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a4}
0x087a…088c Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0005, t01=0x00ae}
0x088c…0896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c0}
0x0896…08ca Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x00ca}
0x08ca…08d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fe}
0x08d4…08de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0108}
0x08de…0900 Head {h00=0x001e, h01=0x0050, text=» ENTRY GPAD8 ADDRESS BLOCK«, t00=0x0005, t01=0x0112}
0x0900…090a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0134}
0x090a…0914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013e}
0x0914…091e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0148}
0x091e…0952 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0005, t01=0x0152}
0x0952…095c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0186}
0x095c…0970 Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0005, t01=0x0190}
0x0970…097a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0014}
0x097a…09ae Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0006, t01=0x001e}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0052}
0x09b8…09c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x005c}
0x09c2…09f2 Head {h00=0x002c, h01=0x0050, text=» EXTRN LDISP DISPATCHING FROM INTERRUPT «, t00=0x0006, t01=0x0066}
0x09f2…0a1a Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER DISPATCH I/O ERROR«, t00=0x0006, t01=0x0096}
0x0a1a…0a44 Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDIS END I/O AND DISPATCH«, t00=0x0006, t01=0x00be}
0x0a44…0a6e Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0006, t01=0x00e8}
0x0a6e…0aa2 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB BUFFER «, t00=0x0006, t01=0x0112}
0x0aa2…0ac4 Head {h00=0x001e, h01=0x0050, text=» EXTRN SETIMP SET TIMER =1«, t00=0x0006, t01=0x0146}
0x0ac4…0af0 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTST DWT STATUS DISPLACEMENT«, t00=0x0006, t01=0x0168}
0x0af0…0b1a (7, 0, 400) Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTECB DWT ECB DISPLACEMENT«, t00=0x0007, t01=0x0004}
0x0b1a…0b46 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTOR DWT ORDER DISPLACEMENT «, t00=0x0007, t01=0x002e}
0x0b46…0b66 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0007, t01=0x005a}
0x0b66…0b9c Head {h00=0x0032, h01=0x0050, text=» EXTRN INPUT STORE REG = GET STATUS INPUT CHAR«, t00=0x0007, t01=0x007a}
0x0b9c…0bc4 Head {h00=0x0024, h01=0x0050, text=» EXTRN STABLK DEF START OF BLOCK«, t00=0x0007, t01=0x00b0}
0x0bc4…0bea Head {h00=0x0022, h01=0x0050, text=» EXTRN ENDBLK DEF END OF BLOCK«, t00=0x0007, t01=0x00d8}
0x0bea…0c0e Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS «, t00=0x0007, t01=0x00fe}
0x0c0e…0c20 Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x0007, t01=0x0122}
0x0c20…0c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c2a…0c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c34…0c66 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0007, t01=0x0148}
0x0c66…0c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017a}
0x0c70…0c84 Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS «, t00=0x0007, t01=0x0184}
0x0c84…0c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0008}
0x0c8e…0cc0 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0008, t01=0x0012}
0x0cc0…0cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0044}
0x0cca…0cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cd4…0cfa Head {h00=0x0022, h01=0x0050, text=»SPEC EQU /2E SPECIAL CHARACTER«, t00=0x0008, t01=0x0058}
0x0cfa…0d16 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x0008, t01=0x007e}
0x0d16…0d32 Head {h00=0x0018, h01=0x0050, text=»FF EQU /0C FORM FEED«, t00=0x0008, t01=0x009a}
0x0d32…0d54 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x0008, t01=0x00b6}
0x0d54…0d70 Head {h00=0x0018, h01=0x0050, text=»SO EQU /0E SHIFT OUT«, t00=0x0008, t01=0x00d8}
0x0d70…0d8c Head {h00=0x0018, h01=0x0050, text=»SI EQU /0F SHIFT IN «, t00=0x0008, t01=0x00f4}
0x0d8c…0da6 Head {h00=0x0016, h01=0x0050, text=»ESC EQU /1B ESCAPE«, t00=0x0008, t01=0x0110}
0x0da6…0dd6 Head {h00=0x002c, h01=0x0050, text=»CSI EQU /5B CONTROL SEQUENCE INTRODUCER «, t00=0x0008, t01=0x012a}
0x0dd6…0df0 Head {h00=0x0016, h01=0x0050, text=»REP EQU /62 REPEAT«, t00=0x0008, t01=0x015a}
0x0df0…0e1e Head {h00=0x002a, h01=0x0050, text=»VPR EQU /65 VERTICAL POSITION RELATIVE«, t00=0x0008, t01=0x0174}
0x0e1e…0e44 Head {h00=0x0022, h01=0x0050, text=»INFF EQU /74 INPUT FRONT FEED «, t00=0x0009, t01=0x0012}
0x0e44…0e76 Head {h00=0x002e, h01=0x0050, text=»VPFF EQU /71 VERTICAL POSITION FRONT FEED «, t00=0x0009, t01=0x0038}
0x0e76…0e9c Head {h00=0x0022, h01=0x0050, text=»EJFF EQU /38 EJECT FRONT FEED «, t00=0x0009, t01=0x006a}
0x0e9c…0ec8 Head {h00=0x0028, h01=0x0050, text=»SNV EQU /77 SELECT NATIONAL VERSION «, t00=0x0009, t01=0x0090}
0x0ec8…0ef0 Head {h00=0x0024, h01=0x0050, text=»SLPL EQU /76 SELECT PAGE LENGTH «, t00=0x0009, t01=0x00bc}
0x0ef0…0f1a Head {h00=0x0026, h01=0x0050, text=»RIS EQU /63 RESET TO INITIAL STATE«, t00=0x0009, t01=0x00e4}
0x0f1a…0f42 Head {h00=0x0024, h01=0x0050, text=»DSR EQU /6E DEVICE STATUS REPORT«, t00=0x0009, t01=0x010e}
0x0f42…0f6c Head {h00=0x0026, h01=0x0050, text=»DCS EQU /50 DEVICE CONTROL STRING «, t00=0x0009, t01=0x0136}
0x0f6c…0f90 Head {h00=0x0020, h01=0x0050, text=»ST EQU /5C STRING TERMINATOR«, t00=0x0009, t01=0x0160}
0x0f90…0faa Head {h00=0x0016, h01=0x0050, text=»DEL EQU /7F DELETE«, t00=0x0009, t01=0x0184}
0x0faa…0fc4 Head {h00=0x0016, h01=0x0050, text=»ZERO EQU /30 ZERO «, t00=0x000a, t01=0x000e}
0x0fc4…0fd8 Head {h00=0x0010, h01=0x0050, text=»NEG EQU /FF «, t00=0x000a, t01=0x0028}
0x0fd8…0ffc Head {h00=0x0020, h01=0x0050, text=»TIME EQU /FF 25 SEC TIMER =1«, t00=0x000a, t01=0x003c}
0x0ffc…1024 Head {h00=0x0024, h01=0x0050, text=»IMTIME EQU /20 2 SEC. TIMER DK4 «, t00=0x000a, t01=0x0060}
0x1024…1036 Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x000a, t01=0x0088}
0x1036…1040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009a}
0x1040…104a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a4}
0x104a…108c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x00ae}
0x108c…1096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f0}
0x1096…10b2 Head {h00=0x0018, h01=0x0050, text=»* CONTROL SEQUENCES «, t00=0x000a, t01=0x00fa}
0x10b2…10bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0116}
0x10bc…10fe Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x0120}
0x10fe…1108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0162}
0x1108…1112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016c}
0x1112…1128 Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x000a, t01=0x0176}
0x1128…1132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018c}
0x1132…113c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x113c…1156 Head {h00=0x0016, h01=0x0050, text=»CSREP EQU * REPEAT«, t00=0x000b, t01=0x0012}
0x1156…116c Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000b, t01=0x002c}
0x116c…1184 Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000b, t01=0x0042}
0x1184…119a Head {h00=0x0012, h01=0x0050, text=» BYTE ZERO,REP«, t00=0x000b, t01=0x005a}
0x119a…11b0 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000b, t01=0x0070}
0x11b0…11de Head {h00=0x002a, h01=0x0050, text=»CSVPR EQU * VERTICAL POSITION RELATIVE«, t00=0x000b, t01=0x0086}
0x11de…11f4 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000b, t01=0x00b4}
0x11f4…120c Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000b, t01=0x00ca}
0x120c…1222 Head {h00=0x0012, h01=0x0050, text=» BYTE ZERO,VPR«, t00=0x000b, t01=0x00e2}
0x1222…1238 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000b, t01=0x00f8}
0x1238…125e Head {h00=0x0022, h01=0x0050, text=»CSINFF EQU * INPUT FRONT FEED «, t00=0x000b, t01=0x010e}
0x125e…1274 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000b, t01=0x0134}
0x1274…128c Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000b, t01=0x014a}
0x128c…12a2 Head {h00=0x0012, h01=0x0050, text=» BYTE INFF,NEG«, t00=0x000b, t01=0x0162}
0x12a2…12d4 Head {h00=0x002e, h01=0x0050, text=»CSVPFF EQU * VERTICAL POSITION FRONT FEED «, t00=0x000b, t01=0x0178}
0x12d4…12ea Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000c, t01=0x001a}
0x12ea…1302 Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000c, t01=0x0030}
0x1302…1318 Head {h00=0x0012, h01=0x0050, text=» BYTE VPFF,NEG«, t00=0x000c, t01=0x0048}
0x1318…133e Head {h00=0x0022, h01=0x0050, text=»CSEJFF EQU * EJECT FRONT FEED «, t00=0x000c, t01=0x005e}
0x133e…1354 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,EJFF«, t00=0x000c, t01=0x0084}
0x1354…136a Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000c, t01=0x009a}
0x136a…1378 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00b0}
0x1378…138c Head {h00=0x0010, h01=0x0050, text=»CSSNV EQU * «, t00=0x000c, t01=0x00be}
0x138c…13ae Head {h00=0x001e, h01=0x0050, text=» SELECT NATIONAL VERSION«, t00=0x000c, t01=0x00d2}
0x13ae…13c4 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000c, t01=0x00f4}
0x13c4…13dc Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000c, t01=0x010a}
0x13dc…13f2 Head {h00=0x0012, h01=0x0050, text=» BYTE SNV,NEG «, t00=0x000c, t01=0x0122}
0x13f2…1418 Head {h00=0x0022, h01=0x0050, text=»CSSLPL EQU * SELECT PAGELENGTH«, t00=0x000c, t01=0x0138}
0x1418…142e Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000c, t01=0x015e}
0x142e…1446 Head {h00=0x0014, h01=0x0050, text=» BYTE ZERO,ZERO «, t00=0x000c, t01=0x0174}
0x1446…1460 Head {h00=0x0016, h01=0x0050, text=» BYTE SLPL,NEG * «, t00=0x000c, t01=0x018c}
0x1460…1476 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000d, t01=0x0016}
0x1476…14a0 Head {h00=0x0026, h01=0x0050, text=»CSRIS EQU * RESET TO INITIAL STATE«, t00=0x000d, t01=0x002c}
0x14a0…14b6 Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,RIS «, t00=0x000d, t01=0x0056}
0x14b6…14cc Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000d, t01=0x006c}
0x14cc…14f4 Head {h00=0x0024, h01=0x0050, text=»CSDSR EQU * DEVICE STATUS REPORT«, t00=0x000d, t01=0x0082}
0x14f4…150a Head {h00=0x0012, h01=0x0050, text=» BYTE ESC,CSI «, t00=0x000d, t01=0x00aa}
0x150a…1520 Head {h00=0x0012, h01=0x0050, text=» BYTE /35,DSR «, t00=0x000d, t01=0x00c0}
0x1520…1536 Head {h00=0x0012, h01=0x0050, text=» BYTE NEG,NEG «, t00=0x000d, t01=0x00d6}
0x1536…1544 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00ec}
0x1544…154e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fa}
0x154e…1558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x1558…1598 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x000d, t01=0x010e}
0x1598…15a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014e}
0x15a2…15c0 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x000d, t01=0x0158}
0x15c0…15ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0176}
0x15ca…160a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x000d, t01=0x0180}
0x160a…1614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0030}
0x1614…161e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003a}
0x161e…1628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0044}
0x1628…1660 Head {h00=0x0034, h01=0x0050, text=»* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN«, t00=0x000e, t01=0x004e}
0x1660…169c Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:A TO 1-15 ACCORDING TO THE LIST BELOW«, t00=0x000e, t01=0x0086}
0x169c…16a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c2}
0x16a6…16b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16b0…16e8 Head {h00=0x0034, h01=0x0050, text=»* NCV=1 GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND «, t00=0x000e, t01=0x00d6}
0x16e8…1732 Head {h00=0x0046, h01=0x0050, text=» =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA «, t00=0x000e, t01=0x010e}
0x1732…1766 Head {h00=0x0030, h01=0x0050, text=» =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG«, t00=0x000e, t01=0x0158}
0x1766…1796 Head {h00=0x002c, h01=0x0050, text=» =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA «, t00=0x000e, t01=0x018c}
0x1796…17b6 Head {h00=0x001c, h01=0x0050, text=» =5 ITALY,SWITZERLAND«, t00=0x000f, t01=0x002c}
0x17b6…17d4 Head {h00=0x001a, h01=0x0050, text=» =6 SWEDEN,FINLAND «, t00=0x000f, t01=0x004c}
0x17d4…17f2 Head {h00=0x001a, h01=0x0050, text=» =7 DENMARK,NORWAY «, t00=0x000f, t01=0x006a}
0x17f2…1810 Head {h00=0x001a, h01=0x0050, text=» =8 PORTUGAL,BRAZIL«, t00=0x000f, t01=0x0088}
0x1810…182a Head {h00=0x0016, h01=0x0050, text=» =9 YUGOSLAVIA «, t00=0x000f, t01=0x00a6}
0x182a…184e Head {h00=0x0020, h01=0x0050, text=» =10 USA,CANADA,AUSTRALIA«, t00=0x000f, t01=0x00c0}
0x184e…1876 Head {h00=0x0024, h01=0x0050, text=» =11 SWEDEN (SPECIAL VERSION)«, t00=0x000f, t01=0x00e4}
0x1876…188c Head {h00=0x0012, h01=0x0050, text=» =13 GREEK «, t00=0x000f, t01=0x010c}
0x188c…18b4 Head {h00=0x0024, h01=0x0050, text=» =14 JAPAN (KATAKANA VERSION)«, t00=0x000f, t01=0x0122}
0x18b4…18dc Head {h00=0x0024, h01=0x0050, text=» =15 ISRAEL (HEBREW VERSION)«, t00=0x000f, t01=0x014a}
0x18dc…18e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0172}
0x18e6…18f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017c}
0x18f0…191c Head {h00=0x0028, h01=0x0050, text=»X:A EQU 02 GREAT BRITAIN AS STANDARD«, t00=0x000f, t01=0x0186}
0x191c…1932 Head {h00=0x0012, h01=0x0050, text=»STDNCV EQU 07 «, t00=0x0010, t01=0x0022}
0x1932…1940 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0038}
0x1940…194a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0046}
0x194a…1954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0050}
0x1954…1984 Head {h00=0x002c, h01=0x0050, text=»* THE FRONT FEED DEVICE CAN BE EXCLUDED «, t00=0x0010, t01=0x005a}
0x1984…19a0 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B = 0«, t00=0x0010, t01=0x008a}
0x19a0…19aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a6}
0x19aa…19b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b0}
0x19b4…19c6 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0010, t01=0x00ba}
0x19c6…19ec Head {h00=0x0022, h01=0x0050, text=»FFDEV EQU 0 FRONT FEED DEVICE «, t00=0x0010, t01=0x00cc}
0x19ec…19f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f2}
0x19f6…1a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fc}
0x1a00…1a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0106}
0x1a0a…1a36 Head {h00=0x0028, h01=0x0050, text=»* THE STANDARD PAGELENGTH IS DEFINED«, t00=0x0010, t01=0x0110}
0x1a36…1a60 Head {h00=0x0026, h01=0x0050, text=»* BY SETTING X:C = NUMBER OF LINES«, t00=0x0010, t01=0x013c}
0x1a60…1a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0166}
0x1a6a…1a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0170}
0x1a74…1a86 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 48«, t00=0x0010, t01=0x017a}
0x1a86…1a9c Head {h00=0x0012, h01=0x0050, text=»PAGLEN EQU 48 «, t00=0x0010, t01=0x018c}
0x1a9c…1aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0012}
0x1aa6…1ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001c}
0x1ab0…1ae2 Head {h00=0x002e, h01=0x0050, text=»* THE STANDARD NUMBER OF LINES IS DEFINED «, t00=0x0011, t01=0x0026}
0x1ae2…1b0c Head {h00=0x0026, h01=0x0050, text=»* BY SETTING X:D = NUMBER OF LINES«, t00=0x0011, t01=0x0058}
0x1b0c…1b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0082}
0x1b16…1b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008c}
0x1b20…1b36 Head {h00=0x0012, h01=0x0050, text=»X:D EQU 36 * «, t00=0x0011, t01=0x0096}
0x1b36…1b4c Head {h00=0x0012, h01=0x0050, text=»DOCLEN EQU 48 «, t00=0x0011, t01=0x00ac}
0x1b4c…1b5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00c2}
0x1b5a…1b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d0}
0x1b64…1b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00da}
0x1b6e…1b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e4}
0x1b78…1b92 Head {h00=0x0016, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x0011, t01=0x00ee}
0x1b92…1b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0108}
0x1b9c…1ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0112}
0x1ba6…1bba Head {h00=0x0010, h01=0x0050, text=»X:E EQU 132 «, t00=0x0011, t01=0x011c}
0x1bba…1bd0 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 256«, t00=0x0011, t01=0x0130}
0x1bd0…1bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0146}
0x1bda…1be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1be4…1bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015a}
0x1bee…1c20 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0011, t01=0x0164}
0x1c20…1c4e Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1 «, t00=0x0012, t01=0x0008}
0x1c4e…1c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0036}
0x1c58…1c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0040}
0x1c62…1c76 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0012, t01=0x004a}
0x1c76…1c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005e}
0x1c80…1c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0068}
0x1c8a…1c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0072}
0x1c94…1cce Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0012, t01=0x007c}
0x1cce…1d00 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0 «, t00=0x0012, t01=0x00b6}
0x1d00…1d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e8}
0x1d0a…1d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f2}
0x1d14…1d28 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0012, t01=0x00fc}
0x1d28…1d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0110}
0x1d32…1d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011a}
0x1d3c…1d74 Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION WITHOUT RECOVERY IS OBTAINED«, t00=0x0012, t01=0x0124}
0x1d74…1d94 Head {h00=0x001c, h01=0x0050, text=»* BY SETTING NORCVY = 1 «, t00=0x0012, t01=0x015c}
0x1d94…1d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017c}
0x1d9e…1db4 Head {h00=0x0012, h01=0x0050, text=»NORCVY EQU 1 «, t00=0x0012, t01=0x0186}
0x1db4…1dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000c}
0x1dbe…1dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dc8…1dd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0020}
0x1dd6…1de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002e}
0x1de0…1dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0038}
0x1dea…1e1e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0013, t01=0x0042}
0x1e1e…1e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0076}
0x1e28…1e46 Head {h00=0x001a, h01=0x0050, text=»* DWT - DISPLACEMENTS «, t00=0x0013, t01=0x0080}
0x1e46…1e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009e}
0x1e50…1e84 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0013, t01=0x00a8}
0x1e84…1e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00dc}
0x1e8e…1e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e6}
0x1e98…1ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f0}
0x1ea2…1ed6 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0013, t01=0x00fa}
0x1ed6…1ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012e}
0x1ee0…1ef6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0138}
0x1ef6…1f0e Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0013, t01=0x014e}
0x1f0e…1f1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0166}
0x1f1a…1f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0172}
0x1f24…1f3a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x017c}
0x1f3a…1f54 (20, 0, 400) Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0014, t01=0x0004}
0x1f54…1f60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x001e}
0x1f60…1f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x002a}
0x1f6a…1f90 Head {h00=0x0022, h01=0x0050, text=»DWTTP EQU /2 TIMER POINTER =1 «, t00=0x0014, t01=0x0034}
0x1f90…1fbc Head {h00=0x0028, h01=0x0050, text=»DWTDCS EQU /4 DOCUMENT CHARACTER SET«, t00=0x0014, t01=0x005a}
0x1fbc…1fe8 Head {h00=0x0028, h01=0x0050, text=»DWTPCS EQU /6 PRINTER CHARACTER SET «, t00=0x0014, t01=0x0086}
0x1fe8…2012 Head {h00=0x0026, h01=0x0050, text=»DWTPL EQU /8 PRINTER PAPER LENGTH «, t00=0x0014, t01=0x00b2}
0x2012…203c Head {h00=0x0026, h01=0x0050, text=»DWTDL EQU /A DOCUMENT PAPER LENGTH«, t00=0x0014, t01=0x00dc}
0x203c…206a Head {h00=0x002a, h01=0x0050, text=»DWTALN EQU /C ACTUAL LINE ON DOCUMENT «, t00=0x0014, t01=0x0106}
0x206a…209a Head {h00=0x002c, h01=0x0050, text=»DWTRLN EQU /E REQUESTED LINE ON DOCUMENT«, t00=0x0014, t01=0x0134}
0x209a…20ca Head {h00=0x002c, h01=0x0050, text=»DWTRC EQU /11 RETURN CODE (ACKUMULATED) «, t00=0x0014, t01=0x0164}
0x20ca…20f8 (21, 0, 400) Head {h00=0x002a, h01=0x0050, text=»DWTSTR EQU /12 CONTROL SEQUENCE ADRESS«, t00=0x0015, t01=0x0004}
0x20f8…213a Head {h00=0x003e, h01=0x0050, text=»DWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. «, t00=0x0015, t01=0x0032}
0x213a…2168 Head {h00=0x002a, h01=0x0050, text=»DWTACD EQU /16 ACTUAL COLUMN DOCUMENT «, t00=0x0015, t01=0x0074}
0x2168…2192 Head {h00=0x0026, h01=0x0050, text=»DWTACP EQU /19 ACTUAL COLUMN PAPER«, t00=0x0015, t01=0x00a2}
0x2192…21ba Head {h00=0x0024, h01=0x0050, text=»DWTCO1 EQU /1C COLUMN COUNTER 1 «, t00=0x0015, t01=0x00cc}
0x21ba…21e2 Head {h00=0x0024, h01=0x0050, text=»DWTCO2 EQU /1E COLUMN COUNTER 2 «, t00=0x0015, t01=0x00f4}
0x21e2…220c Head {h00=0x0026, h01=0x0050, text=»DWTSYST EQU /22 SYSTEM START IND. «, t00=0x0015, t01=0x011c}
0x220c…223c Head {h00=0x002c, h01=0x0050, text=»DWTLFD EQU /24 LINE/FORM FEED INDICATOR «, t00=0x0015, t01=0x0146}
0x223c…224a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0176}
0x224a…2254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0184}
0x2254…225e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018e}
0x225e…2292 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0016, t01=0x0008}
0x2292…229c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x003c}
0x229c…22ba Head {h00=0x001a, h01=0x0050, text=»* ECB - DISPLACEMENTS «, t00=0x0016, t01=0x0046}
0x22ba…22c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0064}
0x22c4…22f8 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0016, t01=0x006e}
0x22f8…2302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a2}
0x2302…232c Head {h00=0x0026, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS IN ECB «, t00=0x0016, t01=0x00ac}
0x232c…2358 Head {h00=0x0028, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH IN ECB «, t00=0x0016, t01=0x00d6}
0x2358…2384 Head {h00=0x0028, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH IN ECB «, t00=0x0016, t01=0x0102}
0x2384…23aa Head {h00=0x0022, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE IN ECB«, t00=0x0016, t01=0x012e}
0x23aa…23d2 Head {h00=0x0024, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD IN ECB«, t00=0x0016, t01=0x0154}
0x23d2…23e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x017c}
0x23e0…23ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018a}
0x23ea…241e (23, 0, 398) Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0017, t01=0x0004}
0x241e…2428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0038}
0x2428…2438 Head {h00=0x000c, h01=0x0050, text=»* TABLES«, t00=0x0017, t01=0x0042}
0x2438…2442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0052}
0x2442…2476 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0017, t01=0x005c}
0x2476…2480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0090}
0x2480…248a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009a}
0x248a…24ae Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0017, t01=0x00a4}
0x24ae…24ca Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0017, t01=0x00c8}
0x24ca…24ec Head {h00=0x001e, h01=0x0050, text=»GPAD8 EQU * ADDRESS BLOCK «, t00=0x0017, t01=0x00e4}
0x24ec…2510 Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATION DRIVER«, t00=0x0017, t01=0x0106}
0x2510…2536 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0017, t01=0x012a}
0x2536…2558 Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x0017, t01=0x0150}
0x2558…257c Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0017, t01=0x0172}
0x257c…2590 Head {h00=0x0010, h01=0x0050, text=»TPTAB EQU * «, t00=0x0018, t01=0x0008}
0x2590…25a4 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0018, t01=0x001c}
0x25a4…25c4 Head {h00=0x001c, h01=0x0050, text=» DATA /0107,/0C25,/3939 «, t00=0x0018, t01=0x0030}
0x25c4…25d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0050}
0x25d0…25f4 Head {h00=0x0020, h01=0x0050, text=» DATA /0006,/2424,/0505 DK2«, t00=0x0018, t01=0x005c}
0x25f4…260e Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0018, t01=0x0080}
0x260e…2616 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x009a}
0x2616…261e Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00a2}
0x261e…262c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00aa}
0x262c…2636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b8}
0x2636…2640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c2}
0x2640…2654 Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0018, t01=0x00cc}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e0}
0x265e…2694 Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0018, t01=0x00ea}
0x2694…26d6 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0018, t01=0x0120}
0x26d6…26e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0162}
0x26e0…26ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x016c}
0x26ea…26f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0176}
0x26f4…2718 Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0018, t01=0x0180}
0x2718…2722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0014}
0x2722…272c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001e}
0x272c…276a Head {h00=0x003a, h01=0x0050, text=»* GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT«, t00=0x0019, t01=0x0028}
0x276a…2774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0066}
0x2774…279a Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTOR,A6 GET DWT INDEX «, t00=0x0019, t01=0x0070}
0x279a…27b0 Head {h00=0x0012, h01=0x0050, text=» ANK A2,1 MASK«, t00=0x0019, t01=0x0096}
0x27b0…27e0 Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTDEV+1,A6 GET OLD DEVICE VALUE «, t00=0x0019, t01=0x00ac}
0x27e0…27f4 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FE «, t00=0x0019, t01=0x00dc}
0x27f4…2806 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A2«, t00=0x0019, t01=0x00f0}
0x2806…282c Head {h00=0x0022, h01=0x0050, text=» SC A3,DWTDEV+1,A6 STORE INDEX«, t00=0x0019, t01=0x0102}
0x282c…284c Head {h00=0x001c, h01=0x0050, text=» CWK A7,/05 ORDER 5? DK2«, t00=0x0019, t01=0x0128}
0x284c…286a Head {h00=0x001a, h01=0x0050, text=» RF(E) ACT003 YES DK2 «, t00=0x0019, t01=0x0148}
0x286a…2894 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 ADD DWT INDEX TO ORDER «, t00=0x0019, t01=0x0166}
0x2894…28ae Head {h00=0x0016, h01=0x0050, text=»ACT003 EQU * DK2 «, t00=0x0019, t01=0x0190}
0x28ae…28dc Head {h00=0x002a, h01=0x0050, text=» SC A7,DWTOR+1,A6 STORE MODIFIED ORDER«, t00=0x001a, t01=0x001a}
0x28dc…28fa Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x001a, t01=0x0048}
0x28fa…292c Head {h00=0x002e, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER«, t00=0x001a, t01=0x0066}
0x292c…294e Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x001a, t01=0x0098}
0x294e…2960 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001a, t01=0x00ba}
0x2960…2980 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x001a, t01=0x00cc}
0x2980…298a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ec}
0x298a…29ac Head {h00=0x001e, h01=0x0050, text=» ABL LENDER ILLEGAL ORDER «, t00=0x001a, t01=0x00f6}
0x29ac…29b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0118}
0x29b6…29c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0122}
0x29c0…29d4 Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x001a, t01=0x012c}
0x29d4…29f0 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x001a, t01=0x0140}
0x29f0…2a14 Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x001a, t01=0x015c}
0x2a14…2a22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0180}
0x2a22…2a36 Head {h00=0x0010, h01=0x0050, text=»TPFUC EQU * «, t00=0x001a, t01=0x018e}
0x2a36…2a4a Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x001b, t01=0x0012}
0x2a4a…2a82 Head {h00=0x0034, h01=0x0050, text=» DATA TSTSTA,WRTDOC,POSDOC,DOCPAR,RELDOC,RELDOC «, t00=0x001b, t01=0x0026}
0x2a82…2a8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x005e}
0x2a8e…2aca Head {h00=0x0038, h01=0x0050, text=» DATA TSTSTA,WRTCON,CSTPAR,CSTPAR,BASWRT,BASWRT DK2«, t00=0x001b, t01=0x006a}
0x2aca…2ad8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00a6}
0x2ad8…2ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b4}
0x2ae2…2aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00be}
0x2aec…2b0e Head {h00=0x001e, h01=0x0050, text=»* ORDER 00 : TEST STATUS«, t00=0x001b, t01=0x00c8}
0x2b0e…2b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ea}
0x2b18…2b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f4}
0x2b22…2b42 Head {h00=0x001c, h01=0x0050, text=»TSTSTA EQU * TEST STATUS«, t00=0x001b, t01=0x00fe}
0x2b42…2b58 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x001b, t01=0x011e}
0x2b58…2b88 Head {h00=0x002c, h01=0x0050, text=» CF A5,GTSTAT GET STATUS IMMEDIATELY DK4«, t00=0x001b, t01=0x0134}
0x2b88…2ba8 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x001b, t01=0x0164}
0x2ba8…2bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0184}
0x2bb2…2bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x018e}
0x2bbc…2bdc Head {h00=0x001c, h01=0x0050, text=»* ORDER 05 : BASIC WRITE«, t00=0x001c, t01=0x0008}
0x2bdc…2be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0028}
0x2be6…2bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0032}
0x2bf0…2c06 Head {h00=0x0012, h01=0x0050, text=»BASWRT EQU * «, t00=0x001c, t01=0x003c}
0x2c06…2c18 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001c, t01=0x0052}
0x2c18…2c2c Head {h00=0x0010, h01=0x0050, text=»BAS10 EQU * «, t00=0x001c, t01=0x0064}
0x2c2c…2c56 Head {h00=0x0026, h01=0x0050, text=» LDK A4,/90 TEST FOR END OF BLOCK «, t00=0x001c, t01=0x0078}
0x2c56…2c76 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 BLOCK LENGTH «, t00=0x001c, t01=0x00a2}
0x2c76…2c9a Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x001c, t01=0x00c2}
0x2c9a…2cc0 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ERROUT QUIT IF ERROR «, t00=0x001c, t01=0x00e6}
0x2cc0…2cd4 Head {h00=0x0010, h01=0x0050, text=»BAS15 EQU * «, t00=0x001c, t01=0x010c}
0x2cd4…2cfc Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCHR GET A CHARACTER «, t00=0x001c, t01=0x0120}
0x2cfc…2d1a Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 FINISHED? «, t00=0x001c, t01=0x0148}
0x2d1a…2d34 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BAS25 YES «, t00=0x001c, t01=0x0166}
0x2d34…2d56 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT NO, SEND IT «, t00=0x001c, t01=0x0180}
0x2d56…2d7c Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ERROUT QUIT IF ERROR «, t00=0x001d, t01=0x0012}
0x2d7c…2d9c Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 END OF BLOCK? «, t00=0x001d, t01=0x0038}
0x2d9c…2db6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BAS20 YES «, t00=0x001d, t01=0x0058}
0x2db6…2dde Head {h00=0x0024, h01=0x0050, text=» RB BAS15 NO, GET ANOTHER CHAR. «, t00=0x001d, t01=0x0072}
0x2dde…2df2 Head {h00=0x0010, h01=0x0050, text=»BAS20 EQU * «, t00=0x001d, t01=0x009a}
0x2df2…2e14 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK FINISH IT. «, t00=0x001d, t01=0x00ae}
0x2e14…2e3a Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ERROUT QUIT IF ERROR «, t00=0x001d, t01=0x00d0}
0x2e3a…2e5c Head {h00=0x001e, h01=0x0050, text=» RB BAS10 GET NEXT BLOCK «, t00=0x001d, t01=0x00f6}
0x2e5c…2e70 Head {h00=0x0010, h01=0x0050, text=»BAS25 EQU * «, t00=0x001d, t01=0x0118}
0x2e70…2e88 Head {h00=0x0014, h01=0x0050, text=» CF A5,ENDBLK «, t00=0x001d, t01=0x012c}
0x2e88…2eae Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ERROUT QUIT IF ERROR «, t00=0x001d, t01=0x0144}
0x2eae…2ee2 Head {h00=0x0030, h01=0x0050, text=» CF A5,GTSTAT TEST STATUS + END REQUEST DK4 «, t00=0x001d, t01=0x016a}
0x2ee2…2ef6 Head {h00=0x0010, h01=0x0050, text=» ABL LENDIS «, t00=0x001e, t01=0x000e}
0x2ef6…2f04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0022}
0x2f04…2f18 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x001e, t01=0x0030}
0x2f18…2f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0044}
0x2f22…2f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004e}
0x2f2c…2f50 Head {h00=0x0020, h01=0x0050, text=»* ORDER 06: WRITE DOCUMENT«, t00=0x001e, t01=0x0058}
0x2f50…2f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007c}
0x2f5a…2f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0086}
0x2f64…2f78 Head {h00=0x0010, h01=0x0050, text=»WRTDOC EQU *«, t00=0x001e, t01=0x0090}
0x2f78…2f8e Head {h00=0x0012, h01=0x0050, text=» CF A5,GTSTAT «, t00=0x001e, t01=0x00a4}
0x2f8e…2fb4 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTDEV,A6 DEVICE STATUS«, t00=0x001e, t01=0x00ba}
0x2fb4…2fe0 Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/20 HAS POWER OFF OCCURED? «, t00=0x001e, t01=0x00e0}
0x2fe0…2ffc Head {h00=0x0018, h01=0x0050, text=» RF(NZ) WRDO05 YES. «, t00=0x001e, t01=0x010c}
0x2ffc…3016 Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/2000 * «, t00=0x001e, t01=0x0128}
0x3016…3036 Head {h00=0x001c, h01=0x0050, text=» TM A1,A3 DOCUMENT OUT? «, t00=0x001e, t01=0x0142}
0x3036…304e Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRDO06 NO«, t00=0x001e, t01=0x0162}
0x304e…3082 Head {h00=0x0030, h01=0x0050, text=» LDKL A3,/8000 YES.SET BIT 0 (REQUEST ERROR)«, t00=0x001e, t01=0x017a}
0x3082…30b4 Head {h00=0x002e, h01=0x0050, text=» ORS A3,ECBRC,A8 SET REQUEST ERROR IN R.C.«, t00=0x001f, t01=0x001e}
0x30b4…30d4 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x001f, t01=0x0050}
0x30d4…30ec Head {h00=0x0014, h01=0x0050, text=»WRDO05 EQU * * «, t00=0x001f, t01=0x0070}
0x30ec…3104 Head {h00=0x0014, h01=0x0050, text=»WRDO06 LDK A3,1 «, t00=0x001f, t01=0x0088}
0x3104…3124 Head {h00=0x001c, h01=0x0050, text=» TM A1,A3 NOT OPERABLE? «, t00=0x001f, t01=0x00a0}
0x3124…313c Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRDO10 NO«, t00=0x001f, t01=0x00c0}
0x313c…315c Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x001f, t01=0x00d8}
0x315c…3184 Head {h00=0x0024, h01=0x0050, text=»WRDO10 LDK A2,20 MAX BLOCK SIZE «, t00=0x001f, t01=0x00f8}
0x3184…31a8 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x001f, t01=0x0120}
0x31a8…31cc Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x001f, t01=0x0144}
0x31cc…31fc Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTDEV+DWTALN,A6 GET ACTUAL LINE «, t00=0x001f, t01=0x0168}
0x31fc…3212 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) WRDO15«, t00=0x0020, t01=0x0008}
0x3212…323e Head {h00=0x0028, h01=0x0050, text=» LDK A3,1 SET UP ECB BUFFER POINTER «, t00=0x0020, t01=0x001e}
0x323e…326c Head {h00=0x002a, h01=0x0050, text=» CF A15,GETCHR GET CONTROL CHARACTER «, t00=0x0020, t01=0x004a}
0x326c…3290 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CTRL CHAR=/31 ? «, t00=0x0020, t01=0x0078}
0x3290…32c0 Head {h00=0x002c, h01=0x0050, text=» ABL(NE) POSERR NO, DOC. NOT POSITIONED «, t00=0x0020, t01=0x009c}
0x32c0…32e2 Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTDEV+DWTDL,A6 * «, t00=0x0020, t01=0x00cc}
0x32e2…3316 Head {h00=0x0030, h01=0x0050, text=» ST A3,DWTDEV+DWTRLN,A6 FIRST LINE ON DOC. «, t00=0x0020, t01=0x00ee}
0x3316…3346 Head {h00=0x002c, h01=0x0050, text=»WRDO12 LDKL A2,CSINFF INPUT FRONT FEED «, t00=0x0020, t01=0x0122}
0x3346…3384 Head {h00=0x003a, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NO DISPLACEMENT «, t00=0x0020, t01=0x0152}
0x3384…33ae Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND INPUT FRONT FEED «, t00=0x0020, t01=0x0190}
0x33ae…33ce Head {h00=0x001c, h01=0x0050, text=» LD A3,DWTDEV+DWTRLN,A6 «, t00=0x0021, t01=0x002a}
0x33ce…3406 Head {h00=0x0034, h01=0x0050, text=» ST A3,DWTDEV+DWTALN,A6 SET DWTDEV+DWTALN=DWTRLN«, t00=0x0021, t01=0x004a}
0x3406…340e Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0082}
0x340e…3442 Head {h00=0x0030, h01=0x0050, text=»WRDO15 LDKL A2,CSSNV SELECT NATIONAL VERSION«, t00=0x0021, t01=0x008a}
0x3442…3484 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTDCS DOCUMENT CHARACTER SET DISPLACEMENT«, t00=0x0021, t01=0x00be}
0x3484…34b4 Head {h00=0x002c, h01=0x0050, text=» CF A5,SEND SEND SELECT NATIONAL VERSION«, t00=0x0021, t01=0x0100}
0x34b4…34d6 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0021, t01=0x0130}
0x34d6…34fa Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0021, t01=0x0152}
0x34fa…3504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0176}
0x3504…352a Head {h00=0x0022, h01=0x0050, text=»* EXAMINE CONTROL CHARACTER«, t00=0x0021, t01=0x0180}
0x352a…3534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0016}
0x3534…355c Head {h00=0x0024, h01=0x0050, text=» LDK A3,1 SET ECB BUFFER POINTER«, t00=0x0022, t01=0x0020}
0x355c…3588 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CONTROL CHARACTER«, t00=0x0022, t01=0x0048}
0x3588…35b2 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 GET DEVICE STATUS«, t00=0x0022, t01=0x0074}
0x35b2…35de Head {h00=0x0028, h01=0x0050, text=» ANKL A1,/20 HAS POWER OFF OCCURED ?«, t00=0x0022, t01=0x009e}
0x35de…35f6 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REP1 YES«, t00=0x0022, t01=0x00ca}
0x35f6…3600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e2}
0x3600…362e Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x0022, t01=0x00ec}
0x362e…3646 Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRT03 YES«, t00=0x0022, t01=0x011a}
0x3646…3676 Head {h00=0x002c, h01=0x0050, text=»WRT04 LDR A4,A2 SAVE CONTROL CHAR. IN A4«, t00=0x0022, t01=0x0132}
0x3676…368e Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x0022, t01=0x0162}
0x368e…36b0 Head {h00=0x001e, h01=0x0050, text=» ADK A2,/8 MAX BLOCK SIZE «, t00=0x0022, t01=0x017a}
0x36b0…36d4 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0023, t01=0x000c}
0x36d4…36f8 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0023, t01=0x0030}
0x36f8…3724 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 RESTORE CONT. CHAR. IN A2«, t00=0x0023, t01=0x0054}
0x3724…375e Head {h00=0x0036, h01=0x0050, text=» CM DWTDEV+DWTCO2,A6 CLEAR DOCUMENT COLUMN COUNTER«, t00=0x0023, t01=0x0080}
0x375e…378c Head {h00=0x002a, h01=0x0050, text=» SUK A2,5 PRINT AFTER TWO LINE FEED ? «, t00=0x0023, t01=0x00ba}
0x378c…37a6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TWOLF1 YES «, t00=0x0023, t01=0x00e8}
0x37a6…37b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0102}
0x37b0…37da Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 PRINT AFTER FORM FEED ? «, t00=0x0023, t01=0x010c}
0x37da…3804 Head {h00=0x0026, h01=0x0050, text=» ABL(Z) WRT14 YES, ALLREADY DONE !«, t00=0x0023, t01=0x0136}
0x3804…380e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0160}
0x380e…383c Head {h00=0x002a, h01=0x0050, text=» RF ONELF1 PRINT AFTER ONE LINE FEED !«, t00=0x0023, t01=0x016a}
0x383c…3846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0008}
0x3846…386c Head {h00=0x0022, h01=0x0050, text=»* EXECUTE CONTROL CHARACTER«, t00=0x0024, t01=0x0012}
0x386c…3876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0038}
0x3876…38ac Head {h00=0x0032, h01=0x0050, text=»WRT03 LD A4,DWTDEV+DWTCO2,A6 GET ACTUAL COLUMN«, t00=0x0024, t01=0x0042}
0x38ac…38c0 Head {h00=0x0010, h01=0x0050, text=» RF(Z) WRT05«, t00=0x0024, t01=0x0078}
0x38c0…38ea Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 FOR CORRECT NO OF SPACES«, t00=0x0024, t01=0x008c}
0x38ea…391c Head {h00=0x002e, h01=0x0050, text=»WRT05 CF A5,KONVER CONVERT BINARY TO ASCII«, t00=0x0024, t01=0x00b6}
0x391c…3960 Head {h00=0x0040, h01=0x0050, text=» SC A2,DWTDEV+DWTACD,A6 STORE THE VALUE IN ACTUAL COL. DOC. «, t00=0x0024, t01=0x00e8}
0x3960…39a6 Head {h00=0x0042, h01=0x0050, text=» SC A4,DWTDEV+DWTACD+2,A6 STORE THE VALUE IN ACTUAL COL. DOC. «, t00=0x0024, t01=0x012c}
0x39a6…39b8 Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x0024, t01=0x0172}
0x39b8…39f2 Head {h00=0x0036, h01=0x0050, text=» SC A4,DWTDEV+DWTACD+1,A6 SHIFT FOR CORRECT DIGITS«, t00=0x0024, t01=0x0184}
0x39f2…39fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002e}
0x39fc…3a20 Head {h00=0x0020, h01=0x0050, text=»WRT09 LDKL A2,/8C BLOCK SIZE«, t00=0x0025, t01=0x0038}
0x3a20…3a44 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0025, t01=0x005c}
0x3a44…3a68 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0025, t01=0x0080}
0x3a68…3a88 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTDEV+DWTCO2,A6 «, t00=0x0025, t01=0x00a4}
0x3a88…3aba Head {h00=0x002e, h01=0x0050, text=» ABL(Z) WRT15 JMP IF NO PRECEIDING SPACES «, t00=0x0025, t01=0x00c4}
0x3aba…3ad8 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 SEND SPACE«, t00=0x0025, t01=0x00f6}
0x3ad8…3aee Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0025, t01=0x0114}
0x3aee…3b12 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0025, t01=0x012a}
0x3b12…3b30 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,CSREP REPEAT «, t00=0x0025, t01=0x014e}
0x3b30…3b72 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTACD ACTUAL COLUMN DOCUMENT DISPLACEMENT«, t00=0x0025, t01=0x016c}
0x3b72…3b92 Head {h00=0x001c, h01=0x0050, text=» CF A5,SEND SEND REPEAT «, t00=0x0026, t01=0x001e}
0x3b92…3ba4 Head {h00=0x000e, h01=0x0050, text=» ABL WRT15«, t00=0x0026, t01=0x003e}
0x3ba4…3bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0050}
0x3bae…3be4 Head {h00=0x0032, h01=0x0050, text=»TWOLF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO «, t00=0x0026, t01=0x005a}
0x3be4…3c0e Head {h00=0x0026, h01=0x0050, text=» CF A5,BINARY CONV ASCII TO BINARY«, t00=0x0026, t01=0x0090}
0x3c0e…3c30 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 INCR REQ LINE NO«, t00=0x0026, t01=0x00ba}
0x3c30…3c4e Head {h00=0x001a, h01=0x0050, text=» RF TWO TWO LINE FEED «, t00=0x0026, t01=0x00dc}
0x3c4e…3c84 Head {h00=0x0032, h01=0x0050, text=»ONELF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO «, t00=0x0026, t01=0x00fa}
0x3c84…3c9a Head {h00=0x0012, h01=0x0050, text=» CF A5,BINARY «, t00=0x0026, t01=0x0130}
0x3c9a…3cc0 Head {h00=0x0022, h01=0x0050, text=»TWO SUK A3,1 INCR REQ LINE NO «, t00=0x0026, t01=0x0146}
0x3cc0…3cd2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0026, t01=0x016c}
0x3cd2…3cfc Head {h00=0x0026, h01=0x0050, text=» CF A5,KONVER CONV BINARY TO ASCII«, t00=0x0026, t01=0x017e}
0x3cfc…3d2e Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTDEV+DWTRLN,A6 STORE REQ LINE NO «, t00=0x0027, t01=0x0018}
0x3d2e…3d62 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED«, t00=0x0027, t01=0x004a}
0x3d62…3da4 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT «, t00=0x0027, t01=0x007e}
0x3da4…3db8 Head {h00=0x0010, h01=0x0050, text=» CF A5,SEND «, t00=0x0027, t01=0x00c0}
0x3db8…3dd8 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTDEV+DWTRLN,A6 «, t00=0x0027, t01=0x00d4}
0x3dd8…3e14 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQUESTED LINE«, t00=0x0027, t01=0x00f4}
0x3e14…3e26 Head {h00=0x000e, h01=0x0050, text=» RF WRT14 «, t00=0x0027, t01=0x0130}
0x3e26…3e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0142}
0x3e30…3e66 Head {h00=0x0032, h01=0x0050, text=»* REPEAT WRITE REQUEST AT DOCUMENT STATION «, t00=0x0027, t01=0x014c}
0x3e66…3e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0182}
0x3e70…3e8a Head {h00=0x0016, h01=0x0050, text=»REP1 CF A5,RESREC «, t00=0x0027, t01=0x018c}
0x3e8a…3eb8 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x0028, t01=0x0016}
0x3eb8…3ed0 Head {h00=0x0014, h01=0x0050, text=» RB(Z) WRT09 YES«, t00=0x0028, t01=0x0044}
0x3ed0…3efe Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR «, t00=0x0028, t01=0x005c}
0x3efe…3f26 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) WRT15 JMP IF LF/FF DONE «, t00=0x0028, t01=0x008a}
0x3f26…3f38 Head {h00=0x000e, h01=0x0050, text=» RB WRT04 «, t00=0x0028, t01=0x00b2}
0x3f38…3f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c4}
0x3f42…3f4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00ce}
0x3f4e…3f5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00da}
0x3f5c…3f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e8}
0x3f66…3f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f2}
0x3f70…3fa0 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06: WRITE CONTINOUS STATIONARY«, t00=0x0028, t01=0x00fc}
0x3fa0…3faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x012c}
0x3faa…3fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0136}
0x3fb4…3fc8 Head {h00=0x0010, h01=0x0050, text=»WRTCON EQU *«, t00=0x0028, t01=0x0140}
0x3fc8…3ff0 Head {h00=0x0024, h01=0x0050, text=» CF A5,GTSTAT GET DEVICE STATUS «, t00=0x0028, t01=0x0154}
0x3ff0…400a Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/2000 * «, t00=0x0028, t01=0x017c}
0x400a…402a Head {h00=0x001c, h01=0x0050, text=» TM A1,A3 END OF PAPER? «, t00=0x0029, t01=0x0008}
0x402a…4044 Head {h00=0x0016, h01=0x0050, text=» RF(Z) WRCO05 NO. «, t00=0x0029, t01=0x0028}
0x4044…4062 Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x0029, t01=0x0042}
0x4062…4088 Head {h00=0x0022, h01=0x0050, text=»WRCO05 LDK A3,1 NOT OPERABLE? «, t00=0x0029, t01=0x0060}
0x4088…409a Head {h00=0x000e, h01=0x0050, text=» TM A1,A3 «, t00=0x0029, t01=0x0086}
0x409a…40b2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRCO10 NO«, t00=0x0029, t01=0x0098}
0x40b2…40d0 Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x0029, t01=0x00b0}
0x40d0…40d8 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x00ce}
0x40d8…40fc Head {h00=0x0020, h01=0x0050, text=»WRCO10 LDK A2,/E BLOCK SIZE «, t00=0x0029, t01=0x00d6}
0x40fc…4120 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0029, t01=0x00fa}
0x4120…4144 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0029, t01=0x011e}
0x4144…4172 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CSSNV SELECT NATIONAL VERSION«, t00=0x0029, t01=0x0142}
0x4172…41b0 Head {h00=0x003a, h01=0x0050, text=» LDKL A3,DWTDEV+DWTPCS PRINTER CHAR. SET DISPLACEMENT «, t00=0x0029, t01=0x0170}
0x41b0…41e0 Head {h00=0x002c, h01=0x0050, text=» CF A5,SEND SEND SELECT NATIONAL VERSION«, t00=0x002a, t01=0x001e}
0x41e0…4202 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x002a, t01=0x004e}
0x4202…4226 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002a, t01=0x0070}
0x4226…4230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0094}
0x4230…4262 Head {h00=0x002e, h01=0x0050, text=»* EXAMINE CONTROL CHARACTER, CONTINOUS «, t00=0x002a, t01=0x009e}
0x4262…426c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d0}
0x426c…4298 Head {h00=0x0028, h01=0x0050, text=» LDK A3,1 SET UP ECB BUFFER POINTER «, t00=0x002a, t01=0x00da}
0x4298…42c4 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CONTROL CHARACTER«, t00=0x002a, t01=0x0106}
0x42c4…42ee Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 GET DEVICE STATUS«, t00=0x002a, t01=0x0132}
0x42ee…431a Head {h00=0x0028, h01=0x0050, text=» ANKL A1,/20 HAS POWER OFF OCCURED ?«, t00=0x002a, t01=0x015c}
0x431a…4332 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REP2 YES«, t00=0x002a, t01=0x0188}
0x4332…433c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0010}
0x433c…436a Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x002b, t01=0x001a}
0x436a…4382 Head {h00=0x0014, h01=0x0050, text=» RF(Z) WRC03 YES«, t00=0x002b, t01=0x0048}
0x4382…43b2 Head {h00=0x002c, h01=0x0050, text=»WRC04 LDR A4,A2 SAVE CONTROL CHAR. IN A4«, t00=0x002b, t01=0x0060}
0x43b2…43ca Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x002b, t01=0x0090}
0x43ca…43ea Head {h00=0x001c, h01=0x0050, text=» ADK A2,/8 BLOCK LENGTH «, t00=0x002b, t01=0x00a8}
0x43ea…440e Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002b, t01=0x00c8}
0x440e…4432 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002b, t01=0x00ec}
0x4432…445e Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 RESTORE CONT. CHAR. IN A2«, t00=0x002b, t01=0x0110}
0x445e…4494 Head {h00=0x0032, h01=0x0050, text=» CM DWTDEV+DWTCO1,A6 CLEAR PAPER COL. COUNTER «, t00=0x002b, t01=0x013c}
0x4494…44c2 Head {h00=0x002a, h01=0x0050, text=» SUK A2,5 PRINT AFTER TWO LINE FEED ? «, t00=0x002b, t01=0x0172}
0x44c2…44dc Head {h00=0x0016, h01=0x0050, text=» RF(Z) TWOLF2 YES «, t00=0x002c, t01=0x0010}
0x44dc…44e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x002a}
0x44e6…4510 Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 PRINT AFTER FORM FEED ? «, t00=0x002c, t01=0x0034}
0x4510…4528 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FORMF YES«, t00=0x002c, t01=0x005e}
0x4528…4532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0076}
0x4532…4560 Head {h00=0x002a, h01=0x0050, text=» RF ONELF2 PRINT AFTER ONE LINE FEED !«, t00=0x002c, t01=0x0080}
0x4560…456a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ae}
0x456a…459c Head {h00=0x002e, h01=0x0050, text=»* EXECUTE CONTROL CHARACTER, CONTINOUS «, t00=0x002c, t01=0x00b8}
0x459c…45a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ea}
0x45a6…45dc Head {h00=0x0032, h01=0x0050, text=»WRC03 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN«, t00=0x002c, t01=0x00f4}
0x45dc…460a Head {h00=0x002a, h01=0x0050, text=» RF(Z) WRC05 FOR CORRECT NO OF SPACES «, t00=0x002c, t01=0x012a}
0x460a…461c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002c, t01=0x0158}
0x461c…464e Head {h00=0x002e, h01=0x0050, text=»WRC05 CF A5,KONVER CONVERT BINARY TO ASCII«, t00=0x002c, t01=0x016a}
0x464e…4696 Head {h00=0x0044, h01=0x0050, text=» SC A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. CONTINOUS«, t00=0x002d, t01=0x000c}
0x4696…46da Head {h00=0x0040, h01=0x0050, text=» ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. CONT.«, t00=0x002d, t01=0x0054}
0x46da…46e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0098}
0x46e4…470a Head {h00=0x0022, h01=0x0050, text=»WRC07 LDK A2,/8C BLOCK LENGTH «, t00=0x002d, t01=0x00a2}
0x470a…472e Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002d, t01=0x00c8}
0x472e…4752 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002d, t01=0x00ec}
0x4752…4772 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTDEV+DWTCO1,A6 «, t00=0x002d, t01=0x0110}
0x4772…47a2 Head {h00=0x002c, h01=0x0050, text=» RF(Z) WRT15 JMP IF NO PRECEIDING SPACES«, t00=0x002d, t01=0x0130}
0x47a2…47c0 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 SEND SPACE«, t00=0x002d, t01=0x0160}
0x47c0…47d6 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002d, t01=0x017e}
0x47d6…47fa (46, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002e, t01=0x0004}
0x47fa…4818 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,CSREP REPEAT «, t00=0x002e, t01=0x0028}
0x4818…4858 Head {h00=0x003c, h01=0x0050, text=» LDKL A3,DWTDEV+DWTACP ACTUAL COLUMN PAPER DISPLACEMENT «, t00=0x002e, t01=0x0046}
0x4858…4878 Head {h00=0x001c, h01=0x0050, text=» CF A5,SEND SEND REPEAT «, t00=0x002e, t01=0x0086}
0x4878…488a Head {h00=0x000e, h01=0x0050, text=» RF WRT15 «, t00=0x002e, t01=0x00a6}
0x488a…4894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b8}
0x4894…48bc Head {h00=0x0024, h01=0x0050, text=»TWOLF2 LDK A2,LF SEND LINE FEED «, t00=0x002e, t01=0x00c2}
0x48bc…48d2 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002e, t01=0x00ea}
0x48d2…48f6 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002e, t01=0x0100}
0x48f6…491e Head {h00=0x0024, h01=0x0050, text=»ONELF2 LDK A2,LF SEND LINE FEED «, t00=0x002e, t01=0x0124}
0x491e…4934 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002e, t01=0x014c}
0x4934…4958 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002e, t01=0x0162}
0x4958…496a Head {h00=0x000e, h01=0x0050, text=» RF WRT14 «, t00=0x002e, t01=0x0186}
0x496a…4974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0008}
0x4974…499a Head {h00=0x0022, h01=0x0050, text=»FORMF LDK A2,FF SEND FORM FEED«, t00=0x002f, t01=0x0012}
0x499a…49b0 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002f, t01=0x0038}
0x49b0…49d4 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x002f, t01=0x004e}
0x49d4…49e6 Head {h00=0x000e, h01=0x0050, text=» RF WRT14 «, t00=0x002f, t01=0x0072}
0x49e6…49f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0084}
0x49f0…4a26 Head {h00=0x0032, h01=0x0050, text=»* REPEAT WRITE REQUEST AT CONTINOUS STATION«, t00=0x002f, t01=0x008e}
0x4a26…4a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c4}
0x4a30…4a4a Head {h00=0x0016, h01=0x0050, text=»REP2 CF A5,RESREC «, t00=0x002f, t01=0x00ce}
0x4a4a…4a78 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B PRINT WITHOUT LINE FEED ? «, t00=0x002f, t01=0x00e8}
0x4a78…4a90 Head {h00=0x0014, h01=0x0050, text=» RB(Z) WRC07 YES«, t00=0x002f, t01=0x0116}
0x4a90…4abe Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR «, t00=0x002f, t01=0x012e}
0x4abe…4ae6 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) WRT15 JMP IF LF/FF DONE «, t00=0x002f, t01=0x015c}
0x4ae6…4af8 Head {h00=0x000e, h01=0x0050, text=» RB WRC04 «, t00=0x002f, t01=0x0184}
0x4af8…4b06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0008}
0x4b06…4b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0016}
0x4b10…4b46 Head {h00=0x0032, h01=0x0050, text=»* ORDER 06 : THIS PART SENDS THE CHARACTERS«, t00=0x0030, t01=0x0020}
0x4b46…4b78 Head {h00=0x002e, h01=0x0050, text=»* TO DOCUMENT OR CONTINOUS STATIONARY. «, t00=0x0030, t01=0x0056}
0x4b78…4b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0088}
0x4b82…4bb8 Head {h00=0x0032, h01=0x0050, text=»WRT14 IM DWTDEV+DWTLFD,A6 SET LF/FF INDICATOR «, t00=0x0030, t01=0x0092}
0x4bb8…4bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00c8}
0x4bc2…4bf0 Head {h00=0x002a, h01=0x0050, text=»WRT15 LDK A3,2 SET ECB BUFFER POINTER «, t00=0x0030, t01=0x00d2}
0x4bf0…4c1a Head {h00=0x0026, h01=0x0050, text=»WRT16 CF A15,GETCHR GET CHARACTER «, t00=0x0030, t01=0x0100}
0x4c1a…4c3e Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 BUFFER FINISHED ?«, t00=0x0030, t01=0x012a}
0x4c3e…4c56 Head {h00=0x0014, h01=0x0050, text=» RF(P) WRT20 NO «, t00=0x0030, t01=0x014e}
0x4c56…4c88 Head {h00=0x002e, h01=0x0050, text=»WRT17 SUK A3,/02 ECB BUFFER POINTER = /02 «, t00=0x0030, t01=0x0166}
0x4c88…4ca2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) WRT18 YES. «, t00=0x0031, t01=0x0008}
0x4ca2…4cce Head {h00=0x0028, h01=0x0050, text=» LDK A2,CR NO. SEND CARRIAGE RETURN «, t00=0x0031, t01=0x0022}
0x4cce…4ce4 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0031, t01=0x004e}
0x4ce4…4d08 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0031, t01=0x0064}
0x4d08…4d30 Head {h00=0x0024, h01=0x0050, text=»WRT18 CF A5,ENDBLK END OF BLOCK «, t00=0x0031, t01=0x0088}
0x4d30…4d54 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0031, t01=0x00b0}
0x4d54…4d74 Head {h00=0x001c, h01=0x0050, text=» CF A5,GTSTAT GET STATUS«, t00=0x0031, t01=0x00d4}
0x4d74…4d92 Head {h00=0x001a, h01=0x0050, text=» RF ENDIO END REQUEST «, t00=0x0031, t01=0x00f4}
0x4d92…4d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0112}
0x4d9c…4db0 Head {h00=0x0010, h01=0x0050, text=»WRT20 EQU * «, t00=0x0031, t01=0x011c}
0x4db0…4dc2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0031, t01=0x0130}
0x4dc2…4dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0142}
0x4dcc…4e10 Head {h00=0x0040, h01=0x0050, text=»* EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER «, t00=0x0031, t01=0x014c}
0x4e10…4e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0190}
0x4e1a…4e22 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x000a}
0x4e22…4e42 Head {h00=0x001c, h01=0x0050, text=» SUK A4,/20 CHAR < /20? «, t00=0x0032, t01=0x0012}
0x4e42…4e6e Head {h00=0x0028, h01=0x0050, text=» RB(N) WRT16 YES GET A NEW CHARACTER«, t00=0x0032, t01=0x0032}
0x4e6e…4e8e Head {h00=0x001c, h01=0x0050, text=» SUK A4,/5F CHAR < /7F? «, t00=0x0032, t01=0x005e}
0x4e8e…4ea8 Head {h00=0x0016, h01=0x0050, text=» RF(N) WRT25 YES. «, t00=0x0032, t01=0x007e}
0x4ea8…4ecc Head {h00=0x0020, h01=0x0050, text=» SUK A4,/2F NO. CHAR = /AE? «, t00=0x0032, t01=0x0098}
0x4ecc…4ef8 Head {h00=0x0028, h01=0x0050, text=» RF(Z) WRT30 YES. CONVERT /AE TO /2E«, t00=0x0032, t01=0x00bc}
0x4ef8…4f30 Head {h00=0x0034, h01=0x0050, text=» LDK A4,/04 ILLEGAL CHARACTER SET BIT 13 IN R.C.«, t00=0x0032, t01=0x00e8}
0x4f30…4f48 Head {h00=0x0014, h01=0x0050, text=» ORS A4,ECBRC,A8«, t00=0x0032, t01=0x0120}
0x4f48…4f5a Head {h00=0x000e, h01=0x0050, text=» RB WRT16 «, t00=0x0032, t01=0x0138}
0x4f5a…4f72 Head {h00=0x0014, h01=0x0050, text=»WRT30 LDK A2,/2E«, t00=0x0032, t01=0x014a}
0x4f72…4f8a Head {h00=0x0014, h01=0x0050, text=»WRT25 LDR A4,A1 «, t00=0x0032, t01=0x0162}
0x4f8a…4fae Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0032, t01=0x017a}
0x4fae…4fd2 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0033, t01=0x000e}
0x4fd2…4ffa Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTOR+1,A6 GET DWT INDEX «, t00=0x0033, t01=0x0032}
0x4ffa…5016 Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 DOCUMENT? «, t00=0x0033, t01=0x005a}
0x5016…5030 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) WRT40 YES «, t00=0x0033, t01=0x0076}
0x5030…5062 Head {h00=0x002e, h01=0x0050, text=» IM DWTDEV+DWTCO1,A6 INC.COLUMN COUNTER 1 «, t00=0x0033, t01=0x0090}
0x5062…5074 Head {h00=0x000e, h01=0x0050, text=» RB WRT16 «, t00=0x0033, t01=0x00c2}
0x5074…50aa Head {h00=0x0032, h01=0x0050, text=»WRT40 IM DWTDEV+DWTCO2,A6 INC.COLUMN COUNTER 2«, t00=0x0033, t01=0x00d4}
0x50aa…50bc Head {h00=0x000e, h01=0x0050, text=» RB WRT16 «, t00=0x0033, t01=0x010a}
0x50bc…50d0 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0033, t01=0x011c}
0x50d0…5102 Head {h00=0x002e, h01=0x0050, text=» CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR«, t00=0x0033, t01=0x0130}
0x5102…5122 Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x0033, t01=0x0162}
0x5122…5130 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0182}
0x5130…5144 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0033, t01=0x0190}
0x5144…514e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0014}
0x514e…5158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x001e}
0x5158…5180 Head {h00=0x0024, h01=0x0050, text=»* ORDER 0B : POSITION DOCUMENT«, t00=0x0034, t01=0x0028}
0x5180…51b4 Head {h00=0x0030, h01=0x0050, text=»* CONTROL WORD CONTAINS REQUESTED LINE NO «, t00=0x0034, t01=0x0050}
0x51b4…51be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0084}
0x51be…51c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x008e}
0x51c8…51ee Head {h00=0x0022, h01=0x0050, text=»POSDOC EQU * POSITION DOCUMENT«, t00=0x0034, t01=0x0098}
0x51ee…5204 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x0034, t01=0x00be}
0x5204…522c Head {h00=0x0024, h01=0x0050, text=» CF A5,GTSTAT GET DEVICE STATUS «, t00=0x0034, t01=0x00d4}
0x522c…524c Head {h00=0x001c, h01=0x0050, text=» LDK A3,1 NOT OPERABLE «, t00=0x0034, t01=0x00fc}
0x524c…5260 Head {h00=0x0010, h01=0x0050, text=» TM A1,A3 * «, t00=0x0034, t01=0x011c}
0x5260…527c Head {h00=0x0018, h01=0x0050, text=» RF(NZ) POS020 YES «, t00=0x0034, t01=0x0130}
0x527c…529c Head {h00=0x001c, h01=0x0050, text=» LDK A2,/E BLOCK LENGTH «, t00=0x0034, t01=0x014c}
0x529c…52c0 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0034, t01=0x016c}
0x52c0…52e4 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0034, t01=0x0190}
0x52e4…5312 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CSSNV SELECT NATIONAL VERSION«, t00=0x0035, t01=0x0024}
0x5312…5342 Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DWTDEV+DWTDCS DOCUMENT VERSION «, t00=0x0035, t01=0x0052}
0x5342…535e Head {h00=0x0018, h01=0x0050, text=» CF A5,SEND SEND SNV«, t00=0x0035, t01=0x0082}
0x535e…5380 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0035, t01=0x009e}
0x5380…53a4 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0035, t01=0x00c0}
0x53a4…53ce Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBCW,A8 GET REQUESTED LINE«, t00=0x0035, t01=0x00e4}
0x53ce…53e2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0035, t01=0x010e}
0x53e2…540c Head {h00=0x0026, h01=0x0050, text=» RF(Z) POSERR ILLEGAL LINE NUMBER «, t00=0x0035, t01=0x0122}
0x540c…5434 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV+DWTDL,A6 MAX. LINE«, t00=0x0035, t01=0x014c}
0x5434…5462 Head {h00=0x002a, h01=0x0050, text=» CF A5,BINARY CONVERT ASCII TO BINARY «, t00=0x0035, t01=0x0174}
0x5462…5488 Head {h00=0x0022, h01=0x0050, text=» CWR A4,A3 REQ. LINE>MAX. LINE«, t00=0x0036, t01=0x0012}
0x5488…54a2 Head {h00=0x0016, h01=0x0050, text=» RF(G) POSERR YES «, t00=0x0036, t01=0x0038}
0x54a2…54c4 Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 CORRECT POSITION«, t00=0x0036, t01=0x0052}
0x54c4…54e6 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 INVERT LINE NO.«, t00=0x0036, t01=0x0074}
0x54e6…5512 Head {h00=0x0028, h01=0x0050, text=» NGR A4,A4 GET PRINTER REQ. LINE NO.«, t00=0x0036, t01=0x0096}
0x5512…5540 Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BINARY TO ASCII «, t00=0x0036, t01=0x00c2}
0x5540…5572 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE«, t00=0x0036, t01=0x00f0}
0x5572…55a2 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTDEV+DWTALN,A6 GET ACTUAL LINE «, t00=0x0036, t01=0x0122}
0x55a2…55d4 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) POS030 DOCUMENT ALREADY POSITIONED«, t00=0x0036, t01=0x0152}
0x55d4…55e8 Head {h00=0x0010, h01=0x0050, text=»POS005 EQU *«, t00=0x0036, t01=0x0184}
0x55e8…5608 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/6 BLOCK LENGTH «, t00=0x0037, t01=0x0008}
0x5608…562c Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0037, t01=0x0028}
0x562c…5650 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0037, t01=0x004c}
0x5650…5678 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,CSINFF INPUT FRONT FEED«, t00=0x0037, t01=0x0070}
0x5678…56ba Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT «, t00=0x0037, t01=0x0098}
0x56ba…56e4 Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND INPUT FRONT FEED «, t00=0x0037, t01=0x00da}
0x56e4…56f8 Head {h00=0x0010, h01=0x0050, text=»POS010 EQU *«, t00=0x0037, t01=0x0104}
0x56f8…571a Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0037, t01=0x0118}
0x571a…573e Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0037, t01=0x013a}
0x573e…575e Head {h00=0x001c, h01=0x0050, text=» CF A5,GTSTAT GET STATUS«, t00=0x0037, t01=0x015e}
0x575e…5780 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 GET RETURN CODE«, t00=0x0037, t01=0x017e}
0x5780…57ac Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/2000 PAPER DOCUMENT OUT ? «, t00=0x0038, t01=0x0010}
0x57ac…57e8 Head {h00=0x0038, h01=0x0050, text=» RB(NZ) POS005 YES WAIT FOR DOCUMENT TO BE INSERTED «, t00=0x0038, t01=0x003c}
0x57e8…581a Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTDEV+DWTRLN,A6 GET REQUESTED LINE«, t00=0x0038, t01=0x0078}
0x581a…5850 Head {h00=0x0032, h01=0x0050, text=» ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQ LINE«, t00=0x0038, t01=0x00aa}
0x5850…586a Head {h00=0x0016, h01=0x0050, text=»POS020 ABL LENDIS «, t00=0x0038, t01=0x00e0}
0x586a…587e Head {h00=0x0010, h01=0x0050, text=»POS030 EQU *«, t00=0x0038, t01=0x00fa}
0x587e…589e Head {h00=0x001c, h01=0x0050, text=» LDK A2,/6 BLOCK LENGTH «, t00=0x0038, t01=0x010e}
0x589e…58c2 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0038, t01=0x012e}
0x58c2…58e6 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0038, t01=0x0152}
0x58e6…591a Head {h00=0x0030, h01=0x0050, text=» LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED«, t00=0x0038, t01=0x0176}
0x591a…595c Head {h00=0x003e, h01=0x0050, text=» LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT «, t00=0x0039, t01=0x001a}
0x595c…5992 Head {h00=0x0032, h01=0x0050, text=» CF A5,SEND SEND VERTICAL POSITION FRONT FEED «, t00=0x0039, t01=0x005c}
0x5992…59a4 Head {h00=0x000e, h01=0x0050, text=» RB POS010«, t00=0x0039, t01=0x0092}
0x59a4…59b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00a4}
0x59b0…59c4 Head {h00=0x0010, h01=0x0050, text=»POSERR EQU *«, t00=0x0039, t01=0x00b0}
0x59c4…59f0 Head {h00=0x0028, h01=0x0050, text=» ABL LENDER REQ. ERROR, END REQUEST «, t00=0x0039, t01=0x00c4}
0x59f0…59fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00f0}
0x59fe…5a12 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x0039, t01=0x00fe}
0x5a12…5a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0112}
0x5a1c…5a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x011c}
0x5a26…5a52 Head {h00=0x0028, h01=0x0050, text=»* ORDER 24 : SET DOCUMENT PARAMETERS«, t00=0x0039, t01=0x0126}
0x5a52…5a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0152}
0x5a5c…5a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x015c}
0x5a66…5a8e Head {h00=0x0024, h01=0x0050, text=»DOCPAR EQU * DOCUMENT PARAMETERS«, t00=0x0039, t01=0x0166}
0x5a8e…5aaa Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 CLEAR A1 «, t00=0x0039, t01=0x018e}
0x5aaa…5ac0 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x003a, t01=0x001a}
0x5ac0…5aec Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBCW,A8 GET NUMBER OF LINES «, t00=0x003a, t01=0x0030}
0x5aec…5b08 Head {h00=0x0018, h01=0x0050, text=» SRL A4,8 GET LINES «, t00=0x003a, t01=0x005c}
0x5b08…5b30 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DOC010 NO CHANGE OF LINES«, t00=0x003a, t01=0x0078}
0x5b30…5b50 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/10 INDEX TO BIG«, t00=0x003a, t01=0x00a0}
0x5b50…5b6a Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x003a, t01=0x00c0}
0x5b6a…5b98 Head {h00=0x002a, h01=0x0050, text=» ADR A4,A4 ADJUST INDEX TO LINE TABLE «, t00=0x003a, t01=0x00da}
0x5b98…5bcc Head {h00=0x0030, h01=0x0050, text=» LD A4,LINNUM,A4 GET LINE ACCORDING TO INDEX«, t00=0x003a, t01=0x0108}
0x5bcc…5c08 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT «, t00=0x003a, t01=0x013c}
0x5c08…5c1c Head {h00=0x0010, h01=0x0050, text=»DOC010 EQU *«, t00=0x003a, t01=0x0178}
0x5c1c…5c54 Head {h00=0x0034, h01=0x0050, text=» LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION«, t00=0x003a, t01=0x018c}
0x5c54…5c68 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003b, t01=0x0034}
0x5c68…5ca2 Head {h00=0x0036, h01=0x0050, text=» RF(Z) DOC020 NO CHANGE OF NATIONAL CHARACTER SET «, t00=0x003b, t01=0x0048}
0x5ca2…5cc2 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/F INDEX TO BIG «, t00=0x003b, t01=0x0082}
0x5cc2…5cdc Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x003b, t01=0x00a2}
0x5cdc…5d02 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A4 ADJUST TABLE INDEX «, t00=0x003b, t01=0x00bc}
0x5d02…5d3c Head {h00=0x0036, h01=0x0050, text=» LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX «, t00=0x003b, t01=0x00e2}
0x5d3c…5d7a Head {h00=0x003a, h01=0x0050, text=» ST A4,DWTDEV+DWTDCS,A6 SET CHARACTER SET FOR DOCUMENT«, t00=0x003b, t01=0x011c}
0x5d7a…5d8e Head {h00=0x0010, h01=0x0050, text=»DOC020 EQU *«, t00=0x003b, t01=0x015a}
0x5d8e…5dac Head {h00=0x001a, h01=0x0050, text=» RB ENDIO END REQUEST «, t00=0x003b, t01=0x016e}
0x5dac…5db8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x018c}
0x5db8…5dc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0008}
0x5dc6…5dd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0016}
0x5dd0…5dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0020}
0x5dda…5e14 Head {h00=0x0036, h01=0x0050, text=»* ORDER 24 : SET CONTINUOUS STATIONARY PARAMETERS «, t00=0x003c, t01=0x002a}
0x5e14…5e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0064}
0x5e1e…5e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x006e}
0x5e28…5e62 Head {h00=0x0036, h01=0x0050, text=»CSTPAR EQU * SET PARAMETERS CONTINUOUS STATIONARY «, t00=0x003c, t01=0x0078}
0x5e62…5e7e Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 CLEAR A1 «, t00=0x003c, t01=0x00b2}
0x5e7e…5e94 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x003c, t01=0x00ce}
0x5e94…5ec4 Head {h00=0x002c, h01=0x0050, text=» LD A4,ECBCW,A8 GET NUMBER OF LINES CST.«, t00=0x003c, t01=0x00e4}
0x5ec4…5ee0 Head {h00=0x0018, h01=0x0050, text=» SRL A4,8 GET LINES «, t00=0x003c, t01=0x0114}
0x5ee0…5f08 Head {h00=0x0024, h01=0x0050, text=» RF(Z) CST010 NO CHANGE OF LINES«, t00=0x003c, t01=0x0130}
0x5f08…5f28 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/10 INDEX TO BIG«, t00=0x003c, t01=0x0158}
0x5f28…5f42 Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x003c, t01=0x0178}
0x5f42…5f70 (61, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ADR A4,A4 ADJUST INDEX TO LINE TABLE «, t00=0x003d, t01=0x0004}
0x5f70…5fa6 Head {h00=0x0032, h01=0x0050, text=» LD A4,LINNUM,A4 GET LINES ACCORDING TO INDEX «, t00=0x003d, t01=0x0032}
0x5fa6…5fe4 Head {h00=0x003a, h01=0x0050, text=» ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH FOR CONT.STAT. «, t00=0x003d, t01=0x0068}
0x5fe4…6004 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/A BLOCK LENGTH «, t00=0x003d, t01=0x00a6}
0x6004…6028 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x003d, t01=0x00c6}
0x6028…604c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003d, t01=0x00ea}
0x604c…6076 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,CSSLPL SELECT PAGELENGTH «, t00=0x003d, t01=0x010e}
0x6076…60b0 Head {h00=0x0036, h01=0x0050, text=» LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. «, t00=0x003d, t01=0x0138}
0x60b0…60da Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND SLECT PAGELENGTH «, t00=0x003d, t01=0x0172}
0x60da…60fc Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x003e, t01=0x000c}
0x60fc…6120 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003e, t01=0x002e}
0x6120…6134 Head {h00=0x0010, h01=0x0050, text=»CST010 EQU *«, t00=0x003e, t01=0x0052}
0x6134…616c Head {h00=0x0034, h01=0x0050, text=» LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION«, t00=0x003e, t01=0x0066}
0x616c…6180 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003e, t01=0x009e}
0x6180…61b2 Head {h00=0x002e, h01=0x0050, text=» RF(Z) CST020 NO CHANGE OF NAT. CHAR. SET «, t00=0x003e, t01=0x00b2}
0x61b2…61d2 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/F INDEX TO BIG «, t00=0x003e, t01=0x00e4}
0x61d2…61ec Head {h00=0x0016, h01=0x0050, text=» RB(G) POSERR YES «, t00=0x003e, t01=0x0104}
0x61ec…6220 Head {h00=0x0030, h01=0x0050, text=» ADR A4,A4 ADJUST INDEX TO NAT. CHAR. TABLE «, t00=0x003e, t01=0x011e}
0x6220…625a Head {h00=0x0036, h01=0x0050, text=» LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX «, t00=0x003e, t01=0x0152}
0x625a…629c Head {h00=0x003e, h01=0x0050, text=» ST A4,DWTDEV+DWTPCS,A6 SET NAT. CHAR. SET FOR CONT.STAT. «, t00=0x003e, t01=0x018c}
0x629c…62b0 Head {h00=0x0010, h01=0x0050, text=»CST020 EQU *«, t00=0x003f, t01=0x003e}
0x62b0…62ce Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x003f, t01=0x0052}
0x62ce…62dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0070}
0x62dc…62f0 Head {h00=0x0010, h01=0x0050, text=» IFT FFDEV=1«, t00=0x003f, t01=0x007e}
0x62f0…62fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0092}
0x62fa…6304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x009c}
0x6304…632a Head {h00=0x0022, h01=0x0050, text=»* ORDER 38 : RELEASE DOCUMENT «, t00=0x003f, t01=0x00a6}
0x632a…6334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00cc}
0x6334…633e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00d6}
0x633e…6352 Head {h00=0x0010, h01=0x0050, text=»RELDOC EQU *«, t00=0x003f, t01=0x00e0}
0x6352…6372 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x003f, t01=0x00f4}
0x6372…6396 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x003f, t01=0x0114}
0x6396…63ba Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x003f, t01=0x0138}
0x63ba…63d0 Head {h00=0x0012, h01=0x0050, text=» CF A5,RESREC «, t00=0x003f, t01=0x015c}
0x63d0…6406 Head {h00=0x0032, h01=0x0050, text=» LDKL A2,CSEJFF CONTROL SEQ. EJECT FRONT FEED «, t00=0x003f, t01=0x0172}
0x6406…6428 Head {h00=0x001e, h01=0x0050, text=» CF A5,SEND SEND SEQUENCE «, t00=0x0040, t01=0x0018}
0x6428…644a Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0040, t01=0x003a}
0x644a…646e Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0040, t01=0x005c}
0x646e…649c Head {h00=0x002a, h01=0x0050, text=» CF A5,GTSTAT GET STATUS FROM PRINTER «, t00=0x0040, t01=0x0080}
0x649c…64be Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 GET RETURN CODE«, t00=0x0040, t01=0x00ae}
0x64be…64e4 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 DOCUMENT RELEASED «, t00=0x0040, t01=0x00d0}
0x64e4…650a Head {h00=0x0022, h01=0x0050, text=» RB(NZ) RELDOC NO , TRY AGAIN «, t00=0x0040, t01=0x00f6}
0x650a…652e Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/8000 REQUEST ERROR«, t00=0x0040, t01=0x011c}
0x652e…655c Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE«, t00=0x0040, t01=0x0140}
0x655c…658e Head {h00=0x002e, h01=0x0050, text=» CM DWTDEV+DWTRLN,A6 RESET REQUESTED LINE «, t00=0x0040, t01=0x016e}
0x658e…65ac Head {h00=0x001a, h01=0x0050, text=» ABL ENDIO END REQUEST«, t00=0x0041, t01=0x0010}
0x65ac…65b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x002e}
0x65b8…65c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x003a}
0x65c6…65d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0048}
0x65d0…65da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0052}
0x65da…65ec Head {h00=0x000e, h01=0x0050, text=»* R C T P«, t00=0x0041, t01=0x005c}
0x65ec…65f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x006e}
0x65f6…6634 Head {h00=0x003a, h01=0x0050, text=»* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON«, t00=0x0041, t01=0x0078}
0x6634…663e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b6}
0x663e…6648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00c0}
0x6648…665a Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x0041, t01=0x00ca}
0x665a…6688 Head {h00=0x002a, h01=0x0050, text=»RCTP07 LDKL A1,/7FFF SET DEVICE BUSY «, t00=0x0041, t01=0x00dc}
0x6688…66a6 Head {h00=0x001a, h01=0x0050, text=» ANS A1,DWTST,A6 BUSY «, t00=0x0041, t01=0x010a}
0x66a6…66c8 Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x0041, t01=0x0128}
0x66c8…66da Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0041, t01=0x014a}
0x66da…66f0 Head {h00=0x0012, h01=0x0050, text=» IFT NORCVY=1 «, t00=0x0041, t01=0x015c}
0x66f0…671e Head {h00=0x002a, h01=0x0050, text=» RF RCTP20 DON'T CHANGE PARAMETERS DK3«, t00=0x0041, t01=0x0172}
0x671e…672c Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x0042, t01=0x0010}
0x672c…674c Head {h00=0x001c, h01=0x0050, text=» LDK A2,/F BLOCK LENGTH «, t00=0x0042, t01=0x001e}
0x674c…6770 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0042, t01=0x003e}
0x6770…6794 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0042, t01=0x0062}
0x6794…67c2 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CSRIS RESET TO INITIAL STATE «, t00=0x0042, t01=0x0086}
0x67c2…67f2 Head {h00=0x002c, h01=0x0050, text=» CF A5,SEND SEND RESET TO INITIAL STATE «, t00=0x0042, t01=0x00b4}
0x67f2…682e Head {h00=0x0038, h01=0x0050, text=» LD A1,DWTDEV+DWTSYST,A6 INTERN. SYSTEM START IND. «, t00=0x0042, t01=0x00e4}
0x682e…6854 Head {h00=0x0022, h01=0x0050, text=» RF(Z) RCTP10 NO SYSTEM START «, t00=0x0042, t01=0x0120}
0x6854…6862 Head {h00=0x000a, h01=0x0050, text=» * «, t00=0x0042, t01=0x0146}
0x6862…689c Head {h00=0x0036, h01=0x0050, text=» CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR «, t00=0x0042, t01=0x0154}
0x689c…68aa Head {h00=0x000a, h01=0x0050, text=» * «, t00=0x0042, t01=0x018e}
0x68aa…68de Head {h00=0x0030, h01=0x0050, text=» LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET «, t00=0x0043, t01=0x000c}
0x68de…690c Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BIANARY TO ASCII«, t00=0x0043, t01=0x0040}
0x690c…6942 Head {h00=0x0032, h01=0x0050, text=» ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT«, t00=0x0043, t01=0x006e}
0x6942…697a Head {h00=0x0034, h01=0x0050, text=» ST A4,DWTDEV+DWTPCS,A6 SET CHAR. SET CONT.STAT.«, t00=0x0043, t01=0x00a4}
0x697a…69a6 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,PAGLEN STANDARD PAGE LENGTH«, t00=0x0043, t01=0x00dc}
0x69a6…69d4 Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BINARY TO ASCII «, t00=0x0043, t01=0x0108}
0x69d4…6a0e Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH CONT.STAT. «, t00=0x0043, t01=0x0136}
0x6a0e…6a38 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,CSSLPL SELECT PAGELENGTH «, t00=0x0043, t01=0x0170}
0x6a38…6a72 Head {h00=0x0036, h01=0x0050, text=» LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. «, t00=0x0044, t01=0x000a}
0x6a72…6a9c Head {h00=0x0026, h01=0x0050, text=» CF A5,SEND SEND SELECT PAGELENGTH«, t00=0x0044, t01=0x0044}
0x6a9c…6ad6 Head {h00=0x0036, h01=0x0050, text=» LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT «, t00=0x0044, t01=0x006e}
0x6ad6…6b04 Head {h00=0x002a, h01=0x0050, text=» CF A5,KONVER CONVERT BINARY TO ASCII «, t00=0x0044, t01=0x00a8}
0x6b04…6b3c Head {h00=0x0034, h01=0x0050, text=» ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT «, t00=0x0044, t01=0x00d6}
0x6b3c…6b50 Head {h00=0x0010, h01=0x0050, text=»RCTP10 EQU *«, t00=0x0044, t01=0x010e}
0x6b50…6b72 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0044, t01=0x0122}
0x6b72…6b96 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0044, t01=0x0144}
0x6b96…6bac Head {h00=0x0012, h01=0x0050, text=»RCTP20 EQU * «, t00=0x0044, t01=0x0168}
0x6bac…6bda Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE«, t00=0x0044, t01=0x017e}
0x6bda…6c0a Head {h00=0x002c, h01=0x0050, text=» LDKL A1,/20 INDICATE POWER OFF OCCURED «, t00=0x0045, t01=0x001c}
0x6c0a…6c24 Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTDEV,A6 «, t00=0x0045, t01=0x004c}
0x6c24…6c4c Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTECB,A6 RUNNING REQUEST«, t00=0x0045, t01=0x0066}
0x6c4c…6c7c Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) ACT005 YES , REPEAT THE REQUEST«, t00=0x0045, t01=0x008e}
0x6c7c…6c98 Head {h00=0x0018, h01=0x0050, text=» ABL LENDIS DISPATCH«, t00=0x0045, t01=0x00be}
0x6c98…6ca6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x00da}
0x6ca6…6cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00e8}
0x6cb0…6cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00f2}
0x6cba…6cca Head {h00=0x000c, h01=0x0050, text=»* GTSTAT«, t00=0x0045, t01=0x00fc}
0x6cca…6cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x010c}
0x6cd4…6cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0116}
0x6cde…6ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0120}
0x6ce8…6d2a Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE SENDS 'DEVICE STATUS REPORT TO THE PRINTER «, t00=0x0045, t01=0x012a}
0x6d2a…6d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x016c}
0x6d34…6d72 Head {h00=0x003a, h01=0x0050, text=»* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER«, t00=0x0045, t01=0x0176}
0x6d72…6d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0024}
0x6d7c…6d9e Head {h00=0x001e, h01=0x0050, text=»* AT EXIT A1 = RETURN CODE«, t00=0x0046, t01=0x002e}
0x6d9e…6da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0050}
0x6da8…6db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x005a}
0x6db2…6dc6 Head {h00=0x0010, h01=0x0050, text=»GTSTAT EQU *«, t00=0x0046, t01=0x0064}
0x6dc6…6df4 Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTRC,A6 RESET RETURN CODE «, t00=0x0046, t01=0x0078}
0x6df4…6e14 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x0046, t01=0x00a6}
0x6e14…6e38 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0046, t01=0x00c6}
0x6e38…6e5c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0046, t01=0x00ea}
0x6e5c…6e78 Head {h00=0x0018, h01=0x0050, text=» LDK A2,ESC ESCAPE «, t00=0x0046, t01=0x010e}
0x6e78…6e96 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND ESC«, t00=0x0046, t01=0x012a}
0x6e96…6eba Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0046, t01=0x0148}
0x6eba…6eea Head {h00=0x002c, h01=0x0050, text=» LDK A2,CSI CONTROL SEQUENCE INTRODUCER «, t00=0x0046, t01=0x016c}
0x6eea…6f08 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND CSI«, t00=0x0047, t01=0x000c}
0x6f08…6f2c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0047, t01=0x002a}
0x6f2c…6f40 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0047, t01=0x004e}
0x6f40…6f5e Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND /35«, t00=0x0047, t01=0x0062}
0x6f5e…6f82 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0047, t01=0x0080}
0x6f82…6faa Head {h00=0x0024, h01=0x0050, text=» LDK A2,DSR DEVICE STATUS REPORT«, t00=0x0047, t01=0x00a4}
0x6faa…6fc8 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND DSR«, t00=0x0047, t01=0x00cc}
0x6fc8…6fec Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0047, t01=0x00ea}
0x6fec…700e Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0047, t01=0x010e}
0x700e…7032 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0047, t01=0x0130}
0x7032…7058 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 SAVE DWT ADDRESS =1«, t00=0x0047, t01=0x0154}
0x7058…707a Head {h00=0x001e, h01=0x0050, text=» LDKL A4,DWTDEV+DWTTP =1 «, t00=0x0047, t01=0x017a}
0x707a…7090 Head {h00=0x0012, h01=0x0050, text=» ADR A4,A6 =1«, t00=0x0048, t01=0x000c}
0x7090…70c0 Head {h00=0x002c, h01=0x0050, text=» LC A2,DWTOR+1,A6 TEST STATUS ORDER? DK4«, t00=0x0048, t01=0x0022}
0x70c0…70d4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0048, t01=0x0052}
0x70d4…7100 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) GTST02 NO, 25 SEC. TIMER DK4«, t00=0x0048, t01=0x0066}
0x7100…7130 Head {h00=0x002c, h01=0x0050, text=» LDK A2,IMTIME IMMEDIATE = 2 SECONDS DK4«, t00=0x0048, t01=0x0092}
0x7130…7146 Head {h00=0x0012, h01=0x0050, text=» ST A2,VARTIM «, t00=0x0048, t01=0x00c2}
0x7146…715c Head {h00=0x0012, h01=0x0050, text=»GTST02 EQU * «, t00=0x0048, t01=0x00d8}
0x715c…7180 Head {h00=0x0020, h01=0x0050, text=» CF A15,SETIMP SET TIMER =1 «, t00=0x0048, t01=0x00ee}
0x7180…71b2 Head {h00=0x002e, h01=0x0050, text=» DATA ERGP00,TIME RETURN ADDR., TIMEOUT =1«, t00=0x0048, t01=0x0112}
0x71b2…71e0 Head {h00=0x002a, h01=0x0050, text=»VARTIM EQU *-2 VARIABLE TIME VALUE DK4«, t00=0x0048, t01=0x0144}
0x71e0…720e Head {h00=0x002a, h01=0x0050, text=» LDK A2,TIME RESTORE 25 SEC. TIMER DK4«, t00=0x0048, t01=0x0172}
0x720e…722a Head {h00=0x0018, h01=0x0050, text=» ST A2,VARTIM . DK4 «, t00=0x0049, t01=0x0010}
0x722a…7256 Head {h00=0x0028, h01=0x0050, text=»GTST05 LDKL A4,TAB GET TABLE ADDRESS«, t00=0x0049, t01=0x002c}
0x7256…726a Head {h00=0x0010, h01=0x0050, text=»GTST10 EQU *«, t00=0x0049, t01=0x0058}
0x726a…7288 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 RESET INDEX «, t00=0x0049, t01=0x006c}
0x7288…72b6 Head {h00=0x002a, h01=0x0050, text=» CF A5,INPUT READ STATUS FROM PRINTER «, t00=0x0049, t01=0x008a}
0x72b6…72d8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FF GET CHARACTER «, t00=0x0049, t01=0x00b8}
0x72d8…7300 Head {h00=0x0024, h01=0x0050, text=» CCK A2,/9C9C STRING TERMINATOR «, t00=0x0049, t01=0x00da}
0x7300…731a Head {h00=0x0016, h01=0x0050, text=» RF(E) GTSEND YES «, t00=0x0049, t01=0x0102}
0x731a…7342 Head {h00=0x0024, h01=0x0050, text=» LCR A3,A4 GET MASK RETURN CODE «, t00=0x0049, t01=0x011c}
0x7342…7354 Head {h00=0x000e, h01=0x0050, text=» ANR A2,A3«, t00=0x0049, t01=0x0144}
0x7354…7382 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 «, t00=0x0049, t01=0x0156}
0x7382…739e Head {h00=0x0018, h01=0x0050, text=» LC A3,1,A4 A3 TIMES«, t00=0x0049, t01=0x0184}
0x739e…73c6 Head {h00=0x0024, h01=0x0050, text=» EXR A3 EXECUT SHIFT INSTRUCTION«, t00=0x004a, t01=0x0010}
0x73c6…7402 Head {h00=0x0038, h01=0x0050, text=» ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY«, t00=0x004a, t01=0x0038}
0x7402…7424 Head {h00=0x001e, h01=0x0050, text=» ADK A4,2 INCREMENT ADRESS«, t00=0x004a, t01=0x0074}
0x7424…7450 Head {h00=0x0028, h01=0x0050, text=» RB GTST10 GET NEXT STATUS CHARACTER«, t00=0x004a, t01=0x0096}
0x7450…7464 Head {h00=0x0010, h01=0x0050, text=»GTSEND EQU *«, t00=0x004a, t01=0x00c2}
0x7464…7492 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTRC,A6 GET RETURN CODE«, t00=0x004a, t01=0x00d6}
0x7492…74b6 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTDEV+DWTTP,A6 =1 «, t00=0x004a, t01=0x0104}
0x74b6…74e6 Head {h00=0x002c, h01=0x0050, text=» RF(Z) GTST20 CHECK IF ALLREADY ZERO =1 «, t00=0x004a, t01=0x0128}
0x74e6…7512 Head {h00=0x0028, h01=0x0050, text=» CM* DWTDEV+DWTTP,A6 RESET TIMER =1 «, t00=0x004a, t01=0x0158}
0x7512…754a Head {h00=0x0034, h01=0x0050, text=»GTST20 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1«, t00=0x004a, t01=0x0184}
0x754a…755a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x002c}
0x755a…7568 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x003c}
0x7568…7572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x004a}
0x7572…75b0 Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE«, t00=0x004b, t01=0x0054}
0x75b0…75ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0092}
0x75ba…75d0 Head {h00=0x0012, h01=0x0050, text=»* REGISTERS : «, t00=0x004b, t01=0x009c}
0x75d0…75ee Head {h00=0x001a, h01=0x0050, text=»* A1= WORK REGISTER «, t00=0x004b, t01=0x00b2}
0x75ee…760a Head {h00=0x0018, h01=0x0050, text=»* A4= BINARY INPUT«, t00=0x004b, t01=0x00d0}
0x760a…762a Head {h00=0x001c, h01=0x0050, text=»* A2,A4= ASCII OUTPUT «, t00=0x004b, t01=0x00ec}
0x762a…7634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x010c}
0x7634…763e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0116}
0x763e…7652 Head {h00=0x0010, h01=0x0050, text=»KONVER EQU *«, t00=0x004b, t01=0x0120}
0x7652…766a Head {h00=0x0014, h01=0x0050, text=»* BINARY TO DEC.«, t00=0x004b, t01=0x0134}
0x766a…7684 Head {h00=0x0016, h01=0x0050, text=» LDK A2,0 CLEAR A2«, t00=0x004b, t01=0x014c}
0x7684…76a6 Head {h00=0x001e, h01=0x0050, text=» CWK A4,100 VALUE > 100 ? «, t00=0x004b, t01=0x0166}
0x76a6…76be Head {h00=0x0014, h01=0x0050, text=» RF(L) KONV05 NO«, t00=0x004b, t01=0x0188}
0x76be…76d2 Head {h00=0x0010, h01=0x0050, text=» SUKL A4,100«, t00=0x004c, t01=0x0010}
0x76d2…76fc Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/100 LEFT BYTE OF A2=X=1 «, t00=0x004c, t01=0x0024}
0x76fc…772a Head {h00=0x002a, h01=0x0050, text=»KONV05 CWK A4,10 ARE THERE ANY TENS ? «, t00=0x004c, t01=0x004e}
0x772a…7742 Head {h00=0x0014, h01=0x0050, text=» RF(L) KONV04 NO«, t00=0x004c, t01=0x007c}
0x7742…7754 Head {h00=0x000e, h01=0x0050, text=» SUK A4,10«, t00=0x004c, t01=0x0094}
0x7754…778a Head {h00=0x0032, h01=0x0050, text=» ADK A2,/1 NUMBER OF TENS IN RIGHT B. OF A2=Y «, t00=0x004c, t01=0x00a6}
0x778a…77a2 Head {h00=0x0014, h01=0x0050, text=» RB KONV05 NEXT «, t00=0x004c, t01=0x00dc}
0x77a2…77c8 Head {h00=0x0022, h01=0x0050, text=»KONV04 ORKL A2,/3030 XY IN A2 «, t00=0x004c, t01=0x00f4}
0x77c8…77e4 Head {h00=0x0018, h01=0x0050, text=» ORK A4,/30 Z IN A4 «, t00=0x004c, t01=0x011a}
0x77e4…77fe Head {h00=0x0016, h01=0x0050, text=» SRC A2,8 YX IN A2«, t00=0x004c, t01=0x0136}
0x77fe…7810 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x004c, t01=0x0150}
0x7810…7834 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FF00 KEEP Y IN A1 «, t00=0x004c, t01=0x0162}
0x7834…7866 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII«, t00=0x004c, t01=0x0186}
0x7866…7888 Head {h00=0x001e, h01=0x0050, text=» ORR A4,A1 YZ IN A1. ASCII«, t00=0x004d, t01=0x0028}
0x7888…7898 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004d, t01=0x004a}
0x7898…78a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x005a}
0x78a6…78b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0068}
0x78b0…78ca Head {h00=0x0016, h01=0x0050, text=»* RESET RECORVERY «, t00=0x004d, t01=0x0072}
0x78ca…78d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x008c}
0x78d4…78e8 Head {h00=0x0010, h01=0x0050, text=»RESREC EQU *«, t00=0x004d, t01=0x0096}
0x78e8…790e Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTDEV,A6 DEVICE STATUS«, t00=0x004d, t01=0x00aa}
0x790e…792c Head {h00=0x001a, h01=0x0050, text=» ANKL A4,/20 RECOVERY?«, t00=0x004d, t01=0x00d0}
0x792c…7946 Head {h00=0x0016, h01=0x0050, text=» RF(E) RESRTN NO. «, t00=0x004d, t01=0x00ee}
0x7946…7978 Head {h00=0x002e, h01=0x0050, text=» XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT «, t00=0x004d, t01=0x0108}
0x7978…7994 Head {h00=0x0018, h01=0x0050, text=»RESRTN RTN A5 RETURN«, t00=0x004d, t01=0x013a}
0x7994…799e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0156}
0x799e…79a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0160}
0x79a8…79b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x016a}
0x79b2…79bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0174}
0x79bc…79fa Head {h00=0x003a, h01=0x0050, text=»* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK AND TIMER«, t00=0x004d, t01=0x017e}
0x79fa…7a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x002c}
0x7a04…7a26 Head {h00=0x001e, h01=0x0050, text=»* INPUT : A1 = RETURN CODE«, t00=0x004e, t01=0x0036}
0x7a26…7a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0058}
0x7a30…7a44 Head {h00=0x0010, h01=0x0050, text=»ERROUT EQU *«, t00=0x004e, t01=0x0062}
0x7a44…7a78 Head {h00=0x0030, h01=0x0050, text=» ANK A1,/1A OUTP. ERR, SOFTW T-OUT, LRC-ERR «, t00=0x004e, t01=0x0076}
0x7a78…7a96 Head {h00=0x001a, h01=0x0050, text=» ABL(NZ) RCTP RECOVERY«, t00=0x004e, t01=0x00aa}
0x7a96…7aba Head {h00=0x0020, h01=0x0050, text=»ERGP10 LDK A1,1 IND. NOT OP.«, t00=0x004e, t01=0x00c8}
0x7aba…7ace Head {h00=0x0010, h01=0x0050, text=» ABL LENDIS «, t00=0x004e, t01=0x00ec}
0x7ace…7ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0100}
0x7ad8…7af0 Head {h00=0x0014, h01=0x0050, text=»ERGP00 EQU * =1«, t00=0x004e, t01=0x010a}
0x7af0…7b18 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A1 RESTORE DWTADDRESS =1«, t00=0x004e, t01=0x0122}
0x7b18…7b4a Head {h00=0x002e, h01=0x0050, text=» CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1«, t00=0x004e, t01=0x014a}
0x7b4a…7b5c Head {h00=0x000e, h01=0x0050, text=» RB ERGP10«, t00=0x004e, t01=0x017c}
0x7b5c…7b6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x018e}
0x7b6a…7b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x000c}
0x7b74…7b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0016}
0x7b7e…7b90 Head {h00=0x000e, h01=0x0050, text=»* S E N D «, t00=0x004f, t01=0x0020}
0x7b90…7b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0032}
0x7b9a…7bca Head {h00=0x002c, h01=0x0050, text=»* THIS ROUTINE SENDS AN CONTROL SEQUENCE«, t00=0x004f, t01=0x003c}
0x7bca…7be2 Head {h00=0x0014, h01=0x0050, text=»* TO THE PRINTER«, t00=0x004f, t01=0x006c}
0x7be2…7bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0084}
0x7bec…7bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x008e}
0x7bf6…7c0a Head {h00=0x0010, h01=0x0050, text=»* AT ENTRY :«, t00=0x004f, t01=0x0098}
0x7c0a…7c30 Head {h00=0x0022, h01=0x0050, text=»* A2 = CONTROL SEQUENCE ADRESS«, t00=0x004f, t01=0x00ac}
0x7c30…7c68 Head {h00=0x0034, h01=0x0050, text=»* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC «, t00=0x004f, t01=0x00d2}
0x7c68…7c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x010a}
0x7c72…7c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0114}
0x7c7c…7c90 Head {h00=0x0010, h01=0x0050, text=»* AT EXIT : «, t00=0x004f, t01=0x011e}
0x7c90…7cb0 Head {h00=0x001c, h01=0x0050, text=»* A1,A2,A3 IS DESTROYED «, t00=0x004f, t01=0x0132}
0x7cb0…7cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0152}
0x7cba…7cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x015c}
0x7cc4…7cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0166}
0x7cce…7cf6 Head {h00=0x0024, h01=0x0050, text=»SEND EQU * SEND CONTROL SEQUENCE«, t00=0x004f, t01=0x0170}
0x7cf6…7d2c Head {h00=0x0032, h01=0x0050, text=» ST A3,DWTDEV+DWTDISP,A6 SAVE DWT-DISPLACEMENT«, t00=0x0050, t01=0x0008}
0x7d2c…7d64 Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS «, t00=0x0050, t01=0x003e}
0x7d64…7d78 Head {h00=0x0010, h01=0x0050, text=»SEND10 EQU *«, t00=0x0050, t01=0x0076}
0x7d78…7db4 Head {h00=0x0038, h01=0x0050, text=» LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS «, t00=0x0050, t01=0x008a}
0x7db4…7dd4 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x0050, t01=0x00c6}
0x7dd4…7df6 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FF MAKE CHARACTER«, t00=0x0050, t01=0x00e6}
0x7df6…7e20 Head {h00=0x0026, h01=0x0050, text=» SLL A2,8 END OF CONTROL SEQUENCE «, t00=0x0050, t01=0x0108}
0x7e20…7e42 Head {h00=0x001e, h01=0x0050, text=» RF(N) SENDEND YES,RETURN «, t00=0x0050, t01=0x0132}
0x7e42…7e6c Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3000 LINE NO,CHAR.SET,ETC«, t00=0x0050, t01=0x0154}
0x7e6c…7e86 Head {h00=0x0016, h01=0x0050, text=» RF(E) SEND30 YES «, t00=0x0050, t01=0x017e}
0x7e86…7eb2 Head {h00=0x0028, h01=0x0050, text=» SRL A2,8 PREPARE TO SEND CHARACTER «, t00=0x0051, t01=0x0008}
0x7eb2…7ed6 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0051, t01=0x0034}
0x7ed6…7efa Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0051, t01=0x0058}
0x7efa…7f0e Head {h00=0x0010, h01=0x0050, text=»SEND20 EQU *«, t00=0x0051, t01=0x007c}
0x7f0e…7f46 Head {h00=0x0034, h01=0x0050, text=» IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS«, t00=0x0051, t01=0x0090}
0x7f46…7f62 Head {h00=0x0018, h01=0x0050, text=» RB SEND10 GET NEXT «, t00=0x0051, t01=0x00c8}
0x7f62…7f76 Head {h00=0x0010, h01=0x0050, text=»SEND30 EQU *«, t00=0x0051, t01=0x00e4}
0x7f76…7fac Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTDEV+DWTDISP,A6 GET DWT-DISPLACEMENT «, t00=0x0051, t01=0x00f8}
0x7fac…7fd0 Head {h00=0x0020, h01=0x0050, text=» ADR A3,A6 GET PROPER VALUE «, t00=0x0051, t01=0x012e}
0x7fd0…7ff0 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x0051, t01=0x0152}
0x7ff0…8014 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0051, t01=0x0172}
0x8014…8038 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ERROUT JMP IF ERROR«, t00=0x0052, t01=0x0008}
0x8038…806e Head {h00=0x0032, h01=0x0050, text=» IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS«, t00=0x0052, t01=0x002c}
0x806e…808a Head {h00=0x0018, h01=0x0050, text=» RB SEND20 GET NEXT «, t00=0x0052, t01=0x0062}
0x808a…80a0 Head {h00=0x0012, h01=0x0050, text=»SENDEND EQU * «, t00=0x0052, t01=0x007e}
0x80a0…80b0 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x0094}
0x80b0…80be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00a4}
0x80be…80c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00b2}
0x80c8…80d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00bc}
0x80d2…80e2 Head {h00=0x000c, h01=0x0050, text=»* BINARY«, t00=0x0052, t01=0x00c6}
0x80e2…80ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00d6}
0x80ec…8128 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE CONVERTS ASCII CODE TO A BINARY VALUE«, t00=0x0052, t01=0x00e0}
0x8128…8132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x011c}
0x8132…8146 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS:«, t00=0x0052, t01=0x0126}
0x8146…8160 Head {h00=0x0016, h01=0x0050, text=»* A1= ASCII INPUT «, t00=0x0052, t01=0x013a}
0x8160…817c Head {h00=0x0018, h01=0x0050, text=»* A2= WORK REGISTER «, t00=0x0052, t01=0x0154}
0x817c…8198 Head {h00=0x0018, h01=0x0050, text=»* A3= BINARY OUTPUT «, t00=0x0052, t01=0x0170}
0x8198…81a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x018c}
0x81a2…81ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0008}
0x81ac…81b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0012}
0x81b6…81d8 Head {h00=0x001e, h01=0x0050, text=»BINARY SUR A3,A3 CLEAR A3 «, t00=0x0053, t01=0x001c}
0x81d8…81fa Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 MAX. LINE ASCII«, t00=0x0053, t01=0x003e}
0x81fa…820c Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0053, t01=0x0060}
0x820c…8220 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0053, t01=0x0072}
0x8220…8232 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0053, t01=0x0086}
0x8232…8244 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0053, t01=0x0098}
0x8244…8256 Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0053, t01=0x00aa}
0x8256…8268 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0053, t01=0x00bc}
0x8268…827a Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0053, t01=0x00ce}
0x827a…829e Head {h00=0x0020, h01=0x0050, text=» ADR A3,A1 MAX. LINE BINARY «, t00=0x0053, t01=0x00e0}
0x829e…82ae Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x0104}
0x82ae…82bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0114}
0x82bc…82e2 Head {h00=0x0022, h01=0x0050, text=»LINNUM EQU *-2 NUMBER OF LINES«, t00=0x0053, t01=0x0122}
0x82e2…8308 Head {h00=0x0022, h01=0x0050, text=» DATA /3132,/3135,/3138,/3234 «, t00=0x0053, t01=0x0148}
0x8308…832e Head {h00=0x0022, h01=0x0050, text=» DATA /3235,/3330,/3333,/3335 «, t00=0x0053, t01=0x016e}
0x832e…8354 (84, 0, 400) Head {h00=0x0022, h01=0x0050, text=» DATA /3336,/3438,/3530,/3531 «, t00=0x0054, t01=0x0004}
0x8354…837a Head {h00=0x0022, h01=0x0050, text=» DATA /3630,/3636,/3730,/3732 «, t00=0x0054, t01=0x002a}
0x837a…8384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0050}
0x8384…838e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x005a}
0x838e…8398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0064}
0x8398…83a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x006e}
0x83a2…83dc Head {h00=0x0036, h01=0x0050, text=»NCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE «, t00=0x0054, t01=0x0078}
0x83dc…8402 Head {h00=0x0022, h01=0x0050, text=» DATA /3031,/3032,/3033,/3034 «, t00=0x0054, t01=0x00b2}
0x8402…8428 Head {h00=0x0022, h01=0x0050, text=» DATA /3035,/3036,/3037,/3038 «, t00=0x0054, t01=0x00d8}
0x8428…844e Head {h00=0x0022, h01=0x0050, text=» DATA /3039,/3130,/3131,/3131 «, t00=0x0054, t01=0x00fe}
0x844e…846e Head {h00=0x001c, h01=0x0050, text=» DATA /3133,/3134,/3135 «, t00=0x0054, t01=0x0124}
0x846e…84aa Head {h00=0x0038, h01=0x0050, text=»TAB EQU * MASK TABLE FOR STATUS REPORT FROM PRINTER «, t00=0x0054, t01=0x0144}
0x84aa…84cc Head {h00=0x001e, h01=0x0050, text=» DATA /C0,/C0,/C0,/2CC * «, t00=0x0054, t01=0x0180}
0x84cc…84ee Head {h00=0x001e, h01=0x0050, text=» DATA /2CF,/4CB,/C0,/C0 * «, t00=0x0055, t01=0x0012}
0x84ee…850c Head {h00=0x001a, h01=0x0050, text=» DATA /C0,/C0,/C0,/C0 «, t00=0x0055, t01=0x0034}
0x850c…8522 Head {h00=0x0012, h01=0x0050, text=» DATA /C0,/C0 «, t00=0x0055, t01=0x0052}
0x8522…852e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0055, t01=0x0068}
0x852e…8532 Head {h00=0x4004, h01=0x0000}
0x8532…8536 00 55 00 74 ┆ U t┆
0x8536…853e (86, 2, 8) 40 04 00 00 00 56 00 04 ┆@ V ┆
0x853e…8546 (87, 1, 8) 20 04 00 00 00 57 00 04 ┆ W ┆
0x8546…86d6 (88, 0, 400) 0x00[0x190]
[…0x4…]