|
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: 23650 (0x5c62)
Notes: pts_type(SC)
Names: »DRTP02.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DRTP02.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/DRTP02.SC«
IDENT DRTP02 REL 8.2 78-09-15 870105040820 * ******************************************************* * * * PHILIPS TERMINAL SYSTEM PTS * * * * DRTP02 = DRIVER TELLER TERMINAL PRINTER * * * * * * * * * * ******************************************************* * * THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221, * 6222 OR 6223 CONNECTED TO CPU VIA CHLT OR CHRT * * * 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 8 : RECOVERY EXECUTED ON REQUEST * BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT * 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 * * * * * 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 TDISP DISPATCHING FROM INTERRUPT EXTRN DISIOE DISPATCH I/O ERROR EXTRN DISEND END I/O AND DISPATCH EXTRN TENDIO END I/O EXTRN OUTPUT OUTPUT ONE CHARACTER EXTRN LDREG RESTORE REGISTERS EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT EXTRN SAVE8 SAVE REG. A1-A8 * * * * DISPLACMENT IN DEVICE WORK TABLE DWT * EXTRN DWTST STATUS WORD EXTRN DWTECB ECB-ADDRESS EXTRN DWTOR ORDER EJECT ************************ * CONDITIONAL ASSEMBLY * ************************ * * * WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET * BY SETTING X:A = 1 * * X:A EQU 0 RECOV EQU 0 * * * JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY * SETTING X:B = 1 * * X:B EQU 0 CUTPER EQU 0 * * * SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 * AND X:D = 1 RESPECTIVLY * * X:C EQU 0 CHR13 EQU 0 * * X:D EQU 0 CHR14 EQU 0 * * * PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF * PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 * * X:E EQU 0 COMPL EQU 0 EJECT * * * 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 0 * * TO INCREASE THE PRINTING SPEED IN THE SHB-PROJECT FOR * LOCAL PRINTERS THE CONSTANT SHBDUM CAN BE SET TO 1. * NOT ALLOWED FOR REMOTE PRINTERS. * X:H EQU 0 SHBDUM EQU X:H EJECT * * ************* * CONSTANTS * ************* * * CCERR EQU /4 RETURN CODE. CODE CHECK ERROR PROUT EQU /20 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. VOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED MESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN * STX EQU /82 START OF TEXT BLOCK ETB EQU /97 END OF TEXT BLOCK 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 * ********************* * DWTBC EQU /3 BYTE COUNTER DWTSB2 EQU /1E STACK BASE DWTRLN EQU /22 REQUESTED LINE NUMBER DWTALN EQU /23 ACTUAL LINE NUMBER * * ********************* * ECB-DISPLACEMENTS * ********************* * ECBBA EQU 2 BUFFER ADDRESS IN ECB ECBRL EQU 4 REQUESTED LENGTH IN ECB ECBEL EQU 6 EFFECTIVE LENGTH IN ECB ECBRC EQU 8 RETURN CODE IN ECB ECBCW EQU 10 CONTROL WORD IN ECB EJECT * *********** * BUFFERS * *********** * * BUF1 DATA /0382,/0D1D STX,CR1,APH IFT CUTPER=0 BUF2 DATA /0382 STX XIF IFT CUTPER=1 BUF2 DATA /0482 STX XIF DATA /091D,/2000 CR2,APH,SPACE BUF3 DATA /0382,/091D STX,CR2,APH BUF5 DATA /021B,/8300 REL,ETX * * * ********** * TABLES * ********** * * TPAD EQU * ADDRESS BLOCK DATA ACTP ACTIVATIONDRIVER DATA IHTP INTERRUPTHANDLER DATA RCTP RECOVERY ROUTINE * * TABLE TO GET ROOMLESS POINT * ROMTAB EQU * DATA /2122,/2627,/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 DISIOE ILLEGAL ORDER * * ACT020 EQU * SC A4,DWTBC,A6 RESET BYTE COUNTER ADR A3,A3 GET INDEX ABI TPFUC,A3 EXECUTE ORDER TPFUC DATA TPDUMY,TPDUMY,TP200,TP405,ACT055,ACT050 IFT CUTPER=1 DATA TP700,TP750 XIF DATA TP800,TP900 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 RF(Z) TP605 /2B = NO LF ACT070 LDK A3,1 ONE LF ACT080 LC A1,DWTRLN,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,DWTRLN,A6 SAVE REQUESTED LINE NUMBER RF TP605 EJECT * * * * ORDER 06 : PRINT JOURNAL * * * TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH TP210 EQU * LC A1,DWTST,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 CF A5,OUTPUT 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,DWTST,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 IFT SHBDUM=1 LDKL A1,MESS INDICATE MESSAGE PRINTED ORS A1,DWTST,A6 XIF 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. 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 EJECT * * * CHECK STATUS AFTER LAST DUMMY CHARACTER * TPTST EQU * SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ? RF(NZ) TST010 NO TST005 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 ANK A2,EOJT END OF JOURNAL TAPE? RF(NZ) ENDIO NO: PERFORM ENDIO TST015 ORK A1,PROUT SET RETURN CODE: END OF JOURNAL TAPE, VOUCHER OUT * * * PERFORM END I/O AND GO TO DISPATCHER * ENDIO EQU * ABL DISEND 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 * TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH TP410 EQU * LDKL A1,VOCHA ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED RB TP210 * EJECT * * * * ORDER 06 : WRITE VOUCHER/PASSBOOK * OB : POSITION LIFT AND WRITE * * TP605 CF A5,GRASP GRASP VOUCHER EJECT * * * SEND ELEVATOR UP/DOWN UNTIL ACTUAL * LINE NUMBER IS EQUAL REQUESTED * * TP610 CC A3,DWTRLN,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 * SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER ANK A2,VOIN VOUCHER IN ? IFT COMPL=0 ABL(Z) RCTP01 NO: ERROR RECOVERY RB TP610 YES: CHECK IF LIFT POSITIONED XIF IFT COMPL=1 RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED TP645 LDK A1,PROUT 'VOUCHER OUT' ORS A1,ECBRC,A8 INDICATE IN RETURN CODE RB TPDUMY XIF EJECT * * * ORDER 06 AND 0B: LIFT IS POSITIONED * ATTACH AND PRINT * * TP650 EQU * 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 A1,1 SET INDEX RF TP760 TP750 EQU * LDK A1,0 SET INDEX TP760 LC A2,CPTAB,A1 GET CHAR CF A5,OUTPUT SEND LDK A2,LF1 LINE FEED CF A5,OUTPUT SEND RB TPDUMY XIF * * ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK * TP800 EQU * CF A5,GRASPA RB TPDUMY TP900 EQU * CF A5,RELEAS RB TPDUMY 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 PRB101 EQU * LDK A2,ETB CF A5,OUTPUT SEND END OF MESSAGE IFT SHBDUM=0 LDK A2,ETX CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED LDKL A1,MESS INDICATE MESSAGE PRINTED ORS A1,DWTST,A6 XIF 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 * * * ANK A2,VOIN VOUCHER IN ? RF(Z) PRB200 NO. GO AND PRINT ADK A5,4 RESET STACK POINTER RB TP405 SEND LIFT TO TOP AND RELEAS * * * * PRINT VOUCHER/PASSBOOK * * PRB110 ANK A2,VOIN VOUCHER IN ? IFT COMPL=0 RF(Z) RCTP01 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 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 IM DWTBC,A6 INCREMENT BYTE COUNTER CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. RF(NG) PRB125 PRINT * * * LDK A2,/20 LOAD BLANK CF A5,OUTPUT SEND BLANKS OR DETACH 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 LD A7,DWTOR,A6 GET ORDER ANK A7,/FF RF PRB245 * * * PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER LDR A2,A7 GET OUTPUT CHARACTER PRB240 CF A5,OUTPUT SEND CHARACTER PRB245 SUR A3,A4 START OF BUFFER ADDRESS RB PRB100 * * * EJECT * * I H T P * * INTERRUPT HANDLER: PROCESS OF INTERRUPT * * * IHTP EQU * LD A4,DWTST,A6 GET STATUS RF(N) RCTP10 NOT BUSY LDR A7,A7 TEST STATUS;JOURNAL ? RF(Z) IHTP20 YES CWK A7,2 TEST STATUS;VOUCHER/PASSBOOK ? RF(Z) IHTP20 YES LDR A1,A1 RETURN CODE FROM CHANNEL UNIT IHTP10 ABL(Z) LDREG NO RETURN CODE RESTORE REGISTERS IFT RELEND=0 RF RCTP10 ELSE GO TO DISPATCHER XIF IFT RELEND=1 RF IHTP30 XIF IHTP20 LDR A1,A1 ABL(Z) TPTST IHTP30 EQU * ABL ENDIO * * * EJECT * * R C T P * * RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON * RCTP CF A15,SAVE8 SAVE REG. A1-A8 LD A2,DWTST,A6 GET STATUS RF(N) RCTP05 NOT BUSY * RCTP01 LDKL A5,DWTSB2 STACK BASE ADR A5,A6 LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY CF A5,OUTPUT SEND DUMMY IFT COMPL=1 LDR A4,A4 STATUS CHANGE ? ABL(NE) TP645 XIF RCTP05 EQU * LDK A2,0 SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER LDK A2,LFF LIFT TO TOP CF A5,OUTPUT IFT RECOV=1 LDK A2,/80 INDICATE POWER OFF ORS A2,8,A8 SET RETURN CODE XIF LDK A4,1 IND RECOVERY ABL ACT005 START RECOVERY OF PRINTER RCTP10 ABL TDISP 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 GRASP EQU * LDK A3,0 LDK A2,GRA GRASP CF A5,OUTPUT ANK A2,VOIN VOUCHER IN ? RF(NZ) GRAS10 YES LDK A2,TETX DUMMY AFTER GRASP CF A5,OUTPUT LDK A2,LFF LIFT TO TOP CF A5,OUTPUT RTN A5 GRAS10 LC A3,DWTALN,A6 RTN A5 * * EJECT * * * R E L E A S * * SUBROUTINE TO SEND LIFT TO TOP AND RELEASE * * * RELEAS EQU * LDK A1,0 SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0 LDKL A3,BUF5 LIFT TO TOP AND RELEAS LDK A2,LFF LIFT TO TOP CF A5,OUTPUT ANK A2,VOIN VOUCHER IN ? RF(Z) BUFRTN * * 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 SUK A4,1 DECREMENT COUNTER RB(NZ) BUFC10 NOT LAST CHARACTER BUFRTN EQU * RTN A5 RETURN TO CALLER * * * * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRTP02 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0088 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x004c}
0x0088…00c8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x008c}
0x00c8…0108 Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0000, t01=0x00cc}
0x0108…0148 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x010c}
0x0148…0188 Head {h00=0x003c, h01=0x0050, text=»* DRTP02 = DRIVER TELLER TERMINAL PRINTER * «, t00=0x0000, t01=0x014c}
0x0188…01c8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x018c}
0x01c8…0208 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x003c}
0x0208…0212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007c}
0x0212…021c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0086}
0x021c…0226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0090}
0x0226…0266 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x009a}
0x0266…02a6 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x00da}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x02b0…02f2 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221,«, t00=0x0001, t01=0x0124}
0x02f2…032c Head {h00=0x0036, h01=0x0050, text=»* 6222 OR 6223 CONNECTED TO CPU VIA CHLT OR CHRT«, t00=0x0001, t01=0x0166}
0x032c…0336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0010}
0x0336…0340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001a}
0x0340…0378 Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0002, t01=0x0024}
0x0378…0382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x0382…03aa Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0002, t01=0x0066}
0x03aa…03b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008e}
0x03b4…03de Head {h00=0x0026, h01=0x0050, text=»* I H T P : INTERRUPT HANDLER «, t00=0x0002, t01=0x0098}
0x03de…03e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c2}
0x03e8…0410 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0002, t01=0x00cc}
0x0410…041a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f4}
0x041a…0424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fe}
0x0424…045e Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES:«, t00=0x0002, t01=0x0108}
0x045e…0468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0142}
0x0468…04ae Head {h00=0x0042, h01=0x0050, text=»* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM«, t00=0x0002, t01=0x014c}
0x04ae…04b8 (3, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04b8…04f2 Head {h00=0x0036, h01=0x0050, text=»* B C D T B Y : CONVERT TO BINARY FROM DECIMAL«, t00=0x0003, t01=0x000e}
0x04f2…04fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0048}
0x04fc…0544 Head {h00=0x0044, h01=0x0050, text=»* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST«, t00=0x0003, t01=0x0052}
0x0544…056c Head {h00=0x0024, h01=0x0050, text=»* CHARACTER IN OUTPUT BUFFER «, t00=0x0003, t01=0x009a}
0x056c…0576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c2}
0x0576…05a8 Head {h00=0x002e, h01=0x0050, text=»* G R A S P : SEND GRASP TO VOUCHER «, t00=0x0003, t01=0x00cc}
0x05a8…05b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fe}
0x05b2…05ea Head {h00=0x0034, h01=0x0050, text=»* R E L E A S : SEND LIFT TO TOP AND RELEASE«, t00=0x0003, t01=0x0108}
0x05ea…05f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0140}
0x05f8…0602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014e}
0x0602…0630 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0003, t01=0x0158}
0x0630…063a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0186}
0x063a…0662 Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0003, t01=0x0190}
0x0662…0684 Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0004, t01=0x0028}
0x0684…06b8 Head {h00=0x0030, h01=0x0050, text=»* ORDER 0B : POSITION LIFT AND WRITE «, t00=0x0004, t01=0x004a}
0x06b8…06e0 Head {h00=0x0024, h01=0x0050, text=»* ORDER 22 : CUT JOURNAL «, t00=0x0004, t01=0x007e}
0x06e0…070e Head {h00=0x002a, h01=0x0050, text=»* ORDER 26 : PERFORATE JOURNAL «, t00=0x0004, t01=0x00a6}
0x070e…0740 Head {h00=0x002e, h01=0x0050, text=»* ORDER 37 : GRASP VOUCHER/PASSBOOK«, t00=0x0004, t01=0x00d4}
0x0740…0774 Head {h00=0x0030, h01=0x0050, text=»* ORDER 38 : RELEASE VOUCHER/PASSBOOK«, t00=0x0004, t01=0x0106}
0x0774…077e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013a}
0x077e…07ae Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0004, t01=0x0144}
0x07ae…07b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0174}
0x07b8…07e2 Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0004, t01=0x017e}
0x07e2…081a Head {h00=0x0034, h01=0x0050, text=»* BIT 8 : RECOVERY EXECUTED ON REQUEST«, t00=0x0005, t01=0x0018}
0x081a…0856 Head {h00=0x0038, h01=0x0050, text=»* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT«, t00=0x0005, t01=0x0050}
0x0856…0882 Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0005, t01=0x008c}
0x0882…08aa Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0005, t01=0x00b8}
0x08aa…08b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e0}
0x08b4…08be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ea}
0x08be…08c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f4}
0x08c8…08ea Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0005, t01=0x00fe}
0x08ea…08f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0120}
0x08f4…091a Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0005, t01=0x012a}
0x091a…0940 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0005, t01=0x0150}
0x0940…0968 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0005, t01=0x0176}
0x0968…0990 Head {h00=0x0024, h01=0x0050, text=»* A4: OUTPUT COUNTER «, t00=0x0006, t01=0x000e}
0x0990…09b6 Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0006, t01=0x0036}
0x09b6…09da Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0006, t01=0x005c}
0x09da…09f8 Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0006, t01=0x0080}
0x09f8…0a1c Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0006, t01=0x009e}
0x0a1c…0a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c2}
0x0a26…0a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00cc}
0x0a30…0a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d6}
0x0a3a…0a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e0}
0x0a44…0a62 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0006, t01=0x00ea}
0x0a62…0a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0108}
0x0a6c…0ab4 Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN «, t00=0x0006, t01=0x0112}
0x0ab4…0acc Head {h00=0x0014, h01=0x0050, text=»* BE EXCLUDED:«, t00=0x0006, t01=0x015a}
0x0acc…0ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0172}
0x0ad6…0b18 Head {h00=0x003e, h01=0x0050, text=»* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST «, t00=0x0006, t01=0x017c}
0x0b18…0b50 Head {h00=0x0034, h01=0x0050, text=»* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) «, t00=0x0007, t01=0x002e}
0x0b50…0b84 Head {h00=0x0030, h01=0x0050, text=»* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 «, t00=0x0007, t01=0x0066}
0x0b84…0bd0 Head {h00=0x0048, h01=0x0050, text=»* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN«, t00=0x0007, t01=0x009a}
0x0bd0…0bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e6}
0x0bda…0be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f0}
0x0be4…0c28 Head {h00=0x0040, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED«, t00=0x0007, t01=0x00fa}
0x0c28…0c6a Head {h00=0x003e, h01=0x0050, text=»* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET «, t00=0x0007, t01=0x013e}
0x0c6a…0c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0180}
0x0c74…0c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018a}
0x0c7e…0c8c (8, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0004}
0x0c8c…0c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0012}
0x0c96…0caa Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x001c}
0x0caa…0cbe Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0008, t01=0x0030}
0x0cbe…0cd2 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0044}
0x0cd2…0cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0058}
0x0cdc…0ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0ce6…0d08 Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD ADDRESS BLOCK «, t00=0x0008, t01=0x006c}
0x0d08…0d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008e}
0x0d12…0d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1c…0d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a2}
0x0d26…0d3c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x00ac}
0x0d3c…0d52 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0008, t01=0x00c2}
0x0d52…0d68 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x00d8}
0x0d68…0d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ee}
0x0d72…0d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7c…0dac Head {h00=0x002c, h01=0x0050, text=» EXTRN TDISP DISPATCHING FROM INTERRUPT «, t00=0x0008, t01=0x0102}
0x0dac…0dd4 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE DISPATCH I/O ERROR«, t00=0x0008, t01=0x0132}
0x0dd4…0dfe Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x0008, t01=0x015a}
0x0dfe…0e1c Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0008, t01=0x0184}
0x0e1c…0e46 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0009, t01=0x0012}
0x0e46…0e6c Head {h00=0x0022, h01=0x0050, text=» EXTRN LDREG RESTORE REGISTERS«, t00=0x0009, t01=0x003c}
0x0e6c…0ea8 Head {h00=0x0038, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT «, t00=0x0009, t01=0x0062}
0x0ea8…0ecc Head {h00=0x0020, h01=0x0050, text=» EXTRN SAVE8 SAVE REG. A1-A8«, t00=0x0009, t01=0x009e}
0x0ecc…0ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed6…0ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0ee0…0eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d6}
0x0eea…0f1c Head {h00=0x002e, h01=0x0050, text=»* DISPLACMENT IN DEVICE WORK TABLE DWT«, t00=0x0009, t01=0x00e0}
0x0f1c…0f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f26…0f46 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST STATUS WORD«, t00=0x0009, t01=0x011c}
0x0f46…0f68 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0009, t01=0x013c}
0x0f68…0f82 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0009, t01=0x015e}
0x0f82…0f90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0178}
0x0f90…0fb0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0186}
0x0fb0…0fd0 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000a, t01=0x0016}
0x0fd0…0ff0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0036}
0x0ff0…0ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0056}
0x0ffa…1004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0060}
0x1004…1044 Head {h00=0x003c, h01=0x0050, text=»* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET«, t00=0x000a, t01=0x006a}
0x1044…1062 Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:A = 1«, t00=0x000a, t01=0x00aa}
0x1062…106c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c8}
0x106c…1076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d2}
0x1076…1088 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000a, t01=0x00dc}
0x1088…109c Head {h00=0x0010, h01=0x0050, text=»RECOV EQU 0 «, t00=0x000a, t01=0x00ee}
0x109c…10a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0102}
0x10a6…10b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010c}
0x10b0…10ee Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x000a, t01=0x0116}
0x10ee…110a Head {h00=0x0018, h01=0x0050, text=»* SETTING X:B = 1 «, t00=0x000a, t01=0x0154}
0x110a…1114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0170}
0x1114…111e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017a}
0x111e…1130 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x0184}
0x1130…1144 Head {h00=0x0010, h01=0x0050, text=»CUTPER EQU 0«, t00=0x000b, t01=0x0008}
0x1144…114e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001c}
0x114e…1158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0026}
0x1158…119e Head {h00=0x0042, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 «, t00=0x000b, t01=0x0030}
0x119e…11c2 Head {h00=0x0020, h01=0x0050, text=»* AND X:D = 1 RESPECTIVLY «, t00=0x000b, t01=0x0076}
0x11c2…11cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009a}
0x11cc…11d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a4}
0x11d6…11e8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000b, t01=0x00ae}
0x11e8…11fc Head {h00=0x0010, h01=0x0050, text=»CHR13 EQU 0 «, t00=0x000b, t01=0x00c0}
0x11fc…1206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d4}
0x1206…1210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00de}
0x1210…1222 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000b, t01=0x00e8}
0x1222…1236 Head {h00=0x0010, h01=0x0050, text=»CHR14 EQU 0 «, t00=0x000b, t01=0x00fa}
0x1236…1240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010e}
0x1240…124a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124a…1280 Head {h00=0x0032, h01=0x0050, text=»* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF«, t00=0x000b, t01=0x0122}
0x1280…12be Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000b, t01=0x0158}
0x12be…12c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0008}
0x12c8…12d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0012}
0x12d2…12e4 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000c, t01=0x001c}
0x12e4…12f8 Head {h00=0x0010, h01=0x0050, text=»COMPL EQU 0 «, t00=0x000c, t01=0x002e}
0x12f8…1306 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0042}
0x1306…1310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0050}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005a}
0x131a…135c Head {h00=0x003e, h01=0x0050, text=»* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT «, t00=0x000c, t01=0x0064}
0x135c…139c Head {h00=0x003c, h01=0x0050, text=»* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING «, t00=0x000c, t01=0x00a6}
0x139c…13de Head {h00=0x003e, h01=0x0050, text=»* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET«, t00=0x000c, t01=0x00e6}
0x13de…13e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0128}
0x13e8…13f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0132}
0x13f2…1404 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000c, t01=0x013c}
0x1404…1418 Head {h00=0x0010, h01=0x0050, text=»RELEND EQU 0«, t00=0x000c, t01=0x014e}
0x1418…1422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1422…1464 Head {h00=0x003e, h01=0x0050, text=»* TO INCREASE THE PRINTING SPEED IN THE SHB-PROJECT FOR «, t00=0x000c, t01=0x016c}
0x1464…14a4 Head {h00=0x003c, h01=0x0050, text=»* LOCAL PRINTERS THE CONSTANT SHBDUM CAN BE SET TO 1. «, t00=0x000d, t01=0x001e}
0x14a4…14d0 Head {h00=0x0028, h01=0x0050, text=»* NOT ALLOWED FOR REMOTE PRINTERS.«, t00=0x000d, t01=0x005e}
0x14d0…14da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008a}
0x14da…14ec Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x000d, t01=0x0094}
0x14ec…1502 Head {h00=0x0012, h01=0x0050, text=»SHBDUM EQU X:H«, t00=0x000d, t01=0x00a6}
0x1502…1510 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00bc}
0x1510…151a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ca}
0x151a…1524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d4}
0x1524…153a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x00de}
0x153a…1550 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000d, t01=0x00f4}
0x1550…1566 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x010a}
0x1566…1570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0120}
0x1570…157a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x012a}
0x157a…15ac Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x000d, t01=0x0134}
0x15ac…15e2 Head {h00=0x0032, h01=0x0050, text=»PROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE«, t00=0x000d, t01=0x0166}
0x15e2…15ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000c}
0x15ec…15f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0016}
0x15f6…162a Head {h00=0x0030, h01=0x0050, text=»VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST«, t00=0x000e, t01=0x0020}
0x162a…1660 Head {h00=0x0032, h01=0x0050, text=»EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. «, t00=0x000e, t01=0x0054}
0x1660…16a4 Head {h00=0x0040, h01=0x0050, text=»VOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED «, t00=0x000e, t01=0x008a}
0x16a4…16dc Head {h00=0x0034, h01=0x0050, text=»MESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN«, t00=0x000e, t01=0x00ce}
0x16dc…16e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0106}
0x16e6…170e Head {h00=0x0024, h01=0x0050, text=»STX EQU /82 START OF TEXT BLOCK «, t00=0x000e, t01=0x0110}
0x170e…1734 Head {h00=0x0022, h01=0x0050, text=»ETB EQU /97 END OF TEXT BLOCK «, t00=0x000e, t01=0x0138}
0x1734…1752 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000e, t01=0x015e}
0x1752…1782 Head {h00=0x002c, h01=0x0050, text=»REMOT EQU /01 RESET PRINT BUFFER REMOTE «, t00=0x000e, t01=0x017c}
0x1782…17b0 Head {h00=0x002a, h01=0x0050, text=»TAB EQU /11 TABULATION CHAR IN BUFFER «, t00=0x000f, t01=0x001c}
0x17b0…17d4 Head {h00=0x0020, h01=0x0050, text=»CR1 EQU /0D CR JOURNAL TAPE «, t00=0x000f, t01=0x004a}
0x17d4…17f8 Head {h00=0x0020, h01=0x0050, text=»LF1 EQU /18 LF JOURNAL TAPE «, t00=0x000f, t01=0x006e}
0x17f8…182a Head {h00=0x002e, h01=0x0050, text=»CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK«, t00=0x000f, t01=0x0092}
0x182a…184c Head {h00=0x001e, h01=0x0050, text=»LF2 EQU /19 LF TALLY ROLL «, t00=0x000f, t01=0x00c4}
0x184c…1874 Head {h00=0x0024, h01=0x0050, text=»LDO EQU /0B LIFT DOWN 1 POSITION«, t00=0x000f, t01=0x00e6}
0x1874…189c Head {h00=0x0024, h01=0x0050, text=»LUP EQU /0A LIFT UP ONE POSITION«, t00=0x000f, t01=0x010e}
0x189c…18c4 Head {h00=0x0024, h01=0x0050, text=»LFF EQU /0C LIFT TO TOP POSITION«, t00=0x000f, t01=0x0136}
0x18c4…18fe Head {h00=0x0036, h01=0x0050, text=»GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK«, t00=0x000f, t01=0x015e}
0x18fe…192a Head {h00=0x0028, h01=0x0050, text=»REL EQU /1B RELEASE VOUCHER/PASSBOOK«, t00=0x0010, t01=0x0008}
0x192a…1950 Head {h00=0x0022, h01=0x0050, text=»APH EQU /1D ATTACH PRINT HEAD «, t00=0x0010, t01=0x0034}
0x1950…1976 Head {h00=0x0022, h01=0x0050, text=»RPH EQU /1E RETURN PRINT HEAD «, t00=0x0010, t01=0x005a}
0x1976…19ae Head {h00=0x0034, h01=0x0050, text=»TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE «, t00=0x0010, t01=0x0080}
0x19ae…19b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b8}
0x19b8…19c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c2}
0x19c2…19e0 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x00cc}
0x19e0…19fe Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0010, t01=0x00ea}
0x19fe…1a1c Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x0108}
0x1a1c…1a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0126}
0x1a26…1a48 Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /3 BYTE COUNTER «, t00=0x0010, t01=0x0130}
0x1a48…1a6a Head {h00=0x001e, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE «, t00=0x0010, t01=0x0152}
0x1a6a…1a96 Head {h00=0x0028, h01=0x0050, text=»DWTRLN EQU /22 REQUESTED LINE NUMBER«, t00=0x0010, t01=0x0174}
0x1a96…1ac0 Head {h00=0x0026, h01=0x0050, text=»DWTALN EQU /23 ACTUAL LINE NUMBER «, t00=0x0011, t01=0x0010}
0x1ac0…1aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003a}
0x1aca…1ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0044}
0x1ad4…1af2 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0011, t01=0x004e}
0x1af2…1b10 Head {h00=0x001a, h01=0x0050, text=»* ECB-DISPLACEMENTS * «, t00=0x0011, t01=0x006c}
0x1b10…1b2e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0011, t01=0x008a}
0x1b2e…1b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a8}
0x1b38…1b62 Head {h00=0x0026, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS IN ECB «, t00=0x0011, t01=0x00b2}
0x1b62…1b8e Head {h00=0x0028, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH IN ECB «, t00=0x0011, t01=0x00dc}
0x1b8e…1bba Head {h00=0x0028, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH IN ECB «, t00=0x0011, t01=0x0108}
0x1bba…1be0 Head {h00=0x0022, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE IN ECB«, t00=0x0011, t01=0x0134}
0x1be0…1c08 Head {h00=0x0024, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD IN ECB«, t00=0x0011, t01=0x015a}
0x1c08…1c16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0182}
0x1c16…1c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0190}
0x1c20…1c34 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0012, t01=0x000a}
0x1c34…1c48 Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x0012, t01=0x001e}
0x1c48…1c5c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0012, t01=0x0032}
0x1c5c…1c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0046}
0x1c66…1c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0050}
0x1c70…1c9a Head {h00=0x0026, h01=0x0050, text=»BUF1 DATA /0382,/0D1D STX,CR1,APH «, t00=0x0012, t01=0x005a}
0x1c9a…1cb0 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0012, t01=0x0084}
0x1cb0…1ccc Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0382 STX «, t00=0x0012, t01=0x009a}
0x1ccc…1cd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00b6}
0x1cd8…1cee Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0012, t01=0x00c2}
0x1cee…1d0a Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0482 STX «, t00=0x0012, t01=0x00d8}
0x1d0a…1d16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00f4}
0x1d16…1d3e Head {h00=0x0024, h01=0x0050, text=» DATA /091D,/2000 CR2,APH,SPACE «, t00=0x0012, t01=0x0100}
0x1d3e…1d68 Head {h00=0x0026, h01=0x0050, text=»BUF3 DATA /0382,/091D STX,CR2,APH «, t00=0x0012, t01=0x0128}
0x1d68…1d8e Head {h00=0x0022, h01=0x0050, text=»BUF5 DATA /021B,/8300 REL,ETX «, t00=0x0012, t01=0x0152}
0x1d8e…1d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0178}
0x1d98…1da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0182}
0x1da2…1dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018c}
0x1dac…1dbe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0008}
0x1dbe…1dd0 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x001a}
0x1dd0…1de2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x002c}
0x1de2…1dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003e}
0x1dec…1df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0048}
0x1df6…1e16 Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x0052}
0x1e16…1e3a Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x0013, t01=0x0072}
0x1e3a…1e5e Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x0013, t01=0x0096}
0x1e5e…1e82 Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0013, t01=0x00ba}
0x1e82…1e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00de}
0x1e8c…1eb4 Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x0013, t01=0x00e8}
0x1eb4…1ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0110}
0x1ebe…1ed2 Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0013, t01=0x011a}
0x1ed2…1efe Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2627,/3B3C,/3E40,/5E5F «, t00=0x0013, t01=0x012e}
0x1efe…1f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x015a}
0x1f08…1f34 Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x0013, t01=0x0164}
0x1f34…1f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0190}
0x1f3e…1f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000a}
0x1f48…1f5c Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x0014, t01=0x0014}
0x1f5c…1f8c Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x0014, t01=0x0028}
0x1f8c…1f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0058}
0x1f96…1fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0062}
0x1fa0…1fb6 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x006c}
0x1fb6…1ff4 Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x0014, t01=0x0082}
0x1ff4…2000 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00c0}
0x2000…2020 Head {h00=0x001c, h01=0x0050, text=»TPTAB EQU * ORDER TABLE «, t00=0x0014, t01=0x00cc}
0x2020…2040 Head {h00=0x001c, h01=0x0050, text=» DATA /0002,/0607,/080D «, t00=0x0014, t01=0x00ec}
0x2040…2056 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x010c}
0x2056…206a Head {h00=0x0010, h01=0x0050, text=» DATA /2226 «, t00=0x0014, t01=0x0122}
0x206a…2076 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0136}
0x2076…208a Head {h00=0x0010, h01=0x0050, text=» DATA /393A «, t00=0x0014, t01=0x0142}
0x208a…20a4 Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0014, t01=0x0156}
0x20a4…20b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0170}
0x20b2…20bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017e}
0x20bc…20c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0188}
0x20c6…20da (21, 0, 398) Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0015, t01=0x0004}
0x20da…20e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0018}
0x20e4…211a Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0015, t01=0x0022}
0x211a…215c Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0015, t01=0x0058}
0x215c…2166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009a}
0x2166…2170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a4}
0x2170…217a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ae}
0x217a…219e Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0015, t01=0x00b8}
0x219e…21a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00dc}
0x21a8…21b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e6}
0x21b2…21f2 Head {h00=0x003c, h01=0x0050, text=»* GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK «, t00=0x0015, t01=0x00f0}
0x21f2…2218 Head {h00=0x0022, h01=0x0050, text=» LC A1,DWTOR,A6 GET DWT INDEX «, t00=0x0015, t01=0x0130}
0x2218…222e Head {h00=0x0012, h01=0x0050, text=» ANK A1,7 MASK«, t00=0x0015, t01=0x0156}
0x222e…2258 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 ADD DWT INDEX TO ORDER «, t00=0x0015, t01=0x016c}
0x2258…2288 Head {h00=0x002c, h01=0x0050, text=» SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT «, t00=0x0016, t01=0x0008}
0x2288…22a4 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ACTIVATION«, t00=0x0016, t01=0x0038}
0x22a4…22c2 Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0016, t01=0x0054}
0x22c2…22f8 Head {h00=0x0032, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER «, t00=0x0016, t01=0x0072}
0x22f8…231a Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0016, t01=0x00a8}
0x231a…232c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x00ca}
0x232c…234c Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0016, t01=0x00dc}
0x234c…2356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fc}
0x2356…2378 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0016, t01=0x0106}
0x2378…2382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0128}
0x2382…238c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0132}
0x238c…23a0 Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x0016, t01=0x013c}
0x23a0…23ca Head {h00=0x0026, h01=0x0050, text=» SC A4,DWTBC,A6 RESET BYTE COUNTER«, t00=0x0016, t01=0x0150}
0x23ca…23e6 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x0016, t01=0x017a}
0x23e6…240a Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x0017, t01=0x0008}
0x240a…2444 Head {h00=0x0036, h01=0x0050, text=»TPFUC DATA TPDUMY,TPDUMY,TP200,TP405,ACT055,ACT050«, t00=0x0017, t01=0x002c}
0x2444…245a Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0017, t01=0x0066}
0x245a…2474 Head {h00=0x0016, h01=0x0050, text=» DATA TP700,TP750 «, t00=0x0017, t01=0x007c}
0x2474…2480 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0096}
0x2480…249a Head {h00=0x0016, h01=0x0050, text=» DATA TP800,TP900 «, t00=0x0017, t01=0x00a2}
0x249a…24a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00bc}
0x24a8…24b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ca}
0x24b2…24bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d4}
0x24bc…24ec Head {h00=0x002c, h01=0x0050, text=»* ORDER 06,0B: WRITE VOUCHER/PASSBOOK «, t00=0x0017, t01=0x00de}
0x24ec…252e Head {h00=0x003e, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x0017, t01=0x010e}
0x252e…2538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0150}
0x2538…2542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015a}
0x2542…254c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0164}
0x254c…2592 Head {h00=0x0042, h01=0x0050, text=»ACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB«, t00=0x0017, t01=0x016e}
0x2592…25a4 Head {h00=0x000e, h01=0x0050, text=» RF ACT085«, t00=0x0018, t01=0x0024}
0x25a4…25ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0036}
0x25ae…25de Head {h00=0x002c, h01=0x0050, text=»ACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0018, t01=0x0040}
0x25de…2608 Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x0018, t01=0x0070}
0x2608…2630 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF REQUESTED LINE STEPS«, t00=0x0018, t01=0x009a}
0x2630…2644 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/39 «, t00=0x0018, t01=0x00c2}
0x2644…2668 Head {h00=0x0020, h01=0x0050, text=» RF(G) ACT070 > /39 = ONE LF«, t00=0x0018, t01=0x00d6}
0x2668…267a Head {h00=0x000e, h01=0x0050, text=» ADK A3,/9«, t00=0x0018, t01=0x00fa}
0x267a…2690 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACT060«, t00=0x0018, t01=0x010c}
0x2690…26ae Head {h00=0x001a, h01=0x0050, text=» LDK A3,2 /30 = TWO LF«, t00=0x0018, t01=0x0122}
0x26ae…26c0 Head {h00=0x000e, h01=0x0050, text=» RF ACT080«, t00=0x0018, t01=0x0140}
0x26c0…26ec Head {h00=0x0028, h01=0x0050, text=»ACT060 RF(G) ACT080 /31-/39 = 1-9 LF«, t00=0x0018, t01=0x0152}
0x26ec…26fe Head {h00=0x000e, h01=0x0050, text=» ADK A3,/5«, t00=0x0018, t01=0x017e}
0x26fe…271e Head {h00=0x001c, h01=0x0050, text=» RF(Z) TP605 /2B = NO LF«, t00=0x0018, t01=0x0190}
0x271e…273c Head {h00=0x001a, h01=0x0050, text=»ACT070 LDK A3,1 ONE LF«, t00=0x0019, t01=0x0020}
0x273c…2774 Head {h00=0x0034, h01=0x0050, text=»ACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT «, t00=0x0019, t01=0x003e}
0x2774…27a2 Head {h00=0x002a, h01=0x0050, text=» SUR A1,A3 GET REQUESTED LINE POSITION«, t00=0x0019, t01=0x0076}
0x27a2…27d8 Head {h00=0x0032, h01=0x0050, text=»ACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ?«, t00=0x0019, t01=0x00a4}
0x27d8…2806 Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 YES; SET LINE POSITION ZERO «, t00=0x0019, t01=0x00da}
0x2806…2810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0108}
0x2810…2834 Head {h00=0x0020, h01=0x0050, text=»ACT090 LDR A4,A4 RECOVERY ? «, t00=0x0019, t01=0x0112}
0x2834…284e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TP605 YES «, t00=0x0019, t01=0x0136}
0x284e…2882 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTRLN,A6 SAVE REQUESTED LINE NUMBER «, t00=0x0019, t01=0x0150}
0x2882…2894 Head {h00=0x000e, h01=0x0050, text=» RF TP605 «, t00=0x0019, t01=0x0184}
0x2894…28a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0008}
0x28a2…28ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0016}
0x28ac…28b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0020}
0x28b6…28c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x002a}
0x28c0…28e4 Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x001a, t01=0x0034}
0x28e4…28ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x28ee…28f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0062}
0x28f8…2902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006c}
0x2902…2930 Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x001a, t01=0x0076}
0x2930…2944 Head {h00=0x0010, h01=0x0050, text=»TP210 EQU * «, t00=0x001a, t01=0x00a4}
0x2944…2978 Head {h00=0x0030, h01=0x0050, text=» LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD«, t00=0x001a, t01=0x00b8}
0x2978…29a0 Head {h00=0x0024, h01=0x0050, text=» ANK A1,4 TEXT MESSAGE WRITTEN ?«, t00=0x001a, t01=0x00ec}
0x29a0…29cc Head {h00=0x0028, h01=0x0050, text=» RF(NE) TP220 YES; COMPLETE REQUEST «, t00=0x001a, t01=0x0114}
0x29cc…29f8 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001a, t01=0x0140}
0x29f8…2a20 Head {h00=0x0024, h01=0x0050, text=» SUK A1,3 REQUESTED LENGTH 0-2 ?«, t00=0x001a, t01=0x016c}
0x2a20…2a4a (27, 0, 400) Head {h00=0x0026, h01=0x0050, text=» RF(N) TP230 YES; COMPLETE REQUEST«, t00=0x001b, t01=0x0004}
0x2a4a…2a5e Head {h00=0x0010, h01=0x0050, text=» RF(P) TP215«, t00=0x001b, t01=0x002e}
0x2a5e…2a80 Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001b, t01=0x0042}
0x2a80…2aa4 Head {h00=0x0020, h01=0x0050, text=» LC A2,2,A1 THIRD CHARACTER «, t00=0x001b, t01=0x0064}
0x2aa4…2acc Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 CONTROL CHARACTER «, t00=0x001b, t01=0x0088}
0x2acc…2ae2 Head {h00=0x0012, h01=0x0050, text=» RF(NL) TP215 «, t00=0x001b, t01=0x00b0}
0x2ae2…2af8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001b, t01=0x00c6}
0x2af8…2b0a Head {h00=0x000e, h01=0x0050, text=» RF TP220 «, t00=0x001b, t01=0x00dc}
0x2b0a…2b1e Head {h00=0x0010, h01=0x0050, text=»TP215 EQU * «, t00=0x001b, t01=0x00ee}
0x2b1e…2b40 Head {h00=0x001e, h01=0x0050, text=» CF A5,BUFCHR SEND BUFFER «, t00=0x001b, t01=0x0102}
0x2b40…2b66 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x001b, t01=0x0124}
0x2b66…2b7a Head {h00=0x0010, h01=0x0050, text=»TP220 EQU * «, t00=0x001b, t01=0x014a}
0x2b7a…2b8c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001b, t01=0x015e}
0x2b8c…2bc6 Head {h00=0x0036, h01=0x0050, text=»TP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED «, t00=0x001b, t01=0x0170}
0x2bc6…2bde Head {h00=0x0014, h01=0x0050, text=» ANS A2,DWTST,A6«, t00=0x001c, t01=0x001a}
0x2bde…2bec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0032}
0x2bec…2bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0040}
0x2bf6…2c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x004a}
0x2c00…2c22 Head {h00=0x001e, h01=0x0050, text=»* ECB-BUFFER IS WRITTEN «, t00=0x001c, t01=0x0054}
0x2c22…2c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0076}
0x2c2c…2c5a Head {h00=0x002a, h01=0x0050, text=»* SEND LINE FEED IF JOURNAL OR TALLY«, t00=0x001c, t01=0x0080}
0x2c5a…2c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ae}
0x2c64…2c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b8}
0x2c6e…2c80 Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x001c, t01=0x00c2}
0x2c80…2c92 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001c, t01=0x00d4}
0x2c92…2ca8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) TPLF10«, t00=0x001c, t01=0x00e6}
0x2ca8…2cce Head {h00=0x0022, h01=0x0050, text=» LDK A2,RPH DETACH PRINT HEAD «, t00=0x001c, t01=0x00fc}
0x2cce…2ce8 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001c, t01=0x0122}
0x2ce8…2cfe Head {h00=0x0012, h01=0x0050, text=» IFT SHBDUM=1 «, t00=0x001c, t01=0x013c}
0x2cfe…2d2c Head {h00=0x002a, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED«, t00=0x001c, t01=0x0152}
0x2d2c…2d44 Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x001c, t01=0x0180}
0x2d44…2d50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0008}
0x2d50…2d64 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x001d, t01=0x0014}
0x2d64…2d76 Head {h00=0x000e, h01=0x0050, text=» SUK A7,8 «, t00=0x001d, t01=0x0028}
0x2d76…2da2 Head {h00=0x0028, h01=0x0050, text=» RF(NN) TPL010 NOT JOURNAL AND TALLY«, t00=0x001d, t01=0x003a}
0x2da2…2dc4 Head {h00=0x001e, h01=0x0050, text=» ADK A7,2 GET INDEX TABLE «, t00=0x001d, t01=0x0066}
0x2dc4…2dec Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x001d, t01=0x0088}
0x2dec…2e10 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND LF CHAR. «, t00=0x001d, t01=0x00b0}
0x2e10…2e42 Head {h00=0x002e, h01=0x0050, text=»TPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001d, t01=0x00d4}
0x2e42…2e70 Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x001d, t01=0x0106}
0x2e70…2e7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0134}
0x2e7e…2e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0142}
0x2e88…2e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014c}
0x2e92…2eb2 Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x001d, t01=0x0156}
0x2eb2…2ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0176}
0x2ebc…2ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0180}
0x2ec6…2eec Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x001d, t01=0x018a}
0x2eec…2ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0020}
0x2ef6…2f0a Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x001e, t01=0x002a}
0x2f0a…2f1e Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x001e, t01=0x003e}
0x2f1e…2f34 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001e, t01=0x0052}
0x2f34…2f42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0068}
0x2f42…2f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0076}
0x2f4c…2f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0080}
0x2f56…2f8a Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x001e, t01=0x008a}
0x2f8a…2f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00be}
0x2f94…2fa8 Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x001e, t01=0x00c8}
0x2fa8…2fda Head {h00=0x002e, h01=0x0050, text=» SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?«, t00=0x001e, t01=0x00dc}
0x2fda…2ff4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x001e, t01=0x010e}
0x2ff4…301c Head {h00=0x0024, h01=0x0050, text=»TST005 ANK A2,VOIN VOUCHER OUT ?«, t00=0x001e, t01=0x0128}
0x301c…3034 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) ENDIO NO«, t00=0x001e, t01=0x0150}
0x3034…304a Head {h00=0x0012, h01=0x0050, text=» RF TST015 YES«, t00=0x001e, t01=0x0168}
0x304a…3054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x017e}
0x3054…306c Head {h00=0x0014, h01=0x0050, text=»TST010 SUK A7,4 «, t00=0x001e, t01=0x0188}
0x306c…3082 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x001f, t01=0x0010}
0x3082…30b0 Head {h00=0x002a, h01=0x0050, text=» RF(G) ENDIO NOT TEST STATUS, JOURNAL «, t00=0x001f, t01=0x0026}
0x30b0…30bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0054}
0x30bc…30d2 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x001f, t01=0x0060}
0x30d2…3100 Head {h00=0x002a, h01=0x0050, text=» RF(G) TST020 NOT TEST STATUS, JOURNAL«, t00=0x001f, t01=0x0076}
0x3100…3114 Head {h00=0x0010, h01=0x0050, text=»TST012 EQU *«, t00=0x001f, t01=0x00a4}
0x3114…3120 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00b8}
0x3120…314a Head {h00=0x0026, h01=0x0050, text=» ANK A2,EOJT END OF JOURNAL TAPE? «, t00=0x001f, t01=0x00c4}
0x314a…3172 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ENDIO NO: PERFORM ENDIO «, t00=0x001f, t01=0x00ee}
0x3172…319e Head {h00=0x0028, h01=0x0050, text=»TST015 ORK A1,PROUT SET RETURN CODE:«, t00=0x001f, t01=0x0116}
0x319e…31ca Head {h00=0x0028, h01=0x0050, text=» END OF JOURNAL TAPE, VOUCHER OUT «, t00=0x001f, t01=0x0142}
0x31ca…31d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x016e}
0x31d4…31de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0178}
0x31de…320e Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x001f, t01=0x0182}
0x320e…3218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0022}
0x3218…322c Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0020, t01=0x002c}
0x322c…3264 Head {h00=0x0034, h01=0x0050, text=» ABL DISEND PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0020, t01=0x0040}
0x3264…326e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0078}
0x326e…3278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0082}
0x3278…3282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x008c}
0x3282…328c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0096}
0x328c…32a2 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0020, t01=0x00a0}
0x32a2…32ba Head {h00=0x0014, h01=0x0050, text=»TST020 SUK A7,16«, t00=0x0020, t01=0x00b6}
0x32ba…32e0 Head {h00=0x0022, h01=0x0050, text=» RB(L) ENDIO VOUCHER/PASSBOOK «, t00=0x0020, t01=0x00ce}
0x32e0…32f2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0020, t01=0x00f4}
0x32f2…3314 Head {h00=0x001e, h01=0x0050, text=» RB(G) ENDIO GRASP,RELEASE«, t00=0x0020, t01=0x0106}
0x3314…3334 Head {h00=0x001c, h01=0x0050, text=» RB TST012 CUT,PERFORATE«, t00=0x0020, t01=0x0128}
0x3334…3340 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0148}
0x3340…334e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0154}
0x334e…3358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0162}
0x3358…3362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016c}
0x3362…336c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0176}
0x336c…3394 Head {h00=0x0024, h01=0x0050, text=»* ORDER 06 : PRINT TALLY ROLL «, t00=0x0020, t01=0x0180}
0x3394…339e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0018}
0x339e…33a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0022}
0x33a8…33b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x002c}
0x33b2…33de Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x0021, t01=0x0036}
0x33de…33e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0062}
0x33e8…3416 Head {h00=0x002a, h01=0x0050, text=»TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH«, t00=0x0021, t01=0x006c}
0x3416…342a Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x0021, t01=0x009a}
0x342a…3440 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,VOCHA«, t00=0x0021, t01=0x00ae}
0x3440…3484 Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x0021, t01=0x00c4}
0x3484…3496 Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x0021, t01=0x0108}
0x3496…34a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x011a}
0x34a0…34ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0124}
0x34ae…34b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0132}
0x34b8…34c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013c}
0x34c2…34cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0146}
0x34cc…34fa Head {h00=0x002a, h01=0x0050, text=»* ORDER 06 : WRITE VOUCHER/PASSBOOK«, t00=0x0021, t01=0x0150}
0x34fa…3528 Head {h00=0x002a, h01=0x0050, text=»* OB : POSITION LIFT AND WRITE«, t00=0x0021, t01=0x017e}
0x3528…3532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001c}
0x3532…353c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0026}
0x353c…3564 Head {h00=0x0024, h01=0x0050, text=»TP605 CF A5,GRASP GRASP VOUCHER «, t00=0x0022, t01=0x0030}
0x3564…3572 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0058}
0x3572…357c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0066}
0x357c…3586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0070}
0x3586…35b4 Head {h00=0x002a, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL«, t00=0x0022, t01=0x007a}
0x35b4…35de Head {h00=0x0026, h01=0x0050, text=»* LINE NUMBER IS EQUAL REQUESTED«, t00=0x0022, t01=0x00a8}
0x35de…35e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d2}
0x35e8…35f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00dc}
0x35f2…3624 Head {h00=0x002e, h01=0x0050, text=»TP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER «, t00=0x0022, t01=0x00e6}
0x3624…363e Head {h00=0x0016, h01=0x0050, text=» RF(E) TP650 EQUAL«, t00=0x0022, t01=0x0118}
0x363e…3664 Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x0022, t01=0x0132}
0x3664…368a Head {h00=0x0022, h01=0x0050, text=» LDK A2,LDO SEND ELEVATOR DOWN«, t00=0x0022, t01=0x0158}
0x368a…36b8 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0022, t01=0x017e}
0x36b8…36ca Head {h00=0x000e, h01=0x0050, text=» RF TP640 «, t00=0x0023, t01=0x001c}
0x36ca…36f4 Head {h00=0x0026, h01=0x0050, text=»TP630 LDK A2,LUP SEND ELEVATOR UP «, t00=0x0023, t01=0x002e}
0x36f4…3722 Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LINE NUMBER«, t00=0x0023, t01=0x0058}
0x3722…372c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0086}
0x372c…3756 Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR «, t00=0x0023, t01=0x0090}
0x3756…3760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ba}
0x3760…3790 Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x0023, t01=0x00c4}
0x3790…37b2 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0023, t01=0x00f4}
0x37b2…37c6 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0023, t01=0x0116}
0x37c6…37f0 Head {h00=0x0026, h01=0x0050, text=» ABL(Z) RCTP01 NO: ERROR RECOVERY «, t00=0x0023, t01=0x012a}
0x37f0…3820 Head {h00=0x002c, h01=0x0050, text=» RB TP610 YES: CHECK IF LIFT POSITIONED«, t00=0x0023, t01=0x0154}
0x3820…382c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0184}
0x382c…3840 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0023, t01=0x0190}
0x3840…3876 Head {h00=0x0032, h01=0x0050, text=» RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED«, t00=0x0024, t01=0x0014}
0x3876…389e Head {h00=0x0024, h01=0x0050, text=»TP645 LDK A1,PROUT 'VOUCHER OUT'«, t00=0x0024, t01=0x004a}
0x389e…38ce Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 INDICATE IN RETURN CODE«, t00=0x0024, t01=0x0072}
0x38ce…38e0 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0024, t01=0x00a2}
0x38e0…38ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00b4}
0x38ec…38fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00c0}
0x38fa…3904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ce}
0x3904…390e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d8}
0x390e…393e Head {h00=0x002c, h01=0x0050, text=»* ORDER 06 AND 0B: LIFT IS POSITIONED «, t00=0x0024, t01=0x00e2}
0x393e…396c Head {h00=0x002a, h01=0x0050, text=»* ATTACH AND PRINT «, t00=0x0024, t01=0x0112}
0x396c…3976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0140}
0x3976…3980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014a}
0x3980…3994 Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0024, t01=0x0154}
0x3994…39be Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF2 SEND CR2 AND ATTACH «, t00=0x0024, t01=0x0168}
0x39be…39e0 (37, 0, 398) Head {h00=0x001e, h01=0x0050, text=» RB TP410 PRINT ECB-BUFFER«, t00=0x0025, t01=0x0004}
0x39e0…39ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0026}
0x39ee…3a04 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0025, t01=0x0034}
0x3a04…3a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x004a}
0x3a0e…3a46 Head {h00=0x0034, h01=0x0050, text=»* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL «, t00=0x0025, t01=0x0054}
0x3a46…3a50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008c}
0x3a50…3a64 Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0025, t01=0x0096}
0x3a64…3a80 Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 SET INDEX «, t00=0x0025, t01=0x00aa}
0x3a80…3a92 Head {h00=0x000e, h01=0x0050, text=» RF TP760 «, t00=0x0025, t01=0x00c6}
0x3a92…3aa6 Head {h00=0x0010, h01=0x0050, text=»TP750 EQU * «, t00=0x0025, t01=0x00d8}
0x3aa6…3ac2 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 SET INDEX «, t00=0x0025, t01=0x00ec}
0x3ac2…3ae8 Head {h00=0x0022, h01=0x0050, text=»TP760 LC A2,CPTAB,A1 GET CHAR «, t00=0x0025, t01=0x0108}
0x3ae8…3b02 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0025, t01=0x012e}
0x3b02…3b20 Head {h00=0x001a, h01=0x0050, text=» LDK A2,LF1 LINE FEED «, t00=0x0025, t01=0x0148}
0x3b20…3b3a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0025, t01=0x0166}
0x3b3a…3b4c Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0025, t01=0x0180}
0x3b4c…3b58 (38, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0004}
0x3b58…3b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0010}
0x3b62…3ba2 Head {h00=0x003c, h01=0x0050, text=»* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK«, t00=0x0026, t01=0x001a}
0x3ba2…3bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005a}
0x3bac…3bc0 Head {h00=0x0010, h01=0x0050, text=»TP800 EQU * «, t00=0x0026, t01=0x0064}
0x3bc0…3bd6 Head {h00=0x0012, h01=0x0050, text=» CF A5,GRASPA «, t00=0x0026, t01=0x0078}
0x3bd6…3be8 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0026, t01=0x008e}
0x3be8…3bfc Head {h00=0x0010, h01=0x0050, text=»TP900 EQU * «, t00=0x0026, t01=0x00a0}
0x3bfc…3c12 Head {h00=0x0012, h01=0x0050, text=» CF A5,RELEAS «, t00=0x0026, t01=0x00b4}
0x3c12…3c24 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0026, t01=0x00ca}
0x3c24…3c2c Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x00dc}
0x3c2c…3c3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00e4}
0x3c3a…3c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f2}
0x3c44…3c5a Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x0026, t01=0x00fc}
0x3c5a…3c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0112}
0x3c64…3cae Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x0026, t01=0x011c}
0x3cae…3ccc Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x0026, t01=0x0166}
0x3ccc…3cd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0184}
0x3cd6…3d08 Head {h00=0x002e, h01=0x0050, text=»PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH «, t00=0x0026, t01=0x018e}
0x3d08…3d32 Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x0027, t01=0x0030}
0x3d32…3d58 Head {h00=0x0022, h01=0x0050, text=» LD A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x0027, t01=0x005a}
0x3d58…3d84 Head {h00=0x0028, h01=0x0050, text=»* SKIP PRECEDING SPACES IN BUFFER «, t00=0x0027, t01=0x0080}
0x3d84…3d96 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0027, t01=0x00ac}
0x3d96…3dbc Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x0027, t01=0x00be}
0x3dbc…3dd2 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x0027, t01=0x00e4}
0x3dd2…3df2 Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB050 NOT BLANK«, t00=0x0027, t01=0x00fa}
0x3df2…3e0a Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x0027, t01=0x011a}
0x3e0a…3e1c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0027, t01=0x0132}
0x3e1c…3e42 Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x0027, t01=0x0144}
0x3e42…3e84 Head {h00=0x003e, h01=0x0050, text=»* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER «, t00=0x0027, t01=0x016a}
0x3e84…3eac Head {h00=0x0024, h01=0x0050, text=»PRB050 LDR A1,A3 GET ADDRESS TO «, t00=0x0028, t01=0x001c}
0x3eac…3ed8 Head {h00=0x0028, h01=0x0050, text=» ADR A1,A4 LAST CHARACTER IN BUFFER «, t00=0x0028, t01=0x0044}
0x3ed8…3ef6 Head {h00=0x001a, h01=0x0050, text=» LC A1,-1,A1 GET CHAR «, t00=0x0028, t01=0x0070}
0x3ef6…3f24 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0909 CARRIAGE RETURN - CR2 ? «, t00=0x0028, t01=0x008e}
0x3f24…3f3e Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x0028, t01=0x00bc}
0x3f3e…3f6c Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0D0D CARRIAGE RETURN - CR1 ? «, t00=0x0028, t01=0x00d6}
0x3f6c…3f86 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x0028, t01=0x0104}
0x3f86…3fa8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 DUMMY CHARACTER «, t00=0x0028, t01=0x011e}
0x3fa8…3fba Head {h00=0x000e, h01=0x0050, text=» RF PRB070«, t00=0x0028, t01=0x0140}
0x3fba…3fec Head {h00=0x002e, h01=0x0050, text=»PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x0028, t01=0x0152}
0x3fec…401c Head {h00=0x002c, h01=0x0050, text=»PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB «, t00=0x0028, t01=0x0184}
0x401c…4026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0024}
0x4026…4030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002e}
0x4030…4062 Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x0029, t01=0x0038}
0x4062…4086 Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x0029, t01=0x006a}
0x4086…40c0 Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D)«, t00=0x0029, t01=0x008e}
0x40c0…40d6 Head {h00=0x0012, h01=0x0050, text=» RF(E) PRB101 «, t00=0x0029, t01=0x00c8}
0x40d6…40f6 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND CHAR «, t00=0x0029, t01=0x00de}
0x40f6…410a Head {h00=0x0010, h01=0x0050, text=»PRB101 EQU *«, t00=0x0029, t01=0x00fe}
0x410a…411e Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETB «, t00=0x0029, t01=0x0112}
0x411e…4148 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT SEND END OF MESSAGE «, t00=0x0029, t01=0x0126}
0x4148…415e Head {h00=0x0012, h01=0x0050, text=» IFT SHBDUM=0 «, t00=0x0029, t01=0x0150}
0x415e…4172 Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x0029, t01=0x0166}
0x4172…41ac Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED «, t00=0x0029, t01=0x017a}
0x41ac…41da Head {h00=0x002a, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED«, t00=0x002a, t01=0x0024}
0x41da…41f2 Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x002a, t01=0x0052}
0x41f2…41fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x006a}
0x41fe…4214 Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x002a, t01=0x0076}
0x4214…4222 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x008c}
0x4222…422c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x009a}
0x422c…4236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a4}
0x4236…4240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ae}
0x4240…4258 Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x002a, t01=0x00b8}
0x4258…4262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d0}
0x4262…426c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00da}
0x426c…4280 Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x002a, t01=0x00e4}
0x4280…42b6 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x002a, t01=0x00f8}
0x42b6…42d4 Head {h00=0x001a, h01=0x0050, text=» SUK A7,7 CHECK ORDER «, t00=0x002a, t01=0x012e}
0x42d4…42f8 Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x002a, t01=0x014c}
0x42f8…431c Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x002a, t01=0x0170}
0x431c…432a (43, 0, 398) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0004}
0x432a…4334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0012}
0x4334…433e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001c}
0x433e…4348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0026}
0x4348…4364 Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x002b, t01=0x0030}
0x4364…436e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x004c}
0x436e…4378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0056}
0x4378…4382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0060}
0x4382…43a4 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x002b, t01=0x006a}
0x43a4…43ca Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x002b, t01=0x008c}
0x43ca…43f0 Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x002b, t01=0x00b2}
0x43f0…441e Head {h00=0x002a, h01=0x0050, text=» RB TP405 SEND LIFT TO TOP AND RELEAS «, t00=0x002b, t01=0x00d8}
0x441e…4428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0106}
0x4428…4432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0110}
0x4432…443c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x011a}
0x443c…445e Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x002b, t01=0x0124}
0x445e…4468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0146}
0x4468…4472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0150}
0x4472…449a Head {h00=0x0024, h01=0x0050, text=»PRB110 ANK A2,VOIN VOUCHER IN ? «, t00=0x002b, t01=0x015a}
0x449a…44ae Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x002b, t01=0x0182}
0x44ae…44da Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP01 ERROR .VOUCHER NOT IN «, t00=0x002c, t01=0x0008}
0x44da…44e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0034}
0x44e6…44fa Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x002c, t01=0x0040}
0x44fa…450e Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x002c, t01=0x0054}
0x450e…451a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0068}
0x451a…4542 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 COPY REQUESTED LENGTH«, t00=0x002c, t01=0x0074}
0x4542…455e Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 R.L. < 3? «, t00=0x002c, t01=0x009c}
0x455e…4586 Head {h00=0x0024, h01=0x0050, text=» RF(N) PRB200 YES: NO TABULATION«, t00=0x002c, t01=0x00b8}
0x4586…459a Head {h00=0x0010, h01=0x0050, text=» LDK A1,TAB «, t00=0x002c, t01=0x00e0}
0x459a…45ba Head {h00=0x001c, h01=0x0050, text=» CC A1,-2,A3 TABULATION?«, t00=0x002c, t01=0x00f4}
0x45ba…45d4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x002c, t01=0x0114}
0x45d4…45e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x012e}
0x45e2…45ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x013c}
0x45ec…45f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0146}
0x45f6…462e Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x002c, t01=0x0150}
0x462e…466e Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x002c, t01=0x0188}
0x466e…4690 Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x002d, t01=0x0038}
0x4690…469a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005a}
0x469a…46a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0064}
0x46a4…46d0 Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,RPH DETACH PRINT HEAD «, t00=0x002d, t01=0x006e}
0x46d0…46f2 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x002d, t01=0x009a}
0x46f2…4722 Head {h00=0x002c, h01=0x0050, text=»PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR «, t00=0x002d, t01=0x00bc}
0x4722…474a Head {h00=0x0024, h01=0x0050, text=» LCR A1,A3 GET 2ND TAB POS CHAR «, t00=0x002d, t01=0x00ec}
0x474a…4766 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x002d, t01=0x0114}
0x4766…4778 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x002d, t01=0x0130}
0x4778…4798 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/F0 LINE DECADE «, t00=0x002d, t01=0x0142}
0x4798…47be Head {h00=0x0022, h01=0x0050, text=» ORR A1,A2 DECIMAL LINE NUMBER«, t00=0x002d, t01=0x0162}
0x47be…47e6 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x002d, t01=0x0188}
0x47e6…4818 Head {h00=0x002e, h01=0x0050, text=»PRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x002e, t01=0x0020}
0x4818…484e Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. «, t00=0x002e, t01=0x0052}
0x484e…486a Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x002e, t01=0x0088}
0x486a…4874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a4}
0x4874…487e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ae}
0x487e…4888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b8}
0x4888…48a6 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x002e, t01=0x00c2}
0x48a6…48d2 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x002e, t01=0x00e0}
0x48d2…48e4 Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x002e, t01=0x010c}
0x48e4…48ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x011e}
0x48ee…48f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0128}
0x48f8…4902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0132}
0x4902…4934 Head {h00=0x002e, h01=0x0050, text=»PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH«, t00=0x002e, t01=0x013c}
0x4934…495e Head {h00=0x0026, h01=0x0050, text=» SUK A3,2 DECREMENT BUFFER ADDRESS«, t00=0x002e, t01=0x016e}
0x495e…4978 Head {h00=0x0016, h01=0x0050, text=» LDK A2,APH ATTACH«, t00=0x002f, t01=0x0008}
0x4978…4996 Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x002f, t01=0x0022}
0x4996…49a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0040}
0x49a4…49ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x004e}
0x49ae…49b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0058}
0x49b8…49c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0062}
0x49c2…49f8 Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x002f, t01=0x006c}
0x49f8…4a14 Head {h00=0x0018, h01=0x0050, text=»* - ROOMLESS POINT«, t00=0x002f, t01=0x00a2}
0x4a14…4a34 Head {h00=0x001c, h01=0x0050, text=»* - ILLEGAL CHARACTER «, t00=0x002f, t01=0x00be}
0x4a34…4a5e Head {h00=0x0026, h01=0x0050, text=»* - SPECIAL CHARACTER (/13,/14) «, t00=0x002f, t01=0x00de}
0x4a5e…4a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0108}
0x4a68…4a7c Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x002f, t01=0x0112}
0x4a7c…4aaa Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x002f, t01=0x0126}
0x4aaa…4ad0 Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x002f, t01=0x0154}
0x4ad0…4aea Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x002f, t01=0x017a}
0x4aea…4b14 (48, 0, 400) Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER POINTER«, t00=0x0030, t01=0x0004}
0x4b14…4b26 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0030, t01=0x002e}
0x4b26…4b4e Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x0030, t01=0x0040}
0x4b4e…4b66 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x0030, t01=0x0068}
0x4b66…4b90 Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x0030, t01=0x0080}
0x4b90…4b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00aa}
0x4b9a…4ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b4}
0x4ba4…4bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00be}
0x4bae…4bde Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x0030, t01=0x00c8}
0x4bde…4bf8 Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB225 YES «, t00=0x0030, t01=0x00f8}
0x4bf8…4c28 Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x0030, t01=0x0112}
0x4c28…4c42 Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x0030, t01=0x0142}
0x4c42…4c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015c}
0x4c4c…4c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0166}
0x4c56…4c6a Head {h00=0x0010, h01=0x0050, text=»PRB225 EQU *«, t00=0x0030, t01=0x0170}
0x4c6a…4c7e Head {h00=0x0010, h01=0x0050, text=» IFT CHR13=1«, t00=0x0030, t01=0x0184}
0x4c7e…4ca8 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x0031, t01=0x0008}
0x4ca8…4cc2 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0031, t01=0x0032}
0x4cc2…4cce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x004c}
0x4cce…4ce2 Head {h00=0x0010, h01=0x0050, text=» IFT CHR14=1«, t00=0x0031, t01=0x0058}
0x4ce2…4d0c Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x0031, t01=0x006c}
0x4d0c…4d26 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0031, t01=0x0096}
0x4d26…4d32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00b0}
0x4d32…4d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00bc}
0x4d3c…4d62 Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x0031, t01=0x00c6}
0x4d62…4d90 Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 STORE IN RETURN CODE «, t00=0x0031, t01=0x00ec}
0x4d90…4db2 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0031, t01=0x011a}
0x4db2…4dc6 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0031, t01=0x013c}
0x4dc6…4dd8 Head {h00=0x000e, h01=0x0050, text=» RF PRB245«, t00=0x0031, t01=0x0150}
0x4dd8…4de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0162}
0x4de2…4dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x016c}
0x4dec…4df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0176}
0x4df6…4e28 Head {h00=0x002e, h01=0x0050, text=»PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0031, t01=0x0180}
0x4e28…4e50 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x0032, t01=0x0022}
0x4e50…4e7a Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x0032, t01=0x004a}
0x4e7a…4eaa Head {h00=0x002c, h01=0x0050, text=»PRB245 SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x0032, t01=0x0074}
0x4eaa…4ebc Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x0032, t01=0x00a4}
0x4ebc…4ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b6}
0x4ec6…4ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c0}
0x4ed0…4eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ca}
0x4eda…4ee8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00d4}
0x4ee8…4ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e2}
0x4ef2…4f06 Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x0032, t01=0x00ec}
0x4f06…4f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0100}
0x4f10…4f44 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0032, t01=0x010a}
0x4f44…4f4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x013e}
0x4f4e…4f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0148}
0x4f58…4f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0152}
0x4f62…4f74 Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x0032, t01=0x015c}
0x4f74…4f96 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x0032, t01=0x016e}
0x4f96…4fb4 Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP10 NOT BUSY«, t00=0x0032, t01=0x0190}
0x4fb4…4fdc Head {h00=0x0024, h01=0x0050, text=» LDR A7,A7 TEST STATUS;JOURNAL ?«, t00=0x0033, t01=0x001e}
0x4fdc…4ff6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IHTP20 YES «, t00=0x0033, t01=0x0046}
0x4ff6…5026 Head {h00=0x002c, h01=0x0050, text=» CWK A7,2 TEST STATUS;VOUCHER/PASSBOOK ?«, t00=0x0033, t01=0x0060}
0x5026…5040 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IHTP20 YES «, t00=0x0033, t01=0x0090}
0x5040…5070 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT«, t00=0x0033, t01=0x00aa}
0x5070…50ac Head {h00=0x0038, h01=0x0050, text=»IHTP10 ABL(Z) LDREG NO RETURN CODE RESTORE REGISTERS«, t00=0x0033, t01=0x00da}
0x50ac…50c2 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=0 «, t00=0x0033, t01=0x0116}
0x50c2…50ea Head {h00=0x0024, h01=0x0050, text=» RF RCTP10 ELSE GO TO DISPATCHER«, t00=0x0033, t01=0x012c}
0x50ea…50f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0154}
0x50f6…510c Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=1 «, t00=0x0033, t01=0x0160}
0x510c…511e Head {h00=0x000e, h01=0x0050, text=» RF IHTP30«, t00=0x0033, t01=0x0176}
0x511e…512a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0188}
0x512a…5142 (52, 0, 400) Head {h00=0x0014, h01=0x0050, text=»IHTP20 LDR A1,A1«, t00=0x0034, t01=0x0004}
0x5142…5158 Head {h00=0x0012, h01=0x0050, text=» ABL(Z) TPTST «, t00=0x0034, t01=0x001c}
0x5158…516c Head {h00=0x0010, h01=0x0050, text=»IHTP30 EQU *«, t00=0x0034, t01=0x0032}
0x516c…517e Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0034, t01=0x0046}
0x517e…5188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0058}
0x5188…5192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0062}
0x5192…519c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x006c}
0x519c…51aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0076}
0x51aa…51b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0084}
0x51b4…51c8 Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x0034, t01=0x008e}
0x51c8…51d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a2}
0x51d2…5214 Head {h00=0x003e, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON«, t00=0x0034, t01=0x00ac}
0x5214…521e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ee}
0x521e…5248 Head {h00=0x0026, h01=0x0050, text=»RCTP CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x0034, t01=0x00f8}
0x5248…526a Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 GET STATUS«, t00=0x0034, t01=0x0122}
0x526a…5288 Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP05 NOT BUSY«, t00=0x0034, t01=0x0144}
0x5288…5292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0162}
0x5292…52ba Head {h00=0x0024, h01=0x0050, text=»RCTP01 LDKL A5,DWTSB2 STACK BASE«, t00=0x0034, t01=0x016c}
0x52ba…52cc (53, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0035, t01=0x0004}
0x52cc…530c Head {h00=0x003c, h01=0x0050, text=» LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x0035, t01=0x0016}
0x530c…532c Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0035, t01=0x0056}
0x532c…5340 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0035, t01=0x0076}
0x5340…5362 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 STATUS CHANGE ?«, t00=0x0035, t01=0x008a}
0x5362…5378 Head {h00=0x0012, h01=0x0050, text=» ABL(NE) TP645«, t00=0x0035, t01=0x00ac}
0x5378…5384 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00c2}
0x5384…5398 Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x0035, t01=0x00ce}
0x5398…53aa Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0035, t01=0x00e2}
0x53aa…53e0 Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x0035, t01=0x00f4}
0x53e0…5400 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0035, t01=0x012a}
0x5400…5416 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0035, t01=0x014a}
0x5416…542a Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x0035, t01=0x0160}
0x542a…5450 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/80 INDICATE POWER OFF«, t00=0x0035, t01=0x0174}
0x5450…5474 Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x0036, t01=0x000a}
0x5474…5480 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x002e}
0x5480…549e Head {h00=0x001a, h01=0x0050, text=» LDK A4,1 IND RECOVERY«, t00=0x0036, t01=0x003a}
0x549e…54cc Head {h00=0x002a, h01=0x0050, text=» ABL ACT005 START RECOVERY OF PRINTER «, t00=0x0036, t01=0x0058}
0x54cc…54f6 Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL TDISP GO TO DISPATCHER «, t00=0x0036, t01=0x0086}
0x54f6…5504 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00b0}
0x5504…550e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00be}
0x550e…5526 Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x0036, t01=0x00c8}
0x5526…5530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e0}
0x5530…5568 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x0036, t01=0x00ea}
0x5568…5572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0122}
0x5572…557c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x012c}
0x557c…5586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0136}
0x5586…55b8 Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 «, t00=0x0036, t01=0x0140}
0x55b8…55d2 Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x0036, t01=0x0172}
0x55d2…55ec Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x0036, t01=0x018c}
0x55ec…560c Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x0037, t01=0x0016}
0x560c…5620 Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x0037, t01=0x0036}
0x5620…5646 Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x0037, t01=0x004a}
0x5646…5650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0070}
0x5650…565a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x007a}
0x565a…5664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0084}
0x5664…566e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x008e}
0x566e…5678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0098}
0x5678…568e Head {h00=0x0012, h01=0x0050, text=»* G R A S P «, t00=0x0037, t01=0x00a2}
0x568e…5698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b8}
0x5698…56d0 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK«, t00=0x0037, t01=0x00c2}
0x56d0…56da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00fa}
0x56da…56e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0104}
0x56e4…56f8 Head {h00=0x0010, h01=0x0050, text=»GRASPA EQU *«, t00=0x0037, t01=0x010e}
0x56f8…5718 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0037, t01=0x0122}
0x5718…572e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0037, t01=0x0142}
0x572e…5742 Head {h00=0x0010, h01=0x0050, text=»GRASP EQU * «, t00=0x0037, t01=0x0158}
0x5742…5754 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0037, t01=0x016c}
0x5754…576e Head {h00=0x0016, h01=0x0050, text=» LDK A2,GRA GRASP «, t00=0x0037, t01=0x017e}
0x576e…5784 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0038, t01=0x0008}
0x5784…57a6 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0038, t01=0x001e}
0x57a6…57c0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GRAS10 YES«, t00=0x0038, t01=0x0040}
0x57c0…57e6 Head {h00=0x0022, h01=0x0050, text=» LDK A2,TETX DUMMY AFTER GRASP«, t00=0x0038, t01=0x005a}
0x57e6…57fc Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0038, t01=0x0080}
0x57fc…581c Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0038, t01=0x0096}
0x581c…5832 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0038, t01=0x00b6}
0x5832…5842 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0038, t01=0x00cc}
0x5842…5860 Head {h00=0x001a, h01=0x0050, text=»GRAS10 LC A3,DWTALN,A6«, t00=0x0038, t01=0x00dc}
0x5860…5870 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0038, t01=0x00fa}
0x5870…587a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x010a}
0x587a…5884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0114}
0x5884…5892 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x011e}
0x5892…589c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x012c}
0x589c…58a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0136}
0x58a6…58be Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x0038, t01=0x0140}
0x58be…58c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0158}
0x58c8…58fe Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x0038, t01=0x0162}
0x58fe…5908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0008}
0x5908…5912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0012}
0x5912…591c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x001c}
0x591c…5930 Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x0039, t01=0x0026}
0x5930…5942 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0039, t01=0x003a}
0x5942…5976 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0«, t00=0x0039, t01=0x004c}
0x5976…59a2 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,BUF5 LIFT TO TOP AND RELEAS«, t00=0x0039, t01=0x0080}
0x59a2…59c2 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0039, t01=0x00ac}
0x59c2…59d8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0039, t01=0x00cc}
0x59d8…59fa Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0039, t01=0x00e2}
0x59fa…5a10 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BUFRTN «, t00=0x0039, t01=0x0104}
0x5a10…5a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x011a}
0x5a1a…5a32 Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x0039, t01=0x0124}
0x5a32…5a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x013c}
0x5a3c…5a7c Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x0039, t01=0x0146}
0x5a7c…5aa8 Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x0039, t01=0x0186}
0x5aa8…5ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0022}
0x5ab2…5abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x002c}
0x5abc…5af4 Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x003a, t01=0x0036}
0x5af4…5b0c Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x003a, t01=0x006e}
0x5b0c…5b3c Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x003a, t01=0x0086}
0x5b3c…5b64 Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x003a, t01=0x00b6}
0x5b64…5b88 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x003a, t01=0x00de}
0x5b88…5bac Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x003a, t01=0x0102}
0x5bac…5bd6 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x003a, t01=0x0126}
0x5bd6…5bea Head {h00=0x0010, h01=0x0050, text=»BUFRTN EQU *«, t00=0x003a, t01=0x0150}
0x5bea…5c0a Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x003a, t01=0x0164}
0x5c0a…5c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0184}
0x5c14…5c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x018e}
0x5c1e…5c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0008}
0x5c28…5c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0012}
0x5c32…5c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x001c}
0x5c3c…5c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0026}
0x5c46…5c52 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003b, t01=0x0030}
0x5c52…5c56 Head {h00=0x4004, h01=0x0000}
0x5c56…5c5a 00 3b 00 3c ┆ ; <┆
0x5c5a…5c62 (60, 1, 8) 20 04 00 00 00 3c 00 04 ┆ < ┆