|
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: 27026 (0x6992)
Notes: pts_type(SC)
Names: »DRTP02.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »M:261/DRTP02.SC«
IDENT DRTP02 REL 9.2 80-11-05 870105040920 =6,RET. PRINTHEAD IF DOC. REMOV. REL 9.2 80-05-09 =5,TAB. POS. AFTER RECOVERY CORR. REL 9.2 79-11-16 =4,CUT AND PERF CORRECTED REL 9.1 79-05-23 UPDATE PRR 9.1 - REL 9.1 PRR 9.1 79-04-25 REL 9.1 79-04-06 =1-3,GEN UPDATE TO 8.2+ STATUS REL 8.2 79-04-19 =3,RECOVERY TIMER CORRECTED REL 8.2 79-04-18 =2,GRSP/REL CH.TO IMPR. REMOTE REL 8.2 79-03-16 =1,IMPRROV. OF TEST ORDER REL 8.2 78-09-15 ******************************************************* * * * 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 * EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS EXTRN DWTOR ORDER EXTRN DWTSB2 STACK BASE 2 IN DWT EJECT * * ECB DISPLACEMENTS * EXTRN ECBBA BUFFER ADDRESS EXTRN ECBRL REQUESTED LENGTH EXTRN ECBEL EFFECTIVE LENGTH EXTRN ECBRC RETURN CODE EXTRN ECBCW CONTROL WORD EJECT ************************ * CONDITIONAL ASSEMBLY * ************************ * * * WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET * BY SETTING X:A = 1 * * X:A EQU 0 RECOV EQU 0 * * * JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY * SETTING X:B = 1 * * X:B EQU 0 CUTPER EQU 0 * * * SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 * AND X:D = 1 RESPECTIVLY * * X:C EQU 0 CHR13 EQU 0 * * X:D EQU 0 CHR14 EQU 0 * * * PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF * PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 * * X:E EQU 0 COMPL EQU 0 EJECT * * * IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT * IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING * THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET * * X:F EQU 0 RELEND EQU 0 * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * * MMU BUFFER SIZE * * X:H EQU 20 DVBLEN EQU 100 * 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 * ********************* * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTRLN EQU START+/12 REQUESTED LINE NUMBER DWTALN EQU START+/13 ACTUAL LINE NUMBER * 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 /041B,/9783,/8200 REL,ETB,DUMMY,STB =2 * * * ********** * TABLES * ********** * * DATA DVBLEN MMU BUFFER SIZE DATA 2 DEVICE INDEX TPAD EQU * ADDRESS BLOCK DATA ACTP ACTIVATIONDRIVER DATA 0 ABORT ROUTINE ADDRESS DATA IHTP INTERRUPTHANDLER DATA RCTP RECOVERY ROUTINE * * TABLE TO GET ROOMLESS POINT * ROMTAB EQU * DATA /2122,/2627,/3B3C,/3E40,/5E5F * * TABLE TO GET ACTUAL LF-CHARACTER * * LFTAB EQU * DATA /1819 LINE FEED JOURNAL/TALLY ROLL * * IFT CUTPER=1 CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE XIF TPTAB EQU * ORDER TABLE DATA /0002,/0607,/080D IFT CUTPER=1 DATA /2226 XIF DATA /393A TPLEN EQU *-TPTAB EJECT * * * A C T P * * THIS IS THE ACTIVATION PART OF THE DRIVER * CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR * * * ACTP EQU * ACTIVATION ENTRY * * * GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK LC A1,DWTOR,A6 GET DWT INDEX ANK A1,7 MASK ADR A7,A1 ADD DWT INDEX TO ORDER SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT LDK A4,0 ACTIVATION ACT005 LDK A3,TPLEN-1 ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER RF(E) ACT020 VALID ORDER SUK A3,1 RB(NN) ACT010 TRY NEXT * ABL DISIOE ILLEGAL ORDER * * ACT020 LDK A1,0 * =5 SC A1,DWTBC,A6 RESET BYTE COUNTER =5 ADR A3,A3 GET INDEX ABI TPFUC,A3 EXECUTE ORDER TPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 =1 IFT CUTPER=1 DATA TP700,TP750 XIF DATA TP800,TP900 EJECT =1 * =1 * =1 * ORDER 00: TEST =1 * IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =1 * =1 * =1 * =1 * =1 TPTEST LDK A2,STX SEND STX =2 CF A5,OUTPUT =2 LDK A2,/02 SEND CHAR /02 =2 CF A5,OUTPUT =1 LDK A2,0 SEND CHAR /00=END OF TEST =1 CF A5,OUTPUT =1 RF TPDUMY =1 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 LDR A4,A2 SAVE CHAR =2 LDK A2,STX SEND STX =2 CF A5,OUTPUT =2 LDR A2,A4 RELOAD CHAR =2 CF A5,OUTPUT LDK A2,ETB SEND ETB =2 CF A5,OUTPUT =2 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 * LDK A2,STX SEND STX =2 CF A5,OUTPUT =2 LDR A1,A1 RF(NE) TPLF10 LDK A2,RPH DETACH PRINT HEAD CF A5,OUTPUT SEND 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,ETB SEND ETB =2 CF A5,OUTPUT =2 TPDU10 EQU * =6 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 EQU * =2 LDK A2,STX SEND STX =2 CF A5,OUTPUT =2 CF A5,GRASP GRASP VOUCHER =2 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 A3,1 SET INDEX =4 RF TP760 TP750 EQU * LDK A3,0 SET INDEX =4 TP760 LDK A2,STX SEND STX =4 CF A5,OUTPUT =4 LC A2,CPTAB,A3 GET CHAR =4 CF A5,OUTPUT SEND =4 =4 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 LDK A2,ETX CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED LDKL A1,MESS INDICATE MESSAGE PRINTED ORS A1,DWTST,A6 PRB102 RTN A5 EJECT * * * * PRINT BUFFER * * PRB105 EQU * ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED SUK A7,7 CHECK ORDER RF(L) PRB200 PRINT JOURNAL RF(G) PRB110 PRINT VOUCHER EJECT * * * * PRINT TALLY ROLL * * * 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 =1 =1 CWK A7,2 TEST STATUS ? =1 RF(NG) IHTP20 YES =1 LDR A1,A1 RETURN CODE FROM CHANNEL UNIT =1 IFT RELEND=0 RF(NZ) RCTP10 YES GO TO DISPATCHER =1 XIF IFT RELEND=1 RF(NZ) IHTP30 YES FINISH REQUEST =1 XIF IHTP10 ABL LDREG NO RETURN CODE RESTORE REGISTER =1 IHTP20 LDR A1,A1 RB(Z) IHTP10 TEST ORDER AND TIME OUT =1 IHTP30 EQU * ABL ENDIO * * * EJECT * * R C T P * * RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON * RCTP EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A2,/7FFF IND DEVICE BUSY =3 ANS A2,DWTST,A6 =3 LD A2,DWTECB,A6 =3 RF(Z) RCTP05 REQUEST NOT RUNNING =3 * 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 ? RF(E) RCTP05 =6 LDK A2,RPH RETURN PRINTHEAD =6 CF A5,OUTPUT SEND =6 LDKL A1,PROUT VOUCHER OUT =6 ORS A1,ECBRC,A8 INDICATE IN RETURN CODE =6 ABL TPDU10 COMPLETE REQUEST =6 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 LD A2,DWTECB,A6 =3 RF(NZ) RCTP07 REQUEST RUNNING =3 LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3 CF A5,OUTPUT =3 ABL DISEND =3 RCTP07 EQU * =3 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,STX SEND STX =2 CF A5,OUTPUT =2 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,ETB SEND ETB =2 CF A5,OUTPUT =2 LDK A2,TETX DUMMY AFTER GRASP CF A5,OUTPUT LDK A2,STX SEND STX =2 CF A5,OUTPUT =2 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,STX SEND STX =2 CF A5,OUTPUT =2 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 9.2 80-11-05 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006a Head {h00=0x0028, h01=0x0050, text=» =6,RET. PRINTHEAD IF DOC. REMOV. «, t00=0x0000, t01=0x0042}
0x006a…0086 Head {h00=0x0018, h01=0x0050, text=» REL 9.2 80-05-09 «, t00=0x0000, t01=0x006e}
0x0086…00b2 Head {h00=0x0028, h01=0x0050, text=» =5,TAB. POS. AFTER RECOVERY CORR.«, t00=0x0000, t01=0x008a}
0x00b2…00ce Head {h00=0x0018, h01=0x0050, text=» REL 9.2 79-11-16 «, t00=0x0000, t01=0x00b6}
0x00ce…00f2 Head {h00=0x0020, h01=0x0050, text=» =4,CUT AND PERF CORRECTED«, t00=0x0000, t01=0x00d2}
0x00f2…010e Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x00f6}
0x010e…0132 Head {h00=0x0020, h01=0x0050, text=» UPDATE PRR 9.1 - REL 9.1 «, t00=0x0000, t01=0x0112}
0x0132…014e Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-04-25 «, t00=0x0000, t01=0x0136}
0x014e…016a Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-04-06 «, t00=0x0000, t01=0x0152}
0x016a…0194 Head {h00=0x0026, h01=0x0050, text=» =1-3,GEN UPDATE TO 8.2+ STATUS «, t00=0x0000, t01=0x016e}
0x0194…01b0 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-04-19 «, t00=0x0001, t01=0x0008}
0x01b0…01d6 Head {h00=0x0022, h01=0x0050, text=» =3,RECOVERY TIMER CORRECTED«, t00=0x0001, t01=0x0024}
0x01d6…01f2 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-04-18 «, t00=0x0001, t01=0x004a}
0x01f2…021c Head {h00=0x0026, h01=0x0050, text=» =2,GRSP/REL CH.TO IMPR. REMOTE «, t00=0x0001, t01=0x0066}
0x021c…0238 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-03-16 «, t00=0x0001, t01=0x0090}
0x0238…025c Head {h00=0x0020, h01=0x0050, text=» =1,IMPRROV. OF TEST ORDER«, t00=0x0001, t01=0x00ac}
0x025c…0278 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 78-09-15 «, t00=0x0001, t01=0x00d0}
0x0278…02b8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x00ec}
0x02b8…02f8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x012c}
0x02f8…0338 Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0001, t01=0x016c}
0x0338…0378 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x001c}
0x0378…03b8 Head {h00=0x003c, h01=0x0050, text=»* DRTP02 = DRIVER TELLER TERMINAL PRINTER * «, t00=0x0002, t01=0x005c}
0x03b8…03f8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x009c}
0x03f8…0438 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00dc}
0x0438…0442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011c}
0x0442…044c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0126}
0x044c…0456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0130}
0x0456…0496 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x013a}
0x0496…04d6 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0002, t01=0x017a}
0x04d6…04e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04e0…0522 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221,«, t00=0x0003, t01=0x0034}
0x0522…055c Head {h00=0x0036, h01=0x0050, text=»* 6222 OR 6223 CONNECTED TO CPU VIA CHLT OR CHRT«, t00=0x0003, t01=0x0076}
0x055c…0566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b0}
0x0566…0570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ba}
0x0570…05a8 Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0003, t01=0x00c4}
0x05a8…05b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fc}
0x05b2…05da Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0003, t01=0x0106}
0x05da…05e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e4…060e Head {h00=0x0026, h01=0x0050, text=»* I H T P : INTERRUPT HANDLER «, t00=0x0003, t01=0x0138}
0x060e…0618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0162}
0x0618…0640 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0003, t01=0x016c}
0x0640…064a (4, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x064a…0654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000e}
0x0654…068e Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES:«, t00=0x0004, t01=0x0018}
0x068e…0698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0052}
0x0698…06de Head {h00=0x0042, h01=0x0050, text=»* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM«, t00=0x0004, t01=0x005c}
0x06de…06e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a2}
0x06e8…0722 Head {h00=0x0036, h01=0x0050, text=»* B C D T B Y : CONVERT TO BINARY FROM DECIMAL«, t00=0x0004, t01=0x00ac}
0x0722…072c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e6}
0x072c…0774 Head {h00=0x0044, h01=0x0050, text=»* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST«, t00=0x0004, t01=0x00f0}
0x0774…079c Head {h00=0x0024, h01=0x0050, text=»* CHARACTER IN OUTPUT BUFFER «, t00=0x0004, t01=0x0138}
0x079c…07a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0160}
0x07a6…07d8 Head {h00=0x002e, h01=0x0050, text=»* G R A S P : SEND GRASP TO VOUCHER «, t00=0x0004, t01=0x016a}
0x07d8…07e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000c}
0x07e2…081a Head {h00=0x0034, h01=0x0050, text=»* R E L E A S : SEND LIFT TO TOP AND RELEASE«, t00=0x0005, t01=0x0016}
0x081a…0828 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x004e}
0x0828…0832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005c}
0x0832…0860 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0005, t01=0x0066}
0x0860…086a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0094}
0x086a…0892 Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0005, t01=0x009e}
0x0892…08b4 Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0005, t01=0x00c6}
0x08b4…08e8 Head {h00=0x0030, h01=0x0050, text=»* ORDER 0B : POSITION LIFT AND WRITE «, t00=0x0005, t01=0x00e8}
0x08e8…0910 Head {h00=0x0024, h01=0x0050, text=»* ORDER 22 : CUT JOURNAL «, t00=0x0005, t01=0x011c}
0x0910…093e Head {h00=0x002a, h01=0x0050, text=»* ORDER 26 : PERFORATE JOURNAL «, t00=0x0005, t01=0x0144}
0x093e…0970 Head {h00=0x002e, h01=0x0050, text=»* ORDER 37 : GRASP VOUCHER/PASSBOOK«, t00=0x0005, t01=0x0172}
0x0970…09a4 Head {h00=0x0030, h01=0x0050, text=»* ORDER 38 : RELEASE VOUCHER/PASSBOOK«, t00=0x0006, t01=0x0014}
0x09a4…09ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0048}
0x09ae…09de Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0006, t01=0x0052}
0x09de…09e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0082}
0x09e8…0a12 Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0006, t01=0x008c}
0x0a12…0a4a Head {h00=0x0034, h01=0x0050, text=»* BIT 8 : RECOVERY EXECUTED ON REQUEST«, t00=0x0006, t01=0x00b6}
0x0a4a…0a86 Head {h00=0x0038, h01=0x0050, text=»* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT«, t00=0x0006, t01=0x00ee}
0x0a86…0ab2 Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0006, t01=0x012a}
0x0ab2…0ada Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0006, t01=0x0156}
0x0ada…0ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017e}
0x0ae4…0aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aee…0af8 (7, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af8…0b1a Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0007, t01=0x000e}
0x0b1a…0b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b24…0b4a Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0007, t01=0x003a}
0x0b4a…0b70 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0007, t01=0x0060}
0x0b70…0b98 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0007, t01=0x0086}
0x0b98…0bc0 Head {h00=0x0024, h01=0x0050, text=»* A4: OUTPUT COUNTER «, t00=0x0007, t01=0x00ae}
0x0bc0…0be6 Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0007, t01=0x00d6}
0x0be6…0c0a Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0007, t01=0x00fc}
0x0c0a…0c28 Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0007, t01=0x0120}
0x0c28…0c4c Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0007, t01=0x013e}
0x0c4c…0c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0162}
0x0c56…0c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016c}
0x0c60…0c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0176}
0x0c6a…0c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0180}
0x0c74…0c92 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0007, t01=0x018a}
0x0c92…0c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0018}
0x0c9c…0ce4 Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN «, t00=0x0008, t01=0x0022}
0x0ce4…0cfc Head {h00=0x0014, h01=0x0050, text=»* BE EXCLUDED:«, t00=0x0008, t01=0x006a}
0x0cfc…0d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0082}
0x0d06…0d48 Head {h00=0x003e, h01=0x0050, text=»* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST «, t00=0x0008, t01=0x008c}
0x0d48…0d80 Head {h00=0x0034, h01=0x0050, text=»* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) «, t00=0x0008, t01=0x00ce}
0x0d80…0db4 Head {h00=0x0030, h01=0x0050, text=»* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 «, t00=0x0008, t01=0x0106}
0x0db4…0e00 Head {h00=0x0048, h01=0x0050, text=»* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN«, t00=0x0008, t01=0x013a}
0x0e00…0e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e0a…0e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0190}
0x0e14…0e58 Head {h00=0x0040, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED«, t00=0x0009, t01=0x000a}
0x0e58…0e9a Head {h00=0x003e, h01=0x0050, text=»* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET «, t00=0x0009, t01=0x004e}
0x0e9a…0ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0090}
0x0ea4…0eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009a}
0x0eae…0ebc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00a4}
0x0ebc…0ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b2}
0x0ec6…0eda Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0009, t01=0x00bc}
0x0eda…0eee Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0009, t01=0x00d0}
0x0eee…0f02 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0009, t01=0x00e4}
0x0f02…0f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f8}
0x0f0c…0f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0102}
0x0f16…0f38 Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD ADDRESS BLOCK «, t00=0x0009, t01=0x010c}
0x0f38…0f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012e}
0x0f42…0f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0138}
0x0f4c…0f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0142}
0x0f56…0f6c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x014c}
0x0f6c…0f82 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0009, t01=0x0162}
0x0f82…0f98 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0178}
0x0f98…0fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x018e}
0x0fa2…0fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0fac…0fdc Head {h00=0x002c, h01=0x0050, text=» EXTRN TDISP DISPATCHING FROM INTERRUPT «, t00=0x000a, t01=0x0012}
0x0fdc…1004 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE DISPATCH I/O ERROR«, t00=0x000a, t01=0x0042}
0x1004…102e Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x000a, t01=0x006a}
0x102e…104c Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x000a, t01=0x0094}
0x104c…1076 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x000a, t01=0x00b2}
0x1076…109c Head {h00=0x0022, h01=0x0050, text=» EXTRN LDREG RESTORE REGISTERS«, t00=0x000a, t01=0x00dc}
0x109c…10d8 Head {h00=0x0038, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT «, t00=0x000a, t01=0x0102}
0x10d8…10fc Head {h00=0x0020, h01=0x0050, text=» EXTRN SAVE8 SAVE REG. A1-A8«, t00=0x000a, t01=0x013e}
0x10fc…1106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0162}
0x1106…1122 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x016c}
0x1122…1144 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x0188}
0x1144…1166 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x000b, t01=0x001a}
0x1166…1180 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000b, t01=0x003c}
0x1180…11aa Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x000b, t01=0x0056}
0x11aa…11b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0080}
0x11b8…11c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008e}
0x11c2…11de Head {h00=0x0018, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x000b, t01=0x0098}
0x11de…11e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b4}
0x11e8…120c Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x000b, t01=0x00be}
0x120c…1232 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x000b, t01=0x00e2}
0x1232…1258 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x000b, t01=0x0108}
0x1258…1278 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x000b, t01=0x012e}
0x1278…129a Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x000b, t01=0x014e}
0x129a…12a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0170}
0x12a8…12c8 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x017e}
0x12c8…12e8 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000c, t01=0x000e}
0x12e8…1308 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x002e}
0x1308…1312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004e}
0x1312…131c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131c…135c Head {h00=0x003c, h01=0x0050, text=»* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET«, t00=0x000c, t01=0x0062}
0x135c…137a Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:A = 1«, t00=0x000c, t01=0x00a2}
0x137a…1384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c0}
0x1384…138e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ca}
0x138e…13a0 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000c, t01=0x00d4}
0x13a0…13b4 Head {h00=0x0010, h01=0x0050, text=»RECOV EQU 0 «, t00=0x000c, t01=0x00e6}
0x13b4…13be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13be…13c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13c8…1406 Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x000c, t01=0x010e}
0x1406…1422 Head {h00=0x0018, h01=0x0050, text=»* SETTING X:B = 1 «, t00=0x000c, t01=0x014c}
0x1422…142c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0168}
0x142c…1436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0172}
0x1436…1448 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x017c}
0x1448…145c Head {h00=0x0010, h01=0x0050, text=»CUTPER EQU 0«, t00=0x000c, t01=0x018e}
0x145c…1466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0012}
0x1466…1470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001c}
0x1470…14b6 Head {h00=0x0042, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 «, t00=0x000d, t01=0x0026}
0x14b6…14da Head {h00=0x0020, h01=0x0050, text=»* AND X:D = 1 RESPECTIVLY «, t00=0x000d, t01=0x006c}
0x14da…14e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0090}
0x14e4…14ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009a}
0x14ee…1500 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000d, t01=0x00a4}
0x1500…1514 Head {h00=0x0010, h01=0x0050, text=»CHR13 EQU 0 «, t00=0x000d, t01=0x00b6}
0x1514…151e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ca}
0x151e…1528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d4}
0x1528…153a Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000d, t01=0x00de}
0x153a…154e Head {h00=0x0010, h01=0x0050, text=»CHR14 EQU 0 «, t00=0x000d, t01=0x00f0}
0x154e…1558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1562…1598 Head {h00=0x0032, h01=0x0050, text=»* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF«, t00=0x000d, t01=0x0118}
0x1598…15d6 Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000d, t01=0x014e}
0x15d6…15e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018c}
0x15e0…15ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15ea…15fc Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000e, t01=0x0012}
0x15fc…1610 Head {h00=0x0010, h01=0x0050, text=»COMPL EQU 0 «, t00=0x000e, t01=0x0024}
0x1610…161e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0038}
0x161e…1628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0046}
0x1628…1632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0050}
0x1632…1674 Head {h00=0x003e, h01=0x0050, text=»* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT «, t00=0x000e, t01=0x005a}
0x1674…16b4 Head {h00=0x003c, h01=0x0050, text=»* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING «, t00=0x000e, t01=0x009c}
0x16b4…16f6 Head {h00=0x003e, h01=0x0050, text=»* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET«, t00=0x000e, t01=0x00dc}
0x16f6…1700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011e}
0x1700…170a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0128}
0x170a…171c Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000e, t01=0x0132}
0x171c…1730 Head {h00=0x0010, h01=0x0050, text=»RELEND EQU 0«, t00=0x000e, t01=0x0144}
0x1730…173a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0158}
0x173a…1744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0162}
0x1744…1776 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000e, t01=0x016c}
0x1776…17a4 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000f, t01=0x000e}
0x17a4…17ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x003c}
0x17ae…17c2 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000f, t01=0x0046}
0x17c2…17cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005a}
0x17cc…17d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0064}
0x17d6…1810 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000f, t01=0x006e}
0x1810…1842 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000f, t01=0x00a8}
0x1842…184c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00da}
0x184c…1860 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x000f, t01=0x00e4}
0x1860…186a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f8}
0x186a…1874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0102}
0x1874…1890 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000f, t01=0x010c}
0x1890…189a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0128}
0x189a…18a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0132}
0x18a4…18b6 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 20«, t00=0x000f, t01=0x013c}
0x18b6…18cc Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 100«, t00=0x000f, t01=0x014e}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0164}
0x18d6…18e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x016e}
0x18e4…18ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017c}
0x18ee…18f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0186}
0x18f8…190e Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x0190}
0x190e…1924 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0010, t01=0x0016}
0x1924…193a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0010, t01=0x002c}
0x193a…1944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0042}
0x1944…194e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004c}
0x194e…1980 Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x0010, t01=0x0056}
0x1980…19b6 Head {h00=0x0032, h01=0x0050, text=»PROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE«, t00=0x0010, t01=0x0088}
0x19b6…19c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00be}
0x19c0…19ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c8}
0x19ca…19fe Head {h00=0x0030, h01=0x0050, text=»VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST«, t00=0x0010, t01=0x00d2}
0x19fe…1a34 Head {h00=0x0032, h01=0x0050, text=»EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. «, t00=0x0010, t01=0x0106}
0x1a34…1a78 Head {h00=0x0040, h01=0x0050, text=»VOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED «, t00=0x0010, t01=0x013c}
0x1a78…1ab0 Head {h00=0x0034, h01=0x0050, text=»MESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN«, t00=0x0010, t01=0x0180}
0x1ab0…1aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0028}
0x1aba…1ae2 Head {h00=0x0024, h01=0x0050, text=»STX EQU /82 START OF TEXT BLOCK «, t00=0x0011, t01=0x0032}
0x1ae2…1b08 Head {h00=0x0022, h01=0x0050, text=»ETB EQU /97 END OF TEXT BLOCK «, t00=0x0011, t01=0x005a}
0x1b08…1b26 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x0011, t01=0x0080}
0x1b26…1b56 Head {h00=0x002c, h01=0x0050, text=»REMOT EQU /01 RESET PRINT BUFFER REMOTE «, t00=0x0011, t01=0x009e}
0x1b56…1b84 Head {h00=0x002a, h01=0x0050, text=»TAB EQU /11 TABULATION CHAR IN BUFFER «, t00=0x0011, t01=0x00ce}
0x1b84…1ba8 Head {h00=0x0020, h01=0x0050, text=»CR1 EQU /0D CR JOURNAL TAPE «, t00=0x0011, t01=0x00fc}
0x1ba8…1bcc Head {h00=0x0020, h01=0x0050, text=»LF1 EQU /18 LF JOURNAL TAPE «, t00=0x0011, t01=0x0120}
0x1bcc…1bfe Head {h00=0x002e, h01=0x0050, text=»CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK«, t00=0x0011, t01=0x0144}
0x1bfe…1c20 Head {h00=0x001e, h01=0x0050, text=»LF2 EQU /19 LF TALLY ROLL «, t00=0x0011, t01=0x0176}
0x1c20…1c48 Head {h00=0x0024, h01=0x0050, text=»LDO EQU /0B LIFT DOWN 1 POSITION«, t00=0x0012, t01=0x0008}
0x1c48…1c70 Head {h00=0x0024, h01=0x0050, text=»LUP EQU /0A LIFT UP ONE POSITION«, t00=0x0012, t01=0x0030}
0x1c70…1c98 Head {h00=0x0024, h01=0x0050, text=»LFF EQU /0C LIFT TO TOP POSITION«, t00=0x0012, t01=0x0058}
0x1c98…1cd2 Head {h00=0x0036, h01=0x0050, text=»GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK«, t00=0x0012, t01=0x0080}
0x1cd2…1cfe Head {h00=0x0028, h01=0x0050, text=»REL EQU /1B RELEASE VOUCHER/PASSBOOK«, t00=0x0012, t01=0x00ba}
0x1cfe…1d24 Head {h00=0x0022, h01=0x0050, text=»APH EQU /1D ATTACH PRINT HEAD «, t00=0x0012, t01=0x00e6}
0x1d24…1d4a Head {h00=0x0022, h01=0x0050, text=»RPH EQU /1E RETURN PRINT HEAD «, t00=0x0012, t01=0x010c}
0x1d4a…1d82 Head {h00=0x0034, h01=0x0050, text=»TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE «, t00=0x0012, t01=0x0132}
0x1d82…1d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016a}
0x1d8c…1d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0174}
0x1d96…1db4 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x017e}
0x1db4…1dd2 Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0013, t01=0x000c}
0x1dd2…1df0 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0013, t01=0x002a}
0x1df0…1dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0048}
0x1dfa…1e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0052}
0x1e04…1e38 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0013, t01=0x005c}
0x1e38…1e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0090}
0x1e42…1e58 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x009a}
0x1e58…1e70 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0013, t01=0x00b0}
0x1e70…1e7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00c8}
0x1e7c…1e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d4}
0x1e86…1e9c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x00de}
0x1e9c…1eb6 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0013, t01=0x00f4}
0x1eb6…1ec2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x010e}
0x1ec2…1ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011a}
0x1ecc…1efe Head {h00=0x002e, h01=0x0050, text=»DWTRLN EQU START+/12 REQUESTED LINE NUMBER«, t00=0x0013, t01=0x0124}
0x1efe…1f2e Head {h00=0x002c, h01=0x0050, text=»DWTALN EQU START+/13 ACTUAL LINE NUMBER «, t00=0x0013, t01=0x0156}
0x1f2e…1f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0186}
0x1f38…1f46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0190}
0x1f46…1f50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000e}
0x1f50…1f64 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0014, t01=0x0018}
0x1f64…1f78 Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x0014, t01=0x002c}
0x1f78…1f8c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0014, t01=0x0040}
0x1f8c…1f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0054}
0x1f96…1fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005e}
0x1fa0…1fca Head {h00=0x0026, h01=0x0050, text=»BUF1 DATA /0382,/0D1D STX,CR1,APH «, t00=0x0014, t01=0x0068}
0x1fca…1fe0 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0014, t01=0x0092}
0x1fe0…1ffc Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0382 STX «, t00=0x0014, t01=0x00a8}
0x1ffc…2008 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00c4}
0x2008…201e Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x00d0}
0x201e…203a Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0482 STX «, t00=0x0014, t01=0x00e6}
0x203a…2046 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0102}
0x2046…206e Head {h00=0x0024, h01=0x0050, text=» DATA /091D,/2000 CR2,APH,SPACE «, t00=0x0014, t01=0x010e}
0x206e…2098 Head {h00=0x0026, h01=0x0050, text=»BUF3 DATA /0382,/091D STX,CR2,APH «, t00=0x0014, t01=0x0136}
0x2098…20d0 Head {h00=0x0034, h01=0x0050, text=»BUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,STB =2«, t00=0x0014, t01=0x0160}
0x20d0…20da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0008}
0x20da…20e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0012}
0x20e4…20ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001c}
0x20ee…2100 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0015, t01=0x0026}
0x2100…2112 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0015, t01=0x0038}
0x2112…2124 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0015, t01=0x004a}
0x2124…212e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005c}
0x212e…2138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0066}
0x2138…215c Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0015, t01=0x0070}
0x215c…2178 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0015, t01=0x0094}
0x2178…2198 Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x0015, t01=0x00b0}
0x2198…21bc Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x0015, t01=0x00d0}
0x21bc…21e2 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0015, t01=0x00f4}
0x21e2…2206 Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x0015, t01=0x011a}
0x2206…222a Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0015, t01=0x013e}
0x222a…2234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0162}
0x2234…225c Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x0015, t01=0x016c}
0x225c…2266 (22, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0004}
0x2266…227a Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0016, t01=0x000e}
0x227a…22a6 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2627,/3B3C,/3E40,/5E5F «, t00=0x0016, t01=0x0022}
0x22a6…22b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004e}
0x22b0…22dc Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x0016, t01=0x0058}
0x22dc…22e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0084}
0x22e6…22f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008e}
0x22f0…2304 Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x0016, t01=0x0098}
0x2304…2334 Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x0016, t01=0x00ac}
0x2334…233e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00dc}
0x233e…2348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e6}
0x2348…235e Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0016, t01=0x00f0}
0x235e…239c Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x0016, t01=0x0106}
0x239c…23a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0144}
0x23a8…23c8 Head {h00=0x001c, h01=0x0050, text=»TPTAB EQU * ORDER TABLE «, t00=0x0016, t01=0x0150}
0x23c8…23e8 Head {h00=0x001c, h01=0x0050, text=» DATA /0002,/0607,/080D «, t00=0x0016, t01=0x0170}
0x23e8…23fe Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0016, t01=0x0190}
0x23fe…2412 Head {h00=0x0010, h01=0x0050, text=» DATA /2226 «, t00=0x0017, t01=0x0016}
0x2412…241e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x002a}
0x241e…2432 Head {h00=0x0010, h01=0x0050, text=» DATA /393A «, t00=0x0017, t01=0x0036}
0x2432…244c Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0017, t01=0x004a}
0x244c…245a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0064}
0x245a…2464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0072}
0x2464…246e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007c}
0x246e…2482 Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0017, t01=0x0086}
0x2482…248c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009a}
0x248c…24c2 Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0017, t01=0x00a4}
0x24c2…2504 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0017, t01=0x00da}
0x2504…250e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011c}
0x250e…2518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0126}
0x2518…2522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0130}
0x2522…2546 Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0017, t01=0x013a}
0x2546…2550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015e}
0x2550…255a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0168}
0x255a…259a Head {h00=0x003c, h01=0x0050, text=»* GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK «, t00=0x0017, t01=0x0172}
0x259a…25c0 Head {h00=0x0022, h01=0x0050, text=» LC A1,DWTOR,A6 GET DWT INDEX «, t00=0x0018, t01=0x0022}
0x25c0…25d6 Head {h00=0x0012, h01=0x0050, text=» ANK A1,7 MASK«, t00=0x0018, t01=0x0048}
0x25d6…2600 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 ADD DWT INDEX TO ORDER «, t00=0x0018, t01=0x005e}
0x2600…2630 Head {h00=0x002c, h01=0x0050, text=» SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT «, t00=0x0018, t01=0x0088}
0x2630…264c Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ACTIVATION«, t00=0x0018, t01=0x00b8}
0x264c…266a Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0018, t01=0x00d4}
0x266a…26a0 Head {h00=0x0032, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER «, t00=0x0018, t01=0x00f2}
0x26a0…26c2 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0018, t01=0x0128}
0x26c2…26d4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0018, t01=0x014a}
0x26d4…26f4 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0018, t01=0x015c}
0x26f4…26fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017c}
0x26fe…2720 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0018, t01=0x0186}
0x2720…272a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0018}
0x272a…2734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0022}
0x2734…2750 Head {h00=0x0018, h01=0x0050, text=»ACT020 LDK A1,0 * =5«, t00=0x0019, t01=0x002c}
0x2750…277e Head {h00=0x002a, h01=0x0050, text=» SC A1,DWTBC,A6 RESET BYTE COUNTER =5 «, t00=0x0019, t01=0x0048}
0x277e…279a Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x0019, t01=0x0076}
0x279a…27be Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x0019, t01=0x0092}
0x27be…27fc Head {h00=0x003a, h01=0x0050, text=»TPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 =1 «, t00=0x0019, t01=0x00b6}
0x27fc…2812 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0019, t01=0x00f4}
0x2812…282c Head {h00=0x0016, h01=0x0050, text=» DATA TP700,TP750 «, t00=0x0019, t01=0x010a}
0x282c…2838 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0124}
0x2838…2852 Head {h00=0x0016, h01=0x0050, text=» DATA TP800,TP900 «, t00=0x0019, t01=0x0130}
0x2852…2866 Head {h00=0x0010, h01=0x0050, text=» EJECT =1 «, t00=0x0019, t01=0x014a}
0x2866…2876 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x015e}
0x2876…2886 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x016e}
0x2886…28a6 Head {h00=0x001c, h01=0x0050, text=»* ORDER 00: TEST =1«, t00=0x0019, t01=0x017e}
0x28a6…28f4 Head {h00=0x004a, h01=0x0050, text=»* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =1 «, t00=0x001a, t01=0x000e}
0x28f4…2904 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x001a, t01=0x005c}
0x2904…2914 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x001a, t01=0x006c}
0x2914…2924 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x001a, t01=0x007c}
0x2924…2934 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x001a, t01=0x008c}
0x2934…295a Head {h00=0x0022, h01=0x0050, text=»TPTEST LDK A2,STX SEND STX =2 «, t00=0x001a, t01=0x009c}
0x295a…2974 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001a, t01=0x00c2}
0x2974…2998 Head {h00=0x0020, h01=0x0050, text=» LDK A2,/02 SEND CHAR /02 =2«, t00=0x001a, t01=0x00dc}
0x2998…29b2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x001a, t01=0x0100}
0x29b2…29e0 Head {h00=0x002a, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST =1«, t00=0x001a, t01=0x011a}
0x29e0…29fa Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x001a, t01=0x0148}
0x29fa…2a10 Head {h00=0x0012, h01=0x0050, text=» RF TPDUMY =1«, t00=0x001a, t01=0x0162}
0x2a10…2a1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0178}
0x2a1e…2a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0186}
0x2a28…2a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0190}
0x2a32…2a62 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06,0B: WRITE VOUCHER/PASSBOOK «, t00=0x001b, t01=0x000a}
0x2a62…2aa4 Head {h00=0x003e, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x001b, t01=0x003a}
0x2aa4…2aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007c}
0x2aae…2ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0086}
0x2ab8…2ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0090}
0x2ac2…2b08 Head {h00=0x0042, h01=0x0050, text=»ACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB«, t00=0x001b, t01=0x009a}
0x2b08…2b1a Head {h00=0x000e, h01=0x0050, text=» RF ACT085«, t00=0x001b, t01=0x00e0}
0x2b1a…2b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f2}
0x2b24…2b54 Head {h00=0x002c, h01=0x0050, text=»ACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x001b, t01=0x00fc}
0x2b54…2b7e Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x001b, t01=0x012c}
0x2b7e…2ba6 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF REQUESTED LINE STEPS«, t00=0x001b, t01=0x0156}
0x2ba6…2bba Head {h00=0x0010, h01=0x0050, text=» SUK A3,/39 «, t00=0x001b, t01=0x017e}
0x2bba…2bde (28, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(G) ACT070 > /39 = ONE LF«, t00=0x001c, t01=0x0004}
0x2bde…2bf0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/9«, t00=0x001c, t01=0x0028}
0x2bf0…2c06 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACT060«, t00=0x001c, t01=0x003a}
0x2c06…2c24 Head {h00=0x001a, h01=0x0050, text=» LDK A3,2 /30 = TWO LF«, t00=0x001c, t01=0x0050}
0x2c24…2c36 Head {h00=0x000e, h01=0x0050, text=» RF ACT080«, t00=0x001c, t01=0x006e}
0x2c36…2c62 Head {h00=0x0028, h01=0x0050, text=»ACT060 RF(G) ACT080 /31-/39 = 1-9 LF«, t00=0x001c, t01=0x0080}
0x2c62…2c74 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/5«, t00=0x001c, t01=0x00ac}
0x2c74…2c94 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TP605 /2B = NO LF«, t00=0x001c, t01=0x00be}
0x2c94…2cb2 Head {h00=0x001a, h01=0x0050, text=»ACT070 LDK A3,1 ONE LF«, t00=0x001c, t01=0x00de}
0x2cb2…2cea Head {h00=0x0034, h01=0x0050, text=»ACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT «, t00=0x001c, t01=0x00fc}
0x2cea…2d18 Head {h00=0x002a, h01=0x0050, text=» SUR A1,A3 GET REQUESTED LINE POSITION«, t00=0x001c, t01=0x0134}
0x2d18…2d4e Head {h00=0x0032, h01=0x0050, text=»ACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ?«, t00=0x001c, t01=0x0162}
0x2d4e…2d7c Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 YES; SET LINE POSITION ZERO «, t00=0x001d, t01=0x0008}
0x2d7c…2d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0036}
0x2d86…2daa Head {h00=0x0020, h01=0x0050, text=»ACT090 LDR A4,A4 RECOVERY ? «, t00=0x001d, t01=0x0040}
0x2daa…2dc4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TP605 YES «, t00=0x001d, t01=0x0064}
0x2dc4…2df8 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTRLN,A6 SAVE REQUESTED LINE NUMBER «, t00=0x001d, t01=0x007e}
0x2df8…2e0a Head {h00=0x000e, h01=0x0050, text=» RF TP605 «, t00=0x001d, t01=0x00b2}
0x2e0a…2e18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00c4}
0x2e18…2e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d2}
0x2e22…2e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00dc}
0x2e2c…2e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e6}
0x2e36…2e5a Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x001d, t01=0x00f0}
0x2e5a…2e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0114}
0x2e64…2e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x011e}
0x2e6e…2e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0128}
0x2e78…2ea6 Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x001d, t01=0x0132}
0x2ea6…2eba Head {h00=0x0010, h01=0x0050, text=»TP210 EQU * «, t00=0x001d, t01=0x0160}
0x2eba…2eee Head {h00=0x0030, h01=0x0050, text=» LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD«, t00=0x001d, t01=0x0174}
0x2eee…2f16 Head {h00=0x0024, h01=0x0050, text=» ANK A1,4 TEXT MESSAGE WRITTEN ?«, t00=0x001e, t01=0x0018}
0x2f16…2f42 Head {h00=0x0028, h01=0x0050, text=» RF(NE) TP220 YES; COMPLETE REQUEST «, t00=0x001e, t01=0x0040}
0x2f42…2f6e Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001e, t01=0x006c}
0x2f6e…2f96 Head {h00=0x0024, h01=0x0050, text=» SUK A1,3 REQUESTED LENGTH 0-2 ?«, t00=0x001e, t01=0x0098}
0x2f96…2fc0 Head {h00=0x0026, h01=0x0050, text=» RF(N) TP230 YES; COMPLETE REQUEST«, t00=0x001e, t01=0x00c0}
0x2fc0…2fd4 Head {h00=0x0010, h01=0x0050, text=» RF(P) TP215«, t00=0x001e, t01=0x00ea}
0x2fd4…2ff6 Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001e, t01=0x00fe}
0x2ff6…301a Head {h00=0x0020, h01=0x0050, text=» LC A2,2,A1 THIRD CHARACTER «, t00=0x001e, t01=0x0120}
0x301a…3042 Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 CONTROL CHARACTER «, t00=0x001e, t01=0x0144}
0x3042…3058 Head {h00=0x0012, h01=0x0050, text=» RF(NL) TP215 «, t00=0x001e, t01=0x016c}
0x3058…3078 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A2 SAVE CHAR =2 «, t00=0x001e, t01=0x0182}
0x3078…3098 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x001f, t01=0x0012}
0x3098…30b2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001f, t01=0x0032}
0x30b2…30d4 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 RELOAD CHAR =2 «, t00=0x001f, t01=0x004c}
0x30d4…30ea Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001f, t01=0x006e}
0x30ea…310a Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x001f, t01=0x0084}
0x310a…3124 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001f, t01=0x00a4}
0x3124…3136 Head {h00=0x000e, h01=0x0050, text=» RF TP220 «, t00=0x001f, t01=0x00be}
0x3136…314a Head {h00=0x0010, h01=0x0050, text=»TP215 EQU * «, t00=0x001f, t01=0x00d0}
0x314a…316c Head {h00=0x001e, h01=0x0050, text=» CF A5,BUFCHR SEND BUFFER «, t00=0x001f, t01=0x00e4}
0x316c…3192 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x001f, t01=0x0106}
0x3192…31a6 Head {h00=0x0010, h01=0x0050, text=»TP220 EQU * «, t00=0x001f, t01=0x012c}
0x31a6…31b8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001f, t01=0x0140}
0x31b8…31f2 Head {h00=0x0036, h01=0x0050, text=»TP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED «, t00=0x001f, t01=0x0152}
0x31f2…320a Head {h00=0x0014, h01=0x0050, text=» ANS A2,DWTST,A6«, t00=0x001f, t01=0x018c}
0x320a…3218 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0014}
0x3218…3222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0022}
0x3222…322c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x002c}
0x322c…324e Head {h00=0x001e, h01=0x0050, text=»* ECB-BUFFER IS WRITTEN «, t00=0x0020, t01=0x0036}
0x324e…3258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0058}
0x3258…3286 Head {h00=0x002a, h01=0x0050, text=»* SEND LINE FEED IF JOURNAL OR TALLY«, t00=0x0020, t01=0x0062}
0x3286…3290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0090}
0x3290…329a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x009a}
0x329a…32ac Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x0020, t01=0x00a4}
0x32ac…32cc Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x0020, t01=0x00b6}
0x32cc…32e6 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0020, t01=0x00d6}
0x32e6…32f8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0020, t01=0x00f0}
0x32f8…330e Head {h00=0x0012, h01=0x0050, text=» RF(NE) TPLF10«, t00=0x0020, t01=0x0102}
0x330e…3334 Head {h00=0x0022, h01=0x0050, text=» LDK A2,RPH DETACH PRINT HEAD «, t00=0x0020, t01=0x0118}
0x3334…334e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0020, t01=0x013e}
0x334e…3362 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x0020, t01=0x0158}
0x3362…3374 Head {h00=0x000e, h01=0x0050, text=» SUK A7,8 «, t00=0x0020, t01=0x016c}
0x3374…33a0 Head {h00=0x0028, h01=0x0050, text=» RF(NN) TPL010 NOT JOURNAL AND TALLY«, t00=0x0020, t01=0x017e}
0x33a0…33c2 Head {h00=0x001e, h01=0x0050, text=» ADK A7,2 GET INDEX TABLE «, t00=0x0021, t01=0x001a}
0x33c2…33ea Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x0021, t01=0x003c}
0x33ea…340e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND LF CHAR. «, t00=0x0021, t01=0x0064}
0x340e…3440 Head {h00=0x002e, h01=0x0050, text=»TPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0021, t01=0x0088}
0x3440…346e Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x0021, t01=0x00ba}
0x346e…347c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00e8}
0x347c…3486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00f6}
0x3486…3490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0100}
0x3490…34b0 Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x0021, t01=0x010a}
0x34b0…34ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x012a}
0x34ba…34c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0134}
0x34c4…34ea Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x0021, t01=0x013e}
0x34ea…34f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0164}
0x34f4…3508 Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x0021, t01=0x016e}
0x3508…3528 Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x0021, t01=0x0182}
0x3528…3542 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0022, t01=0x0012}
0x3542…355a Head {h00=0x0014, h01=0x0050, text=»TPDU10 EQU * =6«, t00=0x0022, t01=0x002c}
0x355a…356e Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x0022, t01=0x0044}
0x356e…3584 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0022, t01=0x0058}
0x3584…3592 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x006e}
0x3592…359c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x007c}
0x359c…35a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0086}
0x35a6…35da Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x0022, t01=0x0090}
0x35da…35e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00c4}
0x35e4…35f8 Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x0022, t01=0x00ce}
0x35f8…362a Head {h00=0x002e, h01=0x0050, text=» SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?«, t00=0x0022, t01=0x00e2}
0x362a…3644 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x0022, t01=0x0114}
0x3644…366c Head {h00=0x0024, h01=0x0050, text=»TST005 ANK A2,VOIN VOUCHER OUT ?«, t00=0x0022, t01=0x012e}
0x366c…3684 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) ENDIO NO«, t00=0x0022, t01=0x0156}
0x3684…369a Head {h00=0x0012, h01=0x0050, text=» RF TST015 YES«, t00=0x0022, t01=0x016e}
0x369a…36a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0184}
0x36a4…36bc Head {h00=0x0014, h01=0x0050, text=»TST010 SUK A7,4 «, t00=0x0022, t01=0x018e}
0x36bc…36d2 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0023, t01=0x0016}
0x36d2…3700 Head {h00=0x002a, h01=0x0050, text=» RF(G) ENDIO NOT TEST STATUS, JOURNAL «, t00=0x0023, t01=0x002c}
0x3700…370c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x005a}
0x370c…3722 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0023, t01=0x0066}
0x3722…3750 Head {h00=0x002a, h01=0x0050, text=» RF(G) TST020 NOT TEST STATUS, JOURNAL«, t00=0x0023, t01=0x007c}
0x3750…3764 Head {h00=0x0010, h01=0x0050, text=»TST012 EQU *«, t00=0x0023, t01=0x00aa}
0x3764…3770 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00be}
0x3770…379a Head {h00=0x0026, h01=0x0050, text=» ANK A2,EOJT END OF JOURNAL TAPE? «, t00=0x0023, t01=0x00ca}
0x379a…37c2 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ENDIO NO: PERFORM ENDIO «, t00=0x0023, t01=0x00f4}
0x37c2…37ee Head {h00=0x0028, h01=0x0050, text=»TST015 ORK A1,PROUT SET RETURN CODE:«, t00=0x0023, t01=0x011c}
0x37ee…381a Head {h00=0x0028, h01=0x0050, text=» END OF JOURNAL TAPE, VOUCHER OUT «, t00=0x0023, t01=0x0148}
0x381a…3824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0174}
0x3824…382e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017e}
0x382e…385e Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0023, t01=0x0188}
0x385e…3868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0028}
0x3868…387c Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0024, t01=0x0032}
0x387c…38b4 Head {h00=0x0034, h01=0x0050, text=» ABL DISEND PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0024, t01=0x0046}
0x38b4…38be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x007e}
0x38be…38c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0088}
0x38c8…38d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0092}
0x38d2…38dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x009c}
0x38dc…38f2 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0024, t01=0x00a6}
0x38f2…390a Head {h00=0x0014, h01=0x0050, text=»TST020 SUK A7,16«, t00=0x0024, t01=0x00bc}
0x390a…3930 Head {h00=0x0022, h01=0x0050, text=» RB(L) ENDIO VOUCHER/PASSBOOK «, t00=0x0024, t01=0x00d4}
0x3930…3942 Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0024, t01=0x00fa}
0x3942…3964 Head {h00=0x001e, h01=0x0050, text=» RB(G) ENDIO GRASP,RELEASE«, t00=0x0024, t01=0x010c}
0x3964…3984 Head {h00=0x001c, h01=0x0050, text=» RB TST012 CUT,PERFORATE«, t00=0x0024, t01=0x012e}
0x3984…3990 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x014e}
0x3990…399e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x015a}
0x399e…39a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0168}
0x39a8…39b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0172}
0x39b2…39bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x017c}
0x39bc…39e4 Head {h00=0x0024, h01=0x0050, text=»* ORDER 06 : PRINT TALLY ROLL «, t00=0x0024, t01=0x0186}
0x39e4…39ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x001e}
0x39ee…39f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0028}
0x39f8…3a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0032}
0x3a02…3a2e Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x0025, t01=0x003c}
0x3a2e…3a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0068}
0x3a38…3a66 Head {h00=0x002a, h01=0x0050, text=»TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH«, t00=0x0025, t01=0x0072}
0x3a66…3a7a Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x0025, t01=0x00a0}
0x3a7a…3a90 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,VOCHA«, t00=0x0025, t01=0x00b4}
0x3a90…3ad4 Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x0025, t01=0x00ca}
0x3ad4…3ae6 Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x0025, t01=0x010e}
0x3ae6…3af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0120}
0x3af0…3afe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x012a}
0x3afe…3b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0138}
0x3b08…3b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0142}
0x3b12…3b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x014c}
0x3b1c…3b4a Head {h00=0x002a, h01=0x0050, text=»* ORDER 06 : WRITE VOUCHER/PASSBOOK«, t00=0x0025, t01=0x0156}
0x3b4a…3b78 Head {h00=0x002a, h01=0x0050, text=»* OB : POSITION LIFT AND WRITE«, t00=0x0025, t01=0x0184}
0x3b78…3b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0022}
0x3b82…3b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x002c}
0x3b8c…3ba4 Head {h00=0x0014, h01=0x0050, text=»TP605 EQU * =2 «, t00=0x0026, t01=0x0036}
0x3ba4…3bc4 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x0026, t01=0x004e}
0x3bc4…3bde Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0026, t01=0x006e}
0x3bde…3c04 Head {h00=0x0022, h01=0x0050, text=» CF A5,GRASP GRASP VOUCHER =2 «, t00=0x0026, t01=0x0088}
0x3c04…3c12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00ae}
0x3c12…3c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00bc}
0x3c1c…3c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c6}
0x3c26…3c54 Head {h00=0x002a, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL«, t00=0x0026, t01=0x00d0}
0x3c54…3c7e Head {h00=0x0026, h01=0x0050, text=»* LINE NUMBER IS EQUAL REQUESTED«, t00=0x0026, t01=0x00fe}
0x3c7e…3c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0128}
0x3c88…3c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0132}
0x3c92…3cc4 Head {h00=0x002e, h01=0x0050, text=»TP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER «, t00=0x0026, t01=0x013c}
0x3cc4…3cde Head {h00=0x0016, h01=0x0050, text=» RF(E) TP650 EQUAL«, t00=0x0026, t01=0x016e}
0x3cde…3d04 Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x0026, t01=0x0188}
0x3d04…3d2a Head {h00=0x0022, h01=0x0050, text=» LDK A2,LDO SEND ELEVATOR DOWN«, t00=0x0027, t01=0x001e}
0x3d2a…3d58 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0027, t01=0x0044}
0x3d58…3d6a Head {h00=0x000e, h01=0x0050, text=» RF TP640 «, t00=0x0027, t01=0x0072}
0x3d6a…3d94 Head {h00=0x0026, h01=0x0050, text=»TP630 LDK A2,LUP SEND ELEVATOR UP «, t00=0x0027, t01=0x0084}
0x3d94…3dc2 Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LINE NUMBER«, t00=0x0027, t01=0x00ae}
0x3dc2…3dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00dc}
0x3dcc…3df6 Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR «, t00=0x0027, t01=0x00e6}
0x3df6…3e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0110}
0x3e00…3e30 Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x0027, t01=0x011a}
0x3e30…3e52 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0027, t01=0x014a}
0x3e52…3e66 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0027, t01=0x016c}
0x3e66…3e90 Head {h00=0x0026, h01=0x0050, text=» ABL(Z) RCTP01 NO: ERROR RECOVERY «, t00=0x0027, t01=0x0180}
0x3e90…3ec0 Head {h00=0x002c, h01=0x0050, text=» RB TP610 YES: CHECK IF LIFT POSITIONED«, t00=0x0028, t01=0x001a}
0x3ec0…3ecc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x004a}
0x3ecc…3ee0 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0028, t01=0x0056}
0x3ee0…3f16 Head {h00=0x0032, h01=0x0050, text=» RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED«, t00=0x0028, t01=0x006a}
0x3f16…3f3e Head {h00=0x0024, h01=0x0050, text=»TP645 LDK A1,PROUT 'VOUCHER OUT'«, t00=0x0028, t01=0x00a0}
0x3f3e…3f6e Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 INDICATE IN RETURN CODE«, t00=0x0028, t01=0x00c8}
0x3f6e…3f80 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0028, t01=0x00f8}
0x3f80…3f8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x010a}
0x3f8c…3f9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0116}
0x3f9a…3fa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0124}
0x3fa4…3fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x012e}
0x3fae…3fde Head {h00=0x002c, h01=0x0050, text=»* ORDER 06 AND 0B: LIFT IS POSITIONED «, t00=0x0028, t01=0x0138}
0x3fde…400c Head {h00=0x002a, h01=0x0050, text=»* ATTACH AND PRINT «, t00=0x0028, t01=0x0168}
0x400c…4016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0008}
0x4016…4020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0012}
0x4020…4034 Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0029, t01=0x001c}
0x4034…405e Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF2 SEND CR2 AND ATTACH «, t00=0x0029, t01=0x0030}
0x405e…4080 Head {h00=0x001e, h01=0x0050, text=» RB TP410 PRINT ECB-BUFFER«, t00=0x0029, t01=0x005a}
0x4080…408e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x007c}
0x408e…40a4 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0029, t01=0x008a}
0x40a4…40ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00a0}
0x40ae…40e6 Head {h00=0x0034, h01=0x0050, text=»* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL «, t00=0x0029, t01=0x00aa}
0x40e6…40f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e2}
0x40f0…4104 Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0029, t01=0x00ec}
0x4104…4122 Head {h00=0x001a, h01=0x0050, text=» LDK A3,1 SET INDEX =4«, t00=0x0029, t01=0x0100}
0x4122…4134 Head {h00=0x000e, h01=0x0050, text=» RF TP760 «, t00=0x0029, t01=0x011e}
0x4134…4148 Head {h00=0x0010, h01=0x0050, text=»TP750 EQU * «, t00=0x0029, t01=0x0130}
0x4148…4166 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SET INDEX =4«, t00=0x0029, t01=0x0144}
0x4166…418a Head {h00=0x0020, h01=0x0050, text=»TP760 LDK A2,STX SEND STX =4«, t00=0x0029, t01=0x0162}
0x418a…41a4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =4 «, t00=0x0029, t01=0x0186}
0x41a4…41c8 Head {h00=0x0020, h01=0x0050, text=» LC A2,CPTAB,A3 GET CHAR =4 «, t00=0x002a, t01=0x0010}
0x41c8…41e2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x002a, t01=0x0034}
0x41e2…41f0 Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x002a, t01=0x004e}
0x41f0…41fe Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x002a, t01=0x005c}
0x41fe…4210 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002a, t01=0x006a}
0x4210…421c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x007c}
0x421c…4226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0088}
0x4226…4266 Head {h00=0x003c, h01=0x0050, text=»* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK«, t00=0x002a, t01=0x0092}
0x4266…4270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d2}
0x4270…4284 Head {h00=0x0010, h01=0x0050, text=»TP800 EQU * «, t00=0x002a, t01=0x00dc}
0x4284…429a Head {h00=0x0012, h01=0x0050, text=» CF A5,GRASPA «, t00=0x002a, t01=0x00f0}
0x429a…42ac Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002a, t01=0x0106}
0x42ac…42c0 Head {h00=0x0010, h01=0x0050, text=»TP900 EQU * «, t00=0x002a, t01=0x0118}
0x42c0…42d6 Head {h00=0x0012, h01=0x0050, text=» CF A5,RELEAS «, t00=0x002a, t01=0x012c}
0x42d6…42e8 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002a, t01=0x0142}
0x42e8…42f0 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0154}
0x42f0…42fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x015c}
0x42fe…4308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x016a}
0x4308…431e Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x002a, t01=0x0174}
0x431e…4328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x018a}
0x4328…4372 (43, 0, 398) Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x002b, t01=0x0004}
0x4372…4390 Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x002b, t01=0x004e}
0x4390…439a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006c}
0x439a…43cc Head {h00=0x002e, h01=0x0050, text=»PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH «, t00=0x002b, t01=0x0076}
0x43cc…43f6 Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x002b, t01=0x00a8}
0x43f6…441c Head {h00=0x0022, h01=0x0050, text=» LD A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x002b, t01=0x00d2}
0x441c…4448 Head {h00=0x0028, h01=0x0050, text=»* SKIP PRECEDING SPACES IN BUFFER «, t00=0x002b, t01=0x00f8}
0x4448…445a Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x002b, t01=0x0124}
0x445a…4480 Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x002b, t01=0x0136}
0x4480…4496 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x002b, t01=0x015c}
0x4496…44b6 Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB050 NOT BLANK«, t00=0x002b, t01=0x0172}
0x44b6…44ce (44, 0, 400) Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x002c, t01=0x0004}
0x44ce…44e0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002c, t01=0x001c}
0x44e0…4506 Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x002c, t01=0x002e}
0x4506…4548 Head {h00=0x003e, h01=0x0050, text=»* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER «, t00=0x002c, t01=0x0054}
0x4548…4570 Head {h00=0x0024, h01=0x0050, text=»PRB050 LDR A1,A3 GET ADDRESS TO «, t00=0x002c, t01=0x0096}
0x4570…459c Head {h00=0x0028, h01=0x0050, text=» ADR A1,A4 LAST CHARACTER IN BUFFER «, t00=0x002c, t01=0x00be}
0x459c…45ba Head {h00=0x001a, h01=0x0050, text=» LC A1,-1,A1 GET CHAR «, t00=0x002c, t01=0x00ea}
0x45ba…45e8 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0909 CARRIAGE RETURN - CR2 ? «, t00=0x002c, t01=0x0108}
0x45e8…4602 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002c, t01=0x0136}
0x4602…4630 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0D0D CARRIAGE RETURN - CR1 ? «, t00=0x002c, t01=0x0150}
0x4630…464a Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002c, t01=0x017e}
0x464a…466c Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 DUMMY CHARACTER «, t00=0x002d, t01=0x0008}
0x466c…467e Head {h00=0x000e, h01=0x0050, text=» RF PRB070«, t00=0x002d, t01=0x002a}
0x467e…46b0 Head {h00=0x002e, h01=0x0050, text=»PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002d, t01=0x003c}
0x46b0…46e0 Head {h00=0x002c, h01=0x0050, text=»PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB «, t00=0x002d, t01=0x006e}
0x46e0…46ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x009e}
0x46ea…46f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00a8}
0x46f4…4726 Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002d, t01=0x00b2}
0x4726…474a Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x002d, t01=0x00e4}
0x474a…4784 Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D)«, t00=0x002d, t01=0x0108}
0x4784…479a Head {h00=0x0012, h01=0x0050, text=» RF(E) PRB101 «, t00=0x002d, t01=0x0142}
0x479a…47ba Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND CHAR «, t00=0x002d, t01=0x0158}
0x47ba…47ce Head {h00=0x0010, h01=0x0050, text=»PRB101 EQU *«, t00=0x002d, t01=0x0178}
0x47ce…47e2 Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETB «, t00=0x002d, t01=0x018c}
0x47e2…480c Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT SEND END OF MESSAGE «, t00=0x002e, t01=0x0010}
0x480c…4820 Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x002e, t01=0x003a}
0x4820…485a Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED «, t00=0x002e, t01=0x004e}
0x485a…4888 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED«, t00=0x002e, t01=0x0088}
0x4888…48a0 Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x002e, t01=0x00b6}
0x48a0…48b6 Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x002e, t01=0x00ce}
0x48b6…48c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00e4}
0x48c4…48ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f2}
0x48ce…48d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fc}
0x48d8…48e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0106}
0x48e2…48fa Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x002e, t01=0x0110}
0x48fa…4904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0128}
0x4904…490e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0132}
0x490e…4922 Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x002e, t01=0x013c}
0x4922…4958 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x002e, t01=0x0150}
0x4958…4976 Head {h00=0x001a, h01=0x0050, text=» SUK A7,7 CHECK ORDER «, t00=0x002e, t01=0x0186}
0x4976…499a Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x002f, t01=0x0014}
0x499a…49be Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x002f, t01=0x0038}
0x49be…49cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x005c}
0x49cc…49d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x006a}
0x49d6…49e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0074}
0x49e0…49ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007e}
0x49ea…4a06 Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x002f, t01=0x0088}
0x4a06…4a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a4}
0x4a10…4a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ae}
0x4a1a…4a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00b8}
0x4a24…4a46 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x002f, t01=0x00c2}
0x4a46…4a6c Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x002f, t01=0x00e4}
0x4a6c…4a92 Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x002f, t01=0x010a}
0x4a92…4ac0 Head {h00=0x002a, h01=0x0050, text=» RB TP405 SEND LIFT TO TOP AND RELEAS «, t00=0x002f, t01=0x0130}
0x4ac0…4aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x015e}
0x4aca…4ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0168}
0x4ad4…4ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0172}
0x4ade…4b00 Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x002f, t01=0x017c}
0x4b00…4b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000e}
0x4b0a…4b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0018}
0x4b14…4b3c Head {h00=0x0024, h01=0x0050, text=»PRB110 ANK A2,VOIN VOUCHER IN ? «, t00=0x0030, t01=0x0022}
0x4b3c…4b50 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0030, t01=0x004a}
0x4b50…4b7c Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP01 ERROR .VOUCHER NOT IN «, t00=0x0030, t01=0x005e}
0x4b7c…4b88 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x008a}
0x4b88…4b9c Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0030, t01=0x0096}
0x4b9c…4bb0 Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x0030, t01=0x00aa}
0x4bb0…4bbc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00be}
0x4bbc…4be4 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 COPY REQUESTED LENGTH«, t00=0x0030, t01=0x00ca}
0x4be4…4c00 Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 R.L. < 3? «, t00=0x0030, t01=0x00f2}
0x4c00…4c28 Head {h00=0x0024, h01=0x0050, text=» RF(N) PRB200 YES: NO TABULATION«, t00=0x0030, t01=0x010e}
0x4c28…4c3c Head {h00=0x0010, h01=0x0050, text=» LDK A1,TAB «, t00=0x0030, t01=0x0136}
0x4c3c…4c5c Head {h00=0x001c, h01=0x0050, text=» CC A1,-2,A3 TABULATION?«, t00=0x0030, t01=0x014a}
0x4c5c…4c76 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x0030, t01=0x016a}
0x4c76…4c84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0184}
0x4c84…4c8e (49, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0004}
0x4c8e…4c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x000e}
0x4c98…4cd0 Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x0031, t01=0x0018}
0x4cd0…4d10 Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x0031, t01=0x0050}
0x4d10…4d32 Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x0031, t01=0x0090}
0x4d32…4d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b2}
0x4d3c…4d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00bc}
0x4d46…4d72 Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,RPH DETACH PRINT HEAD «, t00=0x0031, t01=0x00c6}
0x4d72…4d94 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x0031, t01=0x00f2}
0x4d94…4dc4 Head {h00=0x002c, h01=0x0050, text=»PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR «, t00=0x0031, t01=0x0114}
0x4dc4…4dec Head {h00=0x0024, h01=0x0050, text=» LCR A1,A3 GET 2ND TAB POS CHAR «, t00=0x0031, t01=0x0144}
0x4dec…4e08 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x0031, t01=0x016c}
0x4e08…4e1a Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0031, t01=0x0188}
0x4e1a…4e3a Head {h00=0x001c, h01=0x0050, text=» ANK A2,/F0 LINE DECADE «, t00=0x0032, t01=0x000a}
0x4e3a…4e60 Head {h00=0x0022, h01=0x0050, text=» ORR A1,A2 DECIMAL LINE NUMBER«, t00=0x0032, t01=0x002a}
0x4e60…4e88 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x0032, t01=0x0050}
0x4e88…4eba Head {h00=0x002e, h01=0x0050, text=»PRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0032, t01=0x0078}
0x4eba…4ef0 Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. «, t00=0x0032, t01=0x00aa}
0x4ef0…4f0c Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x0032, t01=0x00e0}
0x4f0c…4f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00fc}
0x4f16…4f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0106}
0x4f20…4f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0110}
0x4f2a…4f48 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x0032, t01=0x011a}
0x4f48…4f74 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x0032, t01=0x0138}
0x4f74…4f86 Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x0032, t01=0x0164}
0x4f86…4f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0176}
0x4f90…4f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0180}
0x4f9a…4fa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x018a}
0x4fa4…4fd6 (51, 0, 400) Head {h00=0x002e, h01=0x0050, text=»PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH«, t00=0x0033, t01=0x0004}
0x4fd6…5000 Head {h00=0x0026, h01=0x0050, text=» SUK A3,2 DECREMENT BUFFER ADDRESS«, t00=0x0033, t01=0x0036}
0x5000…501a Head {h00=0x0016, h01=0x0050, text=» LDK A2,APH ATTACH«, t00=0x0033, t01=0x0060}
0x501a…5038 Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x0033, t01=0x007a}
0x5038…5046 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0098}
0x5046…5050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00a6}
0x5050…505a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b0}
0x505a…5064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ba}
0x5064…509a Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x0033, t01=0x00c4}
0x509a…50b6 Head {h00=0x0018, h01=0x0050, text=»* - ROOMLESS POINT«, t00=0x0033, t01=0x00fa}
0x50b6…50d6 Head {h00=0x001c, h01=0x0050, text=»* - ILLEGAL CHARACTER «, t00=0x0033, t01=0x0116}
0x50d6…5100 Head {h00=0x0026, h01=0x0050, text=»* - SPECIAL CHARACTER (/13,/14) «, t00=0x0033, t01=0x0136}
0x5100…510a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0160}
0x510a…511e Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x0033, t01=0x016a}
0x511e…514c Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x0033, t01=0x017e}
0x514c…5172 Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x0034, t01=0x001c}
0x5172…518c Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x0034, t01=0x0042}
0x518c…51b6 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER POINTER«, t00=0x0034, t01=0x005c}
0x51b6…51c8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0034, t01=0x0086}
0x51c8…51f0 Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x0034, t01=0x0098}
0x51f0…5208 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x0034, t01=0x00c0}
0x5208…5232 Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x0034, t01=0x00d8}
0x5232…523c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0102}
0x523c…5246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x010c}
0x5246…5250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0116}
0x5250…5280 Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x0034, t01=0x0120}
0x5280…529a Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB225 YES «, t00=0x0034, t01=0x0150}
0x529a…52ca Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x0034, t01=0x016a}
0x52ca…52e4 Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x0035, t01=0x000a}
0x52e4…52ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0024}
0x52ee…52f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x002e}
0x52f8…530c Head {h00=0x0010, h01=0x0050, text=»PRB225 EQU *«, t00=0x0035, t01=0x0038}
0x530c…5320 Head {h00=0x0010, h01=0x0050, text=» IFT CHR13=1«, t00=0x0035, t01=0x004c}
0x5320…534a Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x0035, t01=0x0060}
0x534a…5364 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0035, t01=0x008a}
0x5364…5370 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00a4}
0x5370…5384 Head {h00=0x0010, h01=0x0050, text=» IFT CHR14=1«, t00=0x0035, t01=0x00b0}
0x5384…53ae Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x0035, t01=0x00c4}
0x53ae…53c8 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0035, t01=0x00ee}
0x53c8…53d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0108}
0x53d4…53de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0114}
0x53de…5404 Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x0035, t01=0x011e}
0x5404…5432 Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 STORE IN RETURN CODE «, t00=0x0035, t01=0x0144}
0x5432…5454 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0035, t01=0x0172}
0x5454…5468 (54, 0, 398) Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0036, t01=0x0004}
0x5468…547a Head {h00=0x000e, h01=0x0050, text=» RF PRB245«, t00=0x0036, t01=0x0018}
0x547a…5484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x002a}
0x5484…548e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0034}
0x548e…5498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x003e}
0x5498…54ca Head {h00=0x002e, h01=0x0050, text=»PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0036, t01=0x0048}
0x54ca…54f2 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x0036, t01=0x007a}
0x54f2…551c Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x0036, t01=0x00a2}
0x551c…554c Head {h00=0x002c, h01=0x0050, text=»PRB245 SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x0036, t01=0x00cc}
0x554c…555e Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x0036, t01=0x00fc}
0x555e…5568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x010e}
0x5568…5572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0118}
0x5572…557c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0122}
0x557c…558a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x012c}
0x558a…5594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013a}
0x5594…55a8 Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x0036, t01=0x0144}
0x55a8…55b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0158}
0x55b2…55e6 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0036, t01=0x0162}
0x55e6…55f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0008}
0x55f0…55fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0012}
0x55fa…5604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x001c}
0x5604…5616 Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x0037, t01=0x0026}
0x5616…5638 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x0037, t01=0x0038}
0x5638…5656 Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP10 NOT BUSY«, t00=0x0037, t01=0x005a}
0x5656…5664 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0037, t01=0x0078}
0x5664…5672 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0037, t01=0x0086}
0x5672…5694 Head {h00=0x001e, h01=0x0050, text=» CWK A7,2 TEST STATUS ? =1«, t00=0x0037, t01=0x0094}
0x5694…56b2 Head {h00=0x001a, h01=0x0050, text=» RF(NG) IHTP20 YES =1 «, t00=0x0037, t01=0x00b6}
0x56b2…56e2 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT«, t00=0x0037, t01=0x00d4}
0x56e2…56f0 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0037, t01=0x0104}
0x56f0…5706 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=0 «, t00=0x0037, t01=0x0112}
0x5706…5734 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) RCTP10 YES GO TO DISPATCHER =1«, t00=0x0037, t01=0x0128}
0x5734…5740 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0156}
0x5740…5756 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=1 «, t00=0x0037, t01=0x0162}
0x5756…5782 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) IHTP30 YES FINISH REQUEST =1«, t00=0x0037, t01=0x0178}
0x5782…578e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0014}
0x578e…57ca Head {h00=0x0038, h01=0x0050, text=»IHTP10 ABL LDREG NO RETURN CODE RESTORE REGISTER =1 «, t00=0x0038, t01=0x0020}
0x57ca…57e2 Head {h00=0x0014, h01=0x0050, text=»IHTP20 LDR A1,A1«, t00=0x0038, t01=0x005c}
0x57e2…5812 Head {h00=0x002c, h01=0x0050, text=» RB(Z) IHTP10 TEST ORDER AND TIME OUT =1«, t00=0x0038, t01=0x0074}
0x5812…5826 Head {h00=0x0010, h01=0x0050, text=»IHTP30 EQU *«, t00=0x0038, t01=0x00a4}
0x5826…5838 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0038, t01=0x00b8}
0x5838…5842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ca}
0x5842…584c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00d4}
0x584c…5856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00de}
0x5856…5864 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00e8}
0x5864…586e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f6}
0x586e…5882 Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x0038, t01=0x0100}
0x5882…588c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0114}
0x588c…58ce Head {h00=0x003e, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON«, t00=0x0038, t01=0x011e}
0x58ce…58d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0160}
0x58d8…58ea Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x0038, t01=0x016a}
0x58ea…5900 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0038, t01=0x017c}
0x5900…592a (57, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0039, t01=0x0004}
0x592a…5936 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x002e}
0x5936…5940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x003a}
0x5940…5956 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0039, t01=0x0044}
0x5956…597c Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0039, t01=0x005a}
0x597c…5988 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0080}
0x5988…5992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x008c}
0x5992…59bc Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/7FFF IND DEVICE BUSY =3 «, t00=0x0039, t01=0x0096}
0x59bc…59d8 Head {h00=0x0018, h01=0x0050, text=» ANS A2,DWTST,A6 =3«, t00=0x0039, t01=0x00c0}
0x59d8…59f4 Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTECB,A6 =3«, t00=0x0039, t01=0x00dc}
0x59f4…5a20 Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP05 REQUEST NOT RUNNING =3«, t00=0x0039, t01=0x00f8}
0x5a20…5a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0124}
0x5a2a…5a52 Head {h00=0x0024, h01=0x0050, text=»RCTP01 LDKL A5,DWTSB2 STACK BASE«, t00=0x0039, t01=0x012e}
0x5a52…5a64 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0039, t01=0x0156}
0x5a64…5aa4 Head {h00=0x003c, h01=0x0050, text=» LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x0039, t01=0x0168}
0x5aa4…5ac4 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x003a, t01=0x0018}
0x5ac4…5ad8 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x003a, t01=0x0038}
0x5ad8…5afa Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 STATUS CHANGE ?«, t00=0x003a, t01=0x004c}
0x5afa…5b14 Head {h00=0x0016, h01=0x0050, text=» RF(E) RCTP05 =6 «, t00=0x003a, t01=0x006e}
0x5b14…5b3c Head {h00=0x0024, h01=0x0050, text=» LDK A2,RPH RETURN PRINTHEAD =6 «, t00=0x003a, t01=0x0088}
0x5b3c…5b5a Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND =6 «, t00=0x003a, t01=0x00b0}
0x5b5a…5b80 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,PROUT VOUCHER OUT =6 «, t00=0x003a, t01=0x00ce}
0x5b80…5bb4 Head {h00=0x0030, h01=0x0050, text=» ORS A1,ECBRC,A8 INDICATE IN RETURN CODE =6 «, t00=0x003a, t01=0x00f4}
0x5bb4…5bdc Head {h00=0x0024, h01=0x0050, text=» ABL TPDU10 COMPLETE REQUEST =6 «, t00=0x003a, t01=0x0128}
0x5bdc…5be8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0150}
0x5be8…5bfc Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x003a, t01=0x015c}
0x5bfc…5c0e Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003a, t01=0x0170}
0x5c0e…5c44 Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x003a, t01=0x0182}
0x5c44…5c64 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003b, t01=0x0028}
0x5c64…5c7a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003b, t01=0x0048}
0x5c7a…5c96 Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTECB,A6 =3«, t00=0x003b, t01=0x005e}
0x5c96…5cc0 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RCTP07 REQUEST RUNNING =3 «, t00=0x003b, t01=0x007a}
0x5cc0…5cf4 Head {h00=0x0030, h01=0x0050, text=» LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3«, t00=0x003b, t01=0x00a4}
0x5cf4…5d0e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =3 «, t00=0x003b, t01=0x00d8}
0x5d0e…5d26 Head {h00=0x0014, h01=0x0050, text=» ABL DISEND =3 «, t00=0x003b, t01=0x00f2}
0x5d26…5d3e Head {h00=0x0014, h01=0x0050, text=»RCTP07 EQU * =3«, t00=0x003b, t01=0x010a}
0x5d3e…5d52 Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x003b, t01=0x0122}
0x5d52…5d78 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/80 INDICATE POWER OFF«, t00=0x003b, t01=0x0136}
0x5d78…5d9c Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x003b, t01=0x015c}
0x5d9c…5da8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0180}
0x5da8…5dc6 Head {h00=0x001a, h01=0x0050, text=» LDK A4,1 IND RECOVERY«, t00=0x003b, t01=0x018c}
0x5dc6…5df4 Head {h00=0x002a, h01=0x0050, text=» ABL ACT005 START RECOVERY OF PRINTER «, t00=0x003c, t01=0x001a}
0x5df4…5e1e Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL TDISP GO TO DISPATCHER «, t00=0x003c, t01=0x0048}
0x5e1e…5e2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0072}
0x5e2c…5e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0080}
0x5e36…5e4e Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x003c, t01=0x008a}
0x5e4e…5e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a2}
0x5e58…5e90 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x003c, t01=0x00ac}
0x5e90…5e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00e4}
0x5e9a…5ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ee}
0x5ea4…5eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00f8}
0x5eae…5ee0 Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 «, t00=0x003c, t01=0x0102}
0x5ee0…5efa Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x003c, t01=0x0134}
0x5efa…5f14 Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x003c, t01=0x014e}
0x5f14…5f34 Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x003c, t01=0x0168}
0x5f34…5f48 Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x003c, t01=0x0188}
0x5f48…5f6e Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x003d, t01=0x000c}
0x5f6e…5f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0032}
0x5f78…5f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x003c}
0x5f82…5f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0046}
0x5f8c…5f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0050}
0x5f96…5fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x005a}
0x5fa0…5fb6 Head {h00=0x0012, h01=0x0050, text=»* G R A S P «, t00=0x003d, t01=0x0064}
0x5fb6…5fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x007a}
0x5fc0…5ff8 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK«, t00=0x003d, t01=0x0084}
0x5ff8…6002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00bc}
0x6002…600c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00c6}
0x600c…6020 Head {h00=0x0010, h01=0x0050, text=»GRASPA EQU *«, t00=0x003d, t01=0x00d0}
0x6020…6040 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003d, t01=0x00e4}
0x6040…605a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003d, t01=0x0104}
0x605a…607a Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003d, t01=0x011e}
0x607a…6090 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x013e}
0x6090…60a4 Head {h00=0x0010, h01=0x0050, text=»GRASP EQU * «, t00=0x003d, t01=0x0154}
0x60a4…60b6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003d, t01=0x0168}
0x60b6…60d0 Head {h00=0x0016, h01=0x0050, text=» LDK A2,GRA GRASP «, t00=0x003d, t01=0x017a}
0x60d0…60e6 (62, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003e, t01=0x0004}
0x60e6…6108 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x003e, t01=0x001a}
0x6108…6122 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GRAS10 YES«, t00=0x003e, t01=0x003c}
0x6122…6142 Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x003e, t01=0x0056}
0x6142…615c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003e, t01=0x0076}
0x615c…6182 Head {h00=0x0022, h01=0x0050, text=» LDK A2,TETX DUMMY AFTER GRASP«, t00=0x003e, t01=0x0090}
0x6182…6198 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003e, t01=0x00b6}
0x6198…61b8 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003e, t01=0x00cc}
0x61b8…61d2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003e, t01=0x00ec}
0x61d2…61f2 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003e, t01=0x0106}
0x61f2…6208 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003e, t01=0x0126}
0x6208…6218 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003e, t01=0x013c}
0x6218…6236 Head {h00=0x001a, h01=0x0050, text=»GRAS10 LC A3,DWTALN,A6«, t00=0x003e, t01=0x014c}
0x6236…6246 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003e, t01=0x016a}
0x6246…6250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x017a}
0x6250…625a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0184}
0x625a…6268 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x018e}
0x6268…6272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x000c}
0x6272…627c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0016}
0x627c…6294 Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x003f, t01=0x0020}
0x6294…629e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0038}
0x629e…62d4 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x003f, t01=0x0042}
0x62d4…62de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0078}
0x62de…62e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0082}
0x62e8…62f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x008c}
0x62f2…6306 Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x003f, t01=0x0096}
0x6306…6318 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003f, t01=0x00aa}
0x6318…634c Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0«, t00=0x003f, t01=0x00bc}
0x634c…6378 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,BUF5 LIFT TO TOP AND RELEAS«, t00=0x003f, t01=0x00f0}
0x6378…6398 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003f, t01=0x011c}
0x6398…63b2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003f, t01=0x013c}
0x63b2…63d2 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003f, t01=0x0156}
0x63d2…63e8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003f, t01=0x0176}
0x63e8…640a Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x003f, t01=0x018c}
0x640a…6420 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BUFRTN «, t00=0x0040, t01=0x001e}
0x6420…642a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0034}
0x642a…6442 Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x0040, t01=0x003e}
0x6442…644c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0056}
0x644c…648c Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x0040, t01=0x0060}
0x648c…64b8 Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x0040, t01=0x00a0}
0x64b8…64c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00cc}
0x64c2…64cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d6}
0x64cc…6504 Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x0040, t01=0x00e0}
0x6504…651c Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x0040, t01=0x0118}
0x651c…654c Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x0040, t01=0x0130}
0x654c…6574 Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x0040, t01=0x0160}
0x6574…6598 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0040, t01=0x0188}
0x6598…65bc Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0041, t01=0x001c}
0x65bc…65e6 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x0041, t01=0x0040}
0x65e6…65fa Head {h00=0x0010, h01=0x0050, text=»BUFRTN EQU *«, t00=0x0041, t01=0x006a}
0x65fa…661a Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x0041, t01=0x007e}
0x661a…6624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x009e}
0x6624…662e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00a8}
0x662e…6638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b2}
0x6638…6642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00bc}
0x6642…664c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00c6}
0x664c…6656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00d0}
0x6656…6662 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0041, t01=0x00da}
0x6662…6666 Head {h00=0x4004, h01=0x0000}
0x6666…666a 00 41 00 e6 ┆ A ┆
0x666a…6672 (66, 1, 8) 20 04 00 00 00 42 00 04 ┆ B ┆
0x6672…66c2 (67, 0, 400) bc 3f 81 20 0e d0 20 bf 84 24 50 24 84 44 00 0e 50 0e ee 10 50 30 83 50 00 14 50 0a 84 0c 5f 0e 86 45 00 0e 57 04 86 51 00 14 a0 59 00 14 57 16 83 38 a3 20 7f 00 22 ff aa 0c f0 45 00 08 5c 34 86 25 82 45 00 02 e2 59 00 06 bc 3e 20 bf 97 a0 ┆ ? $P$ D P P0 P P _ E W Q Y W 8 " E 4 % E Y > ┆
0x66c2…6712 00 02 80 3e 42 c3 86 40 0e d0 50 0a a0 41 0e d0 02 00 f7 a1 10 28 8f 20 10 fe 22 ff 81 08 19 82 50 3e 19 15 50 3a f7 a1 10 28 20 bf 81 20 01 00 a9 59 00 02 83 59 00 16 84 59 00 18 85 59 00 1a 8f 20 0f dc 83 58 00 02 a3 20 01 00 88 20 0f dc ┆ >B @ P A ( " P> P: ( Y Y Y Y X ┆
0x6712…6762 b3 59 00 02 85 58 00 1a 83 58 00 16 84 58 00 18 87 58 00 06 27 ff 80 d8 00 04 f0 34 81 42 00 04 99 0c 55 0e 82 42 00 02 92 0c e2 28 22 ff 13 01 57 04 83 43 00 06 97 a0 00 02 28 40 80 3e 87 20 80 00 83 59 00 16 84 59 00 18 85 59 00 1a 81 58 ┆ Y X X X X ' 4 B U B (" W C (@ > Y Y Y X┆
0x6762…67b2 00 02 39 42 56 24 84 18 86 58 00 26 84 59 00 0c 85 20 00 22 95 18 81 58 00 08 8f 44 00 08 87 1c 56 04 f7 a1 0a 6a 86 58 00 0c 8f 20 10 cc 00 00 ff fe 11 56 00 00 00 00 ff fe 11 64 00 00 84 1c 1c 02 54 1a 82 38 54 56 87 39 57 44 83 42 00 0a ┆ 9BV$ X & Y " X D V j X V d T 8TV 9WD B ┆
0x67b2…6802 a3 20 07 ff 84 1c 1c 37 50 10 1c 01 50 04 8c 20 5b 50 fb 0c a3 41 5b 36 57 04 ab 41 5b 36 81 40 5b 36 41 2e 57 1e bc 3f 80 41 05 a8 49 2e 39 a8 12 01 86 20 11 d4 84 58 20 00 00 00 00 09 28 08 00 41 00 00 00 00 00 00 00 22 44 00 00 92 84 25 ┆ 7P P [P A[6W A[6 @[6A.W ? A I.9 X ( A "D %┆
0x6802…6852 (68, 0, 400) 00 02 52 12 80 d8 00 04 82 43 00 0a a0 43 00 06 01 00 f7 a1 0a 6a 8f 20 5b 58 bc 3f 41 ee 81 40 5b 36 41 2e 02 00 86 20 11 d4 84 58 00 02 56 02 82 39 5f 3a 00 00 80 00 00 00 00 00 11 4a 00 00 00 00 00 00 00 00 11 e8 00 00 00 00 00 00 00 00 ┆ R C C j [X ?A @[6A. X V 9_: J ┆
0x6852…68a2 00 00 00 00 00 40 80 00 00 00 00 00 11 52 00 00 00 00 00 00 00 00 12 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 a2 00 02 12 20 00 00 01 0d 87 1c 54 0c 84 20 00 03 94 18 e1 31 02 01 57 50 84 42 00 02 82 42 00 04 1f 05 50 44 1f 01 ┆ @ R T 1 WP B B PD ┆
0x68a2…68f2 50 04 8f 20 5b 50 ea 20 00 02 56 02 02 02 83 10 93 08 e1 2d 12 01 e3 30 e3 0c e3 50 00 01 83 41 12 98 23 ff 1b 2b 54 06 1a 02 14 02 57 14 01 0a e1 51 00 01 1b 05 50 08 01 0c 1b 01 50 02 01 0d e1 31 f5 21 12 aa 1f 06 54 18 82 08 56 04 90 43 ┆P [P V - 0 P A # +T W Q P P 1 ! T V C┆
0x68f2…6942 00 06 84 42 00 02 83 20 00 00 e3 51 00 01 e3 0c e3 31 f7 a1 0a 6a 8f 20 5b 58 85 59 00 1a 84 59 00 16 94 08 84 59 00 18 42 cf 58 16 01 01 5f 1e bc 3f 01 01 86 20 13 34 82 58 00 02 5a 28 57 40 80 41 05 a8 81 3f 82 3f 82 20 13 34 81 48 00 16 ┆ B Q 1 j [X Y Y Y B X _ ? 4 X Z(W@ A ? ? 4 H ┆
0x6942…6992 e2 24 42 0f 54 18 82 20 13 34 11 01 81 49 00 16 e9 48 00 18 54 02 42 8f 82 3e 81 3e f0 3e 83 3f 84 3f 85 3f 86 3f 87 3f 80 bf 49 cf 86 20 13 34 87 58 00 06 27 ff 80 d8 00 28 88 02 10 02 10 02 00 00 20 00 80 00 20 00 28 00 10 44 08 00 01 0c ┆ $B T 4 I H T B > > > ? ? ? ? ? I 4 X ' ( ( D ┆