|
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: 30210 (0x7602)
Notes: pts_type(SC)
Names: »DRTP02.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »UPD3/DRTP02.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRTP02.SC«
IDENT DRTP02 REL 11.0 81-08-31 870105041100 =3, CHARACTER BLOCKING CHANGED; ORDER & ECB-ADDRESS RELOADED; LF AFTER CUT & PERF. REMOVED; REL 11.0 81-02-16 =2, STATUS HANDLING CHANGED REL 11.0 81-01-30 =1, BLOCK DEF. ADJUSTED REL 11.0 81-01-26 ******************************************************* * * * PHILIPS TERMINAL SYSTEM PTS * * * * DRTP02 = DRIVER TELLER TERMINAL PRINTER * * * * * * * * * * ******************************************************* * * THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221, * 6222 OR 6223 * * * THIS DRIVER CONSISTS OF THE FOLLOWING PARTS: * * A C T P : ACTIVATION PART * * I H T P : INTERRUPT HANDLER * * R C T P : RECOVERY ROUTINE * * * THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES: * * P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM * * B C D T B Y : CONVERT TO BINARY FROM DECIMAL * * B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST * CHARACTER IN OUTPUT BUFFER * * G R A S P : SEND GRASP TO VOUCHER * * R E L E A S : SEND LIFT TO TOP AND RELEASE EJECT * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00 : TEST STATUS * ORDER 06 : WRITE * ORDER 0B : POSITION LIFT AND WRITE * ORDER 22 : CUT JOURNAL * ORDER 26 : PERFORATE JOURNAL * ORDER 37 : GRASP VOUCHER/PASSBOOK * ORDER 38 : RELEASE VOUCHER/PASSBOOK * * THE FOLLOWING RETURN CODES ARE USED: * * BIT 0 : REQUEST ERROR * BIT 2 : END OF JOURNAL TAPE, VOUCHER OUT * BIT 7 : RECOVERY EXECUTED ON REQUEST * BIT 13 : CODE CHECK ERROR * BIT 15 : NOT OPERABLE * * * * NORMAL REGISTER USAGE: * * REGISTER A1: WORK REGISTER * A2: INPUT/OUTPUT * A3: BUFFER POINTER * A4: OUTPUT COUNTER * A5: STACK POINTER * A6: DWT-ADDRESS * A7: ORDER * A8: ECB-ADDRESS * EJECT * * SYSTEM ADAPTATION: * * BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN * BE EXCLUDED: * * RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST * CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) * ACCAPTANCE OF SPECIAL CHARACTER /13,/14 * COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN * * * THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED * IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET * * EJECT * *********** * ENTRIES * *********** * * ENTRY TPAD ADDRESS BLOCK * * * ************* * EXTERNALS * ************* * * EXTRN LDISP DISPATCHING FROM INTERRUPT EXTRN LENDER DISPATCH I/O ERROR EXTRN LENDIS END I/O AND DISPATCH EXTRN TENDIO END I/O EXTRN OUTPUT OUTPUT ONE CHARACTER EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTOR ORDER EXTRN DWTSB2 STACK BASE 2 IN DWT EXTRN DWTDEV DEVICE STATUS EXTRN STABLK DEF. START OF BLOCK EXTRN ENDBLK DEF. END OF BLOCK EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT =2 EXTRN NDREP GET REGISTERS AND RETURN =2 EJECT * * ECB DISPLACEMENTS * EXTRN ECBBA BUFFER ADDRESS EXTRN ECBRL REQUESTED LENGTH EXTRN ECBEL EFFECTIVE LENGTH EXTRN ECBRC RETURN CODE EXTRN ECBCW CONTROL WORD EJECT ************************ * CONDITIONAL ASSEMBLY * ************************ * * * WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET * BY SETTING X:A = 1 * * X:A EQU 0 RECOV EQU X:A * * * JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY * SETTING X:B = 1 * * X:B EQU 0 CUTPER EQU X:B * * * SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 * AND X:D = 1 RESPECTIVLY * * X:C EQU 0 CHR13 EQU X:C * * X:D EQU 0 CHR14 EQU X:D * * * PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF * PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 * * X:E EQU 0 COMPL EQU X:E * * * IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT * IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING * THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET * * X:F EQU 0 RELEND EQU X:F * * * MMU BUFFER SIZE * * X:H EQU 20 DVBLEN EQU X:H * EJECT * * ************* * CONSTANTS * ************* * * CCERR EQU /4 RETURN CODE. CODE CHECK ERROR PROUT EQU /2000 RETURN CODE. END OF JOURNAL TAPE VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. WAICHA EQU /100 BIT #7 DWTDEV;WAIT FOR STATUS CHANGE VOCHA EQU /200 BIT #6 DWTDEV;VOUCHER STATUS CH. NOT ALLOWED MESS EQU /400 BIT #5 DWTDEV;TEST MESSAGE WRITTEN ETX EQU /03 LAST DUMMY REMOT EQU /01 RESET PRINT BUFFER REMOTE TAB EQU /11 TABULATION CHAR IN BUFFER CR1 EQU /0D CR JOURNAL TAPE LF1 EQU /18 LF JOURNAL TAPE CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK LF2 EQU /19 LF TALLY ROLL LDO EQU /0B LIFT DOWN 1 POSITION LUP EQU /0A LIFT UP ONE POSITION LFF EQU /0C LIFT TO TOP POSITION GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK REL EQU /1B RELEASE VOUCHER/PASSBOOK APH EQU /1D ATTACH PRINT HEAD RPH EQU /1E RETURN PRINT HEAD TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE * * ********************* * DWT-DISPLACEMENTS * ********************* * RLN EQU /4 REQUESTED LINE NUMBER ALN EQU /5 ACTUAL LINE NUMBER PCO EQU /6 POSITION COUNTER * *********** * BUFFERS * *********** * * BUF1 DATA /020D,/1D00 CR1,APH IFT CUTPER=0 BUF2 DATA /0209 CR2 XIF IFT CUTPER=1 BUF2 DATA /0309 XIF DATA /1D20 APH,SPACE BUF3 DATA /0209,/1D00 CR2,APH =2 * * * ********** * TABLES * ********** * * DATA DVBLEN MMU BUFFER SIZE DATA 2 DEVICE INDEX TPAD EQU * ADDRESS BLOCK DATA ACTP ACTIVATIONDRIVER DATA 1 ABORT ROUTINE ADDRESS DATA IHTP INTERRUPTHANDLER DATA RCTP RECOVERY ROUTINE * * TABLE TO GET ROOMLESS POINT * ROMTAB EQU * DATA /2122,/2426,/3B3C,/3E40,/5E5F * * TABLE TO GET ACTUAL LF-CHARACTER * * LFTAB EQU * DATA /1819 LINE FEED JOURNAL/TALLY ROLL IFT CUTPER=1 CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE XIF TPTAB EQU * ORDER TABLE DATA /0002,/0607,/080D IFT CUTPER=1 DATA /2226 XIF DATA /393A 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=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK LC A1,DWTOR,A6 GET DWT INDEX ANK A1,7 MASK ADR A7,A1 ADD DWT INDEX TO ORDER SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT LDK A4,0 ACTIVATION ACT005 LDK A3,TPLEN-1 ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER RF(E) ACT020 VALID ORDER SUK A3,1 RB(NN) ACT010 TRY NEXT * ABL LENDER ILLEGAL ORDER * * ACT020 LDK A1,1 ST A1,DWTDEV+PCO,A6 RESET BYTE COUNTER ADR A3,A3 GET INDEX ABI TPFUC,A3 EXECUTE ORDER TPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 IFT CUTPER=1 DATA TP700,TP750 XIF DATA TP800,TP900 EJECT * * * ORDER 00: TEST * IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE * * * * TPTEST EQU * LDK A2,/5 BLOCK LENGTH CF A5,STABLK START OF BLOCK RF(NZ) ERTP1 JMP IF ERROR LDK A2,/02 SEND CHAR /02 CF A5,OUTPUT RF(NZ) ERTP1 JMP IF ERROR LDK A2,0 SEND CHAR /00=END OF TEST CF A5,OUTPUT RF(NZ) ERTP1 JMP IF ERROR RF TPDUMY EJECT * * * ORDER 06,0B: WRITE VOUCHER/PASSBOOK * GET REQUESTED LINE NUMBER AND SAVE IN DWT * * * ACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB RF ACT085 * ACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS LC A3,1,A3 GET CONTROL CHARACTER ANK A3,/FF REQUESTED LINE STEPS SUK A3,/39 RF(G) ACT070 > /39 = ONE LF ADK A3,/9 RF(NE) ACT060 LDK A3,2 /30 = TWO LF RF ACT080 ACT060 RF(G) ACT080 /31-/39 = 1-9 LF ADK A3,/5 ABL(Z) TP605 /2B = NO LF ACT070 LDK A3,1 ONE LF ACT080 LC A1,DWTDEV+RLN,A6 GET LINE NUMBER FROM DWT SUR A1,A3 GET REQUESTED LINE POSITION ACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ? LDK A1,0 YES; SET LINE POSITION ZERO * ACT090 LDR A4,A4 RECOVERY ? RF(NZ) TP605 YES SC A1,DWTDEV+RLN,A6 SAVE REQUESTED LINE NUMBER RF TP605 EJECT * * * * ORDER 06 : PRINT JOURNAL * * * TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH TP210 EQU * =2 LD A2,ECBRL,A8 ADK A2,/F BLOCK LENGTH CF A5,STABLK START OF BLOCK ERTP1 RF(NZ) ERTP2 JMP IF ERROR LC A1,DWTDEV,A6 GET LEFT BYTE IN STATUS WORD ANK A1,4 TEXT MESSAGE WRITTEN ? RF(NE) TP220 YES; COMPLETE REQUEST LD A1,ECBRL,A8 GET REQUESTED LENGTH SUK A1,3 REQUESTED LENGTH 0-2 ? RF(N) TP230 YES; COMPLETE REQUEST RF(P) TP215 LD A1,2,A8 BUFFER ADDRESS LC A2,2,A1 THIRD CHARACTER CCK A2,/2020 CONTROL CHARACTER RF(NL) TP215 RF TP220 TP215 EQU * CF A5,BUFCHR SEND BUFFER CF A5,PRBUF PRINT ECB-BUFFER TP220 EQU * LDK A1,0 TP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED ANS A2,DWTDEV,A6 EJECT * * * ECB-BUFFER IS WRITTEN * * SEND LINE FEED IF JOURNAL OR TALLY * * TPLF EQU * LDR A1,A1 RF(NE) TPLF10 LDK A2,RPH DETACH PRINT HEAD CF A5,OUTPUT SEND RF(NZ) ERTP2 JMP IF ERROR LDKL A1,MESS INDICATE MESSAGE PRINTED =3 ORS A1,DWTDEV,A6 =3 TPLF10 EQU * SUK A7,8 RF(NN) TPL010 NOT JOURNAL AND TALLY ADK A7,2 GET INDEX TABLE LC A2,LFTAB,A7 GET LF CHARACTER CF A5,OUTPUT SEND LF CHAR. RF(NZ) ERTP2 JMP IF ERROR TPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH EJECT * * * COMMON END OF PRINT * * * SEND LAST DUMMY CHARACTER * TPDUMY EQU * LDK A2,ETX CF A5,OUTPUT RF(NZ) ERTP2 JMP IF ERROR CF A5,ENDBLK END OF BLOCK =3 ERTP2 RF(NZ) ERTP3 JMP IF ERROR =3 EJECT * * * CHECK STATUS AFTER LAST DUMMY CHARACTER * TPTST EQU * LD A7,DWTOR,A6 GET ORDER =3 ANK A7,/FF CLEAN =3 SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ? RF(NZ) TST010 NO TST005 LC A2,DWTDEV+1,A6 GET STATUS =2 ANK A2,VOIN VOUCHER OUT ? RF(NZ) ENDIO NO RF TST015 YES * TST010 SUK A7,4 IFT CUTPER=0 RF(G) ENDIO NOT TEST STATUS, JOURNAL XIF IFT CUTPER=1 RF(G) TST020 NOT TEST STATUS, JOURNAL TST012 EQU * XIF LC A2,DWTDEV+1,A6 GET STATUS =2 ANK A2,EOJT END OF JOURNAL TAPE? RF(NZ) ENDIO NO: PERFORM ENDIO TST015 ORKL A1,PROUT SET RETURN CODE: END OF JOURNAL TAPE, VOUCHER OUT * * PERFORM END I/O AND GO TO DISPATCHER * ENDIO EQU * =3 LDKL A4,/FBFF RESET MESSAGE WRITTEN IND. =3 ANS A4,DWTDEV,A6 =3 =3 ABL LENDIS PERFORM END I/O AND GO TO DISPATCHER * IFT CUTPER=1 TST020 SUK A7,16 RB(L) ENDIO VOUCHER/PASSBOOK SUK A7,4 RB(G) ENDIO GRASP,RELEASE RB TST012 CUT,PERFORATE XIF EJECT * * * * ORDER 06 : PRINT TALLY ROLL * * * TP405 CF A5,RELEAS ERROR. VOUCHER IN =2(=1) * TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH TP410 EQU * LDKL A1,VOCHA ORS A1,DWTDEV,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED RB TP210 EJECT * * * * ORDER 06 : WRITE VOUCHER/PASSBOOK * OB : POSITION LIFT AND WRITE * * TP605 EQU * LDK A2,5 BLOCK LENGTH =2 CF A5,STABLK START OF BLOCK =2 RF(NZ) ERTP3 JMP IF ERROR =2 CF A5,GRASP GRASP VOUCHER =2 LC A2,DWTDEV+RLN,A6 GET REQUESTED LINE NO. =2 ANK A2,/FF CLEAN =2 SUR A2,A3 GET /REQ.-ACT./ LINE NO. RF(NN) TP608 =2 NGR A2,A2 =2 TP608 ADK A2,/9 CF A5,STABLK START OF BLOCK RF(NZ) ERTP3 JMP IF ERROR =2 EJECT * * * SEND ELEVATOR UP/DOWN UNTIL ACTUAL * LINE NUMBER IS EQUAL REQUESTED * * TP610 CC A3,DWTDEV+RLN,A6 COMPARE LINE NUMBER RF(E) TP650 EQUAL RF(G) TP630 SEND ELEVATOR UP LDK A2,LDO SEND ELEVATOR DOWN ADK A3,1 INCREMENT ACTUAL LINE NUMBER RF TP640 TP630 LDK A2,LUP SEND ELEVATOR UP SUK A3,1 DECREMENT ACTUAL LINE NUMBER * TP640 CF A5,OUTPUT SEND LIFT CHAR RF(NZ) ERTP3 JMP IF ERROR * SC A3,DWTDEV+ALN,A6 SAVE ACTUAL LINE NUMBER LC A2,DWTDEV+1,A6 GET STATUS =2 ANK A2,VOIN VOUCHER IN ? IFT COMPL=0 ABL(Z) RCTP NO: ERROR RECOVERY RB TP610 YES: CHECK IF LIFT POSITIONED XIF IFT COMPL=1 RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED TP645 LDKL A1,PROUT 'VOUCHER OUT' ORS A1,ECBRC,A8 INDICATE IN RETURN CODE LDK A2,RPH RETURN PRINTHEAD CF A5,OUTPUT RF(NZ) ERTP3 JMP IF ERROR RB TPDUMY XIF EJECT * * * ORDER 06 AND 0B: LIFT IS POSITIONED * ATTACH AND PRINT * * TP650 EQU * CF A5,ENDBLK END OF BLOCK ERTP3 RF(NZ) ERTP4 JMP IF ERROR LDKL A3,BUF2 SEND CR2 AND ATTACH RB TP410 PRINT ECB-BUFFER EJECT IFT CUTPER=1 * * ORDER 22 AND 26 CUT AND PERFORATE JOURNAL * TP700 EQU * LDK A3,1 SET INDEX RF TP760 TP750 EQU * LDK A3,0 SET INDEX TP760 LDK A2,/4 BLOCK LENGTH CF A5,STABLK START OF BLOCK RF(NZ) ERTP4 JMP IF ERROR LC A2,CPTAB,A3 GET CHAR CF A5,OUTPUT SEND RF(NZ) ERTP4 JMP IF ERROR =3 RB TPDUMY XIF * * ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK * TP800 EQU * LDK A2,/9 BLOCK LENGTH CF A5,STABLK START OF BLOCK RF(NZ) ERTP4 JMP IF ERROR CF A5,GRASPA TP850 LDK A2,1 BLOCK LENGTH =2 CF A5,STABLK START OF BLOCK =2 RF(NZ) ERTP4 JMP IF ERROR =2 RB TPDUMY TP900 EQU * CF A5,RELEAS RB TP850 =2 EJECT * * P R B U F * * SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED * LENGTH IS REACHED * PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH SUK A4,2 ADJUST REQUESTED LENGTH LD A3,ECBBA,A8 BUFFER ADDRESS * SKIP PRECEDING SPACES IN BUFFER ADK A3,2 PRB010 LCR A1,A3 GET CHARACTER CCK A1,/2020 RF(NE) PRB050 NOT BLANK ADK A3,1 BLANK SUK A4,1 RB PRB010 GET NEXT CHARACTER * LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER PRB050 LDR A1,A3 GET ADDRESS TO ADR A1,A4 LAST CHARACTER IN BUFFER LC A1,-1,A1 GET CHAR CCK A1,/0909 CARRIAGE RETURN - CR2 ? RF(E) PRB060 YES CCK A1,/0D0D CARRIAGE RETURN - CR1 ? RF(E) PRB060 YES LDK A1,0 DUMMY CHARACTER RF PRB070 PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB * * PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH RF(NN) PRB105 PRINT BUFFER LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) RF(E) PRB101 CF A5,OUTPUT SEND CHAR RF(NZ) ERTP4 JMP IF ERROR PRB101 EQU * CF A5,ENDBLK END OF BLOCK =3 ERTP4 RF(NZ) ERTP5 JMP IF ERROR =3 LDK A2,2 BLOCK LENGTH =3 CF A5,STABLK START OF BLOCK RF(NZ) ERTP5 JMP IF ERROR =3 PRB102 RTN A5 EJECT * * * * PRINT BUFFER * * PRB105 EQU * ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED CWK A7,7 CHECK ORDER =3 RF(L) PRB200 PRINT JOURNAL RF(G) PRB110 PRINT VOUCHER EJECT * * * * PRINT TALLY ROLL * * * LC A2,DWTDEV+1,A6 GET STATUS =2 ANK A2,VOIN VOUCHER IN ? RF(Z) PRB200 NO. GO AND PRINT ADK A5,4 RESET STACK POINTER CF A5,ENDBLK END OF BLOCK RF(NZ) ERTP5 JMP IF ERROR ABL TP405 SEND LIFT TO TOP AND RELEAS * * * * PRINT VOUCHER/PASSBOOK * * PRB110 LC A2,DWTDEV+1,A6 GET STATUS =2 ANK A2,VOIN VOUCHER IN ? IFT COMPL=0 RF(Z) RCTP ERROR .VOUCHER NOT IN XIF IFT COMPL=1 RB(Z) TP645 XIF LDR A1,A4 COPY REQUESTED LENGTH SUK A1,2 R.L. < 3? RF(N) PRB200 YES: NO TABULATION LDK A1,TAB CC A1,-2,A3 TABULATION? RF(NE) PRB200 NO EJECT * * * IF TABULATION CHARACTER: DETACH PRINT HEAD, * SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED * AND ATTACH PRINT HEAD * * PRB115 LDK A2,RPH DETACH PRINT HEAD CF A5,OUTPUT SEND DETACH RF(NZ) ERTP5 JMP IF ERROR PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR LCR A1,A3 GET 2ND TAB POS CHAR ANK A1,/F LINE UNIT SLL A2,4 ANK A2,/F0 LINE DECADE ORR A1,A2 DECIMAL LINE NUMBER CF A5,BCDTBY CONVERT TO BINARY PRB120 EQU * CW A1,DWTDEV+PCO,A6 COMPARE WITH ACTUAL TAB. POS. RF(NG) PRB125 PRINT * * IM DWTDEV+PCO,A6 INCREMENT POSITION COUNTER LDK A2,/20 LOAD BLANK CF A5,OUTPUT SEND BLANKS OR DETACH ERTP5 RF(NZ) ERTP6 JMP IF ERROR RB PRB117 * * * PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH SUK A3,2 DECREMENT BUFFER ADDRESS LDK A2,APH ATTACH RF PRB240 SEND ATTACH EJECT * * * * GET OUTPUT CHARACTER FROM BUFFER. CHECK IF * - ROOMLESS POINT * - ILLEGAL CHARACTER * - SPECIAL CHARACTER (/13,/14) * PRB200 EQU * PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER CCK A7,/AEAE ROOMLESS POINT ? RF(NE) PRB210 NO SUK A3,1 DECREMENT BUFFER POINTER SUK A4,1 LCR A7,A3 GET OUTPUT CHARACTER ANK A7,/F MASK LC A7,ROMTAB,A7 GET CODE IN TABLE * * * PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? RF(L) PRB225 YES PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? RF(NG) PRB230 NO * * PRB225 EQU * IFT CHR13=1 CCK A7,/1313 SPECIAL CHARACTER ? RF(E) PRB230 YES XIF IFT CHR14=1 CCK A7,/1414 SPECIAL CHARACTER ? RF(E) PRB230 YES XIF * LDK A1,CCERR CODE CHECK ERROR ORS A1,ECBRC,A8 STORE IN RETURN CODE RF PRB245 * * * PRB230 IM DWTDEV+PCO,A6 INCREMENT BYTE COUNTER LDR A2,A7 GET OUTPUT CHARACTER PRB240 CF A5,OUTPUT SEND CHARACTER RF(NZ) ERTP6 JMP IF ERROR PRB245 SUR A3,A4 START OF BUFFER ADDRESS LD A7,DWTOR,A6 GET ORDER ANK A7,/FF RB PRB100 * * * EJECT * * I H T P * * INTERRUPT HANDLER: PROCESS OF INTERRUPT * * * IHTP EQU * =2 LD A3,DWTDEV,A6 TERMINAL DEVICE STATUS =2 LDR A4,A3 SAVE OLD STATUS =2 SC A2,DWTDEV+1,A6 STORE NEW STATUS IN DWT =2 ANKL A4,VOCHA STATUS CHANGE ALLOWED ? =2 RF(Z) IHTP10 YES =2 XRS A4,DWTDEV,A6 RESET BIT =2 XRR A3,A2 COMPARE OLD AND NEW STATUS =2 ANK A3,VOIN VOUCHER STATUS CHANGED ? =2 RF(Z) RCTP10 NO, GO TO DISPATCHER =2 LD A8,DWTECB,A6 LOAD ECB-ADDRESS =3 LDK A4,/08 INDICATE STATUS CHANGE =2 RF RCTP FOR RECOVERY ROUTINE =2 IHTP10 LDR A4,A3 OLD STATUS =2 ANKL A4,WAICHA WAITING FOR STATUS CHANGE ? =2 RF(Z) RCTP10 NO, GO TO DISPATCHER =2 XRR A3,A2 COMPARE OLD AND NEW STATUS =2 ANK A3,VOIN VOUCHER STATUS CHANGED ? =2 RF(Z) RCTP10 NO, GO TO DISPATCHER =2 XRS A4,DWTDEV,A6 RESET 'WAIT FOR STATUS' BIT =2 ABL NDREP GET A3-A5,A7-A8 AND RET VIA A5 =2 * * * EJECT * * R C T P * * RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON * RCTP EQU * * LDKL A2,/FFFF-WAICHA =2 ANS A2,DWTDEV,A6 RESET 'WAIT FOR STATUS' BIT =2 LDKL A2,/7FFF IND DEVICE BUSY ANS A2,DWTST,A6 LDKL A5,DWTSB2 STACK BASE ADR A5,A6 LDK A2,/3 BLOCK LENGTH CF A5,STABLK START OF BLOCK ERTP6 RF(NZ) ERTP JMP IF ERROR LD A2,DWTECB,A6 RF(Z) RCTP05 REQUEST NOT RUNNING * LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY CF A5,OUTPUT SEND DUMMY RF(NZ) ERTP JMP IF ERROR IFT COMPL=1 ANK A4,/08 STATUS CHANGE ? RF(Z) RCTP05 NO ABL TP645 COMPLETE REQUEST XIF RCTP05 EQU * LDK A2,0 SC A2,DWTDEV+ALN,A6 STORE 0 AS ACTUAL LINE NUMBER LDK A2,LFF LIFT TO TOP CF A5,OUTPUT RF(NZ) ERTP JMP IF ERROR CF A5,ENDBLK END OF BLOCK =3 RF(NZ) ERTP JMP IF ERROR =3 LD A2,DWTECB,A6 =3 ABL(Z) LENDIS REQUEST NOT RUNNING =3 RCTP07 EQU * IFT RECOV=1 LDKL A2,/100 INDICATE POWER OFF ORS A2,8,A8 SET RETURN CODE XIF LDK A4,1 IND RECOVERY =3 LD A7,DWTOR,A6 SET ORDER IN A7 ANK A7,/FF ABL ACT005 START RECOVERY OF PRINTER RCTP10 ABL LDISP GO TO DISPATCHER EJECT * * B C D T B Y * * SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL * * * BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 BCDTB1 SUK A2,/10 RF(N) BCDTB2 END SUK A1,6 DECREMENT BY 6 RB BCDTB1 BCDTB2 RTN A5 RETURN TO CALLER * * * * * * G R A S P * * SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK * * GRASPA EQU * LDK A2,LFF LIFT TO TOP CF A5,OUTPUT RF(NZ) ERTP JMP IF ERROR GRASP EQU * LDK A3,0 LDK A2,GRA GRASP CF A5,OUTPUT RF(NZ) ERTP JMP IF ERROR LC A4,DWTDEV+1,A6 GET STATUS =2 ANK A4,VOIN VOUCHER IN ? =2 =2 RF(Z) COM010 NO =2 LC A3,DWTDEV+ALN,A6 GET ACTUAL LINE NO. =2 GRAS10 CF A5,ENDBLK END OF BLOCK =2 RF(NZ) ERTP JMP IF ERROR =2 RTN A5 RETURN =2 * * * * * ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK * * INPUT : A1 = RETURN CODE * ERTP EQU * LDK A4,0 LD A7,DWTOR,A6 SET ORDER IN A7 ANK A7,/FF RF(NZ) ERTP20 ORDER /00 ? ERTP15 LDK A1,1 YES,SET RETURN CODE ABL LENDIS NOT OPER. & END OF REQUEST ERTP20 ANK A1,/1A SOFTW. TIME OUT,LRC OR LINK ERROR RB(NZ) RCTP YES RECOVERY IFT RELEND=0 ABL LDISP DISPATCH XIF IFT RELEND=1 RB ERTP15 END OF REQ. XIF EJECT * * * R E L E A S * * SUBROUTINE TO SEND LIFT TO TOP AND RELEASE * * * RELEAS EQU * LDK A2,/4 BLOCK LENGTH CF A5,STABLK START OF BLOCK RB(NZ) ERTP JMP IF ERROR LDK A1,0 SC A1,DWTDEV+ALN,A6 SET ACTUAL LINE NUMBER TO 0 LDK A2,LFF LIFT TO TOP CF A5,OUTPUT RB(NZ) ERTP JMP IF ERROR LC A4,DWTDEV+1,A6 GET STATUS =2 ANK A4,VOIN VOUCHER IN ? =2 RB(Z) GRAS10 NO, RETURN =2 LDK A2,REL RELEASE =2 CF A5,OUTPUT =2 RB(NZ) ERTP JMP IF ERROR =2 * * COMMON END FOR GRASP AND RELEASE SUBROUTINES * WHEN A CHANGE OF VOUCHER STATUS IS WANTED * =3 COM010 EQU * =3 LDK A2,TETX DUMMY AFTER GRASP AND REL =2 CF A5,OUTPUT =2 RB(NZ) ERTP JMP IF ERROR =2 CF A5,ENDBLK END OF BLOCK =2 RB(NZ) ERTP JMP IF ERROR =2 LC A2,DWTDEV+1,A6 GET STATUS =2 XRR A4,A2 VOUCHER ST. CHANGED SINCE LAST? =2 RF(NZ) COM020 YES, DON'T WAIT =2 CF A5,WAIT WAIT FOR STATUS =2 COM020 EQU * =2 RTN A5 RETURN WITH NEW STATUS =2 * * B U F C H R * * SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN * FIRST CHARACTER IN OUTPUT BUFFER * * BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS ANK A4,/FF MASK BUFC10 ADK A3,1 INCREMENT BUFFER POINTER LCR A2,A3 GET OUTPUT CHARACTER CF A5,OUTPUT SEND CHARACTER RB(NZ) ERTP JMP IF ERROR SUK A4,1 DECREMENT COUNTER RB(NZ) BUFC10 NOT LAST CHARACTER BUFRTN EQU * RTN A5 RETURN TO CALLER * * * W A I T * * SUBROUTINE USED TO INITIATE WAIT FOR CHANGE * IN VOUCHER STATUS. * RETURN AFTER SUBROUTINE IS MADE THROUGH * INTERRUPT HANDLER WHEN STATUS IS CHANGED. * WAIT EQU * =2 INH =2 CF A15,NDSAV8 SAVE A3-A5,A7-A8 IN DWT =2 LDKL A3,WAICHA =2 ORS A3,DWTDEV,A6 INDICATE 'WAIT FOR STATUS' =2 ABL LDISP DISPATCH =2 * * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRTP02 REL 11.0 81-08-31 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0068 Head {h00=0x0026, h01=0x0050, text=» =3, CHARACTER BLOCKING CHANGED;«, t00=0x0000, t01=0x0042}
0x0068…0090 Head {h00=0x0024, h01=0x0050, text=» ORDER & ECB-ADDRESS RELOADED;«, t00=0x0000, t01=0x006c}
0x0090…00b8 Head {h00=0x0024, h01=0x0050, text=» LF AFTER CUT & PERF. REMOVED;«, t00=0x0000, t01=0x0094}
0x00b8…00d4 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-16«, t00=0x0000, t01=0x00bc}
0x00d4…00fa Head {h00=0x0022, h01=0x0050, text=» =2, STATUS HANDLING CHANGED«, t00=0x0000, t01=0x00d8}
0x00fa…0116 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-30«, t00=0x0000, t01=0x00fe}
0x0116…0138 Head {h00=0x001e, h01=0x0050, text=» =1, BLOCK DEF. ADJUSTED«, t00=0x0000, t01=0x011a}
0x0138…0154 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-26«, t00=0x0000, t01=0x013c}
0x0154…0194 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0158}
0x0194…01d4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0008}
0x01d4…0214 Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0001, t01=0x0048}
0x0214…0254 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0088}
0x0254…0294 Head {h00=0x003c, h01=0x0050, text=»* DRTP02 = DRIVER TELLER TERMINAL PRINTER * «, t00=0x0001, t01=0x00c8}
0x0294…02d4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0108}
0x02d4…0314 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0148}
0x0314…031e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0188}
0x031e…0328 (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0328…0332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000e}
0x0332…0372 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0018}
0x0372…03b2 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0002, t01=0x0058}
0x03b2…03bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0098}
0x03bc…03fe Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221,«, t00=0x0002, t01=0x00a2}
0x03fe…0416 Head {h00=0x0014, h01=0x0050, text=»* 6222 OR 6223«, t00=0x0002, t01=0x00e4}
0x0416…0420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0420…042a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042a…0462 Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0002, t01=0x0110}
0x0462…046c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x046c…0494 Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0002, t01=0x0152}
0x0494…049e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017a}
0x049e…04c8 Head {h00=0x0026, h01=0x0050, text=»* I H T P : INTERRUPT HANDLER «, t00=0x0002, t01=0x0184}
0x04c8…04d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001e}
0x04d2…04fa Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0003, t01=0x0028}
0x04fa…0504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0504…050e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005a}
0x050e…0548 Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES:«, t00=0x0003, t01=0x0064}
0x0548…0552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009e}
0x0552…0598 Head {h00=0x0042, h01=0x0050, text=»* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM«, t00=0x0003, t01=0x00a8}
0x0598…05a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a2…05dc Head {h00=0x0036, h01=0x0050, text=»* B C D T B Y : CONVERT TO BINARY FROM DECIMAL«, t00=0x0003, t01=0x00f8}
0x05dc…05e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0132}
0x05e6…062e Head {h00=0x0044, h01=0x0050, text=»* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST«, t00=0x0003, t01=0x013c}
0x062e…0656 Head {h00=0x0024, h01=0x0050, text=»* CHARACTER IN OUTPUT BUFFER «, t00=0x0003, t01=0x0184}
0x0656…0660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001c}
0x0660…0692 Head {h00=0x002e, h01=0x0050, text=»* G R A S P : SEND GRASP TO VOUCHER «, t00=0x0004, t01=0x0026}
0x0692…069c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0058}
0x069c…06d4 Head {h00=0x0034, h01=0x0050, text=»* R E L E A S : SEND LIFT TO TOP AND RELEASE«, t00=0x0004, t01=0x0062}
0x06d4…06e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x009a}
0x06e2…06ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a8}
0x06ec…071a Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0004, t01=0x00b2}
0x071a…0724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e0}
0x0724…074c Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0004, t01=0x00ea}
0x074c…076e Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0004, t01=0x0112}
0x076e…07a2 Head {h00=0x0030, h01=0x0050, text=»* ORDER 0B : POSITION LIFT AND WRITE «, t00=0x0004, t01=0x0134}
0x07a2…07ca Head {h00=0x0024, h01=0x0050, text=»* ORDER 22 : CUT JOURNAL «, t00=0x0004, t01=0x0168}
0x07ca…07f8 Head {h00=0x002a, h01=0x0050, text=»* ORDER 26 : PERFORATE JOURNAL «, t00=0x0004, t01=0x0190}
0x07f8…082a Head {h00=0x002e, h01=0x0050, text=»* ORDER 37 : GRASP VOUCHER/PASSBOOK«, t00=0x0005, t01=0x002e}
0x082a…085e Head {h00=0x0030, h01=0x0050, text=»* ORDER 38 : RELEASE VOUCHER/PASSBOOK«, t00=0x0005, t01=0x0060}
0x085e…0868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0094}
0x0868…0898 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0005, t01=0x009e}
0x0898…08a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ce}
0x08a2…08cc Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0005, t01=0x00d8}
0x08cc…0908 Head {h00=0x0038, h01=0x0050, text=»* BIT 2 : END OF JOURNAL TAPE, VOUCHER OUT«, t00=0x0005, t01=0x0102}
0x0908…0940 Head {h00=0x0034, h01=0x0050, text=»* BIT 7 : RECOVERY EXECUTED ON REQUEST«, t00=0x0005, t01=0x013e}
0x0940…096c Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0005, t01=0x0176}
0x096c…0994 Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0006, t01=0x0012}
0x0994…099e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003a}
0x099e…09a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
0x09a8…09b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004e}
0x09b2…09d4 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0006, t01=0x0058}
0x09d4…09de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007a}
0x09de…0a04 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0006, t01=0x0084}
0x0a04…0a2a Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0006, t01=0x00aa}
0x0a2a…0a52 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0006, t01=0x00d0}
0x0a52…0a7a Head {h00=0x0024, h01=0x0050, text=»* A4: OUTPUT COUNTER «, t00=0x0006, t01=0x00f8}
0x0a7a…0aa0 Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0006, t01=0x0120}
0x0aa0…0ac4 Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0006, t01=0x0146}
0x0ac4…0ae2 Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0006, t01=0x016a}
0x0ae2…0b06 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0006, t01=0x0188}
0x0b06…0b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001c}
0x0b10…0b1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0026}
0x0b1e…0b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0034}
0x0b28…0b46 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0007, t01=0x003e}
0x0b46…0b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b50…0b98 Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN «, t00=0x0007, t01=0x0066}
0x0b98…0bb0 Head {h00=0x0014, h01=0x0050, text=»* BE EXCLUDED:«, t00=0x0007, t01=0x00ae}
0x0bb0…0bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c6}
0x0bba…0bfc Head {h00=0x003e, h01=0x0050, text=»* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST «, t00=0x0007, t01=0x00d0}
0x0bfc…0c34 Head {h00=0x0034, h01=0x0050, text=»* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) «, t00=0x0007, t01=0x0112}
0x0c34…0c68 Head {h00=0x0030, h01=0x0050, text=»* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 «, t00=0x0007, t01=0x014a}
0x0c68…0cb4 Head {h00=0x0048, h01=0x0050, text=»* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN«, t00=0x0007, t01=0x017e}
0x0cb4…0cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003a}
0x0cbe…0cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0044}
0x0cc8…0d0c Head {h00=0x0040, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED«, t00=0x0008, t01=0x004e}
0x0d0c…0d4e Head {h00=0x003e, h01=0x0050, text=»* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET «, t00=0x0008, t01=0x0092}
0x0d4e…0d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d4}
0x0d58…0d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00de}
0x0d62…0d70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00e8}
0x0d70…0d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d7a…0d8e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0100}
0x0d8e…0da2 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0008, t01=0x0114}
0x0da2…0db6 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0128}
0x0db6…0dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013c}
0x0dc0…0dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0146}
0x0dca…0dec Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD ADDRESS BLOCK «, t00=0x0008, t01=0x0150}
0x0dec…0df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0172}
0x0df6…0e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017c}
0x0e00…0e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e0a…0e20 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x0190}
0x0e20…0e36 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0009, t01=0x0016}
0x0e36…0e4c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x002c}
0x0e4c…0e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e56…0e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004c}
0x0e60…0e90 Head {h00=0x002c, h01=0x0050, text=» EXTRN LDISP DISPATCHING FROM INTERRUPT «, t00=0x0009, t01=0x0056}
0x0e90…0eb8 Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER DISPATCH I/O ERROR«, t00=0x0009, t01=0x0086}
0x0eb8…0ee2 Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDIS END I/O AND DISPATCH«, t00=0x0009, t01=0x00ae}
0x0ee2…0f00 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x00d8}
0x0f00…0f2a Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0009, t01=0x00f6}
0x0f2a…0f46 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x0120}
0x0f46…0f68 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0009, t01=0x013c}
0x0f68…0f82 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0009, t01=0x015e}
0x0f82…0fac Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0009, t01=0x0178}
0x0fac…0fd0 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS «, t00=0x000a, t01=0x0012}
0x0fd0…0ffa Head {h00=0x0026, h01=0x0050, text=» EXTRN STABLK DEF. START OF BLOCK «, t00=0x000a, t01=0x0036}
0x0ffa…1022 Head {h00=0x0024, h01=0x0050, text=» EXTRN ENDBLK DEF. END OF BLOCK «, t00=0x000a, t01=0x0060}
0x1022…1054 Head {h00=0x002e, h01=0x0050, text=» EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT =2 «, t00=0x000a, t01=0x0088}
0x1054…1084 Head {h00=0x002c, h01=0x0050, text=» EXTRN NDREP GET REGISTERS AND RETURN =2«, t00=0x000a, t01=0x00ba}
0x1084…1092 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00ea}
0x1092…109c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f8}
0x109c…10b8 Head {h00=0x0018, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x000a, t01=0x0102}
0x10b8…10c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10c2…10e6 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x000a, t01=0x0128}
0x10e6…110c Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x000a, t01=0x014c}
0x110c…1132 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x000a, t01=0x0172}
0x1132…1152 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x000b, t01=0x0008}
0x1152…1174 Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x000b, t01=0x0028}
0x1174…1182 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x004a}
0x1182…11a2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0058}
0x11a2…11c2 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x0078}
0x11c2…11e2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0098}
0x11e2…11ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b8}
0x11ec…11f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c2}
0x11f6…1236 Head {h00=0x003c, h01=0x0050, text=»* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET«, t00=0x000b, t01=0x00cc}
0x1236…1254 Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:A = 1«, t00=0x000b, t01=0x010c}
0x1254…125e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012a}
0x125e…1268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0134}
0x1268…127a Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000b, t01=0x013e}
0x127a…1290 Head {h00=0x0012, h01=0x0050, text=»RECOV EQU X:A «, t00=0x000b, t01=0x0150}
0x1290…129a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0166}
0x129a…12a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0170}
0x12a4…12e2 Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x000b, t01=0x017a}
0x12e2…12fe Head {h00=0x0018, h01=0x0050, text=»* SETTING X:B = 1 «, t00=0x000c, t01=0x0028}
0x12fe…1308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0044}
0x1308…1312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004e}
0x1312…1324 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x0058}
0x1324…133a Head {h00=0x0012, h01=0x0050, text=»CUTPER EQU X:B«, t00=0x000c, t01=0x006a}
0x133a…1344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1344…134e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008a}
0x134e…1394 Head {h00=0x0042, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 «, t00=0x000c, t01=0x0094}
0x1394…13b8 Head {h00=0x0020, h01=0x0050, text=»* AND X:D = 1 RESPECTIVLY «, t00=0x000c, t01=0x00da}
0x13b8…13c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fe}
0x13c2…13cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0108}
0x13cc…13de Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000c, t01=0x0112}
0x13de…13f4 Head {h00=0x0012, h01=0x0050, text=»CHR13 EQU X:C «, t00=0x000c, t01=0x0124}
0x13f4…13fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013a}
0x13fe…1408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0144}
0x1408…141a Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000c, t01=0x014e}
0x141a…1430 Head {h00=0x0012, h01=0x0050, text=»CHR14 EQU X:D «, t00=0x000c, t01=0x0160}
0x1430…143a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0176}
0x143a…1444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0180}
0x1444…147a Head {h00=0x0032, h01=0x0050, text=»* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF«, t00=0x000c, t01=0x018a}
0x147a…14b8 Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000d, t01=0x0030}
0x14b8…14c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006e}
0x14c2…14cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0078}
0x14cc…14de Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x0082}
0x14de…14f4 Head {h00=0x0012, h01=0x0050, text=»COMPL EQU X:E «, t00=0x000d, t01=0x0094}
0x14f4…14fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00aa}
0x14fe…1508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b4}
0x1508…154a Head {h00=0x003e, h01=0x0050, text=»* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT «, t00=0x000d, t01=0x00be}
0x154a…158a Head {h00=0x003c, h01=0x0050, text=»* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING «, t00=0x000d, t01=0x0100}
0x158a…15cc Head {h00=0x003e, h01=0x0050, text=»* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET«, t00=0x000d, t01=0x0140}
0x15cc…15d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0182}
0x15d6…15e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018c}
0x15e0…15f2 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000e, t01=0x0008}
0x15f2…1608 Head {h00=0x0012, h01=0x0050, text=»RELEND EQU X:F«, t00=0x000e, t01=0x001a}
0x1608…1612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0030}
0x1612…161c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003a}
0x161c…1638 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000e, t01=0x0044}
0x1638…1642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0060}
0x1642…164c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006a}
0x164c…165e Head {h00=0x000e, h01=0x0050, text=»X:H EQU 20«, t00=0x000e, t01=0x0074}
0x165e…1674 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x000e, t01=0x0086}
0x1674…167e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009c}
0x167e…168c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00a6}
0x168c…1696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b4}
0x1696…16a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00be}
0x16a0…16b6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000e, t01=0x00c8}
0x16b6…16cc Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000e, t01=0x00de}
0x16cc…16e2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000e, t01=0x00f4}
0x16e2…16ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010a}
0x16ec…16f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0114}
0x16f6…1728 Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x000e, t01=0x011e}
0x1728…1760 Head {h00=0x0034, h01=0x0050, text=»PROUT EQU /2000 RETURN CODE. END OF JOURNAL TAPE«, t00=0x000e, t01=0x0150}
0x1760…1794 Head {h00=0x0030, h01=0x0050, text=»VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST«, t00=0x000e, t01=0x0188}
0x1794…17ca Head {h00=0x0032, h01=0x0050, text=»EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. «, t00=0x000f, t01=0x002c}
0x17ca…1806 Head {h00=0x0038, h01=0x0050, text=»WAICHA EQU /100 BIT #7 DWTDEV;WAIT FOR STATUS CHANGE«, t00=0x000f, t01=0x0062}
0x1806…184a Head {h00=0x0040, h01=0x0050, text=»VOCHA EQU /200 BIT #6 DWTDEV;VOUCHER STATUS CH. NOT ALLOWED «, t00=0x000f, t01=0x009e}
0x184a…1882 Head {h00=0x0034, h01=0x0050, text=»MESS EQU /400 BIT #5 DWTDEV;TEST MESSAGE WRITTEN«, t00=0x000f, t01=0x00e2}
0x1882…18a0 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000f, t01=0x011a}
0x18a0…18d0 Head {h00=0x002c, h01=0x0050, text=»REMOT EQU /01 RESET PRINT BUFFER REMOTE «, t00=0x000f, t01=0x0138}
0x18d0…18fe Head {h00=0x002a, h01=0x0050, text=»TAB EQU /11 TABULATION CHAR IN BUFFER «, t00=0x000f, t01=0x0168}
0x18fe…1922 Head {h00=0x0020, h01=0x0050, text=»CR1 EQU /0D CR JOURNAL TAPE «, t00=0x0010, t01=0x0008}
0x1922…1946 Head {h00=0x0020, h01=0x0050, text=»LF1 EQU /18 LF JOURNAL TAPE «, t00=0x0010, t01=0x002c}
0x1946…1978 Head {h00=0x002e, h01=0x0050, text=»CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK«, t00=0x0010, t01=0x0050}
0x1978…199a Head {h00=0x001e, h01=0x0050, text=»LF2 EQU /19 LF TALLY ROLL «, t00=0x0010, t01=0x0082}
0x199a…19c2 Head {h00=0x0024, h01=0x0050, text=»LDO EQU /0B LIFT DOWN 1 POSITION«, t00=0x0010, t01=0x00a4}
0x19c2…19ea Head {h00=0x0024, h01=0x0050, text=»LUP EQU /0A LIFT UP ONE POSITION«, t00=0x0010, t01=0x00cc}
0x19ea…1a12 Head {h00=0x0024, h01=0x0050, text=»LFF EQU /0C LIFT TO TOP POSITION«, t00=0x0010, t01=0x00f4}
0x1a12…1a4c Head {h00=0x0036, h01=0x0050, text=»GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK«, t00=0x0010, t01=0x011c}
0x1a4c…1a78 Head {h00=0x0028, h01=0x0050, text=»REL EQU /1B RELEASE VOUCHER/PASSBOOK«, t00=0x0010, t01=0x0156}
0x1a78…1a9e Head {h00=0x0022, h01=0x0050, text=»APH EQU /1D ATTACH PRINT HEAD «, t00=0x0010, t01=0x0182}
0x1a9e…1ac4 Head {h00=0x0022, h01=0x0050, text=»RPH EQU /1E RETURN PRINT HEAD «, t00=0x0011, t01=0x0018}
0x1ac4…1afc Head {h00=0x0034, h01=0x0050, text=»TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE «, t00=0x0011, t01=0x003e}
0x1afc…1b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0076}
0x1b06…1b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0080}
0x1b10…1b2e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0011, t01=0x008a}
0x1b2e…1b4c Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0011, t01=0x00a8}
0x1b4c…1b6a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0011, t01=0x00c6}
0x1b6a…1b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e4}
0x1b74…1b9c Head {h00=0x0024, h01=0x0050, text=»RLN EQU /4 REQUESTED LINE NUMBER«, t00=0x0011, t01=0x00ee}
0x1b9c…1bc2 Head {h00=0x0022, h01=0x0050, text=»ALN EQU /5 ACTUAL LINE NUMBER «, t00=0x0011, t01=0x0116}
0x1bc2…1be6 Head {h00=0x0020, h01=0x0050, text=»PCO EQU /6 POSITION COUNTER «, t00=0x0011, t01=0x013c}
0x1be6…1bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0160}
0x1bf0…1c04 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0011, t01=0x016a}
0x1c04…1c18 Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x0011, t01=0x017e}
0x1c18…1c2c (18, 0, 400) Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0012, t01=0x0004}
0x1c2c…1c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0018}
0x1c36…1c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0022}
0x1c40…1c66 Head {h00=0x0022, h01=0x0050, text=»BUF1 DATA /020D,/1D00 CR1,APH «, t00=0x0012, t01=0x002c}
0x1c66…1c7c Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0012, t01=0x0052}
0x1c7c…1c98 Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0209 CR2 «, t00=0x0012, t01=0x0068}
0x1c98…1ca4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0084}
0x1ca4…1cba Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0012, t01=0x0090}
0x1cba…1cd2 Head {h00=0x0014, h01=0x0050, text=»BUF2 DATA /0309 «, t00=0x0012, t01=0x00a6}
0x1cd2…1cde Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00be}
0x1cde…1cfc Head {h00=0x001a, h01=0x0050, text=» DATA /1D20 APH,SPACE «, t00=0x0012, t01=0x00ca}
0x1cfc…1d22 Head {h00=0x0022, h01=0x0050, text=»BUF3 DATA /0209,/1D00 CR2,APH «, t00=0x0012, t01=0x00e8}
0x1d22…1d30 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0012, t01=0x010e}
0x1d30…1d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011c}
0x1d3a…1d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0126}
0x1d44…1d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0130}
0x1d4e…1d60 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x013a}
0x1d60…1d72 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0012, t01=0x014c}
0x1d72…1d84 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x015e}
0x1d84…1d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0170}
0x1d8e…1d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017a}
0x1d98…1dbc Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0012, t01=0x0184}
0x1dbc…1dd8 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0013, t01=0x0018}
0x1dd8…1df8 Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x0034}
0x1df8…1e1c Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x0013, t01=0x0054}
0x1e1c…1e42 Head {h00=0x0022, h01=0x0050, text=» DATA 1 ABORT ROUTINE ADDRESS «, t00=0x0013, t01=0x0078}
0x1e42…1e66 Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x0013, t01=0x009e}
0x1e66…1e8a Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0013, t01=0x00c2}
0x1e8a…1e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e6}
0x1e94…1ebc Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x0013, t01=0x00f0}
0x1ebc…1ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0118}
0x1ec6…1eda Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0013, t01=0x0122}
0x1eda…1f06 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0013, t01=0x0136}
0x1f06…1f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0162}
0x1f10…1f3c Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x0013, t01=0x016c}
0x1f3c…1f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0008}
0x1f46…1f50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0012}
0x1f50…1f64 Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x0014, t01=0x001c}
0x1f64…1f94 Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x0014, t01=0x0030}
0x1f94…1faa Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x0060}
0x1faa…1fe8 Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x0014, t01=0x0076}
0x1fe8…1ff4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00b4}
0x1ff4…2014 Head {h00=0x001c, h01=0x0050, text=»TPTAB EQU * ORDER TABLE «, t00=0x0014, t01=0x00c0}
0x2014…2034 Head {h00=0x001c, h01=0x0050, text=» DATA /0002,/0607,/080D «, t00=0x0014, t01=0x00e0}
0x2034…204a Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x0100}
0x204a…205e Head {h00=0x0010, h01=0x0050, text=» DATA /2226 «, t00=0x0014, t01=0x0116}
0x205e…206a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x012a}
0x206a…207e Head {h00=0x0010, h01=0x0050, text=» DATA /393A «, t00=0x0014, t01=0x0136}
0x207e…2098 Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0014, t01=0x014a}
0x2098…20a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0164}
0x20a6…20b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0172}
0x20b0…20ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017c}
0x20ba…20ce Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0014, t01=0x0186}
0x20ce…20d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000a}
0x20d8…210e Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0015, t01=0x0014}
0x210e…2150 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0015, t01=0x004a}
0x2150…215a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x008c}
0x215a…2164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0096}
0x2164…216e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x216e…2192 Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0015, t01=0x00aa}
0x2192…219c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ce}
0x219c…21a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d8}
0x21a6…21e6 Head {h00=0x003c, h01=0x0050, text=»* GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK «, t00=0x0015, t01=0x00e2}
0x21e6…220c Head {h00=0x0022, h01=0x0050, text=» LC A1,DWTOR,A6 GET DWT INDEX «, t00=0x0015, t01=0x0122}
0x220c…2222 Head {h00=0x0012, h01=0x0050, text=» ANK A1,7 MASK«, t00=0x0015, t01=0x0148}
0x2222…224c Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 ADD DWT INDEX TO ORDER «, t00=0x0015, t01=0x015e}
0x224c…227c Head {h00=0x002c, h01=0x0050, text=» SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT «, t00=0x0015, t01=0x0188}
0x227c…2298 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ACTIVATION«, t00=0x0016, t01=0x0028}
0x2298…22b6 Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0016, t01=0x0044}
0x22b6…22ec Head {h00=0x0032, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER «, t00=0x0016, t01=0x0062}
0x22ec…230e Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0016, t01=0x0098}
0x230e…2320 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x00ba}
0x2320…2340 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0016, t01=0x00cc}
0x2340…234a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ec}
0x234a…236c Head {h00=0x001e, h01=0x0050, text=» ABL LENDER ILLEGAL ORDER «, t00=0x0016, t01=0x00f6}
0x236c…2376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0118}
0x2376…2380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0122}
0x2380…2398 Head {h00=0x0014, h01=0x0050, text=»ACT020 LDK A1,1 «, t00=0x0016, t01=0x012c}
0x2398…23c8 Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTDEV+PCO,A6 RESET BYTE COUNTER «, t00=0x0016, t01=0x0144}
0x23c8…23e4 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x0016, t01=0x0174}
0x23e4…2408 Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x0016, t01=0x0190}
0x2408…2444 Head {h00=0x0038, h01=0x0050, text=»TPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 «, t00=0x0017, t01=0x0024}
0x2444…245a Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0017, t01=0x0060}
0x245a…2474 Head {h00=0x0016, h01=0x0050, text=» DATA TP700,TP750 «, t00=0x0017, t01=0x0076}
0x2474…2480 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0090}
0x2480…249a Head {h00=0x0016, h01=0x0050, text=» DATA TP800,TP900 «, t00=0x0017, t01=0x009c}
0x249a…24ac Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x0017, t01=0x00b6}
0x24ac…24ba Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c8}
0x24ba…24c8 Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d6}
0x24c8…24e6 Head {h00=0x001a, h01=0x0050, text=»* ORDER 00: TEST «, t00=0x0017, t01=0x00e4}
0x24e6…2532 Head {h00=0x0048, h01=0x0050, text=»* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE «, t00=0x0017, t01=0x0102}
0x2532…2540 Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x014e}
0x2540…254e Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x015c}
0x254e…255c Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x016a}
0x255c…256a Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x0178}
0x256a…257e Head {h00=0x0010, h01=0x0050, text=»TPTEST EQU *«, t00=0x0017, t01=0x0186}
0x257e…259e Head {h00=0x001c, h01=0x0050, text=» LDK A2,/5 BLOCK LENGTH «, t00=0x0018, t01=0x000a}
0x259e…25c2 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0018, t01=0x002a}
0x25c2…25e4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP1 JMP IF ERROR«, t00=0x0018, t01=0x004e}
0x25e4…2606 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/02 SEND CHAR /02 «, t00=0x0018, t01=0x0070}
0x2606…261e Head {h00=0x0014, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0018, t01=0x0092}
0x261e…2640 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP1 JMP IF ERROR«, t00=0x0018, t01=0x00aa}
0x2640…266c Head {h00=0x0028, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST «, t00=0x0018, t01=0x00cc}
0x266c…2684 Head {h00=0x0014, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0018, t01=0x00f8}
0x2684…26a6 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP1 JMP IF ERROR«, t00=0x0018, t01=0x0110}
0x26a6…26ba Head {h00=0x0010, h01=0x0050, text=» RF TPDUMY «, t00=0x0018, t01=0x0132}
0x26ba…26c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0146}
0x26c8…26d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0154}
0x26d2…26dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015e}
0x26dc…270c Head {h00=0x002c, h01=0x0050, text=»* ORDER 06,0B: WRITE VOUCHER/PASSBOOK «, t00=0x0018, t01=0x0168}
0x270c…274e Head {h00=0x003e, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x0019, t01=0x0008}
0x274e…2758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004a}
0x2758…2762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0054}
0x2762…276c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x005e}
0x276c…27b2 Head {h00=0x0042, h01=0x0050, text=»ACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB«, t00=0x0019, t01=0x0068}
0x27b2…27c4 Head {h00=0x000e, h01=0x0050, text=» RF ACT085«, t00=0x0019, t01=0x00ae}
0x27c4…27ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c0}
0x27ce…27fe Head {h00=0x002c, h01=0x0050, text=»ACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0019, t01=0x00ca}
0x27fe…2828 Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x0019, t01=0x00fa}
0x2828…2850 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF REQUESTED LINE STEPS«, t00=0x0019, t01=0x0124}
0x2850…2864 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/39 «, t00=0x0019, t01=0x014c}
0x2864…2888 Head {h00=0x0020, h01=0x0050, text=» RF(G) ACT070 > /39 = ONE LF«, t00=0x0019, t01=0x0160}
0x2888…289a Head {h00=0x000e, h01=0x0050, text=» ADK A3,/9«, t00=0x0019, t01=0x0184}
0x289a…28b0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACT060«, t00=0x001a, t01=0x0008}
0x28b0…28ce Head {h00=0x001a, h01=0x0050, text=» LDK A3,2 /30 = TWO LF«, t00=0x001a, t01=0x001e}
0x28ce…28e0 Head {h00=0x000e, h01=0x0050, text=» RF ACT080«, t00=0x001a, t01=0x003c}
0x28e0…290c Head {h00=0x0028, h01=0x0050, text=»ACT060 RF(G) ACT080 /31-/39 = 1-9 LF«, t00=0x001a, t01=0x004e}
0x290c…291e Head {h00=0x000e, h01=0x0050, text=» ADK A3,/5«, t00=0x001a, t01=0x007a}
0x291e…2940 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) TP605 /2B = NO LF «, t00=0x001a, t01=0x008c}
0x2940…295e Head {h00=0x001a, h01=0x0050, text=»ACT070 LDK A3,1 ONE LF«, t00=0x001a, t01=0x00ae}
0x295e…299a Head {h00=0x0038, h01=0x0050, text=»ACT080 LC A1,DWTDEV+RLN,A6 GET LINE NUMBER FROM DWT «, t00=0x001a, t01=0x00cc}
0x299a…29c8 Head {h00=0x002a, h01=0x0050, text=» SUR A1,A3 GET REQUESTED LINE POSITION«, t00=0x001a, t01=0x0108}
0x29c8…29fe Head {h00=0x0032, h01=0x0050, text=»ACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ?«, t00=0x001a, t01=0x0136}
0x29fe…2a2c Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 YES; SET LINE POSITION ZERO «, t00=0x001a, t01=0x016c}
0x2a2c…2a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x000a}
0x2a36…2a5a Head {h00=0x0020, h01=0x0050, text=»ACT090 LDR A4,A4 RECOVERY ? «, t00=0x001b, t01=0x0014}
0x2a5a…2a74 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TP605 YES «, t00=0x001b, t01=0x0038}
0x2a74…2aac Head {h00=0x0034, h01=0x0050, text=» SC A1,DWTDEV+RLN,A6 SAVE REQUESTED LINE NUMBER «, t00=0x001b, t01=0x0052}
0x2aac…2abe Head {h00=0x000e, h01=0x0050, text=» RF TP605 «, t00=0x001b, t01=0x008a}
0x2abe…2acc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x009c}
0x2acc…2ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00aa}
0x2ad6…2ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b4}
0x2ae0…2aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00be}
0x2aea…2b0e Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x001b, t01=0x00c8}
0x2b0e…2b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ec}
0x2b18…2b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f6}
0x2b22…2b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0100}
0x2b2c…2b5a Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x001b, t01=0x010a}
0x2b5a…2b6e Head {h00=0x0010, h01=0x0050, text=»TP210 EQU * «, t00=0x001b, t01=0x0138}
0x2b6e…2b7c Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x001b, t01=0x014c}
0x2b7c…2b94 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x001b, t01=0x015a}
0x2b94…2bb4 Head {h00=0x001c, h01=0x0050, text=» ADK A2,/F BLOCK LENGTH «, t00=0x001b, t01=0x0172}
0x2bb4…2bd8 (28, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x001c, t01=0x0004}
0x2bd8…2c00 Head {h00=0x0024, h01=0x0050, text=»ERTP1 RF(NZ) ERTP2 JMP IF ERROR «, t00=0x001c, t01=0x0028}
0x2c00…2c36 Head {h00=0x0032, h01=0x0050, text=» LC A1,DWTDEV,A6 GET LEFT BYTE IN STATUS WORD «, t00=0x001c, t01=0x0050}
0x2c36…2c5e Head {h00=0x0024, h01=0x0050, text=» ANK A1,4 TEXT MESSAGE WRITTEN ?«, t00=0x001c, t01=0x0086}
0x2c5e…2c8a Head {h00=0x0028, h01=0x0050, text=» RF(NE) TP220 YES; COMPLETE REQUEST «, t00=0x001c, t01=0x00ae}
0x2c8a…2cb6 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001c, t01=0x00da}
0x2cb6…2cde Head {h00=0x0024, h01=0x0050, text=» SUK A1,3 REQUESTED LENGTH 0-2 ?«, t00=0x001c, t01=0x0106}
0x2cde…2d08 Head {h00=0x0026, h01=0x0050, text=» RF(N) TP230 YES; COMPLETE REQUEST«, t00=0x001c, t01=0x012e}
0x2d08…2d1c Head {h00=0x0010, h01=0x0050, text=» RF(P) TP215«, t00=0x001c, t01=0x0158}
0x2d1c…2d3e Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001c, t01=0x016c}
0x2d3e…2d62 Head {h00=0x0020, h01=0x0050, text=» LC A2,2,A1 THIRD CHARACTER «, t00=0x001c, t01=0x018e}
0x2d62…2d8a Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 CONTROL CHARACTER «, t00=0x001d, t01=0x0022}
0x2d8a…2da0 Head {h00=0x0012, h01=0x0050, text=» RF(NL) TP215 «, t00=0x001d, t01=0x004a}
0x2da0…2db2 Head {h00=0x000e, h01=0x0050, text=» RF TP220 «, t00=0x001d, t01=0x0060}
0x2db2…2dc6 Head {h00=0x0010, h01=0x0050, text=»TP215 EQU * «, t00=0x001d, t01=0x0072}
0x2dc6…2de8 Head {h00=0x001e, h01=0x0050, text=» CF A5,BUFCHR SEND BUFFER «, t00=0x001d, t01=0x0086}
0x2de8…2e0e Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x001d, t01=0x00a8}
0x2e0e…2e22 Head {h00=0x0010, h01=0x0050, text=»TP220 EQU * «, t00=0x001d, t01=0x00ce}
0x2e22…2e34 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001d, t01=0x00e2}
0x2e34…2e6e Head {h00=0x0036, h01=0x0050, text=»TP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED «, t00=0x001d, t01=0x00f4}
0x2e6e…2e88 Head {h00=0x0016, h01=0x0050, text=» ANS A2,DWTDEV,A6 «, t00=0x001d, t01=0x012e}
0x2e88…2e96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0148}
0x2e96…2ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0156}
0x2ea0…2eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0160}
0x2eaa…2ecc Head {h00=0x001e, h01=0x0050, text=»* ECB-BUFFER IS WRITTEN «, t00=0x001d, t01=0x016a}
0x2ecc…2ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x018c}
0x2ed6…2f04 Head {h00=0x002a, h01=0x0050, text=»* SEND LINE FEED IF JOURNAL OR TALLY«, t00=0x001e, t01=0x0008}
0x2f04…2f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0036}
0x2f0e…2f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0040}
0x2f18…2f2a Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x001e, t01=0x004a}
0x2f2a…2f3c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001e, t01=0x005c}
0x2f3c…2f52 Head {h00=0x0012, h01=0x0050, text=» RF(NE) TPLF10«, t00=0x001e, t01=0x006e}
0x2f52…2f78 Head {h00=0x0022, h01=0x0050, text=» LDK A2,RPH DETACH PRINT HEAD «, t00=0x001e, t01=0x0084}
0x2f78…2f92 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001e, t01=0x00aa}
0x2f92…2fb4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP2 JMP IF ERROR«, t00=0x001e, t01=0x00c4}
0x2fb4…2fe6 Head {h00=0x002e, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED =3 «, t00=0x001e, t01=0x00e6}
0x2fe6…3004 Head {h00=0x001a, h01=0x0050, text=» ORS A1,DWTDEV,A6 =3 «, t00=0x001e, t01=0x0118}
0x3004…3018 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x001e, t01=0x0136}
0x3018…302a Head {h00=0x000e, h01=0x0050, text=» SUK A7,8 «, t00=0x001e, t01=0x014a}
0x302a…3056 Head {h00=0x0028, h01=0x0050, text=» RF(NN) TPL010 NOT JOURNAL AND TALLY«, t00=0x001e, t01=0x015c}
0x3056…3078 Head {h00=0x001e, h01=0x0050, text=» ADK A7,2 GET INDEX TABLE «, t00=0x001e, t01=0x0188}
0x3078…30a0 Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x001f, t01=0x001a}
0x30a0…30c4 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND LF CHAR. «, t00=0x001f, t01=0x0042}
0x30c4…30e6 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP2 JMP IF ERROR«, t00=0x001f, t01=0x0066}
0x30e6…3118 Head {h00=0x002e, h01=0x0050, text=»TPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001f, t01=0x0088}
0x3118…3146 Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x001f, t01=0x00ba}
0x3146…3154 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00e8}
0x3154…315e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f6}
0x315e…3168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0100}
0x3168…3188 Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x001f, t01=0x010a}
0x3188…3192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012a}
0x3192…319c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0134}
0x319c…31c2 Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x001f, t01=0x013e}
0x31c2…31cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0164}
0x31cc…31e0 Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x001f, t01=0x016e}
0x31e0…31f4 Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x001f, t01=0x0182}
0x31f4…320a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0020, t01=0x0008}
0x320a…322c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP2 JMP IF ERROR«, t00=0x0020, t01=0x001e}
0x322c…3252 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =3 «, t00=0x0020, t01=0x0040}
0x3252…327c Head {h00=0x0026, h01=0x0050, text=»ERTP2 RF(NZ) ERTP3 JMP IF ERROR =3«, t00=0x0020, t01=0x0066}
0x327c…328a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0090}
0x328a…3294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x009e}
0x3294…329e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00a8}
0x329e…32d2 Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x0020, t01=0x00b2}
0x32d2…32dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e6}
0x32dc…32f0 Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x0020, t01=0x00f0}
0x32f0…3314 Head {h00=0x0020, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER =3«, t00=0x0020, t01=0x0104}
0x3314…3330 Head {h00=0x0018, h01=0x0050, text=» ANK A7,/FF CLEAN =3«, t00=0x0020, t01=0x0128}
0x3330…3362 Head {h00=0x002e, h01=0x0050, text=» SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?«, t00=0x0020, t01=0x0144}
0x3362…337c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x0020, t01=0x0176}
0x337c…33aa Head {h00=0x002a, h01=0x0050, text=»TST005 LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0020, t01=0x0190}
0x33aa…33cc Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER OUT ?«, t00=0x0021, t01=0x002e}
0x33cc…33e4 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) ENDIO NO«, t00=0x0021, t01=0x0050}
0x33e4…33fa Head {h00=0x0012, h01=0x0050, text=» RF TST015 YES«, t00=0x0021, t01=0x0068}
0x33fa…3404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007e}
0x3404…341c Head {h00=0x0014, h01=0x0050, text=»TST010 SUK A7,4 «, t00=0x0021, t01=0x0088}
0x341c…3432 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0021, t01=0x00a0}
0x3432…3460 Head {h00=0x002a, h01=0x0050, text=» RF(G) ENDIO NOT TEST STATUS, JOURNAL «, t00=0x0021, t01=0x00b6}
0x3460…346c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00e4}
0x346c…3482 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0021, t01=0x00f0}
0x3482…34b0 Head {h00=0x002a, h01=0x0050, text=» RF(G) TST020 NOT TEST STATUS, JOURNAL«, t00=0x0021, t01=0x0106}
0x34b0…34c4 Head {h00=0x0010, h01=0x0050, text=»TST012 EQU *«, t00=0x0021, t01=0x0134}
0x34c4…34d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0148}
0x34d0…34f8 Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0021, t01=0x0154}
0x34f8…3522 Head {h00=0x0026, h01=0x0050, text=» ANK A2,EOJT END OF JOURNAL TAPE? «, t00=0x0021, t01=0x017c}
0x3522…354a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ENDIO NO: PERFORM ENDIO «, t00=0x0022, t01=0x0016}
0x354a…3578 Head {h00=0x002a, h01=0x0050, text=»TST015 ORKL A1,PROUT SET RETURN CODE: «, t00=0x0022, t01=0x003e}
0x3578…3580 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x006c}
0x3580…35ac Head {h00=0x0028, h01=0x0050, text=» END OF JOURNAL TAPE, VOUCHER OUT «, t00=0x0022, t01=0x0074}
0x35ac…35b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a0}
0x35b6…35e6 Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0022, t01=0x00aa}
0x35e6…35f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00da}
0x35f0…3604 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0022, t01=0x00e4}
0x3604…3612 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0022, t01=0x00f8}
0x3612…3646 Head {h00=0x0030, h01=0x0050, text=» LDKL A4,/FBFF RESET MESSAGE WRITTEN IND. =3«, t00=0x0022, t01=0x0106}
0x3646…3664 Head {h00=0x001a, h01=0x0050, text=» ANS A4,DWTDEV,A6 =3 «, t00=0x0022, t01=0x013a}
0x3664…3672 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0022, t01=0x0158}
0x3672…367a Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0166}
0x367a…36b2 Head {h00=0x0034, h01=0x0050, text=» ABL LENDIS PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0022, t01=0x016e}
0x36b2…36bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0016}
0x36bc…36d2 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0023, t01=0x0020}
0x36d2…36ea Head {h00=0x0014, h01=0x0050, text=»TST020 SUK A7,16«, t00=0x0023, t01=0x0036}
0x36ea…3710 Head {h00=0x0022, h01=0x0050, text=» RB(L) ENDIO VOUCHER/PASSBOOK «, t00=0x0023, t01=0x004e}
0x3710…3722 Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0023, t01=0x0074}
0x3722…3744 Head {h00=0x001e, h01=0x0050, text=» RB(G) ENDIO GRASP,RELEASE«, t00=0x0023, t01=0x0086}
0x3744…3764 Head {h00=0x001c, h01=0x0050, text=» RB TST012 CUT,PERFORATE«, t00=0x0023, t01=0x00a8}
0x3764…3770 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00c8}
0x3770…377e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00d4}
0x377e…3788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e2}
0x3788…3792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ec}
0x3792…379c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f6}
0x379c…37c4 Head {h00=0x0024, h01=0x0050, text=»* ORDER 06 : PRINT TALLY ROLL «, t00=0x0023, t01=0x0100}
0x37c4…37ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0128}
0x37ce…37d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0132}
0x37d8…37e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x013c}
0x37e2…380e Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x0023, t01=0x0146}
0x380e…3820 Head {h00=0x000e, h01=0x0050, text=» =2(=1)«, t00=0x0023, t01=0x0172}
0x3820…382a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0184}
0x382a…3858 Head {h00=0x002a, h01=0x0050, text=»TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH«, t00=0x0023, t01=0x018e}
0x3858…386c Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x0024, t01=0x002c}
0x386c…3882 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,VOCHA«, t00=0x0024, t01=0x0040}
0x3882…38c6 Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTDEV,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED«, t00=0x0024, t01=0x0056}
0x38c6…38d8 Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x0024, t01=0x009a}
0x38d8…38e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00ac}
0x38e6…38f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ba}
0x38f0…38fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c4}
0x38fa…3904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ce}
0x3904…3932 Head {h00=0x002a, h01=0x0050, text=»* ORDER 06 : WRITE VOUCHER/PASSBOOK«, t00=0x0024, t01=0x00d8}
0x3932…3960 Head {h00=0x002a, h01=0x0050, text=»* OB : POSITION LIFT AND WRITE«, t00=0x0024, t01=0x0106}
0x3960…396a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0134}
0x396a…3974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x013e}
0x3974…398a Head {h00=0x0012, h01=0x0050, text=»TP605 EQU * «, t00=0x0024, t01=0x0148}
0x398a…39ac Head {h00=0x001e, h01=0x0050, text=» LDK A2,5 BLOCK LENGTH =2 «, t00=0x0024, t01=0x015e}
0x39ac…39d4 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =2 «, t00=0x0024, t01=0x0180}
0x39d4…39fa Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERTP3 JMP IF ERROR =2 «, t00=0x0025, t01=0x0018}
0x39fa…3a20 Head {h00=0x0022, h01=0x0050, text=» CF A5,GRASP GRASP VOUCHER =2 «, t00=0x0025, t01=0x003e}
0x3a20…3a56 Head {h00=0x0032, h01=0x0050, text=» LC A2,DWTDEV+RLN,A6 GET REQUESTED LINE NO. =2«, t00=0x0025, t01=0x0064}
0x3a56…3a72 Head {h00=0x0018, h01=0x0050, text=» ANK A2,/FF CLEAN =2«, t00=0x0025, t01=0x009a}
0x3a72…3a9e Head {h00=0x0028, h01=0x0050, text=» SUR A2,A3 GET /REQ.-ACT./ LINE NO. «, t00=0x0025, t01=0x00b6}
0x3a9e…3ab4 Head {h00=0x0012, h01=0x0050, text=» RF(NN) TP608 «, t00=0x0025, t01=0x00e2}
0x3ab4…3ac2 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0025, t01=0x00f8}
0x3ac2…3ad8 Head {h00=0x0012, h01=0x0050, text=» NGR A2,A2 =2«, t00=0x0025, t01=0x0106}
0x3ad8…3af0 Head {h00=0x0014, h01=0x0050, text=»TP608 ADK A2,/9 «, t00=0x0025, t01=0x011c}
0x3af0…3b14 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0025, t01=0x0134}
0x3b14…3b36 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP3 JMP IF ERROR«, t00=0x0025, t01=0x0158}
0x3b36…3b44 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0025, t01=0x017a}
0x3b44…3b52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0188}
0x3b52…3b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0008}
0x3b5c…3b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0012}
0x3b66…3b94 Head {h00=0x002a, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL«, t00=0x0026, t01=0x001c}
0x3b94…3bbe Head {h00=0x0026, h01=0x0050, text=»* LINE NUMBER IS EQUAL REQUESTED«, t00=0x0026, t01=0x004a}
0x3bbe…3bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0074}
0x3bc8…3bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x007e}
0x3bd2…3c08 Head {h00=0x0032, h01=0x0050, text=»TP610 CC A3,DWTDEV+RLN,A6 COMPARE LINE NUMBER «, t00=0x0026, t01=0x0088}
0x3c08…3c22 Head {h00=0x0016, h01=0x0050, text=» RF(E) TP650 EQUAL«, t00=0x0026, t01=0x00be}
0x3c22…3c48 Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x0026, t01=0x00d8}
0x3c48…3c6e Head {h00=0x0022, h01=0x0050, text=» LDK A2,LDO SEND ELEVATOR DOWN«, t00=0x0026, t01=0x00fe}
0x3c6e…3c9c Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0026, t01=0x0124}
0x3c9c…3cae Head {h00=0x000e, h01=0x0050, text=» RF TP640 «, t00=0x0026, t01=0x0152}
0x3cae…3cd8 Head {h00=0x0026, h01=0x0050, text=»TP630 LDK A2,LUP SEND ELEVATOR UP «, t00=0x0026, t01=0x0164}
0x3cd8…3d06 Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LINE NUMBER«, t00=0x0026, t01=0x018e}
0x3d06…3d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002c}
0x3d10…3d3a Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR «, t00=0x0027, t01=0x0036}
0x3d3a…3d5c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP3 JMP IF ERROR«, t00=0x0027, t01=0x0060}
0x3d5c…3d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0082}
0x3d66…3d9a Head {h00=0x0030, h01=0x0050, text=» SC A3,DWTDEV+ALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x0027, t01=0x008c}
0x3d9a…3dc2 Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0027, t01=0x00c0}
0x3dc2…3de4 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0027, t01=0x00e8}
0x3de4…3df8 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0027, t01=0x010a}
0x3df8…3e20 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) RCTP NO: ERROR RECOVERY «, t00=0x0027, t01=0x011e}
0x3e20…3e50 Head {h00=0x002c, h01=0x0050, text=» RB TP610 YES: CHECK IF LIFT POSITIONED«, t00=0x0027, t01=0x0146}
0x3e50…3e5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0176}
0x3e5c…3e70 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0027, t01=0x0182}
0x3e70…3ea6 Head {h00=0x0032, h01=0x0050, text=» RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED«, t00=0x0028, t01=0x0008}
0x3ea6…3ed0 Head {h00=0x0026, h01=0x0050, text=»TP645 LDKL A1,PROUT 'VOUCHER OUT' «, t00=0x0028, t01=0x003e}
0x3ed0…3f00 Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 INDICATE IN RETURN CODE«, t00=0x0028, t01=0x0068}
0x3f00…3f24 Head {h00=0x0020, h01=0x0050, text=» LDK A2,RPH RETURN PRINTHEAD«, t00=0x0028, t01=0x0098}
0x3f24…3f3a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0028, t01=0x00bc}
0x3f3a…3f5c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP3 JMP IF ERROR«, t00=0x0028, t01=0x00d2}
0x3f5c…3f6e Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0028, t01=0x00f4}
0x3f6e…3f7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0106}
0x3f7a…3f88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0112}
0x3f88…3f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0120}
0x3f92…3f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x012a}
0x3f9c…3fcc Head {h00=0x002c, h01=0x0050, text=»* ORDER 06 AND 0B: LIFT IS POSITIONED «, t00=0x0028, t01=0x0134}
0x3fcc…3ffa Head {h00=0x002a, h01=0x0050, text=»* ATTACH AND PRINT «, t00=0x0028, t01=0x0164}
0x3ffa…4004 (41, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0004}
0x4004…400e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x000e}
0x400e…4022 Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0029, t01=0x0018}
0x4022…4044 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0029, t01=0x002c}
0x4044…406c Head {h00=0x0024, h01=0x0050, text=»ERTP3 RF(NZ) ERTP4 JMP IF ERROR «, t00=0x0029, t01=0x004e}
0x406c…4096 Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF2 SEND CR2 AND ATTACH «, t00=0x0029, t01=0x0076}
0x4096…40b8 Head {h00=0x001e, h01=0x0050, text=» RB TP410 PRINT ECB-BUFFER«, t00=0x0029, t01=0x00a0}
0x40b8…40c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00c2}
0x40c6…40dc Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0029, t01=0x00d0}
0x40dc…40e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e6}
0x40e6…411e Head {h00=0x0034, h01=0x0050, text=»* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL «, t00=0x0029, t01=0x00f0}
0x411e…4128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0128}
0x4128…413c Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0029, t01=0x0132}
0x413c…4158 Head {h00=0x0018, h01=0x0050, text=» LDK A3,1 SET INDEX «, t00=0x0029, t01=0x0146}
0x4158…416a Head {h00=0x000e, h01=0x0050, text=» RF TP760 «, t00=0x0029, t01=0x0162}
0x416a…417e Head {h00=0x0010, h01=0x0050, text=»TP750 EQU * «, t00=0x0029, t01=0x0174}
0x417e…419a Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 SET INDEX «, t00=0x0029, t01=0x0188}
0x419a…41be Head {h00=0x0020, h01=0x0050, text=»TP760 LDK A2,/4 BLOCK LENGTH«, t00=0x002a, t01=0x0014}
0x41be…41e2 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002a, t01=0x0038}
0x41e2…4204 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR«, t00=0x002a, t01=0x005c}
0x4204…4224 Head {h00=0x001c, h01=0x0050, text=» LC A2,CPTAB,A3 GET CHAR«, t00=0x002a, t01=0x007e}
0x4224…423e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x002a, t01=0x009e}
0x423e…4260 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR«, t00=0x002a, t01=0x00b8}
0x4260…426e Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x002a, t01=0x00da}
0x426e…4280 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002a, t01=0x00e8}
0x4280…428c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00fa}
0x428c…4296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0106}
0x4296…42d6 Head {h00=0x003c, h01=0x0050, text=»* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK«, t00=0x002a, t01=0x0110}
0x42d6…42e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0150}
0x42e0…42f4 Head {h00=0x0010, h01=0x0050, text=»TP800 EQU * «, t00=0x002a, t01=0x015a}
0x42f4…4314 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/9 BLOCK LENGTH «, t00=0x002a, t01=0x016e}
0x4314…4338 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002a, t01=0x018e}
0x4338…435a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR«, t00=0x002b, t01=0x0022}
0x435a…4370 Head {h00=0x0012, h01=0x0050, text=» CF A5,GRASPA «, t00=0x002b, t01=0x0044}
0x4370…4396 Head {h00=0x0022, h01=0x0050, text=»TP850 LDK A2,1 BLOCK LENGTH =2«, t00=0x002b, t01=0x005a}
0x4396…43be Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =2 «, t00=0x002b, t01=0x0080}
0x43be…43e4 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR =2 «, t00=0x002b, t01=0x00a8}
0x43e4…43f6 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002b, t01=0x00ce}
0x43f6…440a Head {h00=0x0010, h01=0x0050, text=»TP900 EQU * «, t00=0x002b, t01=0x00e0}
0x440a…4420 Head {h00=0x0012, h01=0x0050, text=» CF A5,RELEAS «, t00=0x002b, t01=0x00f4}
0x4420…4436 Head {h00=0x0012, h01=0x0050, text=» RB TP850 =2 «, t00=0x002b, t01=0x010a}
0x4436…443e Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0120}
0x443e…444c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0128}
0x444c…4456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0136}
0x4456…446c Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x002b, t01=0x0140}
0x446c…4476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0156}
0x4476…44c0 Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x002b, t01=0x0160}
0x44c0…44de Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x002c, t01=0x001a}
0x44de…44e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0038}
0x44e8…451a Head {h00=0x002e, h01=0x0050, text=»PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH «, t00=0x002c, t01=0x0042}
0x451a…4544 Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x002c, t01=0x0074}
0x4544…456a Head {h00=0x0022, h01=0x0050, text=» LD A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x002c, t01=0x009e}
0x456a…4596 Head {h00=0x0028, h01=0x0050, text=»* SKIP PRECEDING SPACES IN BUFFER «, t00=0x002c, t01=0x00c4}
0x4596…45a8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x002c, t01=0x00f0}
0x45a8…45ce Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x002c, t01=0x0102}
0x45ce…45e4 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x002c, t01=0x0128}
0x45e4…4604 Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB050 NOT BLANK«, t00=0x002c, t01=0x013e}
0x4604…461c Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x002c, t01=0x015e}
0x461c…462e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002c, t01=0x0176}
0x462e…4654 Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x002c, t01=0x0188}
0x4654…4696 Head {h00=0x003e, h01=0x0050, text=»* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER «, t00=0x002d, t01=0x001e}
0x4696…46be Head {h00=0x0024, h01=0x0050, text=»PRB050 LDR A1,A3 GET ADDRESS TO «, t00=0x002d, t01=0x0060}
0x46be…46ea Head {h00=0x0028, h01=0x0050, text=» ADR A1,A4 LAST CHARACTER IN BUFFER «, t00=0x002d, t01=0x0088}
0x46ea…4708 Head {h00=0x001a, h01=0x0050, text=» LC A1,-1,A1 GET CHAR «, t00=0x002d, t01=0x00b4}
0x4708…4736 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0909 CARRIAGE RETURN - CR2 ? «, t00=0x002d, t01=0x00d2}
0x4736…4750 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002d, t01=0x0100}
0x4750…477e Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0D0D CARRIAGE RETURN - CR1 ? «, t00=0x002d, t01=0x011a}
0x477e…4798 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002d, t01=0x0148}
0x4798…47ba Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 DUMMY CHARACTER «, t00=0x002d, t01=0x0162}
0x47ba…47cc Head {h00=0x000e, h01=0x0050, text=» RF PRB070«, t00=0x002d, t01=0x0184}
0x47cc…47fe Head {h00=0x002e, h01=0x0050, text=»PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002e, t01=0x0008}
0x47fe…482e Head {h00=0x002c, h01=0x0050, text=»PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB «, t00=0x002e, t01=0x003a}
0x482e…4838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x006a}
0x4838…4842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0074}
0x4842…4874 Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002e, t01=0x007e}
0x4874…4898 Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x002e, t01=0x00b0}
0x4898…48d2 Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D)«, t00=0x002e, t01=0x00d4}
0x48d2…48e8 Head {h00=0x0012, h01=0x0050, text=» RF(E) PRB101 «, t00=0x002e, t01=0x010e}
0x48e8…4908 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND CHAR «, t00=0x002e, t01=0x0124}
0x4908…492a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR«, t00=0x002e, t01=0x0144}
0x492a…493e Head {h00=0x0010, h01=0x0050, text=»PRB101 EQU *«, t00=0x002e, t01=0x0166}
0x493e…4960 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x002e, t01=0x017a}
0x4960…496e Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x002f, t01=0x000c}
0x496e…4996 Head {h00=0x0024, h01=0x0050, text=»ERTP4 RF(NZ) ERTP5 JMP IF ERROR «, t00=0x002f, t01=0x001a}
0x4996…49a4 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x002f, t01=0x0042}
0x49a4…49c6 Head {h00=0x001e, h01=0x0050, text=» LDK A2,2 BLOCK LENGTH =3 «, t00=0x002f, t01=0x0050}
0x49c6…49ea Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002f, t01=0x0072}
0x49ea…4a0c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP5 JMP IF ERROR«, t00=0x002f, t01=0x0096}
0x4a0c…4a1a Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x002f, t01=0x00b8}
0x4a1a…4a30 Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x002f, t01=0x00c6}
0x4a30…4a3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00dc}
0x4a3e…4a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ea}
0x4a48…4a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f4}
0x4a52…4a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00fe}
0x4a5c…4a74 Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x002f, t01=0x0108}
0x4a74…4a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0120}
0x4a7e…4a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012a}
0x4a88…4a9c Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x002f, t01=0x0134}
0x4a9c…4ad2 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x002f, t01=0x0148}
0x4ad2…4af2 Head {h00=0x001c, h01=0x0050, text=» CWK A7,7 CHECK ORDER =3«, t00=0x002f, t01=0x017e}
0x4af2…4b16 Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x0030, t01=0x000e}
0x4b16…4b3a Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x0030, t01=0x0032}
0x4b3a…4b48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0056}
0x4b48…4b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0064}
0x4b52…4b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x006e}
0x4b5c…4b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0078}
0x4b66…4b82 Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x0030, t01=0x0082}
0x4b82…4b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x009e}
0x4b8c…4b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a8}
0x4b96…4ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b2}
0x4ba0…4bc8 Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0030, t01=0x00bc}
0x4bc8…4bea Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0030, t01=0x00e4}
0x4bea…4c10 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x0030, t01=0x0106}
0x4c10…4c36 Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x0030, t01=0x012c}
0x4c36…4c58 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0030, t01=0x0152}
0x4c58…4c7a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP5 JMP IF ERROR«, t00=0x0030, t01=0x0174}
0x4c7a…4ca8 Head {h00=0x002a, h01=0x0050, text=» ABL TP405 SEND LIFT TO TOP AND RELEAS«, t00=0x0031, t01=0x0008}
0x4ca8…4cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0036}
0x4cb2…4cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0040}
0x4cbc…4cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x004a}
0x4cc6…4ce8 Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x0031, t01=0x0054}
0x4ce8…4cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0076}
0x4cf2…4cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0080}
0x4cfc…4d2a Head {h00=0x002a, h01=0x0050, text=»PRB110 LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0031, t01=0x008a}
0x4d2a…4d4c Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0031, t01=0x00b8}
0x4d4c…4d60 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0031, t01=0x00da}
0x4d60…4d8a Head {h00=0x0026, h01=0x0050, text=» RF(Z) RCTP ERROR .VOUCHER NOT IN «, t00=0x0031, t01=0x00ee}
0x4d8a…4d96 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0118}
0x4d96…4daa Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0031, t01=0x0124}
0x4daa…4dbe Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x0031, t01=0x0138}
0x4dbe…4dca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x014c}
0x4dca…4df2 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 COPY REQUESTED LENGTH«, t00=0x0031, t01=0x0158}
0x4df2…4e0e Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 R.L. < 3? «, t00=0x0031, t01=0x0180}
0x4e0e…4e36 Head {h00=0x0024, h01=0x0050, text=» RF(N) PRB200 YES: NO TABULATION«, t00=0x0032, t01=0x000c}
0x4e36…4e4a Head {h00=0x0010, h01=0x0050, text=» LDK A1,TAB «, t00=0x0032, t01=0x0034}
0x4e4a…4e6a Head {h00=0x001c, h01=0x0050, text=» CC A1,-2,A3 TABULATION?«, t00=0x0032, t01=0x0048}
0x4e6a…4e84 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x0032, t01=0x0068}
0x4e84…4e92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0082}
0x4e92…4e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0090}
0x4e9c…4ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009a}
0x4ea6…4ede Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x0032, t01=0x00a4}
0x4ede…4f1e Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x0032, t01=0x00dc}
0x4f1e…4f40 Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x0032, t01=0x011c}
0x4f40…4f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x013e}
0x4f4a…4f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0148}
0x4f54…4f80 Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,RPH DETACH PRINT HEAD «, t00=0x0032, t01=0x0152}
0x4f80…4fa2 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x0032, t01=0x017e}
0x4fa2…4fc4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP5 JMP IF ERROR«, t00=0x0033, t01=0x0010}
0x4fc4…4ff4 Head {h00=0x002c, h01=0x0050, text=»PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR «, t00=0x0033, t01=0x0032}
0x4ff4…501c Head {h00=0x0024, h01=0x0050, text=» LCR A1,A3 GET 2ND TAB POS CHAR «, t00=0x0033, t01=0x0062}
0x501c…5038 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x0033, t01=0x008a}
0x5038…504a Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0033, t01=0x00a6}
0x504a…506a Head {h00=0x001c, h01=0x0050, text=» ANK A2,/F0 LINE DECADE «, t00=0x0033, t01=0x00b8}
0x506a…5090 Head {h00=0x0022, h01=0x0050, text=» ORR A1,A2 DECIMAL LINE NUMBER«, t00=0x0033, t01=0x00d8}
0x5090…50b8 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x0033, t01=0x00fe}
0x50b8…50cc Head {h00=0x0010, h01=0x0050, text=»PRB120 EQU *«, t00=0x0033, t01=0x0126}
0x50cc…5106 Head {h00=0x0036, h01=0x0050, text=» CW A1,DWTDEV+PCO,A6 COMPARE WITH ACTUAL TAB. POS.«, t00=0x0033, t01=0x013a}
0x5106…5122 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x0033, t01=0x0174}
0x5122…512c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0190}
0x512c…5136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000a}
0x5136…516a Head {h00=0x0030, h01=0x0050, text=» IM DWTDEV+PCO,A6 INCREMENT POSITION COUNTER«, t00=0x0034, t01=0x0014}
0x516a…5188 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x0034, t01=0x0048}
0x5188…51b4 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x0034, t01=0x0066}
0x51b4…51dc Head {h00=0x0024, h01=0x0050, text=»ERTP5 RF(NZ) ERTP6 JMP IF ERROR «, t00=0x0034, t01=0x0092}
0x51dc…51ee Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x0034, t01=0x00ba}
0x51ee…51f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00cc}
0x51f8…5202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00d6}
0x5202…520c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e0}
0x520c…523e Head {h00=0x002e, h01=0x0050, text=»PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH«, t00=0x0034, t01=0x00ea}
0x523e…5268 Head {h00=0x0026, h01=0x0050, text=» SUK A3,2 DECREMENT BUFFER ADDRESS«, t00=0x0034, t01=0x011c}
0x5268…5282 Head {h00=0x0016, h01=0x0050, text=» LDK A2,APH ATTACH«, t00=0x0034, t01=0x0146}
0x5282…52a0 Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x0034, t01=0x0160}
0x52a0…52ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x017e}
0x52ae…52b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x018c}
0x52b8…52c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0008}
0x52c2…52cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0012}
0x52cc…5302 Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x0035, t01=0x001c}
0x5302…531e Head {h00=0x0018, h01=0x0050, text=»* - ROOMLESS POINT«, t00=0x0035, t01=0x0052}
0x531e…533e Head {h00=0x001c, h01=0x0050, text=»* - ILLEGAL CHARACTER «, t00=0x0035, t01=0x006e}
0x533e…5368 Head {h00=0x0026, h01=0x0050, text=»* - SPECIAL CHARACTER (/13,/14) «, t00=0x0035, t01=0x008e}
0x5368…5372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b8}
0x5372…5386 Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x0035, t01=0x00c2}
0x5386…53b4 Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x0035, t01=0x00d6}
0x53b4…53da Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x0035, t01=0x0104}
0x53da…53f4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x0035, t01=0x012a}
0x53f4…541e Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER POINTER«, t00=0x0035, t01=0x0144}
0x541e…5430 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0035, t01=0x016e}
0x5430…5458 Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x0035, t01=0x0180}
0x5458…5470 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x0036, t01=0x0018}
0x5470…549a Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x0036, t01=0x0030}
0x549a…54a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x005a}
0x54a4…54ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0064}
0x54ae…54b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x006e}
0x54b8…54e8 Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x0036, t01=0x0078}
0x54e8…5502 Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB225 YES «, t00=0x0036, t01=0x00a8}
0x5502…5532 Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x0036, t01=0x00c2}
0x5532…554c Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x0036, t01=0x00f2}
0x554c…5556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x010c}
0x5556…5560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0116}
0x5560…5574 Head {h00=0x0010, h01=0x0050, text=»PRB225 EQU *«, t00=0x0036, t01=0x0120}
0x5574…5588 Head {h00=0x0010, h01=0x0050, text=» IFT CHR13=1«, t00=0x0036, t01=0x0134}
0x5588…55b2 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x0036, t01=0x0148}
0x55b2…55cc Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0036, t01=0x0172}
0x55cc…55d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x018c}
0x55d8…55ec Head {h00=0x0010, h01=0x0050, text=» IFT CHR14=1«, t00=0x0037, t01=0x0008}
0x55ec…5616 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x0037, t01=0x001c}
0x5616…5630 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0037, t01=0x0046}
0x5630…563c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0060}
0x563c…5646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x006c}
0x5646…566c Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x0037, t01=0x0076}
0x566c…569a Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 STORE IN RETURN CODE «, t00=0x0037, t01=0x009c}
0x569a…56ac Head {h00=0x000e, h01=0x0050, text=» RF PRB245«, t00=0x0037, t01=0x00ca}
0x56ac…56b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00dc}
0x56b6…56c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00e6}
0x56c0…56ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00f0}
0x56ca…5700 Head {h00=0x0032, h01=0x0050, text=»PRB230 IM DWTDEV+PCO,A6 INCREMENT BYTE COUNTER«, t00=0x0037, t01=0x00fa}
0x5700…5728 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x0037, t01=0x0130}
0x5728…5752 Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x0037, t01=0x0158}
0x5752…5774 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP6 JMP IF ERROR«, t00=0x0037, t01=0x0182}
0x5774…57a4 Head {h00=0x002c, h01=0x0050, text=»PRB245 SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x0038, t01=0x0014}
0x57a4…57c6 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0038, t01=0x0044}
0x57c6…57da Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0038, t01=0x0066}
0x57da…57ec Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x0038, t01=0x007a}
0x57ec…57f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x008c}
0x57f6…5800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0096}
0x5800…580a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a0}
0x580a…5818 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00aa}
0x5818…5822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b8}
0x5822…5836 Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x0038, t01=0x00c2}
0x5836…5840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00d6}
0x5840…5874 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0038, t01=0x00e0}
0x5874…587e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0114}
0x587e…5888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x011e}
0x5888…5892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0128}
0x5892…58a4 Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x0038, t01=0x0132}
0x58a4…58b2 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0038, t01=0x0144}
0x58b2…58e4 Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTDEV,A6 TERMINAL DEVICE STATUS =2«, t00=0x0038, t01=0x0152}
0x58e4…590a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A3 SAVE OLD STATUS =2 «, t00=0x0038, t01=0x0184}
0x590a…5940 Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTDEV+1,A6 STORE NEW STATUS IN DWT =2 «, t00=0x0039, t01=0x001a}
0x5940…5972 Head {h00=0x002e, h01=0x0050, text=» ANKL A4,VOCHA STATUS CHANGE ALLOWED ? =2 «, t00=0x0039, t01=0x0050}
0x5972…598e Head {h00=0x0018, h01=0x0050, text=» RF(Z) IHTP10 YES =2«, t00=0x0039, t01=0x0082}
0x598e…59b4 Head {h00=0x0022, h01=0x0050, text=» XRS A4,DWTDEV,A6 RESET BIT =2«, t00=0x0039, t01=0x009e}
0x59b4…59e4 Head {h00=0x002c, h01=0x0050, text=» XRR A3,A2 COMPARE OLD AND NEW STATUS =2«, t00=0x0039, t01=0x00c4}
0x59e4…5a14 Head {h00=0x002c, h01=0x0050, text=» ANK A3,VOIN VOUCHER STATUS CHANGED ? =2«, t00=0x0039, t01=0x00f4}
0x5a14…5a42 Head {h00=0x002a, h01=0x0050, text=» RF(Z) RCTP10 NO, GO TO DISPATCHER =2 «, t00=0x0039, t01=0x0124}
0x5a42…5a6e Head {h00=0x0028, h01=0x0050, text=» LD A8,DWTECB,A6 LOAD ECB-ADDRESS =3«, t00=0x0039, t01=0x0152}
0x5a6e…5a9c Head {h00=0x002a, h01=0x0050, text=» LDK A4,/08 INDICATE STATUS CHANGE =2 «, t00=0x0039, t01=0x017e}
0x5a9c…5ac4 Head {h00=0x0024, h01=0x0050, text=» RF RCTP FOR RECOVERY ROUTINE =2«, t00=0x003a, t01=0x001c}
0x5ac4…5aea Head {h00=0x0022, h01=0x0050, text=»IHTP10 LDR A4,A3 OLD STATUS =2«, t00=0x003a, t01=0x0044}
0x5aea…5b20 Head {h00=0x0032, h01=0x0050, text=» ANKL A4,WAICHA WAITING FOR STATUS CHANGE ? =2«, t00=0x003a, t01=0x006a}
0x5b20…5b4e Head {h00=0x002a, h01=0x0050, text=» RF(Z) RCTP10 NO, GO TO DISPATCHER =2 «, t00=0x003a, t01=0x00a0}
0x5b4e…5b7e Head {h00=0x002c, h01=0x0050, text=» XRR A3,A2 COMPARE OLD AND NEW STATUS =2«, t00=0x003a, t01=0x00ce}
0x5b7e…5bae Head {h00=0x002c, h01=0x0050, text=» ANK A3,VOIN VOUCHER STATUS CHANGED ? =2«, t00=0x003a, t01=0x00fe}
0x5bae…5bdc Head {h00=0x002a, h01=0x0050, text=» RF(Z) RCTP10 NO, GO TO DISPATCHER =2 «, t00=0x003a, t01=0x012e}
0x5bdc…5c14 Head {h00=0x0034, h01=0x0050, text=» XRS A4,DWTDEV,A6 RESET 'WAIT FOR STATUS' BIT =2«, t00=0x003a, t01=0x015c}
0x5c14…5c48 (59, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ABL NDREP GET A3-A5,A7-A8 AND RET VIA A5 =2«, t00=0x003b, t01=0x0004}
0x5c48…5c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0038}
0x5c52…5c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0042}
0x5c5c…5c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x004c}
0x5c66…5c74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0056}
0x5c74…5c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0064}
0x5c7e…5c92 Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x003b, t01=0x006e}
0x5c92…5c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0082}
0x5c9c…5cde Head {h00=0x003e, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON«, t00=0x003b, t01=0x008c}
0x5cde…5ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ce}
0x5ce8…5cfa Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x003b, t01=0x00d8}
0x5cfa…5d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ea}
0x5d04…5d26 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,/FFFF-WAICHA =2 «, t00=0x003b, t01=0x00f4}
0x5d26…5d5e Head {h00=0x0034, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET 'WAIT FOR STATUS' BIT =2«, t00=0x003b, t01=0x0116}
0x5d5e…5d86 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/7FFF IND DEVICE BUSY «, t00=0x003b, t01=0x014e}
0x5d86…5da0 Head {h00=0x0016, h01=0x0050, text=» ANS A2,DWTST,A6 «, t00=0x003b, t01=0x0176}
0x5da0…5dc2 Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x003b, t01=0x0190}
0x5dc2…5dd4 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x003c, t01=0x0022}
0x5dd4…5df4 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/3 BLOCK LENGTH «, t00=0x003c, t01=0x0034}
0x5df4…5e18 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x003c, t01=0x0054}
0x5e18…5e3e Head {h00=0x0022, h01=0x0050, text=»ERTP6 RF(NZ) ERTP JMP IF ERROR«, t00=0x003c, t01=0x0078}
0x5e3e…5e58 Head {h00=0x0016, h01=0x0050, text=» LD A2,DWTECB,A6 «, t00=0x003c, t01=0x009e}
0x5e58…5e82 Head {h00=0x0026, h01=0x0050, text=» RF(Z) RCTP05 REQUEST NOT RUNNING «, t00=0x003c, t01=0x00b8}
0x5e82…5e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00e2}
0x5e8c…5ecc Head {h00=0x003c, h01=0x0050, text=» LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x003c, t01=0x00ec}
0x5ecc…5eec Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x003c, t01=0x012c}
0x5eec…5f0e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x003c, t01=0x014c}
0x5f0e…5f22 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x003c, t01=0x016e}
0x5f22…5f46 Head {h00=0x0020, h01=0x0050, text=» ANK A4,/08 STATUS CHANGE ? «, t00=0x003c, t01=0x0182}
0x5f46…5f5e Head {h00=0x0014, h01=0x0050, text=» RF(Z) RCTP05 NO«, t00=0x003d, t01=0x0016}
0x5f5e…5f82 Head {h00=0x0020, h01=0x0050, text=» ABL TP645 COMPLETE REQUEST «, t00=0x003d, t01=0x002e}
0x5f82…5f8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0052}
0x5f8e…5fa2 Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x003d, t01=0x005e}
0x5fa2…5fb4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003d, t01=0x0072}
0x5fb4…5fee Head {h00=0x0036, h01=0x0050, text=» SC A2,DWTDEV+ALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x003d, t01=0x0084}
0x5fee…600e Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003d, t01=0x00be}
0x600e…6024 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x00de}
0x6024…6046 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x003d, t01=0x00f4}
0x6046…606c Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =3 «, t00=0x003d, t01=0x0116}
0x606c…6090 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR =3«, t00=0x003d, t01=0x013c}
0x6090…60aa Head {h00=0x0016, h01=0x0050, text=» LD A2,DWTECB,A6 «, t00=0x003d, t01=0x0160}
0x60aa…60b8 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x003d, t01=0x017a}
0x60b8…60e6 Head {h00=0x002a, h01=0x0050, text=» ABL(Z) LENDIS REQUEST NOT RUNNING =3 «, t00=0x003d, t01=0x0188}
0x60e6…60fc Head {h00=0x0012, h01=0x0050, text=»RCTP07 EQU * «, t00=0x003e, t01=0x0026}
0x60fc…6110 Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x003e, t01=0x003c}
0x6110…6138 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/100 INDICATE POWER OFF«, t00=0x003e, t01=0x0050}
0x6138…615c Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x003e, t01=0x0078}
0x615c…6168 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x009c}
0x6168…6186 Head {h00=0x001a, h01=0x0050, text=» LDK A4,1 IND RECOVERY«, t00=0x003e, t01=0x00a8}
0x6186…6194 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x003e, t01=0x00c6}
0x6194…61bc Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTOR,A6 SET ORDER IN A7 «, t00=0x003e, t01=0x00d4}
0x61bc…61d0 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x003e, t01=0x00fc}
0x61d0…61fe Head {h00=0x002a, h01=0x0050, text=» ABL ACT005 START RECOVERY OF PRINTER «, t00=0x003e, t01=0x0110}
0x61fe…6228 Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL LDISP GO TO DISPATCHER «, t00=0x003e, t01=0x013e}
0x6228…6236 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0168}
0x6236…6240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0176}
0x6240…6258 Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x003e, t01=0x0180}
0x6258…6262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0008}
0x6262…629a Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x003f, t01=0x0012}
0x629a…62a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x004a}
0x62a4…62ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0054}
0x62ae…62b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x005e}
0x62b8…62ea Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 «, t00=0x003f, t01=0x0068}
0x62ea…6304 Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x003f, t01=0x009a}
0x6304…631e Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x003f, t01=0x00b4}
0x631e…633e Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x003f, t01=0x00ce}
0x633e…6352 Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x003f, t01=0x00ee}
0x6352…6378 Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x003f, t01=0x0102}
0x6378…6382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0128}
0x6382…638c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0132}
0x638c…6396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x013c}
0x6396…63a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0146}
0x63a0…63aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0150}
0x63aa…63c0 Head {h00=0x0012, h01=0x0050, text=»* G R A S P «, t00=0x003f, t01=0x015a}
0x63c0…63ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0170}
0x63ca…6402 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK«, t00=0x003f, t01=0x017a}
0x6402…640c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0022}
0x640c…6416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x002c}
0x6416…642a Head {h00=0x0010, h01=0x0050, text=»GRASPA EQU *«, t00=0x0040, t01=0x0036}
0x642a…644a Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0040, t01=0x004a}
0x644a…6460 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x006a}
0x6460…6482 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x0040, t01=0x0080}
0x6482…6496 Head {h00=0x0010, h01=0x0050, text=»GRASP EQU * «, t00=0x0040, t01=0x00a2}
0x6496…64a8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0040, t01=0x00b6}
0x64a8…64c2 Head {h00=0x0016, h01=0x0050, text=» LDK A2,GRA GRASP «, t00=0x0040, t01=0x00c8}
0x64c2…64d8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x00e2}
0x64d8…64fa Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x0040, t01=0x00f8}
0x64fa…6522 Head {h00=0x0024, h01=0x0050, text=» LC A4,DWTDEV+1,A6 GET STATUS =2«, t00=0x0040, t01=0x011a}
0x6522…6546 Head {h00=0x0020, h01=0x0050, text=» ANK A4,VOIN VOUCHER IN ? =2«, t00=0x0040, t01=0x0142}
0x6546…6554 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0040, t01=0x0166}
0x6554…6570 Head {h00=0x0018, h01=0x0050, text=» RF(Z) COM010 NO =2 «, t00=0x0040, t01=0x0174}
0x6570…65a4 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTDEV+ALN,A6 GET ACTUAL LINE NO. =2 «, t00=0x0040, t01=0x0190}
0x65a4…65d0 Head {h00=0x0028, h01=0x0050, text=»GRAS10 CF A5,ENDBLK END OF BLOCK =2 «, t00=0x0041, t01=0x0034}
0x65d0…65f4 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR =2«, t00=0x0041, t01=0x0060}
0x65f4…660e Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0041, t01=0x0084}
0x660e…6618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x009e}
0x6618…6622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00a8}
0x6622…662c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b2}
0x662c…6636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00bc}
0x6636…666a Head {h00=0x0030, h01=0x0050, text=»* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK«, t00=0x0041, t01=0x00c6}
0x666a…6674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00fa}
0x6674…6696 Head {h00=0x001e, h01=0x0050, text=»* INPUT : A1 = RETURN CODE«, t00=0x0041, t01=0x0104}
0x6696…66a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0126}
0x66a0…66b2 Head {h00=0x000e, h01=0x0050, text=»ERTP EQU *«, t00=0x0041, t01=0x0130}
0x66b2…66c4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0041, t01=0x0142}
0x66c4…66ec Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTOR,A6 SET ORDER IN A7 «, t00=0x0041, t01=0x0154}
0x66ec…6700 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0041, t01=0x017c}
0x6700…6722 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP20 ORDER /00 ?«, t00=0x0041, t01=0x0190}
0x6722…674e Head {h00=0x0028, h01=0x0050, text=»ERTP15 LDK A1,1 YES,SET RETURN CODE «, t00=0x0042, t01=0x0022}
0x674e…677c Head {h00=0x002a, h01=0x0050, text=» ABL LENDIS NOT OPER. & END OF REQUEST«, t00=0x0042, t01=0x004e}
0x677c…67b8 Head {h00=0x0038, h01=0x0050, text=»ERTP20 ANK A1,/1A SOFTW. TIME OUT,LRC OR LINK ERROR «, t00=0x0042, t01=0x007c}
0x67b8…67da Head {h00=0x001e, h01=0x0050, text=» RB(NZ) RCTP YES RECOVERY «, t00=0x0042, t01=0x00b8}
0x67da…67f0 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=0 «, t00=0x0042, t01=0x00da}
0x67f0…680c Head {h00=0x0018, h01=0x0050, text=» ABL LDISP DISPATCH «, t00=0x0042, t01=0x00f0}
0x680c…6818 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x010c}
0x6818…682e Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=1 «, t00=0x0042, t01=0x0118}
0x682e…684c Head {h00=0x001a, h01=0x0050, text=» RB ERTP15 END OF REQ.«, t00=0x0042, t01=0x012e}
0x684c…6858 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x014c}
0x6858…6866 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0158}
0x6866…6870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0166}
0x6870…687a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0170}
0x687a…6892 Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x0042, t01=0x017a}
0x6892…689c (67, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0004}
0x689c…68d2 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x0043, t01=0x000e}
0x68d2…68dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0044}
0x68dc…68e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x004e}
0x68e6…68f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0058}
0x68f0…6904 Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x0043, t01=0x0062}
0x6904…6924 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x0043, t01=0x0076}
0x6924…6948 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0043, t01=0x0096}
0x6948…696a Head {h00=0x001e, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR «, t00=0x0043, t01=0x00ba}
0x696a…697c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x00dc}
0x697c…69b4 Head {h00=0x0034, h01=0x0050, text=» SC A1,DWTDEV+ALN,A6 SET ACTUAL LINE NUMBER TO 0«, t00=0x0043, t01=0x00ee}
0x69b4…69d4 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0043, t01=0x0126}
0x69d4…69ea Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0043, t01=0x0146}
0x69ea…6a0c Head {h00=0x001e, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR «, t00=0x0043, t01=0x015c}
0x6a0c…6a34 Head {h00=0x0024, h01=0x0050, text=» LC A4,DWTDEV+1,A6 GET STATUS =2«, t00=0x0043, t01=0x017e}
0x6a34…6a58 Head {h00=0x0020, h01=0x0050, text=» ANK A4,VOIN VOUCHER IN ? =2«, t00=0x0044, t01=0x0016}
0x6a58…6a7c Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRAS10 NO, RETURN =2 «, t00=0x0044, t01=0x003a}
0x6a7c…6a9a Head {h00=0x001a, h01=0x0050, text=» LDK A2,REL RELEASE =2«, t00=0x0044, t01=0x005e}
0x6a9a…6ab4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0044, t01=0x007c}
0x6ab4…6ad8 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR =2«, t00=0x0044, t01=0x0096}
0x6ad8…6ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00ba}
0x6ae2…6b1a Head {h00=0x0034, h01=0x0050, text=»* COMMON END FOR GRASP AND RELEASE SUBROUTINES«, t00=0x0044, t01=0x00c4}
0x6b1a…6b50 Head {h00=0x0032, h01=0x0050, text=»* WHEN A CHANGE OF VOUCHER STATUS IS WANTED «, t00=0x0044, t01=0x00fc}
0x6b50…6b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0132}
0x6b5a…6b68 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0044, t01=0x013c}
0x6b68…6b80 Head {h00=0x0014, h01=0x0050, text=»COM010 EQU * =3«, t00=0x0044, t01=0x014a}
0x6b80…6bb2 Head {h00=0x002e, h01=0x0050, text=» LDK A2,TETX DUMMY AFTER GRASP AND REL =2 «, t00=0x0044, t01=0x0162}
0x6bb2…6bcc (69, 0, 400) Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0045, t01=0x0004}
0x6bcc…6bf0 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR =2«, t00=0x0045, t01=0x001e}
0x6bf0…6c16 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =2 «, t00=0x0045, t01=0x0042}
0x6c16…6c3a Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR =2«, t00=0x0045, t01=0x0068}
0x6c3a…6c62 Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0045, t01=0x008c}
0x6c62…6c98 Head {h00=0x0032, h01=0x0050, text=» XRR A4,A2 VOUCHER ST. CHANGED SINCE LAST? =2 «, t00=0x0045, t01=0x00b4}
0x6c98…6cc2 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) COM020 YES, DON'T WAIT =2 «, t00=0x0045, t01=0x00ea}
0x6cc2…6ce8 Head {h00=0x0022, h01=0x0050, text=» CF A5,WAIT WAIT FOR STATUS =2«, t00=0x0045, t01=0x0114}
0x6ce8…6d00 Head {h00=0x0014, h01=0x0050, text=»COM020 EQU * =2«, t00=0x0045, t01=0x013a}
0x6d00…6d2a Head {h00=0x0026, h01=0x0050, text=» RTN A5 RETURN WITH NEW STATUS =2 «, t00=0x0045, t01=0x0152}
0x6d2a…6d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x017c}
0x6d34…6d4c Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x0045, t01=0x0186}
0x6d4c…6d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x000e}
0x6d56…6d96 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x0046, t01=0x0018}
0x6d96…6dc2 Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x0046, t01=0x0058}
0x6dc2…6dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0084}
0x6dcc…6dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008e}
0x6dd6…6e0e Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x0046, t01=0x0098}
0x6e0e…6e26 Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x0046, t01=0x00d0}
0x6e26…6e56 Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x0046, t01=0x00e8}
0x6e56…6e7e Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x0046, t01=0x0118}
0x6e7e…6ea2 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0046, t01=0x0140}
0x6ea2…6ec4 Head {h00=0x001e, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR «, t00=0x0046, t01=0x0164}
0x6ec4…6ee8 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0046, t01=0x0186}
0x6ee8…6f12 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x0047, t01=0x001a}
0x6f12…6f26 Head {h00=0x0010, h01=0x0050, text=»BUFRTN EQU *«, t00=0x0047, t01=0x0044}
0x6f26…6f46 Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x0047, t01=0x0058}
0x6f46…6f50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0078}
0x6f50…6f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0082}
0x6f5a…6f6e Head {h00=0x0010, h01=0x0050, text=»* W A I T «, t00=0x0047, t01=0x008c}
0x6f6e…6f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00a0}
0x6f78…6fb0 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE USED TO INITIATE WAIT FOR CHANGE «, t00=0x0047, t01=0x00aa}
0x6fb0…6fce Head {h00=0x001a, h01=0x0050, text=»* IN VOUCHER STATUS.«, t00=0x0047, t01=0x00e2}
0x6fce…7002 Head {h00=0x0030, h01=0x0050, text=»* RETURN AFTER SUBROUTINE IS MADE THROUGH «, t00=0x0047, t01=0x0100}
0x7002…7038 Head {h00=0x0032, h01=0x0050, text=»* INTERRUPT HANDLER WHEN STATUS IS CHANGED. «, t00=0x0047, t01=0x0134}
0x7038…7042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x016a}
0x7042…7058 Head {h00=0x0012, h01=0x0050, text=»WAIT EQU * =2 «, t00=0x0047, t01=0x0174}
0x7058…706a Head {h00=0x000e, h01=0x0050, text=» INH =2 «, t00=0x0047, t01=0x018a}
0x706a…709c Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5,A7-A8 IN DWT =2 «, t00=0x0048, t01=0x000c}
0x709c…70b8 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,WAICHA =2 «, t00=0x0048, t01=0x003e}
0x70b8…70f0 Head {h00=0x0034, h01=0x0050, text=» ORS A3,DWTDEV,A6 INDICATE 'WAIT FOR STATUS' =2 «, t00=0x0048, t01=0x005a}
0x70f0…710e Head {h00=0x001a, h01=0x0050, text=» ABL LDISP DISPATCH =2«, t00=0x0048, t01=0x0092}
0x710e…7118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00b0}
0x7118…7122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ba}
0x7122…712c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c4}
0x712c…7136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ce}
0x7136…7142 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0048, t01=0x00d8}
0x7142…7146 Head {h00=0x4004, h01=0x0000}
0x7146…714a 00 48 00 e4 ┆ H ┆
0x714a…7152 (73, 1, 8) 20 04 00 00 00 49 00 04 ┆ I ┆
0x7152…71a2 (74, 0, 400) 20 55 50 20 54 4f 20 46 4f 55 52 20 52 45 4d 4f 54 45 20 43 48 41 4e 4e 45 4c 20 43 41 52 44 53 2e 20 00 11 01 8c 00 06 00 50 2a 20 00 12 00 2a 00 0e 00 50 58 3a 44 5c 45 51 55 5c 30 20 00 12 00 34 00 12 00 50 52 45 43 48 41 4e 5c 45 51 55 ┆ UP TO FOUR REMOTE CHANNEL CARDS. P* * PX:D EQU 0 4 PRECHAN EQU┆
0x71a2…71f2 5c 58 3a 44 00 12 00 46 00 06 00 50 2a 20 00 12 00 5c 00 06 00 50 2a 20 00 12 00 66 00 0a 00 50 5c 45 4a 45 43 54 00 12 00 70 00 06 00 50 2a 20 00 12 00 7e 00 2c 00 50 2a 20 20 20 52 45 4d 46 43 20 49 53 20 20 22 20 52 45 4d 4f 54 45 20 54 ┆ X:D F P* P* f P EJECT p P* ~ , P* REMFC IS " REMOTE T┆
0x71f2…7242 45 53 54 20 46 49 4c 45 20 43 4f 44 45 20 22 20 00 12 00 88 00 18 00 50 2a 20 20 20 53 54 41 4e 44 41 52 44 20 49 53 20 2f 31 35 20 00 12 00 b8 00 06 00 50 2a 20 00 12 00 d4 00 10 00 50 58 3a 45 5c 45 51 55 5c 2f 31 35 20 00 12 00 de 00 12 ┆EST FILE CODE " P* STANDARD IS /15 P* PX:E EQU /15 ┆
0x7242…7292 00 50 52 45 4d 46 43 5c 45 51 55 5c 58 3a 45 20 00 12 00 f2 00 06 00 50 2a 20 00 12 01 08 00 06 00 50 2a 20 00 12 01 12 00 3a 00 50 2a 20 20 20 42 59 20 53 45 54 54 49 4e 47 20 58 3a 46 20 3d 20 30 20 54 48 45 20 53 4f 46 54 57 41 52 45 20 ┆ PREMFC EQU X:E P* P* : P* BY SETTING X:F = 0 THE SOFTWARE ┆
0x7292…72e2 54 49 4d 45 2d 4f 55 54 20 48 41 4e 44 4c 49 4e 47 20 00 12 01 1c 00 40 00 50 2a 20 20 20 46 4f 52 20 4d 49 53 53 49 4e 47 20 44 41 54 41 20 52 45 51 55 45 53 54 53 20 46 52 4f 4d 20 50 52 49 4e 54 45 52 53 20 43 41 4e 20 42 45 20 45 58 43 ┆TIME-OUT HANDLING @ P* FOR MISSING DATA REQUESTS FROM PRINTERS CAN BE EXC┆
0x72e2…7332 (75, 0, 400) 4c 55 44 45 44 2e 00 12 01 5a 00 40 00 50 2a 20 20 20 54 48 45 20 45 58 43 4c 55 53 49 4f 4e 20 49 53 20 4f 4e 4c 59 20 50 4f 53 53 49 42 4c 45 20 49 46 20 54 48 45 20 44 52 49 56 45 52 20 49 53 20 41 44 41 50 54 45 44 20 00 13 00 0e 00 2c ┆LUDED. Z @ P* THE EXCLUSION IS ONLY POSSIBLE IF THE DRIVER IS ADAPTED ,┆
0x7332…7382 00 50 2a 20 20 20 46 4f 52 20 4f 4e 4c 59 20 4c 4f 43 41 4c 20 54 45 52 4d 49 4e 41 4c 53 20 28 52 45 43 48 41 4e 3d 30 29 2e 00 13 00 52 00 06 00 50 2a 20 00 13 00 82 00 12 00 50 58 3a 46 5c 45 51 55 5c 31 5c 55 5c 3d 34 00 13 00 8c 00 18 ┆ P* FOR ONLY LOCAL TERMINALS (RECHAN=0). R P* PX:F EQU 1 U =4 ┆
0x7382…73d2 00 50 53 4f 46 54 49 4d 5c 45 51 55 5c 58 3a 46 5c 55 5c 3d 34 20 00 13 00 a2 00 06 00 50 2a 20 00 13 00 be 00 06 00 50 2a 20 00 13 00 c8 00 42 00 50 2a 20 20 20 49 46 20 58 3a 47 20 3d 20 31 20 54 48 45 20 44 52 49 56 45 52 20 43 41 4e 20 ┆ PSOFTIM EQU X:F U =4 P* P* B P* IF X:G = 1 THE DRIVER CAN ┆
0x73d2…7422 48 41 4e 44 4c 45 20 4f 55 54 50 55 54 20 54 4f 20 4b 45 59 42 4f 41 52 44 20 4c 41 4d 50 53 20 00 13 00 d2 00 34 00 50 2a 20 20 20 57 48 45 4e 20 4b 45 59 42 4f 41 52 44 20 49 53 20 43 4f 4e 4e 45 43 54 45 44 20 44 49 52 45 43 54 4c 59 20 ┆HANDLE OUTPUT TO KEYBOARD LAMPS 4 P* WHEN KEYBOARD IS CONNECTED DIRECTLY ┆
0x7422…7472 54 4f 20 56 44 55 2e 20 00 13 01 18 00 06 00 50 2a 20 00 13 01 50 00 12 00 50 58 3a 47 5c 45 51 55 5c 31 5c 55 5c 3d 34 00 13 01 5a 00 16 00 50 4b 42 44 49 52 5c 45 51 55 5c 58 3a 47 5c 55 5c 3d 34 00 13 01 70 00 06 00 50 2a 20 00 13 01 8a ┆TO VDU. P* P PX:G EQU 1 U =4 Z PKBDIR EQU X:G U =4 p P* ┆
0x7472…74c2 (76, 0, 400) 00 06 00 50 2a 20 00 14 00 04 00 38 00 50 2a 20 20 20 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 14 00 0e 00 30 00 50 2a 20 20 20 53 45 ┆ P* 8 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 0 P* SE┆
0x74c2…7512 54 20 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 43 50 55 38 35 32 20 45 51 55 20 30 2e 00 14 00 4a 00 06 00 50 2a 20 00 14 00 7e 00 10 00 50 43 50 55 38 35 32 5c 45 51 55 5c 31 00 14 00 88 00 06 00 50 2a 20 00 14 ┆T IS OBTAINED BY SETTING CPU852 EQU 0. J P* ~ PCPU852 EQU 1 P* ┆
0x7512…7562 00 9c 00 06 00 50 2a 20 00 14 00 a6 00 3c 00 50 2a 20 20 20 54 48 49 53 20 44 52 49 56 45 52 20 43 41 4e 20 42 45 20 41 44 41 50 54 45 44 20 54 4f 20 4d 45 4d 4f 52 59 20 4d 41 4e 41 47 45 4d 45 4e 54 20 55 4e 49 54 00 14 00 b0 00 20 00 50 ┆ P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P┆
0x7562…75b2 2a 20 20 20 42 59 20 53 45 54 54 49 4e 47 20 4d 4d 55 50 41 47 20 54 4f 20 31 2e 20 00 14 00 f0 00 06 00 50 2a 20 00 14 01 14 00 16 00 50 4d 4d 55 50 41 47 5c 45 51 55 5c 30 5c 55 5c 3d 34 20 00 14 01 1e 00 06 00 50 2a 20 00 14 01 38 00 0a ┆* BY SETTING MMUPAG TO 1. P* PMMUPAG EQU 0 U =4 P* 8 ┆
0x75b2…7602 00 50 5c 45 4a 45 43 54 00 14 01 42 00 06 00 50 2a 20 00 14 01 50 00 20 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 14 01 5a 00 20 00 50 2a 20 20 20 20 43 57 54 2d 44 49 53 50 4c 41 43 45 4d ┆ P EJECT B P* P P*************************** Z P* CWT-DISPLACEM┆