|
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: 30186 (0x75ea)
Notes: pts_type(SC)
Names: »DRTP02.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRTP02.SC«
IDENT DRTP02 REL 11.0 81-02-16 870105041100 =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 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 EJECT * * * CHECK STATUS AFTER LAST DUMMY CHARACTER * TPTST EQU * 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 * LDR A4,A1 SAVE RETURN CODE CF A5,ENDBLK END OF BLOCK ERTP2 RF(NZ) ERTP3 JMP IF ERROR LDKL A1,/FBFF RESET MESSAGE WRITTEN IND. ANS A1,DWTDEV,A6 LDR A1,A4 RESTORE RETURN CODE 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 LDK A2,LF1 LINE FEED CF A5,OUTPUT SEND RF(NZ) ERTP4 JMP IF ERROR 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 RF(NZ) ERTP5 JMP IF ERROR LDK A2,1 BLOCK LENGTH CF A5,STABLK START OF BLOCK RF(NZ) ERTP5 JMP IF ERROR LDK A2,ETX CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED ERTP4 RF(NZ) ERTP5 JMP IF ERROR CF A5,ENDBLK END OF BLOCK RF(NZ) ERTP5 JMP IF ERROR LDK A2,3 BLOCK LENGTH CF A5,STABLK START OF BLOCK RF(NZ) ERTP5 JMP IF ERROR LDKL A1,MESS INDICATE MESSAGE PRINTED ORS A1,DWTDEV,A6 PRB102 RTN A5 EJECT * * * * PRINT BUFFER * * PRB105 EQU * ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED SUK A7,7 CHECK ORDER 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 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 LD A2,DWTECB,A6 RF(NZ) RCTP07 REQUEST RUNNING LDK A2,ETX SEND LAST DUMMY TO STOP TIMER CF A5,OUTPUT RF(NZ) ERTP JMP IF ERROR CF A5,ENDBLK END OF BLOCK RF(NZ) ERTP JMP IF ERROR ABL LENDIS RCTP07 EQU * IFT RECOV=1 LDKL A2,/100 INDICATE POWER OFF ORS A2,8,A8 SET RETURN CODE XIF LDK A4,1 IND RECOVERY CF A5,ENDBLK END OF BLOCK RF(NZ) ERTP JMP IF ERROR 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 * COM010 CF A5,ENDBLK END OF BLOCK =2 RB(NZ) ERTP JMP IF ERROR =2 LDK A2,1 BLOCK LENGTH =2 CF A5,STABLK START OF BLOCK =2 RB(NZ) ERTP JMP IF ERROR =2 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-02-16 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0064 Head {h00=0x0022, h01=0x0050, text=» =2, STATUS HANDLING CHANGED«, t00=0x0000, t01=0x0042}
0x0064…0080 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-30«, t00=0x0000, t01=0x0068}
0x0080…00a2 Head {h00=0x001e, h01=0x0050, text=» =1, BLOCK DEF. ADJUSTED«, t00=0x0000, t01=0x0084}
0x00a2…00be Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-26«, t00=0x0000, t01=0x00a6}
0x00be…00fe Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x00c2}
0x00fe…013e Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0102}
0x013e…017e Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0000, t01=0x0142}
0x017e…01be Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0182}
0x01be…01fe Head {h00=0x003c, h01=0x0050, text=»* DRTP02 = DRIVER TELLER TERMINAL PRINTER * «, t00=0x0001, t01=0x0032}
0x01fe…023e Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0072}
0x023e…027e Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x00b2}
0x027e…0288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x0288…0292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fc}
0x0292…029c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0106}
0x029c…02dc Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0110}
0x02dc…031c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x0150}
0x031c…0326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0190}
0x0326…0368 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221,«, t00=0x0002, t01=0x000a}
0x0368…0380 Head {h00=0x0014, h01=0x0050, text=»* 6222 OR 6223«, t00=0x0002, t01=0x004c}
0x0380…038a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0064}
0x038a…0394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006e}
0x0394…03cc Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0002, t01=0x0078}
0x03cc…03d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b0}
0x03d6…03fe Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0002, t01=0x00ba}
0x03fe…0408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e2}
0x0408…0432 Head {h00=0x0026, h01=0x0050, text=»* I H T P : INTERRUPT HANDLER «, t00=0x0002, t01=0x00ec}
0x0432…043c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0116}
0x043c…0464 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0002, t01=0x0120}
0x0464…046e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x046e…0478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0152}
0x0478…04b2 Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES:«, t00=0x0002, t01=0x015c}
0x04b2…04bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0008}
0x04bc…0502 Head {h00=0x0042, h01=0x0050, text=»* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM«, t00=0x0003, t01=0x0012}
0x0502…050c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0058}
0x050c…0546 Head {h00=0x0036, h01=0x0050, text=»* B C D T B Y : CONVERT TO BINARY FROM DECIMAL«, t00=0x0003, t01=0x0062}
0x0546…0550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009c}
0x0550…0598 Head {h00=0x0044, h01=0x0050, text=»* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST«, t00=0x0003, t01=0x00a6}
0x0598…05c0 Head {h00=0x0024, h01=0x0050, text=»* CHARACTER IN OUTPUT BUFFER «, t00=0x0003, t01=0x00ee}
0x05c0…05ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0116}
0x05ca…05fc Head {h00=0x002e, h01=0x0050, text=»* G R A S P : SEND GRASP TO VOUCHER «, t00=0x0003, t01=0x0120}
0x05fc…0606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0152}
0x0606…063e Head {h00=0x0034, h01=0x0050, text=»* R E L E A S : SEND LIFT TO TOP AND RELEASE«, t00=0x0003, t01=0x015c}
0x063e…064c (4, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0004}
0x064c…0656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0656…0684 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0004, t01=0x001c}
0x0684…068e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004a}
0x068e…06b6 Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0004, t01=0x0054}
0x06b6…06d8 Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0004, t01=0x007c}
0x06d8…070c Head {h00=0x0030, h01=0x0050, text=»* ORDER 0B : POSITION LIFT AND WRITE «, t00=0x0004, t01=0x009e}
0x070c…0734 Head {h00=0x0024, h01=0x0050, text=»* ORDER 22 : CUT JOURNAL «, t00=0x0004, t01=0x00d2}
0x0734…0762 Head {h00=0x002a, h01=0x0050, text=»* ORDER 26 : PERFORATE JOURNAL «, t00=0x0004, t01=0x00fa}
0x0762…0794 Head {h00=0x002e, h01=0x0050, text=»* ORDER 37 : GRASP VOUCHER/PASSBOOK«, t00=0x0004, t01=0x0128}
0x0794…07c8 Head {h00=0x0030, h01=0x0050, text=»* ORDER 38 : RELEASE VOUCHER/PASSBOOK«, t00=0x0004, t01=0x015a}
0x07c8…07d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018e}
0x07d2…0802 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0005, t01=0x0008}
0x0802…080c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080c…0836 Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0005, t01=0x0042}
0x0836…0872 Head {h00=0x0038, h01=0x0050, text=»* BIT 2 : END OF JOURNAL TAPE, VOUCHER OUT«, t00=0x0005, t01=0x006c}
0x0872…08aa Head {h00=0x0034, h01=0x0050, text=»* BIT 7 : RECOVERY EXECUTED ON REQUEST«, t00=0x0005, t01=0x00a8}
0x08aa…08d6 Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0005, t01=0x00e0}
0x08d6…08fe Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0005, t01=0x010c}
0x08fe…0908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0134}
0x0908…0912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013e}
0x0912…091c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0148}
0x091c…093e Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0005, t01=0x0152}
0x093e…0948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0174}
0x0948…096e Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0005, t01=0x017e}
0x096e…0994 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0006, t01=0x0014}
0x0994…09bc Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0006, t01=0x003a}
0x09bc…09e4 Head {h00=0x0024, h01=0x0050, text=»* A4: OUTPUT COUNTER «, t00=0x0006, t01=0x0062}
0x09e4…0a0a Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0006, t01=0x008a}
0x0a0a…0a2e Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0006, t01=0x00b0}
0x0a2e…0a4c Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0006, t01=0x00d4}
0x0a4c…0a70 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0006, t01=0x00f2}
0x0a70…0a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0116}
0x0a7a…0a88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0120}
0x0a88…0a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a92…0ab0 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0006, t01=0x0138}
0x0ab0…0aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0156}
0x0aba…0b02 Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN «, t00=0x0006, t01=0x0160}
0x0b02…0b1a Head {h00=0x0014, h01=0x0050, text=»* BE EXCLUDED:«, t00=0x0007, t01=0x0018}
0x0b1a…0b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b24…0b66 Head {h00=0x003e, h01=0x0050, text=»* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST «, t00=0x0007, t01=0x003a}
0x0b66…0b9e Head {h00=0x0034, h01=0x0050, text=»* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) «, t00=0x0007, t01=0x007c}
0x0b9e…0bd2 Head {h00=0x0030, h01=0x0050, text=»* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 «, t00=0x0007, t01=0x00b4}
0x0bd2…0c1e Head {h00=0x0048, h01=0x0050, text=»* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN«, t00=0x0007, t01=0x00e8}
0x0c1e…0c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c28…0c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c32…0c76 Head {h00=0x0040, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED«, t00=0x0007, t01=0x0148}
0x0c76…0cb8 Head {h00=0x003e, h01=0x0050, text=»* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET «, t00=0x0007, t01=0x018c}
0x0cb8…0cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cc2…0ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0048}
0x0ccc…0cda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0052}
0x0cda…0ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0060}
0x0ce4…0cf8 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x006a}
0x0cf8…0d0c Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0008, t01=0x007e}
0x0d0c…0d20 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0092}
0x0d20…0d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a6}
0x0d2a…0d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b0}
0x0d34…0d56 Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD ADDRESS BLOCK «, t00=0x0008, t01=0x00ba}
0x0d56…0d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00dc}
0x0d60…0d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e6}
0x0d6a…0d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f0}
0x0d74…0d8a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x00fa}
0x0d8a…0da0 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0008, t01=0x0110}
0x0da0…0db6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x0126}
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…0dfa Head {h00=0x002c, h01=0x0050, text=» EXTRN LDISP DISPATCHING FROM INTERRUPT «, t00=0x0008, t01=0x0150}
0x0dfa…0e22 Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER DISPATCH I/O ERROR«, t00=0x0008, t01=0x0180}
0x0e22…0e4c Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDIS END I/O AND DISPATCH«, t00=0x0009, t01=0x0018}
0x0e4c…0e6a Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x0042}
0x0e6a…0e94 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0009, t01=0x0060}
0x0e94…0eb0 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x008a}
0x0eb0…0ed2 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0009, t01=0x00a6}
0x0ed2…0eec Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0009, t01=0x00c8}
0x0eec…0f16 Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0009, t01=0x00e2}
0x0f16…0f3a Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS «, t00=0x0009, t01=0x010c}
0x0f3a…0f64 Head {h00=0x0026, h01=0x0050, text=» EXTRN STABLK DEF. START OF BLOCK «, t00=0x0009, t01=0x0130}
0x0f64…0f8c Head {h00=0x0024, h01=0x0050, text=» EXTRN ENDBLK DEF. END OF BLOCK «, t00=0x0009, t01=0x015a}
0x0f8c…0fbe Head {h00=0x002e, h01=0x0050, text=» EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT =2 «, t00=0x0009, t01=0x0182}
0x0fbe…0fee Head {h00=0x002c, h01=0x0050, text=» EXTRN NDREP GET REGISTERS AND RETURN =2«, t00=0x000a, t01=0x0024}
0x0fee…0ffc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0054}
0x0ffc…1006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0062}
0x1006…1022 Head {h00=0x0018, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x000a, t01=0x006c}
0x1022…102c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0088}
0x102c…1050 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x000a, t01=0x0092}
0x1050…1076 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x000a, t01=0x00b6}
0x1076…109c Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x000a, t01=0x00dc}
0x109c…10bc Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x000a, t01=0x0102}
0x10bc…10de Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x000a, t01=0x0122}
0x10de…10ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0144}
0x10ec…110c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0152}
0x110c…112c Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000a, t01=0x0172}
0x112c…114c (11, 0, 400) Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0004}
0x114c…1156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0024}
0x1156…1160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002e}
0x1160…11a0 Head {h00=0x003c, h01=0x0050, text=»* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET«, t00=0x000b, t01=0x0038}
0x11a0…11be Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:A = 1«, t00=0x000b, t01=0x0078}
0x11be…11c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0096}
0x11c8…11d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a0}
0x11d2…11e4 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000b, t01=0x00aa}
0x11e4…11fa Head {h00=0x0012, h01=0x0050, text=»RECOV EQU X:A «, t00=0x000b, t01=0x00bc}
0x11fa…1204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d2}
0x1204…120e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00dc}
0x120e…124c Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x000b, t01=0x00e6}
0x124c…1268 Head {h00=0x0018, h01=0x0050, text=»* SETTING X:B = 1 «, t00=0x000b, t01=0x0124}
0x1268…1272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0140}
0x1272…127c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x014a}
0x127c…128e Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000b, t01=0x0154}
0x128e…12a4 Head {h00=0x0012, h01=0x0050, text=»CUTPER EQU X:B«, t00=0x000b, t01=0x0166}
0x12a4…12ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017c}
0x12ae…12b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0186}
0x12b8…12fe Head {h00=0x0042, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 «, t00=0x000b, t01=0x0190}
0x12fe…1322 Head {h00=0x0020, h01=0x0050, text=»* AND X:D = 1 RESPECTIVLY «, t00=0x000c, t01=0x0046}
0x1322…132c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006a}
0x132c…1336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0074}
0x1336…1348 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000c, t01=0x007e}
0x1348…135e Head {h00=0x0012, h01=0x0050, text=»CHR13 EQU X:C «, t00=0x000c, t01=0x0090}
0x135e…1368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a6}
0x1368…1372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b0}
0x1372…1384 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000c, t01=0x00ba}
0x1384…139a Head {h00=0x0012, h01=0x0050, text=»CHR14 EQU X:D «, t00=0x000c, t01=0x00cc}
0x139a…13a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e2}
0x13a4…13ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ec}
0x13ae…13e4 Head {h00=0x0032, h01=0x0050, text=»* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF«, t00=0x000c, t01=0x00f6}
0x13e4…1422 Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000c, t01=0x012c}
0x1422…142c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016a}
0x142c…1436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0174}
0x1436…1448 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000c, t01=0x017e}
0x1448…145e Head {h00=0x0012, h01=0x0050, text=»COMPL EQU X:E «, t00=0x000c, t01=0x0190}
0x145e…1468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0016}
0x1468…1472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0020}
0x1472…14b4 Head {h00=0x003e, h01=0x0050, text=»* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT «, t00=0x000d, t01=0x002a}
0x14b4…14f4 Head {h00=0x003c, h01=0x0050, text=»* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING «, t00=0x000d, t01=0x006c}
0x14f4…1536 Head {h00=0x003e, h01=0x0050, text=»* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET«, t00=0x000d, t01=0x00ac}
0x1536…1540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ee}
0x1540…154a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f8}
0x154a…155c Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000d, t01=0x0102}
0x155c…1572 Head {h00=0x0012, h01=0x0050, text=»RELEND EQU X:F«, t00=0x000d, t01=0x0114}
0x1572…157c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x012a}
0x157c…1586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0134}
0x1586…15a2 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000d, t01=0x013e}
0x15a2…15ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015a}
0x15ac…15b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0164}
0x15b6…15c8 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 20«, t00=0x000d, t01=0x016e}
0x15c8…15de Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x000d, t01=0x0180}
0x15de…15e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15e8…15f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0012}
0x15f6…1600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0020}
0x1600…160a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002a}
0x160a…1620 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000e, t01=0x0034}
0x1620…1636 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000e, t01=0x004a}
0x1636…164c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000e, t01=0x0060}
0x164c…1656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0076}
0x1656…1660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0080}
0x1660…1692 Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x000e, t01=0x008a}
0x1692…16ca Head {h00=0x0034, h01=0x0050, text=»PROUT EQU /2000 RETURN CODE. END OF JOURNAL TAPE«, t00=0x000e, t01=0x00bc}
0x16ca…16fe Head {h00=0x0030, h01=0x0050, text=»VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST«, t00=0x000e, t01=0x00f4}
0x16fe…1734 Head {h00=0x0032, h01=0x0050, text=»EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. «, t00=0x000e, t01=0x0128}
0x1734…1770 Head {h00=0x0038, h01=0x0050, text=»WAICHA EQU /100 BIT #7 DWTDEV;WAIT FOR STATUS CHANGE«, t00=0x000e, t01=0x015e}
0x1770…17b4 Head {h00=0x0040, h01=0x0050, text=»VOCHA EQU /200 BIT #6 DWTDEV;VOUCHER STATUS CH. NOT ALLOWED «, t00=0x000f, t01=0x000a}
0x17b4…17ec Head {h00=0x0034, h01=0x0050, text=»MESS EQU /400 BIT #5 DWTDEV;TEST MESSAGE WRITTEN«, t00=0x000f, t01=0x004e}
0x17ec…180a Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000f, t01=0x0086}
0x180a…183a Head {h00=0x002c, h01=0x0050, text=»REMOT EQU /01 RESET PRINT BUFFER REMOTE «, t00=0x000f, t01=0x00a4}
0x183a…1868 Head {h00=0x002a, h01=0x0050, text=»TAB EQU /11 TABULATION CHAR IN BUFFER «, t00=0x000f, t01=0x00d4}
0x1868…188c Head {h00=0x0020, h01=0x0050, text=»CR1 EQU /0D CR JOURNAL TAPE «, t00=0x000f, t01=0x0102}
0x188c…18b0 Head {h00=0x0020, h01=0x0050, text=»LF1 EQU /18 LF JOURNAL TAPE «, t00=0x000f, t01=0x0126}
0x18b0…18e2 Head {h00=0x002e, h01=0x0050, text=»CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK«, t00=0x000f, t01=0x014a}
0x18e2…1904 Head {h00=0x001e, h01=0x0050, text=»LF2 EQU /19 LF TALLY ROLL «, t00=0x000f, t01=0x017c}
0x1904…192c Head {h00=0x0024, h01=0x0050, text=»LDO EQU /0B LIFT DOWN 1 POSITION«, t00=0x0010, t01=0x000e}
0x192c…1954 Head {h00=0x0024, h01=0x0050, text=»LUP EQU /0A LIFT UP ONE POSITION«, t00=0x0010, t01=0x0036}
0x1954…197c Head {h00=0x0024, h01=0x0050, text=»LFF EQU /0C LIFT TO TOP POSITION«, t00=0x0010, t01=0x005e}
0x197c…19b6 Head {h00=0x0036, h01=0x0050, text=»GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK«, t00=0x0010, t01=0x0086}
0x19b6…19e2 Head {h00=0x0028, h01=0x0050, text=»REL EQU /1B RELEASE VOUCHER/PASSBOOK«, t00=0x0010, t01=0x00c0}
0x19e2…1a08 Head {h00=0x0022, h01=0x0050, text=»APH EQU /1D ATTACH PRINT HEAD «, t00=0x0010, t01=0x00ec}
0x1a08…1a2e Head {h00=0x0022, h01=0x0050, text=»RPH EQU /1E RETURN PRINT HEAD «, t00=0x0010, t01=0x0112}
0x1a2e…1a66 Head {h00=0x0034, h01=0x0050, text=»TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE «, t00=0x0010, t01=0x0138}
0x1a66…1a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0170}
0x1a70…1a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017a}
0x1a7a…1a98 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x0184}
0x1a98…1ab6 Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0011, t01=0x0012}
0x1ab6…1ad4 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0011, t01=0x0030}
0x1ad4…1ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004e}
0x1ade…1b06 Head {h00=0x0024, h01=0x0050, text=»RLN EQU /4 REQUESTED LINE NUMBER«, t00=0x0011, t01=0x0058}
0x1b06…1b2c Head {h00=0x0022, h01=0x0050, text=»ALN EQU /5 ACTUAL LINE NUMBER «, t00=0x0011, t01=0x0080}
0x1b2c…1b50 Head {h00=0x0020, h01=0x0050, text=»PCO EQU /6 POSITION COUNTER «, t00=0x0011, t01=0x00a6}
0x1b50…1b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ca}
0x1b5a…1b6e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0011, t01=0x00d4}
0x1b6e…1b82 Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x0011, t01=0x00e8}
0x1b82…1b96 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0011, t01=0x00fc}
0x1b96…1ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0110}
0x1ba0…1baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x011a}
0x1baa…1bd0 Head {h00=0x0022, h01=0x0050, text=»BUF1 DATA /020D,/1D00 CR1,APH «, t00=0x0011, t01=0x0124}
0x1bd0…1be6 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0011, t01=0x014a}
0x1be6…1c02 Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0209 CR2 «, t00=0x0011, t01=0x0160}
0x1c02…1c0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x017c}
0x1c0e…1c24 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0011, t01=0x0188}
0x1c24…1c3c Head {h00=0x0014, h01=0x0050, text=»BUF2 DATA /0309 «, t00=0x0012, t01=0x000e}
0x1c3c…1c48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0026}
0x1c48…1c66 Head {h00=0x001a, h01=0x0050, text=» DATA /1D20 APH,SPACE «, t00=0x0012, t01=0x0032}
0x1c66…1c8c Head {h00=0x0022, h01=0x0050, text=»BUF3 DATA /0209,/1D00 CR2,APH «, t00=0x0012, t01=0x0050}
0x1c8c…1c9a Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0012, t01=0x0076}
0x1c9a…1ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0084}
0x1ca4…1cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1cae…1cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0098}
0x1cb8…1cca Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x00a2}
0x1cca…1cdc Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0012, t01=0x00b4}
0x1cdc…1cee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x00c6}
0x1cee…1cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d8}
0x1cf8…1d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e2}
0x1d02…1d26 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0012, t01=0x00ec}
0x1d26…1d42 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0012, t01=0x0110}
0x1d42…1d62 Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x0012, t01=0x012c}
0x1d62…1d86 Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x0012, t01=0x014c}
0x1d86…1dac Head {h00=0x0022, h01=0x0050, text=» DATA 1 ABORT ROUTINE ADDRESS «, t00=0x0012, t01=0x0170}
0x1dac…1dd0 Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x0013, t01=0x0008}
0x1dd0…1df4 Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0013, t01=0x002c}
0x1df4…1dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0050}
0x1dfe…1e26 Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x0013, t01=0x005a}
0x1e26…1e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0082}
0x1e30…1e44 Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0013, t01=0x008c}
0x1e44…1e70 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0013, t01=0x00a0}
0x1e70…1e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00cc}
0x1e7a…1ea6 Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x0013, t01=0x00d6}
0x1ea6…1eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0102}
0x1eb0…1eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x010c}
0x1eba…1ece Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x0013, t01=0x0116}
0x1ece…1efe Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x0013, t01=0x012a}
0x1efe…1f14 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0013, t01=0x015a}
0x1f14…1f52 Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x0013, t01=0x0170}
0x1f52…1f5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x001e}
0x1f5e…1f7e Head {h00=0x001c, h01=0x0050, text=»TPTAB EQU * ORDER TABLE «, t00=0x0014, t01=0x002a}
0x1f7e…1f9e Head {h00=0x001c, h01=0x0050, text=» DATA /0002,/0607,/080D «, t00=0x0014, t01=0x004a}
0x1f9e…1fb4 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x006a}
0x1fb4…1fc8 Head {h00=0x0010, h01=0x0050, text=» DATA /2226 «, t00=0x0014, t01=0x0080}
0x1fc8…1fd4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0094}
0x1fd4…1fe8 Head {h00=0x0010, h01=0x0050, text=» DATA /393A «, t00=0x0014, t01=0x00a0}
0x1fe8…2002 Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0014, t01=0x00b4}
0x2002…2010 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00ce}
0x2010…201a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00dc}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e6}
0x2024…2038 Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0014, t01=0x00f0}
0x2038…2042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0104}
0x2042…2078 Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0014, t01=0x010e}
0x2078…20ba Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0014, t01=0x0144}
0x20ba…20c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0186}
0x20c4…20ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0190}
0x20ce…20d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000a}
0x20d8…20fc Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0015, t01=0x0014}
0x20fc…2106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0038}
0x2106…2110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0042}
0x2110…2150 Head {h00=0x003c, h01=0x0050, text=»* GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK «, t00=0x0015, t01=0x004c}
0x2150…2176 Head {h00=0x0022, h01=0x0050, text=» LC A1,DWTOR,A6 GET DWT INDEX «, t00=0x0015, t01=0x008c}
0x2176…218c Head {h00=0x0012, h01=0x0050, text=» ANK A1,7 MASK«, t00=0x0015, t01=0x00b2}
0x218c…21b6 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 ADD DWT INDEX TO ORDER «, t00=0x0015, t01=0x00c8}
0x21b6…21e6 Head {h00=0x002c, h01=0x0050, text=» SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT «, t00=0x0015, t01=0x00f2}
0x21e6…2202 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ACTIVATION«, t00=0x0015, t01=0x0122}
0x2202…2220 Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0015, t01=0x013e}
0x2220…2256 Head {h00=0x0032, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER «, t00=0x0015, t01=0x015c}
0x2256…2278 (22, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0016, t01=0x0004}
0x2278…228a Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x0026}
0x228a…22aa Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0016, t01=0x0038}
0x22aa…22b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0058}
0x22b4…22d6 Head {h00=0x001e, h01=0x0050, text=» ABL LENDER ILLEGAL ORDER «, t00=0x0016, t01=0x0062}
0x22d6…22e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0084}
0x22e0…22ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008e}
0x22ea…2302 Head {h00=0x0014, h01=0x0050, text=»ACT020 LDK A1,1 «, t00=0x0016, t01=0x0098}
0x2302…2332 Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTDEV+PCO,A6 RESET BYTE COUNTER «, t00=0x0016, t01=0x00b0}
0x2332…234e Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x0016, t01=0x00e0}
0x234e…2372 Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x0016, t01=0x00fc}
0x2372…23ae Head {h00=0x0038, h01=0x0050, text=»TPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 «, t00=0x0016, t01=0x0120}
0x23ae…23c4 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0016, t01=0x015c}
0x23c4…23de Head {h00=0x0016, h01=0x0050, text=» DATA TP700,TP750 «, t00=0x0016, t01=0x0172}
0x23de…23ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x018c}
0x23ea…2404 Head {h00=0x0016, h01=0x0050, text=» DATA TP800,TP900 «, t00=0x0017, t01=0x0008}
0x2404…2416 Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x0017, t01=0x0022}
0x2416…2424 Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x0034}
0x2424…2432 Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x0042}
0x2432…2450 Head {h00=0x001a, h01=0x0050, text=»* ORDER 00: TEST «, t00=0x0017, t01=0x0050}
0x2450…249c Head {h00=0x0048, h01=0x0050, text=»* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE «, t00=0x0017, t01=0x006e}
0x249c…24aa Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ba}
0x24aa…24b8 Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c8}
0x24b8…24c6 Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d6}
0x24c6…24d4 Head {h00=0x000a, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e4}
0x24d4…24e8 Head {h00=0x0010, h01=0x0050, text=»TPTEST EQU *«, t00=0x0017, t01=0x00f2}
0x24e8…2508 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/5 BLOCK LENGTH «, t00=0x0017, t01=0x0106}
0x2508…252c Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0017, t01=0x0126}
0x252c…254e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP1 JMP IF ERROR«, t00=0x0017, t01=0x014a}
0x254e…2570 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/02 SEND CHAR /02 «, t00=0x0017, t01=0x016c}
0x2570…2588 Head {h00=0x0014, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0017, t01=0x018e}
0x2588…25aa Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP1 JMP IF ERROR«, t00=0x0018, t01=0x0016}
0x25aa…25d6 Head {h00=0x0028, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST «, t00=0x0018, t01=0x0038}
0x25d6…25ee Head {h00=0x0014, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0018, t01=0x0064}
0x25ee…2610 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP1 JMP IF ERROR«, t00=0x0018, t01=0x007c}
0x2610…2624 Head {h00=0x0010, h01=0x0050, text=» RF TPDUMY «, t00=0x0018, t01=0x009e}
0x2624…2632 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00b2}
0x2632…263c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c0}
0x263c…2646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ca}
0x2646…2676 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06,0B: WRITE VOUCHER/PASSBOOK «, t00=0x0018, t01=0x00d4}
0x2676…26b8 Head {h00=0x003e, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x0018, t01=0x0104}
0x26b8…26c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0146}
0x26c2…26cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0150}
0x26cc…26d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015a}
0x26d6…271c Head {h00=0x0042, h01=0x0050, text=»ACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB«, t00=0x0018, t01=0x0164}
0x271c…272e Head {h00=0x000e, h01=0x0050, text=» RF ACT085«, t00=0x0019, t01=0x001a}
0x272e…2738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x002c}
0x2738…2768 Head {h00=0x002c, h01=0x0050, text=»ACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0019, t01=0x0036}
0x2768…2792 Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x0019, t01=0x0066}
0x2792…27ba Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF REQUESTED LINE STEPS«, t00=0x0019, t01=0x0090}
0x27ba…27ce Head {h00=0x0010, h01=0x0050, text=» SUK A3,/39 «, t00=0x0019, t01=0x00b8}
0x27ce…27f2 Head {h00=0x0020, h01=0x0050, text=» RF(G) ACT070 > /39 = ONE LF«, t00=0x0019, t01=0x00cc}
0x27f2…2804 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/9«, t00=0x0019, t01=0x00f0}
0x2804…281a Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACT060«, t00=0x0019, t01=0x0102}
0x281a…2838 Head {h00=0x001a, h01=0x0050, text=» LDK A3,2 /30 = TWO LF«, t00=0x0019, t01=0x0118}
0x2838…284a Head {h00=0x000e, h01=0x0050, text=» RF ACT080«, t00=0x0019, t01=0x0136}
0x284a…2876 Head {h00=0x0028, h01=0x0050, text=»ACT060 RF(G) ACT080 /31-/39 = 1-9 LF«, t00=0x0019, t01=0x0148}
0x2876…2888 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/5«, t00=0x0019, t01=0x0174}
0x2888…28aa Head {h00=0x001e, h01=0x0050, text=» ABL(Z) TP605 /2B = NO LF «, t00=0x0019, t01=0x0186}
0x28aa…28c8 Head {h00=0x001a, h01=0x0050, text=»ACT070 LDK A3,1 ONE LF«, t00=0x001a, t01=0x0018}
0x28c8…2904 Head {h00=0x0038, h01=0x0050, text=»ACT080 LC A1,DWTDEV+RLN,A6 GET LINE NUMBER FROM DWT «, t00=0x001a, t01=0x0036}
0x2904…2932 Head {h00=0x002a, h01=0x0050, text=» SUR A1,A3 GET REQUESTED LINE POSITION«, t00=0x001a, t01=0x0072}
0x2932…2968 Head {h00=0x0032, h01=0x0050, text=»ACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ?«, t00=0x001a, t01=0x00a0}
0x2968…2996 Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 YES; SET LINE POSITION ZERO «, t00=0x001a, t01=0x00d6}
0x2996…29a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0104}
0x29a0…29c4 Head {h00=0x0020, h01=0x0050, text=»ACT090 LDR A4,A4 RECOVERY ? «, t00=0x001a, t01=0x010e}
0x29c4…29de Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TP605 YES «, t00=0x001a, t01=0x0132}
0x29de…2a16 Head {h00=0x0034, h01=0x0050, text=» SC A1,DWTDEV+RLN,A6 SAVE REQUESTED LINE NUMBER «, t00=0x001a, t01=0x014c}
0x2a16…2a28 Head {h00=0x000e, h01=0x0050, text=» RF TP605 «, t00=0x001a, t01=0x0184}
0x2a28…2a36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0008}
0x2a36…2a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0016}
0x2a40…2a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0020}
0x2a4a…2a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002a}
0x2a54…2a78 Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x001b, t01=0x0034}
0x2a78…2a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0058}
0x2a82…2a8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0062}
0x2a8c…2a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006c}
0x2a96…2ac4 Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x001b, t01=0x0076}
0x2ac4…2ad8 Head {h00=0x0010, h01=0x0050, text=»TP210 EQU * «, t00=0x001b, t01=0x00a4}
0x2ad8…2ae6 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x001b, t01=0x00b8}
0x2ae6…2afe Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x001b, t01=0x00c6}
0x2afe…2b1e Head {h00=0x001c, h01=0x0050, text=» ADK A2,/F BLOCK LENGTH «, t00=0x001b, t01=0x00de}
0x2b1e…2b42 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x001b, t01=0x00fe}
0x2b42…2b6a Head {h00=0x0024, h01=0x0050, text=»ERTP1 RF(NZ) ERTP2 JMP IF ERROR «, t00=0x001b, t01=0x0122}
0x2b6a…2ba0 Head {h00=0x0032, h01=0x0050, text=» LC A1,DWTDEV,A6 GET LEFT BYTE IN STATUS WORD «, t00=0x001b, t01=0x014a}
0x2ba0…2bc8 Head {h00=0x0024, h01=0x0050, text=» ANK A1,4 TEXT MESSAGE WRITTEN ?«, t00=0x001b, t01=0x0180}
0x2bc8…2bf4 Head {h00=0x0028, h01=0x0050, text=» RF(NE) TP220 YES; COMPLETE REQUEST «, t00=0x001c, t01=0x0018}
0x2bf4…2c20 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001c, t01=0x0044}
0x2c20…2c48 Head {h00=0x0024, h01=0x0050, text=» SUK A1,3 REQUESTED LENGTH 0-2 ?«, t00=0x001c, t01=0x0070}
0x2c48…2c72 Head {h00=0x0026, h01=0x0050, text=» RF(N) TP230 YES; COMPLETE REQUEST«, t00=0x001c, t01=0x0098}
0x2c72…2c86 Head {h00=0x0010, h01=0x0050, text=» RF(P) TP215«, t00=0x001c, t01=0x00c2}
0x2c86…2ca8 Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001c, t01=0x00d6}
0x2ca8…2ccc Head {h00=0x0020, h01=0x0050, text=» LC A2,2,A1 THIRD CHARACTER «, t00=0x001c, t01=0x00f8}
0x2ccc…2cf4 Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 CONTROL CHARACTER «, t00=0x001c, t01=0x011c}
0x2cf4…2d0a Head {h00=0x0012, h01=0x0050, text=» RF(NL) TP215 «, t00=0x001c, t01=0x0144}
0x2d0a…2d1c Head {h00=0x000e, h01=0x0050, text=» RF TP220 «, t00=0x001c, t01=0x015a}
0x2d1c…2d30 Head {h00=0x0010, h01=0x0050, text=»TP215 EQU * «, t00=0x001c, t01=0x016c}
0x2d30…2d52 Head {h00=0x001e, h01=0x0050, text=» CF A5,BUFCHR SEND BUFFER «, t00=0x001c, t01=0x0180}
0x2d52…2d78 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x001d, t01=0x0012}
0x2d78…2d8c Head {h00=0x0010, h01=0x0050, text=»TP220 EQU * «, t00=0x001d, t01=0x0038}
0x2d8c…2d9e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001d, t01=0x004c}
0x2d9e…2dd8 Head {h00=0x0036, h01=0x0050, text=»TP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED «, t00=0x001d, t01=0x005e}
0x2dd8…2df2 Head {h00=0x0016, h01=0x0050, text=» ANS A2,DWTDEV,A6 «, t00=0x001d, t01=0x0098}
0x2df2…2e00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00b2}
0x2e00…2e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c0}
0x2e0a…2e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ca}
0x2e14…2e36 Head {h00=0x001e, h01=0x0050, text=»* ECB-BUFFER IS WRITTEN «, t00=0x001d, t01=0x00d4}
0x2e36…2e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f6}
0x2e40…2e6e Head {h00=0x002a, h01=0x0050, text=»* SEND LINE FEED IF JOURNAL OR TALLY«, t00=0x001d, t01=0x0100}
0x2e6e…2e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012e}
0x2e78…2e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0138}
0x2e82…2e94 Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x001d, t01=0x0142}
0x2e94…2ea6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001d, t01=0x0154}
0x2ea6…2ebc Head {h00=0x0012, h01=0x0050, text=» RF(NE) TPLF10«, t00=0x001d, t01=0x0166}
0x2ebc…2ee2 Head {h00=0x0022, h01=0x0050, text=» LDK A2,RPH DETACH PRINT HEAD «, t00=0x001d, t01=0x017c}
0x2ee2…2efc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001e, t01=0x0012}
0x2efc…2f1e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP2 JMP IF ERROR«, t00=0x001e, t01=0x002c}
0x2f1e…2f32 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x001e, t01=0x004e}
0x2f32…2f44 Head {h00=0x000e, h01=0x0050, text=» SUK A7,8 «, t00=0x001e, t01=0x0062}
0x2f44…2f70 Head {h00=0x0028, h01=0x0050, text=» RF(NN) TPL010 NOT JOURNAL AND TALLY«, t00=0x001e, t01=0x0074}
0x2f70…2f92 Head {h00=0x001e, h01=0x0050, text=» ADK A7,2 GET INDEX TABLE «, t00=0x001e, t01=0x00a0}
0x2f92…2fba Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x001e, t01=0x00c2}
0x2fba…2fde Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND LF CHAR. «, t00=0x001e, t01=0x00ea}
0x2fde…3000 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP2 JMP IF ERROR«, t00=0x001e, t01=0x010e}
0x3000…3032 Head {h00=0x002e, h01=0x0050, text=»TPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001e, t01=0x0130}
0x3032…3060 Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x001e, t01=0x0162}
0x3060…306e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0190}
0x306e…3078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x000e}
0x3078…3082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0018}
0x3082…30a2 Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x001f, t01=0x0022}
0x30a2…30ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0042}
0x30ac…30b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004c}
0x30b6…30dc Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x001f, t01=0x0056}
0x30dc…30e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007c}
0x30e6…30fa Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x001f, t01=0x0086}
0x30fa…310e Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x001f, t01=0x009a}
0x310e…3124 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001f, t01=0x00ae}
0x3124…3146 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP2 JMP IF ERROR«, t00=0x001f, t01=0x00c4}
0x3146…3154 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00e6}
0x3154…315e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f4}
0x315e…3168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00fe}
0x3168…319c Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x001f, t01=0x0108}
0x319c…31a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013c}
0x31a6…31ba Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x001f, t01=0x0146}
0x31ba…31ec Head {h00=0x002e, h01=0x0050, text=» SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?«, t00=0x001f, t01=0x015a}
0x31ec…3206 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x001f, t01=0x018c}
0x3206…3234 Head {h00=0x002a, h01=0x0050, text=»TST005 LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0020, t01=0x0016}
0x3234…3256 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER OUT ?«, t00=0x0020, t01=0x0044}
0x3256…326e Head {h00=0x0014, h01=0x0050, text=» RF(NZ) ENDIO NO«, t00=0x0020, t01=0x0066}
0x326e…3284 Head {h00=0x0012, h01=0x0050, text=» RF TST015 YES«, t00=0x0020, t01=0x007e}
0x3284…328e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0094}
0x328e…32a6 Head {h00=0x0014, h01=0x0050, text=»TST010 SUK A7,4 «, t00=0x0020, t01=0x009e}
0x32a6…32bc Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0020, t01=0x00b6}
0x32bc…32ea Head {h00=0x002a, h01=0x0050, text=» RF(G) ENDIO NOT TEST STATUS, JOURNAL «, t00=0x0020, t01=0x00cc}
0x32ea…32f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00fa}
0x32f6…330c Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0020, t01=0x0106}
0x330c…333a Head {h00=0x002a, h01=0x0050, text=» RF(G) TST020 NOT TEST STATUS, JOURNAL«, t00=0x0020, t01=0x011c}
0x333a…334e Head {h00=0x0010, h01=0x0050, text=»TST012 EQU *«, t00=0x0020, t01=0x014a}
0x334e…335a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x015e}
0x335a…3382 Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0020, t01=0x016a}
0x3382…33ac (33, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ANK A2,EOJT END OF JOURNAL TAPE? «, t00=0x0021, t01=0x0004}
0x33ac…33d4 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ENDIO NO: PERFORM ENDIO «, t00=0x0021, t01=0x002e}
0x33d4…3402 Head {h00=0x002a, h01=0x0050, text=»TST015 ORKL A1,PROUT SET RETURN CODE: «, t00=0x0021, t01=0x0056}
0x3402…340a Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0084}
0x340a…3436 Head {h00=0x0028, h01=0x0050, text=» END OF JOURNAL TAPE, VOUCHER OUT «, t00=0x0021, t01=0x008c}
0x3436…3440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b8}
0x3440…3470 Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0021, t01=0x00c2}
0x3470…347a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00f2}
0x347a…348e Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0021, t01=0x00fc}
0x348e…34b2 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 SAVE RETURN CODE «, t00=0x0021, t01=0x0110}
0x34b2…34d4 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0021, t01=0x0134}
0x34d4…34fc Head {h00=0x0024, h01=0x0050, text=»ERTP2 RF(NZ) ERTP3 JMP IF ERROR «, t00=0x0021, t01=0x0156}
0x34fc…352e Head {h00=0x002e, h01=0x0050, text=» LDKL A1,/FBFF RESET MESSAGE WRITTEN IND. «, t00=0x0021, t01=0x017e}
0x352e…3548 Head {h00=0x0016, h01=0x0050, text=» ANS A1,DWTDEV,A6 «, t00=0x0022, t01=0x0020}
0x3548…356e Head {h00=0x0022, h01=0x0050, text=» LDR A1,A4 RESTORE RETURN CODE«, t00=0x0022, t01=0x003a}
0x356e…35a6 Head {h00=0x0034, h01=0x0050, text=» ABL LENDIS PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0022, t01=0x0060}
0x35a6…35b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0098}
0x35b0…35c6 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0022, t01=0x00a2}
0x35c6…35de Head {h00=0x0014, h01=0x0050, text=»TST020 SUK A7,16«, t00=0x0022, t01=0x00b8}
0x35de…3604 Head {h00=0x0022, h01=0x0050, text=» RB(L) ENDIO VOUCHER/PASSBOOK «, t00=0x0022, t01=0x00d0}
0x3604…3616 Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0022, t01=0x00f6}
0x3616…3638 Head {h00=0x001e, h01=0x0050, text=» RB(G) ENDIO GRASP,RELEASE«, t00=0x0022, t01=0x0108}
0x3638…3658 Head {h00=0x001c, h01=0x0050, text=» RB TST012 CUT,PERFORATE«, t00=0x0022, t01=0x012a}
0x3658…3664 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x014a}
0x3664…3672 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0156}
0x3672…367c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0164}
0x367c…3686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x016e}
0x3686…3690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0178}
0x3690…36b8 Head {h00=0x0024, h01=0x0050, text=»* ORDER 06 : PRINT TALLY ROLL «, t00=0x0022, t01=0x0182}
0x36b8…36c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x001a}
0x36c2…36cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0024}
0x36cc…36d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002e}
0x36d6…3702 Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x0023, t01=0x0038}
0x3702…3714 Head {h00=0x000e, h01=0x0050, text=» =2(=1)«, t00=0x0023, t01=0x0064}
0x3714…371e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0076}
0x371e…374c Head {h00=0x002a, h01=0x0050, text=»TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH«, t00=0x0023, t01=0x0080}
0x374c…3760 Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x0023, t01=0x00ae}
0x3760…3776 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,VOCHA«, t00=0x0023, t01=0x00c2}
0x3776…37ba Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTDEV,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED«, t00=0x0023, t01=0x00d8}
0x37ba…37cc Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x0023, t01=0x011c}
0x37cc…37da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x012e}
0x37da…37e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x013c}
0x37e4…37ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0146}
0x37ee…37f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0150}
0x37f8…3826 Head {h00=0x002a, h01=0x0050, text=»* ORDER 06 : WRITE VOUCHER/PASSBOOK«, t00=0x0023, t01=0x015a}
0x3826…3854 Head {h00=0x002a, h01=0x0050, text=»* OB : POSITION LIFT AND WRITE«, t00=0x0023, t01=0x0188}
0x3854…385e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0026}
0x385e…3868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0030}
0x3868…387e Head {h00=0x0012, h01=0x0050, text=»TP605 EQU * «, t00=0x0024, t01=0x003a}
0x387e…38a0 Head {h00=0x001e, h01=0x0050, text=» LDK A2,5 BLOCK LENGTH =2 «, t00=0x0024, t01=0x0050}
0x38a0…38c8 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =2 «, t00=0x0024, t01=0x0072}
0x38c8…38ee Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERTP3 JMP IF ERROR =2 «, t00=0x0024, t01=0x009a}
0x38ee…3914 Head {h00=0x0022, h01=0x0050, text=» CF A5,GRASP GRASP VOUCHER =2 «, t00=0x0024, t01=0x00c0}
0x3914…394a Head {h00=0x0032, h01=0x0050, text=» LC A2,DWTDEV+RLN,A6 GET REQUESTED LINE NO. =2«, t00=0x0024, t01=0x00e6}
0x394a…3966 Head {h00=0x0018, h01=0x0050, text=» ANK A2,/FF CLEAN =2«, t00=0x0024, t01=0x011c}
0x3966…3992 Head {h00=0x0028, h01=0x0050, text=» SUR A2,A3 GET /REQ.-ACT./ LINE NO. «, t00=0x0024, t01=0x0138}
0x3992…39a8 Head {h00=0x0012, h01=0x0050, text=» RF(NN) TP608 «, t00=0x0024, t01=0x0164}
0x39a8…39b6 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0024, t01=0x017a}
0x39b6…39cc Head {h00=0x0012, h01=0x0050, text=» NGR A2,A2 =2«, t00=0x0024, t01=0x0188}
0x39cc…39e4 Head {h00=0x0014, h01=0x0050, text=»TP608 ADK A2,/9 «, t00=0x0025, t01=0x000e}
0x39e4…3a08 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0025, t01=0x0026}
0x3a08…3a2a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP3 JMP IF ERROR«, t00=0x0025, t01=0x004a}
0x3a2a…3a38 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0025, t01=0x006c}
0x3a38…3a46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x007a}
0x3a46…3a50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0088}
0x3a50…3a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0092}
0x3a5a…3a88 Head {h00=0x002a, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL«, t00=0x0025, t01=0x009c}
0x3a88…3ab2 Head {h00=0x0026, h01=0x0050, text=»* LINE NUMBER IS EQUAL REQUESTED«, t00=0x0025, t01=0x00ca}
0x3ab2…3abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f4}
0x3abc…3ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fe}
0x3ac6…3afc Head {h00=0x0032, h01=0x0050, text=»TP610 CC A3,DWTDEV+RLN,A6 COMPARE LINE NUMBER «, t00=0x0025, t01=0x0108}
0x3afc…3b16 Head {h00=0x0016, h01=0x0050, text=» RF(E) TP650 EQUAL«, t00=0x0025, t01=0x013e}
0x3b16…3b3c Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x0025, t01=0x0158}
0x3b3c…3b62 Head {h00=0x0022, h01=0x0050, text=» LDK A2,LDO SEND ELEVATOR DOWN«, t00=0x0025, t01=0x017e}
0x3b62…3b90 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0026, t01=0x0014}
0x3b90…3ba2 Head {h00=0x000e, h01=0x0050, text=» RF TP640 «, t00=0x0026, t01=0x0042}
0x3ba2…3bcc Head {h00=0x0026, h01=0x0050, text=»TP630 LDK A2,LUP SEND ELEVATOR UP «, t00=0x0026, t01=0x0054}
0x3bcc…3bfa Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LINE NUMBER«, t00=0x0026, t01=0x007e}
0x3bfa…3c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ac}
0x3c04…3c2e Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR «, t00=0x0026, t01=0x00b6}
0x3c2e…3c50 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP3 JMP IF ERROR«, t00=0x0026, t01=0x00e0}
0x3c50…3c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0102}
0x3c5a…3c8e Head {h00=0x0030, h01=0x0050, text=» SC A3,DWTDEV+ALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x0026, t01=0x010c}
0x3c8e…3cb6 Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0026, t01=0x0140}
0x3cb6…3cd8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0026, t01=0x0168}
0x3cd8…3cec Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0026, t01=0x018a}
0x3cec…3d14 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) RCTP NO: ERROR RECOVERY «, t00=0x0027, t01=0x000e}
0x3d14…3d44 Head {h00=0x002c, h01=0x0050, text=» RB TP610 YES: CHECK IF LIFT POSITIONED«, t00=0x0027, t01=0x0036}
0x3d44…3d50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0066}
0x3d50…3d64 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0027, t01=0x0072}
0x3d64…3d9a Head {h00=0x0032, h01=0x0050, text=» RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED«, t00=0x0027, t01=0x0086}
0x3d9a…3dc4 Head {h00=0x0026, h01=0x0050, text=»TP645 LDKL A1,PROUT 'VOUCHER OUT' «, t00=0x0027, t01=0x00bc}
0x3dc4…3df4 Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 INDICATE IN RETURN CODE«, t00=0x0027, t01=0x00e6}
0x3df4…3e18 Head {h00=0x0020, h01=0x0050, text=» LDK A2,RPH RETURN PRINTHEAD«, t00=0x0027, t01=0x0116}
0x3e18…3e2e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0027, t01=0x013a}
0x3e2e…3e50 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP3 JMP IF ERROR«, t00=0x0027, t01=0x0150}
0x3e50…3e62 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0027, t01=0x0172}
0x3e62…3e6e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0184}
0x3e6e…3e7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0190}
0x3e7c…3e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000e}
0x3e86…3e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0018}
0x3e90…3ec0 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06 AND 0B: LIFT IS POSITIONED «, t00=0x0028, t01=0x0022}
0x3ec0…3eee Head {h00=0x002a, h01=0x0050, text=»* ATTACH AND PRINT «, t00=0x0028, t01=0x0052}
0x3eee…3ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0080}
0x3ef8…3f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x008a}
0x3f02…3f16 Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0028, t01=0x0094}
0x3f16…3f38 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0028, t01=0x00a8}
0x3f38…3f60 Head {h00=0x0024, h01=0x0050, text=»ERTP3 RF(NZ) ERTP4 JMP IF ERROR «, t00=0x0028, t01=0x00ca}
0x3f60…3f8a Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF2 SEND CR2 AND ATTACH «, t00=0x0028, t01=0x00f2}
0x3f8a…3fac Head {h00=0x001e, h01=0x0050, text=» RB TP410 PRINT ECB-BUFFER«, t00=0x0028, t01=0x011c}
0x3fac…3fba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x013e}
0x3fba…3fd0 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0028, t01=0x014c}
0x3fd0…3fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0162}
0x3fda…4012 Head {h00=0x0034, h01=0x0050, text=»* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL «, t00=0x0028, t01=0x016c}
0x4012…401c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0014}
0x401c…4030 Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0029, t01=0x001e}
0x4030…404c Head {h00=0x0018, h01=0x0050, text=» LDK A3,1 SET INDEX «, t00=0x0029, t01=0x0032}
0x404c…405e Head {h00=0x000e, h01=0x0050, text=» RF TP760 «, t00=0x0029, t01=0x004e}
0x405e…4072 Head {h00=0x0010, h01=0x0050, text=»TP750 EQU * «, t00=0x0029, t01=0x0060}
0x4072…408e Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 SET INDEX «, t00=0x0029, t01=0x0074}
0x408e…40b2 Head {h00=0x0020, h01=0x0050, text=»TP760 LDK A2,/4 BLOCK LENGTH«, t00=0x0029, t01=0x0090}
0x40b2…40d6 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0029, t01=0x00b4}
0x40d6…40f8 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR«, t00=0x0029, t01=0x00d8}
0x40f8…4118 Head {h00=0x001c, h01=0x0050, text=» LC A2,CPTAB,A3 GET CHAR«, t00=0x0029, t01=0x00fa}
0x4118…4132 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0029, t01=0x011a}
0x4132…4154 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR«, t00=0x0029, t01=0x0134}
0x4154…4172 Head {h00=0x001a, h01=0x0050, text=» LDK A2,LF1 LINE FEED «, t00=0x0029, t01=0x0156}
0x4172…418c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0029, t01=0x0174}
0x418c…41ae Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR«, t00=0x0029, t01=0x018e}
0x41ae…41c0 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002a, t01=0x0020}
0x41c0…41cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0032}
0x41cc…41d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x003e}
0x41d6…4216 Head {h00=0x003c, h01=0x0050, text=»* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK«, t00=0x002a, t01=0x0048}
0x4216…4220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0088}
0x4220…4234 Head {h00=0x0010, h01=0x0050, text=»TP800 EQU * «, t00=0x002a, t01=0x0092}
0x4234…4254 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/9 BLOCK LENGTH «, t00=0x002a, t01=0x00a6}
0x4254…4278 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002a, t01=0x00c6}
0x4278…429a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR«, t00=0x002a, t01=0x00ea}
0x429a…42b0 Head {h00=0x0012, h01=0x0050, text=» CF A5,GRASPA «, t00=0x002a, t01=0x010c}
0x42b0…42d6 Head {h00=0x0022, h01=0x0050, text=»TP850 LDK A2,1 BLOCK LENGTH =2«, t00=0x002a, t01=0x0122}
0x42d6…42fe Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =2 «, t00=0x002a, t01=0x0148}
0x42fe…4324 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR =2 «, t00=0x002a, t01=0x0170}
0x4324…4336 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002b, t01=0x0008}
0x4336…434a Head {h00=0x0010, h01=0x0050, text=»TP900 EQU * «, t00=0x002b, t01=0x001a}
0x434a…4360 Head {h00=0x0012, h01=0x0050, text=» CF A5,RELEAS «, t00=0x002b, t01=0x002e}
0x4360…4376 Head {h00=0x0012, h01=0x0050, text=» RB TP850 =2 «, t00=0x002b, t01=0x0044}
0x4376…437e Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x005a}
0x437e…438c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0062}
0x438c…4396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0070}
0x4396…43ac Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x002b, t01=0x007a}
0x43ac…43b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0090}
0x43b6…4400 Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x002b, t01=0x009a}
0x4400…441e Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x002b, t01=0x00e4}
0x441e…4428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0102}
0x4428…445a Head {h00=0x002e, h01=0x0050, text=»PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH «, t00=0x002b, t01=0x010c}
0x445a…4484 Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x002b, t01=0x013e}
0x4484…44aa Head {h00=0x0022, h01=0x0050, text=» LD A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x002b, t01=0x0168}
0x44aa…44d6 Head {h00=0x0028, h01=0x0050, text=»* SKIP PRECEDING SPACES IN BUFFER «, t00=0x002b, t01=0x018e}
0x44d6…44e8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x002c, t01=0x002a}
0x44e8…450e Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x002c, t01=0x003c}
0x450e…4524 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x002c, t01=0x0062}
0x4524…4544 Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB050 NOT BLANK«, t00=0x002c, t01=0x0078}
0x4544…455c Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x002c, t01=0x0098}
0x455c…456e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002c, t01=0x00b0}
0x456e…4594 Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x002c, t01=0x00c2}
0x4594…45d6 Head {h00=0x003e, h01=0x0050, text=»* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER «, t00=0x002c, t01=0x00e8}
0x45d6…45fe Head {h00=0x0024, h01=0x0050, text=»PRB050 LDR A1,A3 GET ADDRESS TO «, t00=0x002c, t01=0x012a}
0x45fe…462a Head {h00=0x0028, h01=0x0050, text=» ADR A1,A4 LAST CHARACTER IN BUFFER «, t00=0x002c, t01=0x0152}
0x462a…4648 Head {h00=0x001a, h01=0x0050, text=» LC A1,-1,A1 GET CHAR «, t00=0x002c, t01=0x017e}
0x4648…4676 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0909 CARRIAGE RETURN - CR2 ? «, t00=0x002d, t01=0x000c}
0x4676…4690 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002d, t01=0x003a}
0x4690…46be Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0D0D CARRIAGE RETURN - CR1 ? «, t00=0x002d, t01=0x0054}
0x46be…46d8 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002d, t01=0x0082}
0x46d8…46fa Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 DUMMY CHARACTER «, t00=0x002d, t01=0x009c}
0x46fa…470c Head {h00=0x000e, h01=0x0050, text=» RF PRB070«, t00=0x002d, t01=0x00be}
0x470c…473e Head {h00=0x002e, h01=0x0050, text=»PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002d, t01=0x00d0}
0x473e…476e Head {h00=0x002c, h01=0x0050, text=»PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB «, t00=0x002d, t01=0x0102}
0x476e…4778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0132}
0x4778…4782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x013c}
0x4782…47b4 Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002d, t01=0x0146}
0x47b4…47d8 Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x002d, t01=0x0178}
0x47d8…4812 Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D)«, t00=0x002e, t01=0x000c}
0x4812…4828 Head {h00=0x0012, h01=0x0050, text=» RF(E) PRB101 «, t00=0x002e, t01=0x0046}
0x4828…4848 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND CHAR «, t00=0x002e, t01=0x005c}
0x4848…486a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP4 JMP IF ERROR«, t00=0x002e, t01=0x007c}
0x486a…487e Head {h00=0x0010, h01=0x0050, text=»PRB101 EQU *«, t00=0x002e, t01=0x009e}
0x487e…48a0 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x002e, t01=0x00b2}
0x48a0…48c2 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP5 JMP IF ERROR«, t00=0x002e, t01=0x00d4}
0x48c2…48e0 Head {h00=0x001a, h01=0x0050, text=» LDK A2,1 BLOCK LENGTH«, t00=0x002e, t01=0x00f6}
0x48e0…4904 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002e, t01=0x0114}
0x4904…4926 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP5 JMP IF ERROR«, t00=0x002e, t01=0x0138}
0x4926…493a Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x002e, t01=0x015a}
0x493a…4974 Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED «, t00=0x002e, t01=0x016e}
0x4974…499c Head {h00=0x0024, h01=0x0050, text=»ERTP4 RF(NZ) ERTP5 JMP IF ERROR «, t00=0x002f, t01=0x0018}
0x499c…49be Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x002f, t01=0x0040}
0x49be…49e0 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP5 JMP IF ERROR«, t00=0x002f, t01=0x0062}
0x49e0…49fe Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 BLOCK LENGTH«, t00=0x002f, t01=0x0084}
0x49fe…4a22 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x002f, t01=0x00a2}
0x4a22…4a44 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP5 JMP IF ERROR«, t00=0x002f, t01=0x00c6}
0x4a44…4a72 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED«, t00=0x002f, t01=0x00e8}
0x4a72…4a8c Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTDEV,A6 «, t00=0x002f, t01=0x0116}
0x4a8c…4aa2 Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x002f, t01=0x0130}
0x4aa2…4ab0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0146}
0x4ab0…4aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0154}
0x4aba…4ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x015e}
0x4ac4…4ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0168}
0x4ace…4ae6 Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x002f, t01=0x0172}
0x4ae6…4af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x018a}
0x4af0…4afa (48, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0004}
0x4afa…4b0e Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x0030, t01=0x000e}
0x4b0e…4b44 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x0030, t01=0x0022}
0x4b44…4b62 Head {h00=0x001a, h01=0x0050, text=» SUK A7,7 CHECK ORDER «, t00=0x0030, t01=0x0058}
0x4b62…4b86 Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x0030, t01=0x0076}
0x4b86…4baa Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x0030, t01=0x009a}
0x4baa…4bb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00be}
0x4bb8…4bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00cc}
0x4bc2…4bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d6}
0x4bcc…4bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e0}
0x4bd6…4bf2 Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x0030, t01=0x00ea}
0x4bf2…4bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0106}
0x4bfc…4c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0110}
0x4c06…4c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x011a}
0x4c10…4c38 Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0030, t01=0x0124}
0x4c38…4c5a Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0030, t01=0x014c}
0x4c5a…4c80 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x0030, t01=0x016e}
0x4c80…4ca6 (49, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x0031, t01=0x0004}
0x4ca6…4cc8 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0031, t01=0x002a}
0x4cc8…4cea Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP5 JMP IF ERROR«, t00=0x0031, t01=0x004c}
0x4cea…4d18 Head {h00=0x002a, h01=0x0050, text=» ABL TP405 SEND LIFT TO TOP AND RELEAS«, t00=0x0031, t01=0x006e}
0x4d18…4d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x009c}
0x4d22…4d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a6}
0x4d2c…4d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b0}
0x4d36…4d58 Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x0031, t01=0x00ba}
0x4d58…4d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00dc}
0x4d62…4d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e6}
0x4d6c…4d9a Head {h00=0x002a, h01=0x0050, text=»PRB110 LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0031, t01=0x00f0}
0x4d9a…4dbc Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0031, t01=0x011e}
0x4dbc…4dd0 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0031, t01=0x0140}
0x4dd0…4dfa Head {h00=0x0026, h01=0x0050, text=» RF(Z) RCTP ERROR .VOUCHER NOT IN «, t00=0x0031, t01=0x0154}
0x4dfa…4e06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x017e}
0x4e06…4e1a Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0031, t01=0x018a}
0x4e1a…4e2e Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x0032, t01=0x000e}
0x4e2e…4e3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0022}
0x4e3a…4e62 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 COPY REQUESTED LENGTH«, t00=0x0032, t01=0x002e}
0x4e62…4e7e Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 R.L. < 3? «, t00=0x0032, t01=0x0056}
0x4e7e…4ea6 Head {h00=0x0024, h01=0x0050, text=» RF(N) PRB200 YES: NO TABULATION«, t00=0x0032, t01=0x0072}
0x4ea6…4eba Head {h00=0x0010, h01=0x0050, text=» LDK A1,TAB «, t00=0x0032, t01=0x009a}
0x4eba…4eda Head {h00=0x001c, h01=0x0050, text=» CC A1,-2,A3 TABULATION?«, t00=0x0032, t01=0x00ae}
0x4eda…4ef4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x0032, t01=0x00ce}
0x4ef4…4f02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00e8}
0x4f02…4f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00f6}
0x4f0c…4f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0100}
0x4f16…4f4e Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x0032, t01=0x010a}
0x4f4e…4f8e Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x0032, t01=0x0142}
0x4f8e…4fb0 Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x0032, t01=0x0182}
0x4fb0…4fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0014}
0x4fba…4fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x001e}
0x4fc4…4ff0 Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,RPH DETACH PRINT HEAD «, t00=0x0033, t01=0x0028}
0x4ff0…5012 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x0033, t01=0x0054}
0x5012…5034 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP5 JMP IF ERROR«, t00=0x0033, t01=0x0076}
0x5034…5064 Head {h00=0x002c, h01=0x0050, text=»PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR «, t00=0x0033, t01=0x0098}
0x5064…508c Head {h00=0x0024, h01=0x0050, text=» LCR A1,A3 GET 2ND TAB POS CHAR «, t00=0x0033, t01=0x00c8}
0x508c…50a8 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x0033, t01=0x00f0}
0x50a8…50ba Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0033, t01=0x010c}
0x50ba…50da Head {h00=0x001c, h01=0x0050, text=» ANK A2,/F0 LINE DECADE «, t00=0x0033, t01=0x011e}
0x50da…5100 Head {h00=0x0022, h01=0x0050, text=» ORR A1,A2 DECIMAL LINE NUMBER«, t00=0x0033, t01=0x013e}
0x5100…5128 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x0033, t01=0x0164}
0x5128…513c Head {h00=0x0010, h01=0x0050, text=»PRB120 EQU *«, t00=0x0033, t01=0x018c}
0x513c…5176 Head {h00=0x0036, h01=0x0050, text=» CW A1,DWTDEV+PCO,A6 COMPARE WITH ACTUAL TAB. POS.«, t00=0x0034, t01=0x0010}
0x5176…5192 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x0034, t01=0x004a}
0x5192…519c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0066}
0x519c…51a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0070}
0x51a6…51da Head {h00=0x0030, h01=0x0050, text=» IM DWTDEV+PCO,A6 INCREMENT POSITION COUNTER«, t00=0x0034, t01=0x007a}
0x51da…51f8 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x0034, t01=0x00ae}
0x51f8…5224 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x0034, t01=0x00cc}
0x5224…524c Head {h00=0x0024, h01=0x0050, text=»ERTP5 RF(NZ) ERTP6 JMP IF ERROR «, t00=0x0034, t01=0x00f8}
0x524c…525e Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x0034, t01=0x0120}
0x525e…5268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0132}
0x5268…5272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x013c}
0x5272…527c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0146}
0x527c…52ae Head {h00=0x002e, h01=0x0050, text=»PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH«, t00=0x0034, t01=0x0150}
0x52ae…52d8 Head {h00=0x0026, h01=0x0050, text=» SUK A3,2 DECREMENT BUFFER ADDRESS«, t00=0x0034, t01=0x0182}
0x52d8…52f2 Head {h00=0x0016, h01=0x0050, text=» LDK A2,APH ATTACH«, t00=0x0035, t01=0x001c}
0x52f2…5310 Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x0035, t01=0x0036}
0x5310…531e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0054}
0x531e…5328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0062}
0x5328…5332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x006c}
0x5332…533c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0076}
0x533c…5372 Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x0035, t01=0x0080}
0x5372…538e Head {h00=0x0018, h01=0x0050, text=»* - ROOMLESS POINT«, t00=0x0035, t01=0x00b6}
0x538e…53ae Head {h00=0x001c, h01=0x0050, text=»* - ILLEGAL CHARACTER «, t00=0x0035, t01=0x00d2}
0x53ae…53d8 Head {h00=0x0026, h01=0x0050, text=»* - SPECIAL CHARACTER (/13,/14) «, t00=0x0035, t01=0x00f2}
0x53d8…53e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x011c}
0x53e2…53f6 Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x0035, t01=0x0126}
0x53f6…5424 Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x0035, t01=0x013a}
0x5424…544a Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x0035, t01=0x0168}
0x544a…5464 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x0035, t01=0x018e}
0x5464…548e Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER POINTER«, t00=0x0036, t01=0x0018}
0x548e…54a0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0036, t01=0x0042}
0x54a0…54c8 Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x0036, t01=0x0054}
0x54c8…54e0 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x0036, t01=0x007c}
0x54e0…550a Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x0036, t01=0x0094}
0x550a…5514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00be}
0x5514…551e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00c8}
0x551e…5528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00d2}
0x5528…5558 Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x0036, t01=0x00dc}
0x5558…5572 Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB225 YES «, t00=0x0036, t01=0x010c}
0x5572…55a2 Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x0036, t01=0x0126}
0x55a2…55bc Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x0036, t01=0x0156}
0x55bc…55c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0170}
0x55c6…55d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x017a}
0x55d0…55e4 Head {h00=0x0010, h01=0x0050, text=»PRB225 EQU *«, t00=0x0036, t01=0x0184}
0x55e4…55f8 Head {h00=0x0010, h01=0x0050, text=» IFT CHR13=1«, t00=0x0037, t01=0x0008}
0x55f8…5622 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x0037, t01=0x001c}
0x5622…563c Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0037, t01=0x0046}
0x563c…5648 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0060}
0x5648…565c Head {h00=0x0010, h01=0x0050, text=» IFT CHR14=1«, t00=0x0037, t01=0x006c}
0x565c…5686 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x0037, t01=0x0080}
0x5686…56a0 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0037, t01=0x00aa}
0x56a0…56ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00c4}
0x56ac…56b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d0}
0x56b6…56dc Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x0037, t01=0x00da}
0x56dc…570a Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 STORE IN RETURN CODE «, t00=0x0037, t01=0x0100}
0x570a…571c Head {h00=0x000e, h01=0x0050, text=» RF PRB245«, t00=0x0037, t01=0x012e}
0x571c…5726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0140}
0x5726…5730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x014a}
0x5730…573a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0154}
0x573a…5770 Head {h00=0x0032, h01=0x0050, text=»PRB230 IM DWTDEV+PCO,A6 INCREMENT BYTE COUNTER«, t00=0x0037, t01=0x015e}
0x5770…5798 (56, 0, 398) Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x0038, t01=0x0004}
0x5798…57c2 Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x0038, t01=0x002c}
0x57c2…57e4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP6 JMP IF ERROR«, t00=0x0038, t01=0x0056}
0x57e4…5814 Head {h00=0x002c, h01=0x0050, text=»PRB245 SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x0038, t01=0x0078}
0x5814…5836 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0038, t01=0x00a8}
0x5836…584a Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0038, t01=0x00ca}
0x584a…585c Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x0038, t01=0x00de}
0x585c…5866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f0}
0x5866…5870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00fa}
0x5870…587a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0104}
0x587a…5888 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x010e}
0x5888…5892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x011c}
0x5892…58a6 Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x0038, t01=0x0126}
0x58a6…58b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x013a}
0x58b0…58e4 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0038, t01=0x0144}
0x58e4…58ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0178}
0x58ee…58f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0182}
0x58f8…5902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x018c}
0x5902…5914 Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x0039, t01=0x0008}
0x5914…5922 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0039, t01=0x001a}
0x5922…5954 Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTDEV,A6 TERMINAL DEVICE STATUS =2«, t00=0x0039, t01=0x0028}
0x5954…597a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A3 SAVE OLD STATUS =2 «, t00=0x0039, t01=0x005a}
0x597a…59b0 Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTDEV+1,A6 STORE NEW STATUS IN DWT =2 «, t00=0x0039, t01=0x0080}
0x59b0…59e2 Head {h00=0x002e, h01=0x0050, text=» ANKL A4,VOCHA STATUS CHANGE ALLOWED ? =2 «, t00=0x0039, t01=0x00b6}
0x59e2…59fe Head {h00=0x0018, h01=0x0050, text=» RF(Z) IHTP10 YES =2«, t00=0x0039, t01=0x00e8}
0x59fe…5a24 Head {h00=0x0022, h01=0x0050, text=» XRS A4,DWTDEV,A6 RESET BIT =2«, t00=0x0039, t01=0x0104}
0x5a24…5a54 Head {h00=0x002c, h01=0x0050, text=» XRR A3,A2 COMPARE OLD AND NEW STATUS =2«, t00=0x0039, t01=0x012a}
0x5a54…5a84 Head {h00=0x002c, h01=0x0050, text=» ANK A3,VOIN VOUCHER STATUS CHANGED ? =2«, t00=0x0039, t01=0x015a}
0x5a84…5ab2 Head {h00=0x002a, h01=0x0050, text=» RF(Z) RCTP10 NO, GO TO DISPATCHER =2 «, t00=0x0039, t01=0x018a}
0x5ab2…5ae0 Head {h00=0x002a, h01=0x0050, text=» LDK A4,/08 INDICATE STATUS CHANGE =2 «, t00=0x003a, t01=0x0028}
0x5ae0…5b08 Head {h00=0x0024, h01=0x0050, text=» RF RCTP FOR RECOVERY ROUTINE =2«, t00=0x003a, t01=0x0056}
0x5b08…5b2e Head {h00=0x0022, h01=0x0050, text=»IHTP10 LDR A4,A3 OLD STATUS =2«, t00=0x003a, t01=0x007e}
0x5b2e…5b64 Head {h00=0x0032, h01=0x0050, text=» ANKL A4,WAICHA WAITING FOR STATUS CHANGE ? =2«, t00=0x003a, t01=0x00a4}
0x5b64…5b92 Head {h00=0x002a, h01=0x0050, text=» RF(Z) RCTP10 NO, GO TO DISPATCHER =2 «, t00=0x003a, t01=0x00da}
0x5b92…5bc2 Head {h00=0x002c, h01=0x0050, text=» XRR A3,A2 COMPARE OLD AND NEW STATUS =2«, t00=0x003a, t01=0x0108}
0x5bc2…5bf2 Head {h00=0x002c, h01=0x0050, text=» ANK A3,VOIN VOUCHER STATUS CHANGED ? =2«, t00=0x003a, t01=0x0138}
0x5bf2…5c20 Head {h00=0x002a, h01=0x0050, text=» RF(Z) RCTP10 NO, GO TO DISPATCHER =2 «, t00=0x003a, t01=0x0168}
0x5c20…5c58 Head {h00=0x0034, h01=0x0050, text=» XRS A4,DWTDEV,A6 RESET 'WAIT FOR STATUS' BIT =2«, t00=0x003b, t01=0x0008}
0x5c58…5c8c Head {h00=0x0030, h01=0x0050, text=» ABL NDREP GET A3-A5,A7-A8 AND RET VIA A5 =2«, t00=0x003b, t01=0x0040}
0x5c8c…5c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0074}
0x5c96…5ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x007e}
0x5ca0…5caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0088}
0x5caa…5cb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0092}
0x5cb8…5cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00a0}
0x5cc2…5cd6 Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x003b, t01=0x00aa}
0x5cd6…5ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00be}
0x5ce0…5d22 Head {h00=0x003e, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON«, t00=0x003b, t01=0x00c8}
0x5d22…5d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x010a}
0x5d2c…5d3e Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x003b, t01=0x0114}
0x5d3e…5d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0126}
0x5d48…5d6a Head {h00=0x001e, h01=0x0050, text=» LDKL A2,/FFFF-WAICHA =2 «, t00=0x003b, t01=0x0130}
0x5d6a…5da2 Head {h00=0x0034, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET 'WAIT FOR STATUS' BIT =2«, t00=0x003b, t01=0x0152}
0x5da2…5dca Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/7FFF IND DEVICE BUSY «, t00=0x003b, t01=0x018a}
0x5dca…5de4 Head {h00=0x0016, h01=0x0050, text=» ANS A2,DWTST,A6 «, t00=0x003c, t01=0x0022}
0x5de4…5e06 Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x003c, t01=0x003c}
0x5e06…5e18 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x003c, t01=0x005e}
0x5e18…5e38 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/3 BLOCK LENGTH «, t00=0x003c, t01=0x0070}
0x5e38…5e5c Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x003c, t01=0x0090}
0x5e5c…5e82 Head {h00=0x0022, h01=0x0050, text=»ERTP6 RF(NZ) ERTP JMP IF ERROR«, t00=0x003c, t01=0x00b4}
0x5e82…5e9c Head {h00=0x0016, h01=0x0050, text=» LD A2,DWTECB,A6 «, t00=0x003c, t01=0x00da}
0x5e9c…5ec6 Head {h00=0x0026, h01=0x0050, text=» RF(Z) RCTP05 REQUEST NOT RUNNING «, t00=0x003c, t01=0x00f4}
0x5ec6…5ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x011e}
0x5ed0…5f10 Head {h00=0x003c, h01=0x0050, text=» LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x003c, t01=0x0128}
0x5f10…5f30 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x003c, t01=0x0168}
0x5f30…5f52 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x003c, t01=0x0188}
0x5f52…5f66 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x003d, t01=0x001a}
0x5f66…5f8a Head {h00=0x0020, h01=0x0050, text=» ANK A4,/08 STATUS CHANGE ? «, t00=0x003d, t01=0x002e}
0x5f8a…5fa2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) RCTP05 NO«, t00=0x003d, t01=0x0052}
0x5fa2…5fc6 Head {h00=0x0020, h01=0x0050, text=» ABL TP645 COMPLETE REQUEST «, t00=0x003d, t01=0x006a}
0x5fc6…5fd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x008e}
0x5fd2…5fe6 Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x003d, t01=0x009a}
0x5fe6…5ff8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003d, t01=0x00ae}
0x5ff8…6032 Head {h00=0x0036, h01=0x0050, text=» SC A2,DWTDEV+ALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x003d, t01=0x00c0}
0x6032…6052 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003d, t01=0x00fa}
0x6052…6068 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x011a}
0x6068…608a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x003d, t01=0x0130}
0x608a…60a4 Head {h00=0x0016, h01=0x0050, text=» LD A2,DWTECB,A6 «, t00=0x003d, t01=0x0152}
0x60a4…60cc Head {h00=0x0024, h01=0x0050, text=» RF(NZ) RCTP07 REQUEST RUNNING «, t00=0x003d, t01=0x016c}
0x60cc…60fe (62, 0, 400) Head {h00=0x002e, h01=0x0050, text=» LDK A2,ETX SEND LAST DUMMY TO STOP TIMER «, t00=0x003e, t01=0x0004}
0x60fe…6116 Head {h00=0x0014, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003e, t01=0x0036}
0x6116…6138 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x003e, t01=0x004e}
0x6138…615a Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x003e, t01=0x0070}
0x615a…617c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x003e, t01=0x0092}
0x617c…6192 Head {h00=0x0012, h01=0x0050, text=» ABL LENDIS «, t00=0x003e, t01=0x00b4}
0x6192…61a8 Head {h00=0x0012, h01=0x0050, text=»RCTP07 EQU * «, t00=0x003e, t01=0x00ca}
0x61a8…61bc Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x003e, t01=0x00e0}
0x61bc…61e4 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/100 INDICATE POWER OFF«, t00=0x003e, t01=0x00f4}
0x61e4…6208 Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x003e, t01=0x011c}
0x6208…6214 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0140}
0x6214…6232 Head {h00=0x001a, h01=0x0050, text=» LDK A4,1 IND RECOVERY«, t00=0x003e, t01=0x014c}
0x6232…6254 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x003e, t01=0x016a}
0x6254…6276 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x003e, t01=0x018c}
0x6276…629e Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTOR,A6 SET ORDER IN A7 «, t00=0x003f, t01=0x001e}
0x629e…62b2 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x003f, t01=0x0046}
0x62b2…62e0 Head {h00=0x002a, h01=0x0050, text=» ABL ACT005 START RECOVERY OF PRINTER «, t00=0x003f, t01=0x005a}
0x62e0…630a Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL LDISP GO TO DISPATCHER «, t00=0x003f, t01=0x0088}
0x630a…6318 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x00b2}
0x6318…6322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00c0}
0x6322…633a Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x003f, t01=0x00ca}
0x633a…6344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00e2}
0x6344…637c Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x003f, t01=0x00ec}
0x637c…6386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0124}
0x6386…6390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x012e}
0x6390…639a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0138}
0x639a…63cc Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 «, t00=0x003f, t01=0x0142}
0x63cc…63e6 Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x003f, t01=0x0174}
0x63e6…6400 Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x003f, t01=0x018e}
0x6400…6420 Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x0040, t01=0x0018}
0x6420…6434 Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x0040, t01=0x0038}
0x6434…645a Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x0040, t01=0x004c}
0x645a…6464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0072}
0x6464…646e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x007c}
0x646e…6478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0086}
0x6478…6482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0090}
0x6482…648c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x009a}
0x648c…64a2 Head {h00=0x0012, h01=0x0050, text=»* G R A S P «, t00=0x0040, t01=0x00a4}
0x64a2…64ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ba}
0x64ac…64e4 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK«, t00=0x0040, t01=0x00c4}
0x64e4…64ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00fc}
0x64ee…64f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0106}
0x64f8…650c Head {h00=0x0010, h01=0x0050, text=»GRASPA EQU *«, t00=0x0040, t01=0x0110}
0x650c…652c Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0040, t01=0x0124}
0x652c…6542 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x0144}
0x6542…6564 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x0040, t01=0x015a}
0x6564…6578 Head {h00=0x0010, h01=0x0050, text=»GRASP EQU * «, t00=0x0040, t01=0x017c}
0x6578…658a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0040, t01=0x0190}
0x658a…65a4 Head {h00=0x0016, h01=0x0050, text=» LDK A2,GRA GRASP «, t00=0x0041, t01=0x0012}
0x65a4…65ba Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0041, t01=0x002c}
0x65ba…65dc Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x0041, t01=0x0042}
0x65dc…6604 Head {h00=0x0024, h01=0x0050, text=» LC A4,DWTDEV+1,A6 GET STATUS =2«, t00=0x0041, t01=0x0064}
0x6604…6628 Head {h00=0x0020, h01=0x0050, text=» ANK A4,VOIN VOUCHER IN ? =2«, t00=0x0041, t01=0x008c}
0x6628…6636 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0041, t01=0x00b0}
0x6636…6652 Head {h00=0x0018, h01=0x0050, text=» RF(Z) COM010 NO =2 «, t00=0x0041, t01=0x00be}
0x6652…6686 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTDEV+ALN,A6 GET ACTUAL LINE NO. =2 «, t00=0x0041, t01=0x00da}
0x6686…66b2 Head {h00=0x0028, h01=0x0050, text=»GRAS10 CF A5,ENDBLK END OF BLOCK =2 «, t00=0x0041, t01=0x010e}
0x66b2…66d6 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR =2«, t00=0x0041, t01=0x013a}
0x66d6…66f0 Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0041, t01=0x015e}
0x66f0…66fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0178}
0x66fa…6704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0182}
0x6704…670e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x018c}
0x670e…6718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0008}
0x6718…674c Head {h00=0x0030, h01=0x0050, text=»* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK«, t00=0x0042, t01=0x0012}
0x674c…6756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0046}
0x6756…6778 Head {h00=0x001e, h01=0x0050, text=»* INPUT : A1 = RETURN CODE«, t00=0x0042, t01=0x0050}
0x6778…6782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0072}
0x6782…6794 Head {h00=0x000e, h01=0x0050, text=»ERTP EQU *«, t00=0x0042, t01=0x007c}
0x6794…67a6 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0042, t01=0x008e}
0x67a6…67ce Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTOR,A6 SET ORDER IN A7 «, t00=0x0042, t01=0x00a0}
0x67ce…67e2 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0042, t01=0x00c8}
0x67e2…6804 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP20 ORDER /00 ?«, t00=0x0042, t01=0x00dc}
0x6804…6830 Head {h00=0x0028, h01=0x0050, text=»ERTP15 LDK A1,1 YES,SET RETURN CODE «, t00=0x0042, t01=0x00fe}
0x6830…685e Head {h00=0x002a, h01=0x0050, text=» ABL LENDIS NOT OPER. & END OF REQUEST«, t00=0x0042, t01=0x012a}
0x685e…689a Head {h00=0x0038, h01=0x0050, text=»ERTP20 ANK A1,/1A SOFTW. TIME OUT,LRC OR LINK ERROR «, t00=0x0042, t01=0x0158}
0x689a…68bc (67, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RB(NZ) RCTP YES RECOVERY «, t00=0x0043, t01=0x0004}
0x68bc…68d2 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=0 «, t00=0x0043, t01=0x0026}
0x68d2…68ee Head {h00=0x0018, h01=0x0050, text=» ABL LDISP DISPATCH «, t00=0x0043, t01=0x003c}
0x68ee…68fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0058}
0x68fa…6910 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=1 «, t00=0x0043, t01=0x0064}
0x6910…692e Head {h00=0x001a, h01=0x0050, text=» RB ERTP15 END OF REQ.«, t00=0x0043, t01=0x007a}
0x692e…693a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0098}
0x693a…6948 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x00a4}
0x6948…6952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b2}
0x6952…695c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00bc}
0x695c…6974 Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x0043, t01=0x00c6}
0x6974…697e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00de}
0x697e…69b4 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x0043, t01=0x00e8}
0x69b4…69be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x011e}
0x69be…69c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0128}
0x69c8…69d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0132}
0x69d2…69e6 Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x0043, t01=0x013c}
0x69e6…6a06 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x0043, t01=0x0150}
0x6a06…6a2a Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0043, t01=0x0170}
0x6a2a…6a4c (68, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR «, t00=0x0044, t01=0x0004}
0x6a4c…6a5e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0044, t01=0x0026}
0x6a5e…6a96 Head {h00=0x0034, h01=0x0050, text=» SC A1,DWTDEV+ALN,A6 SET ACTUAL LINE NUMBER TO 0«, t00=0x0044, t01=0x0038}
0x6a96…6ab6 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0044, t01=0x0070}
0x6ab6…6acc Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0044, t01=0x0090}
0x6acc…6aee Head {h00=0x001e, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR «, t00=0x0044, t01=0x00a6}
0x6aee…6b16 Head {h00=0x0024, h01=0x0050, text=» LC A4,DWTDEV+1,A6 GET STATUS =2«, t00=0x0044, t01=0x00c8}
0x6b16…6b3a Head {h00=0x0020, h01=0x0050, text=» ANK A4,VOIN VOUCHER IN ? =2«, t00=0x0044, t01=0x00f0}
0x6b3a…6b5e Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRAS10 NO, RETURN =2 «, t00=0x0044, t01=0x0114}
0x6b5e…6b7c Head {h00=0x001a, h01=0x0050, text=» LDK A2,REL RELEASE =2«, t00=0x0044, t01=0x0138}
0x6b7c…6b96 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0044, t01=0x0156}
0x6b96…6bba Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR =2«, t00=0x0044, t01=0x0170}
0x6bba…6bc4 (69, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0004}
0x6bc4…6bfc Head {h00=0x0034, h01=0x0050, text=»* COMMON END FOR GRASP AND RELEASE SUBROUTINES«, t00=0x0045, t01=0x000e}
0x6bfc…6c32 Head {h00=0x0032, h01=0x0050, text=»* WHEN A CHANGE OF VOUCHER STATUS IS WANTED «, t00=0x0045, t01=0x0046}
0x6c32…6c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x007c}
0x6c3c…6c68 Head {h00=0x0028, h01=0x0050, text=»COM010 CF A5,ENDBLK END OF BLOCK =2 «, t00=0x0045, t01=0x0086}
0x6c68…6c8c Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR =2«, t00=0x0045, t01=0x00b2}
0x6c8c…6cae Head {h00=0x001e, h01=0x0050, text=» LDK A2,1 BLOCK LENGTH =2 «, t00=0x0045, t01=0x00d6}
0x6cae…6cd6 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =2 «, t00=0x0045, t01=0x00f8}
0x6cd6…6cfa Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR =2«, t00=0x0045, t01=0x0120}
0x6cfa…6d2c Head {h00=0x002e, h01=0x0050, text=» LDK A2,TETX DUMMY AFTER GRASP AND REL =2 «, t00=0x0045, t01=0x0144}
0x6d2c…6d46 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0045, t01=0x0176}
0x6d46…6d6a Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR =2«, t00=0x0045, t01=0x0190}
0x6d6a…6d90 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =2 «, t00=0x0046, t01=0x0024}
0x6d90…6db4 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR =2«, t00=0x0046, t01=0x004a}
0x6db4…6ddc Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS =2«, t00=0x0046, t01=0x006e}
0x6ddc…6e12 Head {h00=0x0032, h01=0x0050, text=» XRR A4,A2 VOUCHER ST. CHANGED SINCE LAST? =2 «, t00=0x0046, t01=0x0096}
0x6e12…6e3c Head {h00=0x0026, h01=0x0050, text=» RF(NZ) COM020 YES, DON'T WAIT =2 «, t00=0x0046, t01=0x00cc}
0x6e3c…6e62 Head {h00=0x0022, h01=0x0050, text=» CF A5,WAIT WAIT FOR STATUS =2«, t00=0x0046, t01=0x00f6}
0x6e62…6e7a Head {h00=0x0014, h01=0x0050, text=»COM020 EQU * =2«, t00=0x0046, t01=0x011c}
0x6e7a…6ea4 Head {h00=0x0026, h01=0x0050, text=» RTN A5 RETURN WITH NEW STATUS =2 «, t00=0x0046, t01=0x0134}
0x6ea4…6eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x015e}
0x6eae…6ec6 Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x0046, t01=0x0168}
0x6ec6…6ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0180}
0x6ed0…6f10 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x0046, t01=0x018a}
0x6f10…6f3c Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x0047, t01=0x003a}
0x6f3c…6f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0066}
0x6f46…6f50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0070}
0x6f50…6f88 Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x0047, t01=0x007a}
0x6f88…6fa0 Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x0047, t01=0x00b2}
0x6fa0…6fd0 Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x0047, t01=0x00ca}
0x6fd0…6ff8 Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x0047, t01=0x00fa}
0x6ff8…701c Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0047, t01=0x0122}
0x701c…703e Head {h00=0x001e, h01=0x0050, text=» RB(NZ) ERTP JMP IF ERROR «, t00=0x0047, t01=0x0146}
0x703e…7062 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0047, t01=0x0168}
0x7062…708c Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x0047, t01=0x018c}
0x708c…70a0 Head {h00=0x0010, h01=0x0050, text=»BUFRTN EQU *«, t00=0x0048, t01=0x0026}
0x70a0…70c0 Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x0048, t01=0x003a}
0x70c0…70ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x005a}
0x70ca…70d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0064}
0x70d4…70e8 Head {h00=0x0010, h01=0x0050, text=»* W A I T «, t00=0x0048, t01=0x006e}
0x70e8…70f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0082}
0x70f2…712a Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE USED TO INITIATE WAIT FOR CHANGE «, t00=0x0048, t01=0x008c}
0x712a…7148 Head {h00=0x001a, h01=0x0050, text=»* IN VOUCHER STATUS.«, t00=0x0048, t01=0x00c4}
0x7148…717c Head {h00=0x0030, h01=0x0050, text=»* RETURN AFTER SUBROUTINE IS MADE THROUGH «, t00=0x0048, t01=0x00e2}
0x717c…71b2 Head {h00=0x0032, h01=0x0050, text=»* INTERRUPT HANDLER WHEN STATUS IS CHANGED. «, t00=0x0048, t01=0x0116}
0x71b2…71bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x014c}
0x71bc…71d2 Head {h00=0x0012, h01=0x0050, text=»WAIT EQU * =2 «, t00=0x0048, t01=0x0156}
0x71d2…71e4 Head {h00=0x000e, h01=0x0050, text=» INH =2 «, t00=0x0048, t01=0x016c}
0x71e4…7216 Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5,A7-A8 IN DWT =2 «, t00=0x0048, t01=0x017e}
0x7216…7232 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,WAICHA =2 «, t00=0x0049, t01=0x0020}
0x7232…726a Head {h00=0x0034, h01=0x0050, text=» ORS A3,DWTDEV,A6 INDICATE 'WAIT FOR STATUS' =2 «, t00=0x0049, t01=0x003c}
0x726a…7288 Head {h00=0x001a, h01=0x0050, text=» ABL LDISP DISPATCH =2«, t00=0x0049, t01=0x0074}
0x7288…7292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0092}
0x7292…729c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x009c}
0x729c…72a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00a6}
0x72a6…72b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00b0}
0x72b0…72bc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0049, t01=0x00ba}
0x72bc…72c0 Head {h00=0x4004, h01=0x0000}
0x72c0…72c4 00 49 00 c6 ┆ I ┆
0x72c4…72cc (74, 1, 8) 20 04 00 00 00 4a 00 04 ┆ J ┆
0x72cc…731c (75, 0, 400) 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 4a 01 8a 00 08 00 50 5c 58 49 46 00 4b 00 24 00 06 00 50 2a 20 00 4b 00 30 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 4b 00 3a 00 12 00 50 ┆5,SAVE8 SAVE A1-A8 ON STACK J P XIF K $ P* K 0 P IFF RECHAN=0 K : P┆
0x731c…736c 5c 49 46 46 5c 52 45 43 48 41 4e 3d 31 20 00 4b 00 50 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 4b 00 66 00 22 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 00 4b 00 7c 00 08 ┆ IFF RECHAN=1 K P P IFT CPU852=0 K f " P MSR 8,A15 SAVE A1-A8 ON STACK K | ┆
0x736c…73bc 00 50 5c 58 49 46 00 4b 00 a2 00 06 00 50 2a 20 00 4b 00 ae 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 4b 00 b8 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 31 20 00 4b 00 ce 00 1e 00 50 5c 4c 44 4b 5c 41 37 2c 31 34 5c 49 ┆ P XIF K P* K P IFF RECHAN=0 K P IFF RECHAN=1 K P LDK A7,14 I┆
0x73bc…740c 4e 44 49 43 41 54 45 20 43 48 52 54 32 20 00 4b 00 e4 00 0e 00 50 5c 52 46 5c 43 4c 54 30 31 30 00 4b 01 06 00 08 00 50 5c 58 49 46 00 4b 01 18 00 06 00 50 2a 20 00 4b 01 24 00 06 00 50 2a 20 00 4b 01 2e 00 12 00 50 2a 20 20 20 20 43 20 48 ┆NDICATE CHRT2 K P RF CLT010 K P XIF K P* K $ P* K . P* C H┆
0x740c…745c 20 52 20 54 20 33 00 4b 01 38 00 06 00 50 2a 20 00 4b 01 4e 00 1e 00 50 2a 20 20 20 20 49 4e 54 45 52 52 55 50 54 20 46 52 4f 4d 20 43 48 52 54 33 20 00 4b 01 58 00 06 00 50 2a 20 00 4b 01 7a 00 10 00 50 43 48 52 54 33 5c 45 51 55 5c 2a 20 ┆ R T 3 K 8 P* K N P* INTERRUPT FROM CHRT3 K X P* K z PCHRT3 EQU * ┆
0x745c…74ac (76, 0, 398) 00 4b 01 84 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 4c 00 08 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 31 20 00 4c 00 1e 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 32 20 00 4c 00 34 00 24 00 50 5c 53 54 5c 50 2c ┆ K P IFF RECHAN=0 L P IFF RECHAN=1 L P IFF RECHAN=2 L 4 $ P ST P,┆
0x74ac…74fc 49 4e 54 53 41 56 5c 53 41 56 45 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 00 4c 00 4a 00 06 00 50 2a 20 00 4c 00 72 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 4c 00 7c 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c ┆INTSAV SAVE LAST INTERRUPT L J P* L r P IFT CPU852=1 L | & P CF A15,SAVE8 ┆
0x74fc…754c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 4c 00 92 00 08 00 50 5c 58 49 46 00 4c 00 bc 00 06 00 50 2a 20 00 4c 00 c8 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 4c 00 d2 00 12 00 50 5c 49 46 46 5c 52 45 43 ┆SAVE A1-A8 ON STACK L P XIF L P* L P IFF RECHAN=0 L P IFF REC┆
0x754c…759c 48 41 4e 3d 31 20 00 4c 00 e8 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 32 20 00 4c 00 fe 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 4c 01 14 00 22 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 38 20 ┆HAN=1 L P IFF RECHAN=2 L P IFT CPU852=0 L " P MSR 8,A15 SAVE A1-A8 ┆
0x759c…75ea 4f 4e 20 53 54 41 43 4b 00 4c 01 2a 00 08 00 50 5c 58 49 46 00 4c 01 50 00 06 00 50 2a 20 00 4c 01 5c 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 4c 01 66 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 31 20 00 4c 01 7c ┆ON STACK L * P XIF L P P* L P IFF RECHAN=0 L f P IFF RECHAN=1 L |┆