|
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: 23662 (0x5c6e)
Notes: pts_type(SC)
Names: »DRTP02.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/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 X:A * * * JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY * SETTING X:B = 1 * * X:B EQU 0 CUTPER EQU X:B * * * SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 * AND X:D = 1 RESPECTIVLY * * X:C EQU 0 CHR13 EQU X:C * * X:D EQU 0 CHR14 EQU X:D * * * PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF * PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 * * X:E EQU 0 COMPL EQU X:E 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 X:F * * 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,/2426,/3B3C,/3E40,/5E5F * * TABLE TO GET ACTUAL LF-CHARACTER * * LFTAB EQU * DATA /1819 LINE FEED JOURNAL/TALLY ROLL * * IFT CUTPER=1 CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE XIF TPTAB EQU * ORDER TABLE DATA /0002,/0607,/080D IFT CUTPER=1 DATA /2226 XIF DATA /393A TPLEN EQU *-TPTAB EJECT * * * A C T P * * THIS IS THE ACTIVATION PART OF THE DRIVER * CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR * * * ACTP EQU * ACTIVATION ENTRY * * * GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK LC A1,DWTOR,A6 GET DWT INDEX ANK A1,7 MASK ADR A7,A1 ADD DWT INDEX TO ORDER SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT LDK A4,0 ACTIVATION ACT005 LDK A3,TPLEN-1 ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER RF(E) ACT020 VALID ORDER SUK A3,1 RB(NN) ACT010 TRY NEXT * ABL 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…109e Head {h00=0x0012, h01=0x0050, text=»RECOV EQU X:A «, t00=0x000a, t01=0x00ee}
0x109e…10a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0104}
0x10a8…10b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010e}
0x10b2…10f0 Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x000a, t01=0x0118}
0x10f0…110c Head {h00=0x0018, h01=0x0050, text=»* SETTING X:B = 1 «, t00=0x000a, t01=0x0156}
0x110c…1116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0172}
0x1116…1120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017c}
0x1120…1132 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x0186}
0x1132…1148 Head {h00=0x0012, h01=0x0050, text=»CUTPER EQU X:B«, t00=0x000b, t01=0x0008}
0x1148…1152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001e}
0x1152…115c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0028}
0x115c…11a2 Head {h00=0x0042, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 «, t00=0x000b, t01=0x0032}
0x11a2…11c6 Head {h00=0x0020, h01=0x0050, text=»* AND X:D = 1 RESPECTIVLY «, t00=0x000b, t01=0x0078}
0x11c6…11d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009c}
0x11d0…11da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a6}
0x11da…11ec Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000b, t01=0x00b0}
0x11ec…1202 Head {h00=0x0012, h01=0x0050, text=»CHR13 EQU X:C «, t00=0x000b, t01=0x00c2}
0x1202…120c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d8}
0x120c…1216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e2}
0x1216…1228 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000b, t01=0x00ec}
0x1228…123e Head {h00=0x0012, h01=0x0050, text=»CHR14 EQU X:D «, t00=0x000b, t01=0x00fe}
0x123e…1248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0114}
0x1248…1252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011e}
0x1252…1288 Head {h00=0x0032, h01=0x0050, text=»* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF«, t00=0x000b, t01=0x0128}
0x1288…12c6 Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000b, t01=0x015e}
0x12c6…12d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000c}
0x12d0…12da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0016}
0x12da…12ec Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000c, t01=0x0020}
0x12ec…1302 Head {h00=0x0012, h01=0x0050, text=»COMPL EQU X:E «, t00=0x000c, t01=0x0032}
0x1302…1310 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0048}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0056}
0x131a…1324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0060}
0x1324…1366 Head {h00=0x003e, h01=0x0050, text=»* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT «, t00=0x000c, t01=0x006a}
0x1366…13a6 Head {h00=0x003c, h01=0x0050, text=»* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING «, t00=0x000c, t01=0x00ac}
0x13a6…13e8 Head {h00=0x003e, h01=0x0050, text=»* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET«, t00=0x000c, t01=0x00ec}
0x13e8…13f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012e}
0x13f2…13fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fc…140e Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000c, t01=0x0142}
0x140e…1424 Head {h00=0x0012, h01=0x0050, text=»RELEND EQU X:F«, t00=0x000c, t01=0x0154}
0x1424…142e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016a}
0x142e…1470 Head {h00=0x003e, h01=0x0050, text=»* TO INCREASE THE PRINTING SPEED IN THE SHB-PROJECT FOR «, t00=0x000c, t01=0x0174}
0x1470…14b0 Head {h00=0x003c, h01=0x0050, text=»* LOCAL PRINTERS THE CONSTANT SHBDUM CAN BE SET TO 1. «, t00=0x000d, t01=0x0026}
0x14b0…14dc Head {h00=0x0028, h01=0x0050, text=»* NOT ALLOWED FOR REMOTE PRINTERS.«, t00=0x000d, t01=0x0066}
0x14dc…14e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0092}
0x14e6…14f8 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x000d, t01=0x009c}
0x14f8…150e Head {h00=0x0012, h01=0x0050, text=»SHBDUM EQU X:H«, t00=0x000d, t01=0x00ae}
0x150e…151c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00c4}
0x151c…1526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d2}
0x1526…1530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00dc}
0x1530…1546 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x00e6}
0x1546…155c Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000d, t01=0x00fc}
0x155c…1572 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x0112}
0x1572…157c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0128}
0x157c…1586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0132}
0x1586…15b8 Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x000d, t01=0x013c}
0x15b8…15ee Head {h00=0x0032, h01=0x0050, text=»PROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE«, t00=0x000d, t01=0x016e}
0x15ee…15f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0014}
0x15f8…1602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001e}
0x1602…1636 Head {h00=0x0030, h01=0x0050, text=»VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST«, t00=0x000e, t01=0x0028}
0x1636…166c Head {h00=0x0032, h01=0x0050, text=»EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. «, t00=0x000e, t01=0x005c}
0x166c…16b0 Head {h00=0x0040, h01=0x0050, text=»VOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED «, t00=0x000e, t01=0x0092}
0x16b0…16e8 Head {h00=0x0034, h01=0x0050, text=»MESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN«, t00=0x000e, t01=0x00d6}
0x16e8…16f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010e}
0x16f2…171a Head {h00=0x0024, h01=0x0050, text=»STX EQU /82 START OF TEXT BLOCK «, t00=0x000e, t01=0x0118}
0x171a…1740 Head {h00=0x0022, h01=0x0050, text=»ETB EQU /97 END OF TEXT BLOCK «, t00=0x000e, t01=0x0140}
0x1740…175e Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000e, t01=0x0166}
0x175e…178e Head {h00=0x002c, h01=0x0050, text=»REMOT EQU /01 RESET PRINT BUFFER REMOTE «, t00=0x000e, t01=0x0184}
0x178e…17bc Head {h00=0x002a, h01=0x0050, text=»TAB EQU /11 TABULATION CHAR IN BUFFER «, t00=0x000f, t01=0x0024}
0x17bc…17e0 Head {h00=0x0020, h01=0x0050, text=»CR1 EQU /0D CR JOURNAL TAPE «, t00=0x000f, t01=0x0052}
0x17e0…1804 Head {h00=0x0020, h01=0x0050, text=»LF1 EQU /18 LF JOURNAL TAPE «, t00=0x000f, t01=0x0076}
0x1804…1836 Head {h00=0x002e, h01=0x0050, text=»CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK«, t00=0x000f, t01=0x009a}
0x1836…1858 Head {h00=0x001e, h01=0x0050, text=»LF2 EQU /19 LF TALLY ROLL «, t00=0x000f, t01=0x00cc}
0x1858…1880 Head {h00=0x0024, h01=0x0050, text=»LDO EQU /0B LIFT DOWN 1 POSITION«, t00=0x000f, t01=0x00ee}
0x1880…18a8 Head {h00=0x0024, h01=0x0050, text=»LUP EQU /0A LIFT UP ONE POSITION«, t00=0x000f, t01=0x0116}
0x18a8…18d0 Head {h00=0x0024, h01=0x0050, text=»LFF EQU /0C LIFT TO TOP POSITION«, t00=0x000f, t01=0x013e}
0x18d0…190a Head {h00=0x0036, h01=0x0050, text=»GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK«, t00=0x000f, t01=0x0166}
0x190a…1936 Head {h00=0x0028, h01=0x0050, text=»REL EQU /1B RELEASE VOUCHER/PASSBOOK«, t00=0x0010, t01=0x0010}
0x1936…195c Head {h00=0x0022, h01=0x0050, text=»APH EQU /1D ATTACH PRINT HEAD «, t00=0x0010, t01=0x003c}
0x195c…1982 Head {h00=0x0022, h01=0x0050, text=»RPH EQU /1E RETURN PRINT HEAD «, t00=0x0010, t01=0x0062}
0x1982…19ba Head {h00=0x0034, h01=0x0050, text=»TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE «, t00=0x0010, t01=0x0088}
0x19ba…19c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c0}
0x19c4…19ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ca}
0x19ce…19ec Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x00d4}
0x19ec…1a0a Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0010, t01=0x00f2}
0x1a0a…1a28 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x0110}
0x1a28…1a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012e}
0x1a32…1a54 Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /3 BYTE COUNTER «, t00=0x0010, t01=0x0138}
0x1a54…1a76 Head {h00=0x001e, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE «, t00=0x0010, t01=0x015a}
0x1a76…1aa2 Head {h00=0x0028, h01=0x0050, text=»DWTRLN EQU /22 REQUESTED LINE NUMBER«, t00=0x0010, t01=0x017c}
0x1aa2…1acc Head {h00=0x0026, h01=0x0050, text=»DWTALN EQU /23 ACTUAL LINE NUMBER «, t00=0x0011, t01=0x0018}
0x1acc…1ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0042}
0x1ad6…1ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004c}
0x1ae0…1afe Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0011, t01=0x0056}
0x1afe…1b1c Head {h00=0x001a, h01=0x0050, text=»* ECB-DISPLACEMENTS * «, t00=0x0011, t01=0x0074}
0x1b1c…1b3a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0011, t01=0x0092}
0x1b3a…1b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b0}
0x1b44…1b6e Head {h00=0x0026, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS IN ECB «, t00=0x0011, t01=0x00ba}
0x1b6e…1b9a Head {h00=0x0028, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH IN ECB «, t00=0x0011, t01=0x00e4}
0x1b9a…1bc6 Head {h00=0x0028, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH IN ECB «, t00=0x0011, t01=0x0110}
0x1bc6…1bec Head {h00=0x0022, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE IN ECB«, t00=0x0011, t01=0x013c}
0x1bec…1c14 Head {h00=0x0024, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD IN ECB«, t00=0x0011, t01=0x0162}
0x1c14…1c22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x018a}
0x1c22…1c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c2c…1c40 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0012, t01=0x0012}
0x1c40…1c54 Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x0012, t01=0x0026}
0x1c54…1c68 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0012, t01=0x003a}
0x1c68…1c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x004e}
0x1c72…1c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0058}
0x1c7c…1ca6 Head {h00=0x0026, h01=0x0050, text=»BUF1 DATA /0382,/0D1D STX,CR1,APH «, t00=0x0012, t01=0x0062}
0x1ca6…1cbc Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0012, t01=0x008c}
0x1cbc…1cd8 Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0382 STX «, t00=0x0012, t01=0x00a2}
0x1cd8…1ce4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00be}
0x1ce4…1cfa Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0012, t01=0x00ca}
0x1cfa…1d16 Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0482 STX «, t00=0x0012, t01=0x00e0}
0x1d16…1d22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00fc}
0x1d22…1d4a Head {h00=0x0024, h01=0x0050, text=» DATA /091D,/2000 CR2,APH,SPACE «, t00=0x0012, t01=0x0108}
0x1d4a…1d74 Head {h00=0x0026, h01=0x0050, text=»BUF3 DATA /0382,/091D STX,CR2,APH «, t00=0x0012, t01=0x0130}
0x1d74…1d9a Head {h00=0x0022, h01=0x0050, text=»BUF5 DATA /021B,/8300 REL,ETX «, t00=0x0012, t01=0x015a}
0x1d9a…1da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0180}
0x1da4…1dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1dae…1db8 (19, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0004}
0x1db8…1dca Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x000e}
0x1dca…1ddc Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x0020}
0x1ddc…1dee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0032}
0x1dee…1df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0044}
0x1df8…1e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004e}
0x1e02…1e22 Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x0058}
0x1e22…1e46 Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x0013, t01=0x0078}
0x1e46…1e6a Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x0013, t01=0x009c}
0x1e6a…1e8e Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0013, t01=0x00c0}
0x1e8e…1e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e4}
0x1e98…1ec0 Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x0013, t01=0x00ee}
0x1ec0…1eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0116}
0x1eca…1ede Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0013, t01=0x0120}
0x1ede…1f0a Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0013, t01=0x0134}
0x1f0a…1f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0160}
0x1f14…1f40 Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x0013, t01=0x016a}
0x1f40…1f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0008}
0x1f4a…1f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0012}
0x1f54…1f68 Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x0014, t01=0x001c}
0x1f68…1f98 Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x0014, t01=0x0030}
0x1f98…1fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0060}
0x1fa2…1fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006a}
0x1fac…1fc2 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x0074}
0x1fc2…2000 Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x0014, t01=0x008a}
0x2000…200c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00c8}
0x200c…202c Head {h00=0x001c, h01=0x0050, text=»TPTAB EQU * ORDER TABLE «, t00=0x0014, t01=0x00d4}
0x202c…204c Head {h00=0x001c, h01=0x0050, text=» DATA /0002,/0607,/080D «, t00=0x0014, t01=0x00f4}
0x204c…2062 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x0114}
0x2062…2076 Head {h00=0x0010, h01=0x0050, text=» DATA /2226 «, t00=0x0014, t01=0x012a}
0x2076…2082 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x013e}
0x2082…2096 Head {h00=0x0010, h01=0x0050, text=» DATA /393A «, t00=0x0014, t01=0x014a}
0x2096…20b0 Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0014, t01=0x015e}
0x20b0…20be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0178}
0x20be…20c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0186}
0x20c8…20d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0190}
0x20d2…20e6 Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0015, t01=0x000a}
0x20e6…20f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001e}
0x20f0…2126 Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0015, t01=0x0028}
0x2126…2168 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0015, t01=0x005e}
0x2168…2172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2172…217c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00aa}
0x217c…2186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b4}
0x2186…21aa Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0015, t01=0x00be}
0x21aa…21b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e2}
0x21b4…21be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ec}
0x21be…21fe Head {h00=0x003c, h01=0x0050, text=»* GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK «, t00=0x0015, t01=0x00f6}
0x21fe…2224 Head {h00=0x0022, h01=0x0050, text=» LC A1,DWTOR,A6 GET DWT INDEX «, t00=0x0015, t01=0x0136}
0x2224…223a Head {h00=0x0012, h01=0x0050, text=» ANK A1,7 MASK«, t00=0x0015, t01=0x015c}
0x223a…2264 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 ADD DWT INDEX TO ORDER «, t00=0x0015, t01=0x0172}
0x2264…2294 Head {h00=0x002c, h01=0x0050, text=» SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT «, t00=0x0016, t01=0x000c}
0x2294…22b0 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ACTIVATION«, t00=0x0016, t01=0x003c}
0x22b0…22ce Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0016, t01=0x0058}
0x22ce…2304 Head {h00=0x0032, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER «, t00=0x0016, t01=0x0076}
0x2304…2326 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0016, t01=0x00ac}
0x2326…2338 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x00ce}
0x2338…2358 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0016, t01=0x00e0}
0x2358…2362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0100}
0x2362…2384 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0016, t01=0x010a}
0x2384…238e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x012c}
0x238e…2398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0136}
0x2398…23ac Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x0016, t01=0x0140}
0x23ac…23d6 Head {h00=0x0026, h01=0x0050, text=» SC A4,DWTBC,A6 RESET BYTE COUNTER«, t00=0x0016, t01=0x0154}
0x23d6…23f2 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x0016, t01=0x017e}
0x23f2…2416 Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x0017, t01=0x000a}
0x2416…2450 Head {h00=0x0036, h01=0x0050, text=»TPFUC DATA TPDUMY,TPDUMY,TP200,TP405,ACT055,ACT050«, t00=0x0017, t01=0x002e}
0x2450…2466 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0017, t01=0x0068}
0x2466…2480 Head {h00=0x0016, h01=0x0050, text=» DATA TP700,TP750 «, t00=0x0017, t01=0x007e}
0x2480…248c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0098}
0x248c…24a6 Head {h00=0x0016, h01=0x0050, text=» DATA TP800,TP900 «, t00=0x0017, t01=0x00a4}
0x24a6…24b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00be}
0x24b4…24be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00cc}
0x24be…24c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d6}
0x24c8…24f8 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06,0B: WRITE VOUCHER/PASSBOOK «, t00=0x0017, t01=0x00e0}
0x24f8…253a Head {h00=0x003e, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x0017, t01=0x0110}
0x253a…2544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0152}
0x2544…254e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015c}
0x254e…2558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0166}
0x2558…259e Head {h00=0x0042, h01=0x0050, text=»ACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB«, t00=0x0017, t01=0x0170}
0x259e…25b0 Head {h00=0x000e, h01=0x0050, text=» RF ACT085«, t00=0x0018, t01=0x0026}
0x25b0…25ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0038}
0x25ba…25ea Head {h00=0x002c, h01=0x0050, text=»ACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0018, t01=0x0042}
0x25ea…2614 Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x0018, t01=0x0072}
0x2614…263c Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF REQUESTED LINE STEPS«, t00=0x0018, t01=0x009c}
0x263c…2650 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/39 «, t00=0x0018, t01=0x00c4}
0x2650…2674 Head {h00=0x0020, h01=0x0050, text=» RF(G) ACT070 > /39 = ONE LF«, t00=0x0018, t01=0x00d8}
0x2674…2686 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/9«, t00=0x0018, t01=0x00fc}
0x2686…269c Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACT060«, t00=0x0018, t01=0x010e}
0x269c…26ba Head {h00=0x001a, h01=0x0050, text=» LDK A3,2 /30 = TWO LF«, t00=0x0018, t01=0x0124}
0x26ba…26cc Head {h00=0x000e, h01=0x0050, text=» RF ACT080«, t00=0x0018, t01=0x0142}
0x26cc…26f8 Head {h00=0x0028, h01=0x0050, text=»ACT060 RF(G) ACT080 /31-/39 = 1-9 LF«, t00=0x0018, t01=0x0154}
0x26f8…270a Head {h00=0x000e, h01=0x0050, text=» ADK A3,/5«, t00=0x0018, t01=0x0180}
0x270a…272a (25, 0, 400) Head {h00=0x001c, h01=0x0050, text=» RF(Z) TP605 /2B = NO LF«, t00=0x0019, t01=0x0004}
0x272a…2748 Head {h00=0x001a, h01=0x0050, text=»ACT070 LDK A3,1 ONE LF«, t00=0x0019, t01=0x0024}
0x2748…2780 Head {h00=0x0034, h01=0x0050, text=»ACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT «, t00=0x0019, t01=0x0042}
0x2780…27ae Head {h00=0x002a, h01=0x0050, text=» SUR A1,A3 GET REQUESTED LINE POSITION«, t00=0x0019, t01=0x007a}
0x27ae…27e4 Head {h00=0x0032, h01=0x0050, text=»ACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ?«, t00=0x0019, t01=0x00a8}
0x27e4…2812 Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 YES; SET LINE POSITION ZERO «, t00=0x0019, t01=0x00de}
0x2812…281c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x010c}
0x281c…2840 Head {h00=0x0020, h01=0x0050, text=»ACT090 LDR A4,A4 RECOVERY ? «, t00=0x0019, t01=0x0116}
0x2840…285a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TP605 YES «, t00=0x0019, t01=0x013a}
0x285a…288e Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTRLN,A6 SAVE REQUESTED LINE NUMBER «, t00=0x0019, t01=0x0154}
0x288e…28a0 Head {h00=0x000e, h01=0x0050, text=» RF TP605 «, t00=0x0019, t01=0x0188}
0x28a0…28ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x000a}
0x28ae…28b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0018}
0x28b8…28c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0022}
0x28c2…28cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x002c}
0x28cc…28f0 Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x001a, t01=0x0036}
0x28f0…28fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005a}
0x28fa…2904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0064}
0x2904…290e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x290e…293c Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x001a, t01=0x0078}
0x293c…2950 Head {h00=0x0010, h01=0x0050, text=»TP210 EQU * «, t00=0x001a, t01=0x00a6}
0x2950…2984 Head {h00=0x0030, h01=0x0050, text=» LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD«, t00=0x001a, t01=0x00ba}
0x2984…29ac Head {h00=0x0024, h01=0x0050, text=» ANK A1,4 TEXT MESSAGE WRITTEN ?«, t00=0x001a, t01=0x00ee}
0x29ac…29d8 Head {h00=0x0028, h01=0x0050, text=» RF(NE) TP220 YES; COMPLETE REQUEST «, t00=0x001a, t01=0x0116}
0x29d8…2a04 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001a, t01=0x0142}
0x2a04…2a2c Head {h00=0x0024, h01=0x0050, text=» SUK A1,3 REQUESTED LENGTH 0-2 ?«, t00=0x001a, t01=0x016e}
0x2a2c…2a56 Head {h00=0x0026, h01=0x0050, text=» RF(N) TP230 YES; COMPLETE REQUEST«, t00=0x001b, t01=0x0008}
0x2a56…2a6a Head {h00=0x0010, h01=0x0050, text=» RF(P) TP215«, t00=0x001b, t01=0x0032}
0x2a6a…2a8c Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001b, t01=0x0046}
0x2a8c…2ab0 Head {h00=0x0020, h01=0x0050, text=» LC A2,2,A1 THIRD CHARACTER «, t00=0x001b, t01=0x0068}
0x2ab0…2ad8 Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 CONTROL CHARACTER «, t00=0x001b, t01=0x008c}
0x2ad8…2aee Head {h00=0x0012, h01=0x0050, text=» RF(NL) TP215 «, t00=0x001b, t01=0x00b4}
0x2aee…2b04 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001b, t01=0x00ca}
0x2b04…2b16 Head {h00=0x000e, h01=0x0050, text=» RF TP220 «, t00=0x001b, t01=0x00e0}
0x2b16…2b2a Head {h00=0x0010, h01=0x0050, text=»TP215 EQU * «, t00=0x001b, t01=0x00f2}
0x2b2a…2b4c Head {h00=0x001e, h01=0x0050, text=» CF A5,BUFCHR SEND BUFFER «, t00=0x001b, t01=0x0106}
0x2b4c…2b72 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x001b, t01=0x0128}
0x2b72…2b86 Head {h00=0x0010, h01=0x0050, text=»TP220 EQU * «, t00=0x001b, t01=0x014e}
0x2b86…2b98 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001b, t01=0x0162}
0x2b98…2bd2 Head {h00=0x0036, h01=0x0050, text=»TP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED «, t00=0x001b, t01=0x0174}
0x2bd2…2bea Head {h00=0x0014, h01=0x0050, text=» ANS A2,DWTST,A6«, t00=0x001c, t01=0x001e}
0x2bea…2bf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0036}
0x2bf8…2c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0044}
0x2c02…2c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x004e}
0x2c0c…2c2e Head {h00=0x001e, h01=0x0050, text=»* ECB-BUFFER IS WRITTEN «, t00=0x001c, t01=0x0058}
0x2c2e…2c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x007a}
0x2c38…2c66 Head {h00=0x002a, h01=0x0050, text=»* SEND LINE FEED IF JOURNAL OR TALLY«, t00=0x001c, t01=0x0084}
0x2c66…2c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b2}
0x2c70…2c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00bc}
0x2c7a…2c8c Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x001c, t01=0x00c6}
0x2c8c…2c9e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001c, t01=0x00d8}
0x2c9e…2cb4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) TPLF10«, t00=0x001c, t01=0x00ea}
0x2cb4…2cda Head {h00=0x0022, h01=0x0050, text=» LDK A2,RPH DETACH PRINT HEAD «, t00=0x001c, t01=0x0100}
0x2cda…2cf4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001c, t01=0x0126}
0x2cf4…2d0a Head {h00=0x0012, h01=0x0050, text=» IFT SHBDUM=1 «, t00=0x001c, t01=0x0140}
0x2d0a…2d38 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED«, t00=0x001c, t01=0x0156}
0x2d38…2d50 Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x001c, t01=0x0184}
0x2d50…2d5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x000c}
0x2d5c…2d70 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x001d, t01=0x0018}
0x2d70…2d82 Head {h00=0x000e, h01=0x0050, text=» SUK A7,8 «, t00=0x001d, t01=0x002c}
0x2d82…2dae Head {h00=0x0028, h01=0x0050, text=» RF(NN) TPL010 NOT JOURNAL AND TALLY«, t00=0x001d, t01=0x003e}
0x2dae…2dd0 Head {h00=0x001e, h01=0x0050, text=» ADK A7,2 GET INDEX TABLE «, t00=0x001d, t01=0x006a}
0x2dd0…2df8 Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x001d, t01=0x008c}
0x2df8…2e1c Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND LF CHAR. «, t00=0x001d, t01=0x00b4}
0x2e1c…2e4e Head {h00=0x002e, h01=0x0050, text=»TPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001d, t01=0x00d8}
0x2e4e…2e7c Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x001d, t01=0x010a}
0x2e7c…2e8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0138}
0x2e8a…2e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0146}
0x2e94…2e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0150}
0x2e9e…2ebe Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x001d, t01=0x015a}
0x2ebe…2ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x017a}
0x2ec8…2ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0184}
0x2ed2…2ef8 Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x001d, t01=0x018e}
0x2ef8…2f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0024}
0x2f02…2f16 Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x001e, t01=0x002e}
0x2f16…2f2a Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x001e, t01=0x0042}
0x2f2a…2f40 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001e, t01=0x0056}
0x2f40…2f4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x006c}
0x2f4e…2f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007a}
0x2f58…2f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0084}
0x2f62…2f96 Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x001e, t01=0x008e}
0x2f96…2fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c2}
0x2fa0…2fb4 Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x001e, t01=0x00cc}
0x2fb4…2fe6 Head {h00=0x002e, h01=0x0050, text=» SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?«, t00=0x001e, t01=0x00e0}
0x2fe6…3000 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x001e, t01=0x0112}
0x3000…3028 Head {h00=0x0024, h01=0x0050, text=»TST005 ANK A2,VOIN VOUCHER OUT ?«, t00=0x001e, t01=0x012c}
0x3028…3040 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) ENDIO NO«, t00=0x001e, t01=0x0154}
0x3040…3056 Head {h00=0x0012, h01=0x0050, text=» RF TST015 YES«, t00=0x001e, t01=0x016c}
0x3056…3060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0182}
0x3060…3078 Head {h00=0x0014, h01=0x0050, text=»TST010 SUK A7,4 «, t00=0x001e, t01=0x018c}
0x3078…308e Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x001f, t01=0x0014}
0x308e…30bc Head {h00=0x002a, h01=0x0050, text=» RF(G) ENDIO NOT TEST STATUS, JOURNAL «, t00=0x001f, t01=0x002a}
0x30bc…30c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0058}
0x30c8…30de Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x001f, t01=0x0064}
0x30de…310c Head {h00=0x002a, h01=0x0050, text=» RF(G) TST020 NOT TEST STATUS, JOURNAL«, t00=0x001f, t01=0x007a}
0x310c…3120 Head {h00=0x0010, h01=0x0050, text=»TST012 EQU *«, t00=0x001f, t01=0x00a8}
0x3120…312c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00bc}
0x312c…3156 Head {h00=0x0026, h01=0x0050, text=» ANK A2,EOJT END OF JOURNAL TAPE? «, t00=0x001f, t01=0x00c8}
0x3156…317e Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ENDIO NO: PERFORM ENDIO «, t00=0x001f, t01=0x00f2}
0x317e…31aa Head {h00=0x0028, h01=0x0050, text=»TST015 ORK A1,PROUT SET RETURN CODE:«, t00=0x001f, t01=0x011a}
0x31aa…31d6 Head {h00=0x0028, h01=0x0050, text=» END OF JOURNAL TAPE, VOUCHER OUT «, t00=0x001f, t01=0x0146}
0x31d6…31e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0172}
0x31e0…31ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017c}
0x31ea…321a Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x001f, t01=0x0186}
0x321a…3224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0026}
0x3224…3238 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0020, t01=0x0030}
0x3238…3270 Head {h00=0x0034, h01=0x0050, text=» ABL DISEND PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0020, t01=0x0044}
0x3270…327a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x007c}
0x327a…3284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0086}
0x3284…328e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0090}
0x328e…3298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x009a}
0x3298…32ae Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0020, t01=0x00a4}
0x32ae…32c6 Head {h00=0x0014, h01=0x0050, text=»TST020 SUK A7,16«, t00=0x0020, t01=0x00ba}
0x32c6…32ec Head {h00=0x0022, h01=0x0050, text=» RB(L) ENDIO VOUCHER/PASSBOOK «, t00=0x0020, t01=0x00d2}
0x32ec…32fe Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0020, t01=0x00f8}
0x32fe…3320 Head {h00=0x001e, h01=0x0050, text=» RB(G) ENDIO GRASP,RELEASE«, t00=0x0020, t01=0x010a}
0x3320…3340 Head {h00=0x001c, h01=0x0050, text=» RB TST012 CUT,PERFORATE«, t00=0x0020, t01=0x012c}
0x3340…334c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x014c}
0x334c…335a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0158}
0x335a…3364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0166}
0x3364…336e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0170}
0x336e…3378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017a}
0x3378…33a0 Head {h00=0x0024, h01=0x0050, text=»* ORDER 06 : PRINT TALLY ROLL «, t00=0x0020, t01=0x0184}
0x33a0…33aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x001c}
0x33aa…33b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0026}
0x33b4…33be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0030}
0x33be…33ea Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x0021, t01=0x003a}
0x33ea…33f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0066}
0x33f4…3422 Head {h00=0x002a, h01=0x0050, text=»TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH«, t00=0x0021, t01=0x0070}
0x3422…3436 Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x0021, t01=0x009e}
0x3436…344c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,VOCHA«, t00=0x0021, t01=0x00b2}
0x344c…3490 Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x0021, t01=0x00c8}
0x3490…34a2 Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x0021, t01=0x010c}
0x34a2…34ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x011e}
0x34ac…34ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0128}
0x34ba…34c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0136}
0x34c4…34ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0140}
0x34ce…34d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x014a}
0x34d8…3506 Head {h00=0x002a, h01=0x0050, text=»* ORDER 06 : WRITE VOUCHER/PASSBOOK«, t00=0x0021, t01=0x0154}
0x3506…3534 Head {h00=0x002a, h01=0x0050, text=»* OB : POSITION LIFT AND WRITE«, t00=0x0021, t01=0x0182}
0x3534…353e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0020}
0x353e…3548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002a}
0x3548…3570 Head {h00=0x0024, h01=0x0050, text=»TP605 CF A5,GRASP GRASP VOUCHER «, t00=0x0022, t01=0x0034}
0x3570…357e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x005c}
0x357e…3588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x006a}
0x3588…3592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0074}
0x3592…35c0 Head {h00=0x002a, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL«, t00=0x0022, t01=0x007e}
0x35c0…35ea Head {h00=0x0026, h01=0x0050, text=»* LINE NUMBER IS EQUAL REQUESTED«, t00=0x0022, t01=0x00ac}
0x35ea…35f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d6}
0x35f4…35fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e0}
0x35fe…3630 Head {h00=0x002e, h01=0x0050, text=»TP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER «, t00=0x0022, t01=0x00ea}
0x3630…364a Head {h00=0x0016, h01=0x0050, text=» RF(E) TP650 EQUAL«, t00=0x0022, t01=0x011c}
0x364a…3670 Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x0022, t01=0x0136}
0x3670…3696 Head {h00=0x0022, h01=0x0050, text=» LDK A2,LDO SEND ELEVATOR DOWN«, t00=0x0022, t01=0x015c}
0x3696…36c4 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0022, t01=0x0182}
0x36c4…36d6 Head {h00=0x000e, h01=0x0050, text=» RF TP640 «, t00=0x0023, t01=0x0020}
0x36d6…3700 Head {h00=0x0026, h01=0x0050, text=»TP630 LDK A2,LUP SEND ELEVATOR UP «, t00=0x0023, t01=0x0032}
0x3700…372e Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LINE NUMBER«, t00=0x0023, t01=0x005c}
0x372e…3738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x008a}
0x3738…3762 Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR «, t00=0x0023, t01=0x0094}
0x3762…376c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00be}
0x376c…379c Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x0023, t01=0x00c8}
0x379c…37be Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0023, t01=0x00f8}
0x37be…37d2 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0023, t01=0x011a}
0x37d2…37fc Head {h00=0x0026, h01=0x0050, text=» ABL(Z) RCTP01 NO: ERROR RECOVERY «, t00=0x0023, t01=0x012e}
0x37fc…382c Head {h00=0x002c, h01=0x0050, text=» RB TP610 YES: CHECK IF LIFT POSITIONED«, t00=0x0023, t01=0x0158}
0x382c…3838 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0188}
0x3838…384c (36, 0, 398) Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0024, t01=0x0004}
0x384c…3882 Head {h00=0x0032, h01=0x0050, text=» RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED«, t00=0x0024, t01=0x0018}
0x3882…38aa Head {h00=0x0024, h01=0x0050, text=»TP645 LDK A1,PROUT 'VOUCHER OUT'«, t00=0x0024, t01=0x004e}
0x38aa…38da Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 INDICATE IN RETURN CODE«, t00=0x0024, t01=0x0076}
0x38da…38ec Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0024, t01=0x00a6}
0x38ec…38f8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00b8}
0x38f8…3906 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00c4}
0x3906…3910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d2}
0x3910…391a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00dc}
0x391a…394a Head {h00=0x002c, h01=0x0050, text=»* ORDER 06 AND 0B: LIFT IS POSITIONED «, t00=0x0024, t01=0x00e6}
0x394a…3978 Head {h00=0x002a, h01=0x0050, text=»* ATTACH AND PRINT «, t00=0x0024, t01=0x0116}
0x3978…3982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0144}
0x3982…398c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014e}
0x398c…39a0 Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0024, t01=0x0158}
0x39a0…39ca Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF2 SEND CR2 AND ATTACH «, t00=0x0024, t01=0x016c}
0x39ca…39ec Head {h00=0x001e, h01=0x0050, text=» RB TP410 PRINT ECB-BUFFER«, t00=0x0025, t01=0x0008}
0x39ec…39fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x002a}
0x39fa…3a10 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0025, t01=0x0038}
0x3a10…3a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x004e}
0x3a1a…3a52 Head {h00=0x0034, h01=0x0050, text=»* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL «, t00=0x0025, t01=0x0058}
0x3a52…3a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0090}
0x3a5c…3a70 Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0025, t01=0x009a}
0x3a70…3a8c Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 SET INDEX «, t00=0x0025, t01=0x00ae}
0x3a8c…3a9e Head {h00=0x000e, h01=0x0050, text=» RF TP760 «, t00=0x0025, t01=0x00ca}
0x3a9e…3ab2 Head {h00=0x0010, h01=0x0050, text=»TP750 EQU * «, t00=0x0025, t01=0x00dc}
0x3ab2…3ace Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 SET INDEX «, t00=0x0025, t01=0x00f0}
0x3ace…3af4 Head {h00=0x0022, h01=0x0050, text=»TP760 LC A2,CPTAB,A1 GET CHAR «, t00=0x0025, t01=0x010c}
0x3af4…3b0e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0025, t01=0x0132}
0x3b0e…3b2c Head {h00=0x001a, h01=0x0050, text=» LDK A2,LF1 LINE FEED «, t00=0x0025, t01=0x014c}
0x3b2c…3b46 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0025, t01=0x016a}
0x3b46…3b58 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0025, t01=0x0184}
0x3b58…3b64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0008}
0x3b64…3b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0014}
0x3b6e…3bae Head {h00=0x003c, h01=0x0050, text=»* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK«, t00=0x0026, t01=0x001e}
0x3bae…3bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005e}
0x3bb8…3bcc Head {h00=0x0010, h01=0x0050, text=»TP800 EQU * «, t00=0x0026, t01=0x0068}
0x3bcc…3be2 Head {h00=0x0012, h01=0x0050, text=» CF A5,GRASPA «, t00=0x0026, t01=0x007c}
0x3be2…3bf4 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0026, t01=0x0092}
0x3bf4…3c08 Head {h00=0x0010, h01=0x0050, text=»TP900 EQU * «, t00=0x0026, t01=0x00a4}
0x3c08…3c1e Head {h00=0x0012, h01=0x0050, text=» CF A5,RELEAS «, t00=0x0026, t01=0x00b8}
0x3c1e…3c30 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0026, t01=0x00ce}
0x3c30…3c38 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x00e0}
0x3c38…3c46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00e8}
0x3c46…3c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f6}
0x3c50…3c66 Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x0026, t01=0x0100}
0x3c66…3c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0116}
0x3c70…3cba Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x0026, t01=0x0120}
0x3cba…3cd8 Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x0026, t01=0x016a}
0x3cd8…3ce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0188}
0x3ce2…3d14 (39, 0, 400) Head {h00=0x002e, h01=0x0050, text=»PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH «, t00=0x0027, t01=0x0004}
0x3d14…3d3e Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x0027, t01=0x0036}
0x3d3e…3d64 Head {h00=0x0022, h01=0x0050, text=» LD A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x0027, t01=0x0060}
0x3d64…3d90 Head {h00=0x0028, h01=0x0050, text=»* SKIP PRECEDING SPACES IN BUFFER «, t00=0x0027, t01=0x0086}
0x3d90…3da2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0027, t01=0x00b2}
0x3da2…3dc8 Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x0027, t01=0x00c4}
0x3dc8…3dde Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x0027, t01=0x00ea}
0x3dde…3dfe Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB050 NOT BLANK«, t00=0x0027, t01=0x0100}
0x3dfe…3e16 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x0027, t01=0x0120}
0x3e16…3e28 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0027, t01=0x0138}
0x3e28…3e4e Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x0027, t01=0x014a}
0x3e4e…3e90 Head {h00=0x003e, h01=0x0050, text=»* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER «, t00=0x0027, t01=0x0170}
0x3e90…3eb8 Head {h00=0x0024, h01=0x0050, text=»PRB050 LDR A1,A3 GET ADDRESS TO «, t00=0x0028, t01=0x0022}
0x3eb8…3ee4 Head {h00=0x0028, h01=0x0050, text=» ADR A1,A4 LAST CHARACTER IN BUFFER «, t00=0x0028, t01=0x004a}
0x3ee4…3f02 Head {h00=0x001a, h01=0x0050, text=» LC A1,-1,A1 GET CHAR «, t00=0x0028, t01=0x0076}
0x3f02…3f30 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0909 CARRIAGE RETURN - CR2 ? «, t00=0x0028, t01=0x0094}
0x3f30…3f4a Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x0028, t01=0x00c2}
0x3f4a…3f78 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0D0D CARRIAGE RETURN - CR1 ? «, t00=0x0028, t01=0x00dc}
0x3f78…3f92 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x0028, t01=0x010a}
0x3f92…3fb4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 DUMMY CHARACTER «, t00=0x0028, t01=0x0124}
0x3fb4…3fc6 Head {h00=0x000e, h01=0x0050, text=» RF PRB070«, t00=0x0028, t01=0x0146}
0x3fc6…3ff8 Head {h00=0x002e, h01=0x0050, text=»PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x0028, t01=0x0158}
0x3ff8…4028 Head {h00=0x002c, h01=0x0050, text=»PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB «, t00=0x0028, t01=0x018a}
0x4028…4032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002a}
0x4032…403c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0034}
0x403c…406e Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x0029, t01=0x003e}
0x406e…4092 Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x0029, t01=0x0070}
0x4092…40cc Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D)«, t00=0x0029, t01=0x0094}
0x40cc…40e2 Head {h00=0x0012, h01=0x0050, text=» RF(E) PRB101 «, t00=0x0029, t01=0x00ce}
0x40e2…4102 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND CHAR «, t00=0x0029, t01=0x00e4}
0x4102…4116 Head {h00=0x0010, h01=0x0050, text=»PRB101 EQU *«, t00=0x0029, t01=0x0104}
0x4116…412a Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETB «, t00=0x0029, t01=0x0118}
0x412a…4154 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT SEND END OF MESSAGE «, t00=0x0029, t01=0x012c}
0x4154…416a Head {h00=0x0012, h01=0x0050, text=» IFT SHBDUM=0 «, t00=0x0029, t01=0x0156}
0x416a…417e Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x0029, t01=0x016c}
0x417e…41b8 Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED «, t00=0x0029, t01=0x0180}
0x41b8…41e6 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED«, t00=0x002a, t01=0x002a}
0x41e6…41fe Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x002a, t01=0x0058}
0x41fe…420a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0070}
0x420a…4220 Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x002a, t01=0x007c}
0x4220…422e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0092}
0x422e…4238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a0}
0x4238…4242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00aa}
0x4242…424c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b4}
0x424c…4264 Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x002a, t01=0x00be}
0x4264…426e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d6}
0x426e…4278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e0}
0x4278…428c Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x002a, t01=0x00ea}
0x428c…42c2 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x002a, t01=0x00fe}
0x42c2…42e0 Head {h00=0x001a, h01=0x0050, text=» SUK A7,7 CHECK ORDER «, t00=0x002a, t01=0x0134}
0x42e0…4304 Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x002a, t01=0x0152}
0x4304…4328 Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x002a, t01=0x0176}
0x4328…4336 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x000a}
0x4336…4340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0018}
0x4340…434a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0022}
0x434a…4354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x002c}
0x4354…4370 Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x002b, t01=0x0036}
0x4370…437a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0052}
0x437a…4384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x005c}
0x4384…438e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0066}
0x438e…43b0 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x002b, t01=0x0070}
0x43b0…43d6 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x002b, t01=0x0092}
0x43d6…43fc Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x002b, t01=0x00b8}
0x43fc…442a Head {h00=0x002a, h01=0x0050, text=» RB TP405 SEND LIFT TO TOP AND RELEAS «, t00=0x002b, t01=0x00de}
0x442a…4434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x010c}
0x4434…443e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0116}
0x443e…4448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0120}
0x4448…446a Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x002b, t01=0x012a}
0x446a…4474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x014c}
0x4474…447e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0156}
0x447e…44a6 Head {h00=0x0024, h01=0x0050, text=»PRB110 ANK A2,VOIN VOUCHER IN ? «, t00=0x002b, t01=0x0160}
0x44a6…44ba Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x002b, t01=0x0188}
0x44ba…44e6 Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP01 ERROR .VOUCHER NOT IN «, t00=0x002c, t01=0x000c}
0x44e6…44f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0038}
0x44f2…4506 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x002c, t01=0x0044}
0x4506…451a Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x002c, t01=0x0058}
0x451a…4526 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x006c}
0x4526…454e Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 COPY REQUESTED LENGTH«, t00=0x002c, t01=0x0078}
0x454e…456a Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 R.L. < 3? «, t00=0x002c, t01=0x00a0}
0x456a…4592 Head {h00=0x0024, h01=0x0050, text=» RF(N) PRB200 YES: NO TABULATION«, t00=0x002c, t01=0x00bc}
0x4592…45a6 Head {h00=0x0010, h01=0x0050, text=» LDK A1,TAB «, t00=0x002c, t01=0x00e4}
0x45a6…45c6 Head {h00=0x001c, h01=0x0050, text=» CC A1,-2,A3 TABULATION?«, t00=0x002c, t01=0x00f8}
0x45c6…45e0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x002c, t01=0x0118}
0x45e0…45ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0132}
0x45ee…45f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0140}
0x45f8…4602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x014a}
0x4602…463a Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x002c, t01=0x0154}
0x463a…467a Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x002c, t01=0x018c}
0x467a…469c Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x002d, t01=0x003c}
0x469c…46a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005e}
0x46a6…46b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0068}
0x46b0…46dc Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,RPH DETACH PRINT HEAD «, t00=0x002d, t01=0x0072}
0x46dc…46fe Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x002d, t01=0x009e}
0x46fe…472e Head {h00=0x002c, h01=0x0050, text=»PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR «, t00=0x002d, t01=0x00c0}
0x472e…4756 Head {h00=0x0024, h01=0x0050, text=» LCR A1,A3 GET 2ND TAB POS CHAR «, t00=0x002d, t01=0x00f0}
0x4756…4772 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x002d, t01=0x0118}
0x4772…4784 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x002d, t01=0x0134}
0x4784…47a4 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/F0 LINE DECADE «, t00=0x002d, t01=0x0146}
0x47a4…47ca Head {h00=0x0022, h01=0x0050, text=» ORR A1,A2 DECIMAL LINE NUMBER«, t00=0x002d, t01=0x0166}
0x47ca…47f2 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x002d, t01=0x018c}
0x47f2…4824 Head {h00=0x002e, h01=0x0050, text=»PRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x002e, t01=0x0024}
0x4824…485a Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. «, t00=0x002e, t01=0x0056}
0x485a…4876 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x002e, t01=0x008c}
0x4876…4880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a8}
0x4880…488a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b2}
0x488a…4894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00bc}
0x4894…48b2 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x002e, t01=0x00c6}
0x48b2…48de Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x002e, t01=0x00e4}
0x48de…48f0 Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x002e, t01=0x0110}
0x48f0…48fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0122}
0x48fa…4904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012c}
0x4904…490e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0136}
0x490e…4940 Head {h00=0x002e, h01=0x0050, text=»PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH«, t00=0x002e, t01=0x0140}
0x4940…496a Head {h00=0x0026, h01=0x0050, text=» SUK A3,2 DECREMENT BUFFER ADDRESS«, t00=0x002e, t01=0x0172}
0x496a…4984 Head {h00=0x0016, h01=0x0050, text=» LDK A2,APH ATTACH«, t00=0x002f, t01=0x000c}
0x4984…49a2 Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x002f, t01=0x0026}
0x49a2…49b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0044}
0x49b0…49ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0052}
0x49ba…49c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005c}
0x49c4…49ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0066}
0x49ce…4a04 Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x002f, t01=0x0070}
0x4a04…4a20 Head {h00=0x0018, h01=0x0050, text=»* - ROOMLESS POINT«, t00=0x002f, t01=0x00a6}
0x4a20…4a40 Head {h00=0x001c, h01=0x0050, text=»* - ILLEGAL CHARACTER «, t00=0x002f, t01=0x00c2}
0x4a40…4a6a Head {h00=0x0026, h01=0x0050, text=»* - SPECIAL CHARACTER (/13,/14) «, t00=0x002f, t01=0x00e2}
0x4a6a…4a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x010c}
0x4a74…4a88 Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x002f, t01=0x0116}
0x4a88…4ab6 Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x002f, t01=0x012a}
0x4ab6…4adc Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x002f, t01=0x0158}
0x4adc…4af6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x002f, t01=0x017e}
0x4af6…4b20 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER POINTER«, t00=0x0030, t01=0x0008}
0x4b20…4b32 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0030, t01=0x0032}
0x4b32…4b5a Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x0030, t01=0x0044}
0x4b5a…4b72 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x0030, t01=0x006c}
0x4b72…4b9c Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x0030, t01=0x0084}
0x4b9c…4ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ae}
0x4ba6…4bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b8}
0x4bb0…4bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00c2}
0x4bba…4bea Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x0030, t01=0x00cc}
0x4bea…4c04 Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB225 YES «, t00=0x0030, t01=0x00fc}
0x4c04…4c34 Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x0030, t01=0x0116}
0x4c34…4c4e Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x0030, t01=0x0146}
0x4c4e…4c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0160}
0x4c58…4c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x016a}
0x4c62…4c76 Head {h00=0x0010, h01=0x0050, text=»PRB225 EQU *«, t00=0x0030, t01=0x0174}
0x4c76…4c8a Head {h00=0x0010, h01=0x0050, text=» IFT CHR13=1«, t00=0x0030, t01=0x0188}
0x4c8a…4cb4 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x0031, t01=0x000c}
0x4cb4…4cce Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0031, t01=0x0036}
0x4cce…4cda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0050}
0x4cda…4cee Head {h00=0x0010, h01=0x0050, text=» IFT CHR14=1«, t00=0x0031, t01=0x005c}
0x4cee…4d18 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x0031, t01=0x0070}
0x4d18…4d32 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0031, t01=0x009a}
0x4d32…4d3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00b4}
0x4d3e…4d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00c0}
0x4d48…4d6e Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x0031, t01=0x00ca}
0x4d6e…4d9c Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 STORE IN RETURN CODE «, t00=0x0031, t01=0x00f0}
0x4d9c…4dbe Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0031, t01=0x011e}
0x4dbe…4dd2 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0031, t01=0x0140}
0x4dd2…4de4 Head {h00=0x000e, h01=0x0050, text=» RF PRB245«, t00=0x0031, t01=0x0154}
0x4de4…4dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0166}
0x4dee…4df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0170}
0x4df8…4e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x017a}
0x4e02…4e34 Head {h00=0x002e, h01=0x0050, text=»PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0031, t01=0x0184}
0x4e34…4e5c Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x0032, t01=0x0026}
0x4e5c…4e86 Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x0032, t01=0x004e}
0x4e86…4eb6 Head {h00=0x002c, h01=0x0050, text=»PRB245 SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x0032, t01=0x0078}
0x4eb6…4ec8 Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x0032, t01=0x00a8}
0x4ec8…4ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ba}
0x4ed2…4edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c4}
0x4edc…4ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ce}
0x4ee6…4ef4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00d8}
0x4ef4…4efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e6}
0x4efe…4f12 Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x0032, t01=0x00f0}
0x4f12…4f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0104}
0x4f1c…4f50 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0032, t01=0x010e}
0x4f50…4f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0142}
0x4f5a…4f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x014c}
0x4f64…4f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0156}
0x4f6e…4f80 Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x0032, t01=0x0160}
0x4f80…4fa2 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x0032, t01=0x0172}
0x4fa2…4fc0 (51, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP10 NOT BUSY«, t00=0x0033, t01=0x0004}
0x4fc0…4fe8 Head {h00=0x0024, h01=0x0050, text=» LDR A7,A7 TEST STATUS;JOURNAL ?«, t00=0x0033, t01=0x0022}
0x4fe8…5002 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IHTP20 YES «, t00=0x0033, t01=0x004a}
0x5002…5032 Head {h00=0x002c, h01=0x0050, text=» CWK A7,2 TEST STATUS;VOUCHER/PASSBOOK ?«, t00=0x0033, t01=0x0064}
0x5032…504c Head {h00=0x0016, h01=0x0050, text=» RF(Z) IHTP20 YES «, t00=0x0033, t01=0x0094}
0x504c…507c Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT«, t00=0x0033, t01=0x00ae}
0x507c…50b8 Head {h00=0x0038, h01=0x0050, text=»IHTP10 ABL(Z) LDREG NO RETURN CODE RESTORE REGISTERS«, t00=0x0033, t01=0x00de}
0x50b8…50ce Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=0 «, t00=0x0033, t01=0x011a}
0x50ce…50f6 Head {h00=0x0024, h01=0x0050, text=» RF RCTP10 ELSE GO TO DISPATCHER«, t00=0x0033, t01=0x0130}
0x50f6…5102 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0158}
0x5102…5118 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=1 «, t00=0x0033, t01=0x0164}
0x5118…512a Head {h00=0x000e, h01=0x0050, text=» RF IHTP30«, t00=0x0033, t01=0x017a}
0x512a…5136 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x018c}
0x5136…514e Head {h00=0x0014, h01=0x0050, text=»IHTP20 LDR A1,A1«, t00=0x0034, t01=0x0008}
0x514e…5164 Head {h00=0x0012, h01=0x0050, text=» ABL(Z) TPTST «, t00=0x0034, t01=0x0020}
0x5164…5178 Head {h00=0x0010, h01=0x0050, text=»IHTP30 EQU *«, t00=0x0034, t01=0x0036}
0x5178…518a Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0034, t01=0x004a}
0x518a…5194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005c}
0x5194…519e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0066}
0x519e…51a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0070}
0x51a8…51b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x007a}
0x51b6…51c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0088}
0x51c0…51d4 Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x0034, t01=0x0092}
0x51d4…51de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a6}
0x51de…5220 Head {h00=0x003e, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON«, t00=0x0034, t01=0x00b0}
0x5220…522a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00f2}
0x522a…5254 Head {h00=0x0026, h01=0x0050, text=»RCTP CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x0034, t01=0x00fc}
0x5254…5276 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 GET STATUS«, t00=0x0034, t01=0x0126}
0x5276…5294 Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP05 NOT BUSY«, t00=0x0034, t01=0x0148}
0x5294…529e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0166}
0x529e…52c6 Head {h00=0x0024, h01=0x0050, text=»RCTP01 LDKL A5,DWTSB2 STACK BASE«, t00=0x0034, t01=0x0170}
0x52c6…52d8 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0035, t01=0x0008}
0x52d8…5318 Head {h00=0x003c, h01=0x0050, text=» LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x0035, t01=0x001a}
0x5318…5338 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0035, t01=0x005a}
0x5338…534c Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0035, t01=0x007a}
0x534c…536e Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 STATUS CHANGE ?«, t00=0x0035, t01=0x008e}
0x536e…5384 Head {h00=0x0012, h01=0x0050, text=» ABL(NE) TP645«, t00=0x0035, t01=0x00b0}
0x5384…5390 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00c6}
0x5390…53a4 Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x0035, t01=0x00d2}
0x53a4…53b6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0035, t01=0x00e6}
0x53b6…53ec Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x0035, t01=0x00f8}
0x53ec…540c Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0035, t01=0x012e}
0x540c…5422 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0035, t01=0x014e}
0x5422…5436 Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x0035, t01=0x0164}
0x5436…545c Head {h00=0x0022, h01=0x0050, text=» LDK A2,/80 INDICATE POWER OFF«, t00=0x0035, t01=0x0178}
0x545c…5480 Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x0036, t01=0x000e}
0x5480…548c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0032}
0x548c…54aa Head {h00=0x001a, h01=0x0050, text=» LDK A4,1 IND RECOVERY«, t00=0x0036, t01=0x003e}
0x54aa…54d8 Head {h00=0x002a, h01=0x0050, text=» ABL ACT005 START RECOVERY OF PRINTER «, t00=0x0036, t01=0x005c}
0x54d8…5502 Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL TDISP GO TO DISPATCHER «, t00=0x0036, t01=0x008a}
0x5502…5510 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00b4}
0x5510…551a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00c2}
0x551a…5532 Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x0036, t01=0x00cc}
0x5532…553c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e4}
0x553c…5574 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x0036, t01=0x00ee}
0x5574…557e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0126}
0x557e…5588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0130}
0x5588…5592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013a}
0x5592…55c4 Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 «, t00=0x0036, t01=0x0144}
0x55c4…55de Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x0036, t01=0x0176}
0x55de…55f8 Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x0036, t01=0x0190}
0x55f8…5618 Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x0037, t01=0x001a}
0x5618…562c Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x0037, t01=0x003a}
0x562c…5652 Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x0037, t01=0x004e}
0x5652…565c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0074}
0x565c…5666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x007e}
0x5666…5670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0088}
0x5670…567a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0092}
0x567a…5684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x009c}
0x5684…569a Head {h00=0x0012, h01=0x0050, text=»* G R A S P «, t00=0x0037, t01=0x00a6}
0x569a…56a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00bc}
0x56a4…56dc Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK«, t00=0x0037, t01=0x00c6}
0x56dc…56e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00fe}
0x56e6…56f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0108}
0x56f0…5704 Head {h00=0x0010, h01=0x0050, text=»GRASPA EQU *«, t00=0x0037, t01=0x0112}
0x5704…5724 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0037, t01=0x0126}
0x5724…573a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0037, t01=0x0146}
0x573a…574e Head {h00=0x0010, h01=0x0050, text=»GRASP EQU * «, t00=0x0037, t01=0x015c}
0x574e…5760 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0037, t01=0x0170}
0x5760…577a Head {h00=0x0016, h01=0x0050, text=» LDK A2,GRA GRASP «, t00=0x0037, t01=0x0182}
0x577a…5790 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0038, t01=0x000c}
0x5790…57b2 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0038, t01=0x0022}
0x57b2…57cc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GRAS10 YES«, t00=0x0038, t01=0x0044}
0x57cc…57f2 Head {h00=0x0022, h01=0x0050, text=» LDK A2,TETX DUMMY AFTER GRASP«, t00=0x0038, t01=0x005e}
0x57f2…5808 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0038, t01=0x0084}
0x5808…5828 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0038, t01=0x009a}
0x5828…583e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0038, t01=0x00ba}
0x583e…584e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0038, t01=0x00d0}
0x584e…586c Head {h00=0x001a, h01=0x0050, text=»GRAS10 LC A3,DWTALN,A6«, t00=0x0038, t01=0x00e0}
0x586c…587c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0038, t01=0x00fe}
0x587c…5886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x010e}
0x5886…5890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0118}
0x5890…589e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0122}
0x589e…58a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0130}
0x58a8…58b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x013a}
0x58b2…58ca Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x0038, t01=0x0144}
0x58ca…58d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x015c}
0x58d4…590a Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x0038, t01=0x0166}
0x590a…5914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x000c}
0x5914…591e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0016}
0x591e…5928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0020}
0x5928…593c Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x0039, t01=0x002a}
0x593c…594e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0039, t01=0x003e}
0x594e…5982 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0«, t00=0x0039, t01=0x0050}
0x5982…59ae Head {h00=0x0028, h01=0x0050, text=» LDKL A3,BUF5 LIFT TO TOP AND RELEAS«, t00=0x0039, t01=0x0084}
0x59ae…59ce Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0039, t01=0x00b0}
0x59ce…59e4 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0039, t01=0x00d0}
0x59e4…5a06 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0039, t01=0x00e6}
0x5a06…5a1c Head {h00=0x0012, h01=0x0050, text=» RF(Z) BUFRTN «, t00=0x0039, t01=0x0108}
0x5a1c…5a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x011e}
0x5a26…5a3e Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x0039, t01=0x0128}
0x5a3e…5a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0140}
0x5a48…5a88 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x0039, t01=0x014a}
0x5a88…5ab4 Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x0039, t01=0x018a}
0x5ab4…5abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0026}
0x5abe…5ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0030}
0x5ac8…5b00 Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x003a, t01=0x003a}
0x5b00…5b18 Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x003a, t01=0x0072}
0x5b18…5b48 Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x003a, t01=0x008a}
0x5b48…5b70 Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x003a, t01=0x00ba}
0x5b70…5b94 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x003a, t01=0x00e2}
0x5b94…5bb8 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x003a, t01=0x0106}
0x5bb8…5be2 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x003a, t01=0x012a}
0x5be2…5bf6 Head {h00=0x0010, h01=0x0050, text=»BUFRTN EQU *«, t00=0x003a, t01=0x0154}
0x5bf6…5c16 Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x003a, t01=0x0168}
0x5c16…5c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0188}
0x5c20…5c2a (59, 2, 70) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0004}
0x5c2a…5c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x000e}
0x5c34…5c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0018}
0x5c3e…5c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0022}
0x5c48…5c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x002c}
0x5c52…5c5e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003b, t01=0x0036}
0x5c5e…5c62 Head {h00=0x4004, h01=0x0000}
0x5c62…5c66 00 3b 00 42 ┆ ; B┆
0x5c66…5c6e (60, 1, 8) 20 04 00 00 00 3c 00 04 ┆ < ┆