|
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: 27040 (0x69a0)
Notes: pts_type(SC)
Names: »DRTP02.SC«
└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
└─⟦this⟧ »M:92NA/DRTP02.SC«
└─⟦this⟧ »M:92SP/DRTP02.SC«
└─⟦3a2bec7de⟧ Bits:30009687 Philips computer tape "600313"
└─⟦this⟧ »M:821/DRTP02.SC«
└─⟦470bcbfc6⟧ Bits:30009709 Philips computer tape "M_92LP"
└─⟦this⟧ »M:92LP/DRTP02.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »M:92NA/DRTP02.SC«
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
└─⟦this⟧ »M:92NA/DRTP02.SC«
└─⟦this⟧ »M:92SP/DRTP02.SC«
IDENT DRTP02 REL 9.2 79-11-16 870105040920 =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 EQU * SC A4,DWTBC,A6 RESET BYTE COUNTER 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 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 ? ABL(NE) TP645 XIF RCTP05 EQU * LDK A2,0 SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER LDK A2,LFF LIFT TO TOP CF A5,OUTPUT 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 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0062 Head {h00=0x0020, h01=0x0050, text=» =4,CUT AND PERF CORRECTED«, t00=0x0000, t01=0x0042}
0x0062…007e Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x0066}
0x007e…00a2 Head {h00=0x0020, h01=0x0050, text=» UPDATE PRR 9.1 - REL 9.1 «, t00=0x0000, t01=0x0082}
0x00a2…00be Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-04-25 «, t00=0x0000, t01=0x00a6}
0x00be…00da Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-04-06 «, t00=0x0000, t01=0x00c2}
0x00da…0104 Head {h00=0x0026, h01=0x0050, text=» =1-3,GEN UPDATE TO 8.2+ STATUS «, t00=0x0000, t01=0x00de}
0x0104…0120 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-04-19 «, t00=0x0000, t01=0x0108}
0x0120…0146 Head {h00=0x0022, h01=0x0050, text=» =3,RECOVERY TIMER CORRECTED«, t00=0x0000, t01=0x0124}
0x0146…0162 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-04-18 «, t00=0x0000, t01=0x014a}
0x0162…018c Head {h00=0x0026, h01=0x0050, text=» =2,GRSP/REL CH.TO IMPR. REMOTE «, t00=0x0000, t01=0x0166}
0x018c…01a8 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-03-16 «, t00=0x0000, t01=0x0190}
0x01a8…01cc Head {h00=0x0020, h01=0x0050, text=» =1,IMPRROV. OF TEST ORDER«, t00=0x0001, t01=0x001c}
0x01cc…01e8 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 78-09-15 «, t00=0x0001, t01=0x0040}
0x01e8…0228 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x005c}
0x0228…0268 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x009c}
0x0268…02a8 Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0001, t01=0x00dc}
0x02a8…02e8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x011c}
0x02e8…0328 Head {h00=0x003c, h01=0x0050, text=»* DRTP02 = DRIVER TELLER TERMINAL PRINTER * «, t00=0x0001, t01=0x015c}
0x0328…0368 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x000c}
0x0368…03a8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x004c}
0x03a8…03b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008c}
0x03b2…03bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0096}
0x03bc…03c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a0}
0x03c6…0406 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00aa}
0x0406…0446 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0002, t01=0x00ea}
0x0446…0450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x0450…0492 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221,«, t00=0x0002, t01=0x0134}
0x0492…04cc Head {h00=0x0036, h01=0x0050, text=»* 6222 OR 6223 CONNECTED TO CPU VIA CHLT OR CHRT«, t00=0x0002, t01=0x0176}
0x04cc…04d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d6…04e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04e0…0518 Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0003, t01=0x0034}
0x0518…0522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006c}
0x0522…054a Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0003, t01=0x0076}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009e}
0x0554…057e Head {h00=0x0026, h01=0x0050, text=»* I H T P : INTERRUPT HANDLER «, t00=0x0003, t01=0x00a8}
0x057e…0588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d2}
0x0588…05b0 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0003, t01=0x00dc}
0x05b0…05ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x05ba…05c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010e}
0x05c4…05fe Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES:«, t00=0x0003, t01=0x0118}
0x05fe…0608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0152}
0x0608…064e Head {h00=0x0042, h01=0x0050, text=»* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM«, t00=0x0003, t01=0x015c}
0x064e…0658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0658…0692 Head {h00=0x0036, h01=0x0050, text=»* B C D T B Y : CONVERT TO BINARY FROM DECIMAL«, t00=0x0004, t01=0x001c}
0x0692…069c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x069c…06e4 Head {h00=0x0044, h01=0x0050, text=»* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST«, t00=0x0004, t01=0x0060}
0x06e4…070c Head {h00=0x0024, h01=0x0050, text=»* CHARACTER IN OUTPUT BUFFER «, t00=0x0004, t01=0x00a8}
0x070c…0716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d0}
0x0716…0748 Head {h00=0x002e, h01=0x0050, text=»* G R A S P : SEND GRASP TO VOUCHER «, t00=0x0004, t01=0x00da}
0x0748…0752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010c}
0x0752…078a Head {h00=0x0034, h01=0x0050, text=»* R E L E A S : SEND LIFT TO TOP AND RELEASE«, t00=0x0004, t01=0x0116}
0x078a…0798 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x014e}
0x0798…07a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015c}
0x07a2…07d0 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0004, t01=0x0166}
0x07d0…07da (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07da…0802 Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0005, t01=0x000e}
0x0802…0824 Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0005, t01=0x0036}
0x0824…0858 Head {h00=0x0030, h01=0x0050, text=»* ORDER 0B : POSITION LIFT AND WRITE «, t00=0x0005, t01=0x0058}
0x0858…0880 Head {h00=0x0024, h01=0x0050, text=»* ORDER 22 : CUT JOURNAL «, t00=0x0005, t01=0x008c}
0x0880…08ae Head {h00=0x002a, h01=0x0050, text=»* ORDER 26 : PERFORATE JOURNAL «, t00=0x0005, t01=0x00b4}
0x08ae…08e0 Head {h00=0x002e, h01=0x0050, text=»* ORDER 37 : GRASP VOUCHER/PASSBOOK«, t00=0x0005, t01=0x00e2}
0x08e0…0914 Head {h00=0x0030, h01=0x0050, text=»* ORDER 38 : RELEASE VOUCHER/PASSBOOK«, t00=0x0005, t01=0x0114}
0x0914…091e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0148}
0x091e…094e Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0005, t01=0x0152}
0x094e…0958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x0958…0982 Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0005, t01=0x018c}
0x0982…09ba Head {h00=0x0034, h01=0x0050, text=»* BIT 8 : RECOVERY EXECUTED ON REQUEST«, t00=0x0006, t01=0x0026}
0x09ba…09f6 Head {h00=0x0038, h01=0x0050, text=»* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT«, t00=0x0006, t01=0x005e}
0x09f6…0a22 Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0006, t01=0x009a}
0x0a22…0a4a Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0006, t01=0x00c6}
0x0a4a…0a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ee}
0x0a54…0a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f8}
0x0a5e…0a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0102}
0x0a68…0a8a Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0006, t01=0x010c}
0x0a8a…0a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a94…0aba Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0006, t01=0x0138}
0x0aba…0ae0 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0006, t01=0x015e}
0x0ae0…0b08 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0006, t01=0x0184}
0x0b08…0b30 Head {h00=0x0024, h01=0x0050, text=»* A4: OUTPUT COUNTER «, t00=0x0007, t01=0x001c}
0x0b30…0b56 Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0007, t01=0x0044}
0x0b56…0b7a Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0007, t01=0x006a}
0x0b7a…0b98 Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0007, t01=0x008e}
0x0b98…0bbc Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0007, t01=0x00ac}
0x0bbc…0bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d0}
0x0bc6…0bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00da}
0x0bd0…0bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e4}
0x0bda…0be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ee}
0x0be4…0c02 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0007, t01=0x00f8}
0x0c02…0c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0116}
0x0c0c…0c54 Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN «, t00=0x0007, t01=0x0120}
0x0c54…0c6c Head {h00=0x0014, h01=0x0050, text=»* BE EXCLUDED:«, t00=0x0007, t01=0x0168}
0x0c6c…0c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0180}
0x0c76…0cb8 Head {h00=0x003e, h01=0x0050, text=»* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST «, t00=0x0007, t01=0x018a}
0x0cb8…0cf0 Head {h00=0x0034, h01=0x0050, text=»* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) «, t00=0x0008, t01=0x003c}
0x0cf0…0d24 Head {h00=0x0030, h01=0x0050, text=»* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 «, t00=0x0008, t01=0x0074}
0x0d24…0d70 Head {h00=0x0048, h01=0x0050, text=»* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN«, t00=0x0008, t01=0x00a8}
0x0d70…0d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f4}
0x0d7a…0d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00fe}
0x0d84…0dc8 Head {h00=0x0040, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED«, t00=0x0008, t01=0x0108}
0x0dc8…0e0a Head {h00=0x003e, h01=0x0050, text=»* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET «, t00=0x0008, t01=0x014c}
0x0e0a…0e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e14…0e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1e…0e2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0012}
0x0e2c…0e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e36…0e4a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0009, t01=0x002a}
0x0e4a…0e5e Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0009, t01=0x003e}
0x0e5e…0e72 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0009, t01=0x0052}
0x0e72…0e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0066}
0x0e7c…0e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0070}
0x0e86…0ea8 Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD ADDRESS BLOCK «, t00=0x0009, t01=0x007a}
0x0ea8…0eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009c}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a6}
0x0ebc…0ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b0}
0x0ec6…0edc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x00ba}
0x0edc…0ef2 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0009, t01=0x00d0}
0x0ef2…0f08 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x00e6}
0x0f08…0f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fc}
0x0f12…0f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0106}
0x0f1c…0f4c Head {h00=0x002c, h01=0x0050, text=» EXTRN TDISP DISPATCHING FROM INTERRUPT «, t00=0x0009, t01=0x0110}
0x0f4c…0f74 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE DISPATCH I/O ERROR«, t00=0x0009, t01=0x0140}
0x0f74…0f9e Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x0009, t01=0x0168}
0x0f9e…0fbc (10, 0, 400) Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x000a, t01=0x0004}
0x0fbc…0fe6 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x000a, t01=0x0022}
0x0fe6…100c Head {h00=0x0022, h01=0x0050, text=» EXTRN LDREG RESTORE REGISTERS«, t00=0x000a, t01=0x004c}
0x100c…1048 Head {h00=0x0038, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT «, t00=0x000a, t01=0x0072}
0x1048…106c Head {h00=0x0020, h01=0x0050, text=» EXTRN SAVE8 SAVE REG. A1-A8«, t00=0x000a, t01=0x00ae}
0x106c…1076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d2}
0x1076…1092 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x00dc}
0x1092…10b4 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x00f8}
0x10b4…10d6 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x000a, t01=0x011a}
0x10d6…10f0 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x013c}
0x10f0…111a Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x000a, t01=0x0156}
0x111a…1128 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0180}
0x1128…1132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018e}
0x1132…114e Head {h00=0x0018, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x000b, t01=0x0008}
0x114e…1158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0024}
0x1158…117c Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x000b, t01=0x002e}
0x117c…11a2 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x000b, t01=0x0052}
0x11a2…11c8 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x000b, t01=0x0078}
0x11c8…11e8 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x000b, t01=0x009e}
0x11e8…120a Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x000b, t01=0x00be}
0x120a…1218 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00e0}
0x1218…1238 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x00ee}
0x1238…1258 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x010e}
0x1258…1278 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x012e}
0x1278…1282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x014e}
0x1282…128c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0158}
0x128c…12cc Head {h00=0x003c, h01=0x0050, text=»* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET«, t00=0x000b, t01=0x0162}
0x12cc…12ea Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:A = 1«, t00=0x000c, t01=0x0012}
0x12ea…12f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f4…12fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003a}
0x12fe…1310 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000c, t01=0x0044}
0x1310…1324 Head {h00=0x0010, h01=0x0050, text=»RECOV EQU 0 «, t00=0x000c, t01=0x0056}
0x1324…132e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006a}
0x132e…1338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0074}
0x1338…1376 Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x000c, t01=0x007e}
0x1376…1392 Head {h00=0x0018, h01=0x0050, text=»* SETTING X:B = 1 «, t00=0x000c, t01=0x00bc}
0x1392…139c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d8}
0x139c…13a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e2}
0x13a6…13b8 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x00ec}
0x13b8…13cc Head {h00=0x0010, h01=0x0050, text=»CUTPER EQU 0«, t00=0x000c, t01=0x00fe}
0x13cc…13d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0112}
0x13d6…13e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011c}
0x13e0…1426 Head {h00=0x0042, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 «, t00=0x000c, t01=0x0126}
0x1426…144a Head {h00=0x0020, h01=0x0050, text=»* AND X:D = 1 RESPECTIVLY «, t00=0x000c, t01=0x016c}
0x144a…1454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x1454…145e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000a}
0x145e…1470 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000d, t01=0x0014}
0x1470…1484 Head {h00=0x0010, h01=0x0050, text=»CHR13 EQU 0 «, t00=0x000d, t01=0x0026}
0x1484…148e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003a}
0x148e…1498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0044}
0x1498…14aa Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000d, t01=0x004e}
0x14aa…14be Head {h00=0x0010, h01=0x0050, text=»CHR14 EQU 0 «, t00=0x000d, t01=0x0060}
0x14be…14c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0074}
0x14c8…14d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007e}
0x14d2…1508 Head {h00=0x0032, h01=0x0050, text=»* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF«, t00=0x000d, t01=0x0088}
0x1508…1546 Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000d, t01=0x00be}
0x1546…1550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fc}
0x1550…155a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0106}
0x155a…156c Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x0110}
0x156c…1580 Head {h00=0x0010, h01=0x0050, text=»COMPL EQU 0 «, t00=0x000d, t01=0x0122}
0x1580…158e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0136}
0x158e…1598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0144}
0x1598…15a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014e}
0x15a2…15e4 Head {h00=0x003e, h01=0x0050, text=»* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT «, t00=0x000d, t01=0x0158}
0x15e4…1624 Head {h00=0x003c, h01=0x0050, text=»* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING «, t00=0x000e, t01=0x000a}
0x1624…1666 Head {h00=0x003e, h01=0x0050, text=»* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET«, t00=0x000e, t01=0x004a}
0x1666…1670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008c}
0x1670…167a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0096}
0x167a…168c Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000e, t01=0x00a0}
0x168c…16a0 Head {h00=0x0010, h01=0x0050, text=»RELEND EQU 0«, t00=0x000e, t01=0x00b2}
0x16a0…16aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c6}
0x16aa…16b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d0}
0x16b4…16e6 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000e, t01=0x00da}
0x16e6…1714 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000e, t01=0x010c}
0x1714…171e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013a}
0x171e…1732 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000e, t01=0x0144}
0x1732…173c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0158}
0x173c…1746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0162}
0x1746…1780 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000e, t01=0x016c}
0x1780…17b2 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000f, t01=0x0016}
0x17b2…17bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0048}
0x17bc…17d0 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x000f, t01=0x0052}
0x17d0…17da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0066}
0x17da…17e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0070}
0x17e4…1800 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000f, t01=0x007a}
0x1800…180a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0096}
0x180a…1814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a0}
0x1814…1826 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 20«, t00=0x000f, t01=0x00aa}
0x1826…183c Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 100«, t00=0x000f, t01=0x00bc}
0x183c…1846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d2}
0x1846…1854 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00dc}
0x1854…185e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ea}
0x185e…1868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1868…187e Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x00fe}
0x187e…1894 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000f, t01=0x0114}
0x1894…18aa Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x012a}
0x18aa…18b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0140}
0x18b4…18be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014a}
0x18be…18f0 Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x000f, t01=0x0154}
0x18f0…1926 Head {h00=0x0032, h01=0x0050, text=»PROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE«, t00=0x000f, t01=0x0186}
0x1926…1930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002c}
0x1930…193a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x193a…196e Head {h00=0x0030, h01=0x0050, text=»VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST«, t00=0x0010, t01=0x0040}
0x196e…19a4 Head {h00=0x0032, h01=0x0050, text=»EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. «, t00=0x0010, t01=0x0074}
0x19a4…19e8 Head {h00=0x0040, h01=0x0050, text=»VOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED «, t00=0x0010, t01=0x00aa}
0x19e8…1a20 Head {h00=0x0034, h01=0x0050, text=»MESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN«, t00=0x0010, t01=0x00ee}
0x1a20…1a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0126}
0x1a2a…1a52 Head {h00=0x0024, h01=0x0050, text=»STX EQU /82 START OF TEXT BLOCK «, t00=0x0010, t01=0x0130}
0x1a52…1a78 Head {h00=0x0022, h01=0x0050, text=»ETB EQU /97 END OF TEXT BLOCK «, t00=0x0010, t01=0x0158}
0x1a78…1a96 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x0010, t01=0x017e}
0x1a96…1ac6 Head {h00=0x002c, h01=0x0050, text=»REMOT EQU /01 RESET PRINT BUFFER REMOTE «, t00=0x0011, t01=0x000c}
0x1ac6…1af4 Head {h00=0x002a, h01=0x0050, text=»TAB EQU /11 TABULATION CHAR IN BUFFER «, t00=0x0011, t01=0x003c}
0x1af4…1b18 Head {h00=0x0020, h01=0x0050, text=»CR1 EQU /0D CR JOURNAL TAPE «, t00=0x0011, t01=0x006a}
0x1b18…1b3c Head {h00=0x0020, h01=0x0050, text=»LF1 EQU /18 LF JOURNAL TAPE «, t00=0x0011, t01=0x008e}
0x1b3c…1b6e Head {h00=0x002e, h01=0x0050, text=»CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK«, t00=0x0011, t01=0x00b2}
0x1b6e…1b90 Head {h00=0x001e, h01=0x0050, text=»LF2 EQU /19 LF TALLY ROLL «, t00=0x0011, t01=0x00e4}
0x1b90…1bb8 Head {h00=0x0024, h01=0x0050, text=»LDO EQU /0B LIFT DOWN 1 POSITION«, t00=0x0011, t01=0x0106}
0x1bb8…1be0 Head {h00=0x0024, h01=0x0050, text=»LUP EQU /0A LIFT UP ONE POSITION«, t00=0x0011, t01=0x012e}
0x1be0…1c08 Head {h00=0x0024, h01=0x0050, text=»LFF EQU /0C LIFT TO TOP POSITION«, t00=0x0011, t01=0x0156}
0x1c08…1c42 Head {h00=0x0036, h01=0x0050, text=»GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK«, t00=0x0011, t01=0x017e}
0x1c42…1c6e Head {h00=0x0028, h01=0x0050, text=»REL EQU /1B RELEASE VOUCHER/PASSBOOK«, t00=0x0012, t01=0x0028}
0x1c6e…1c94 Head {h00=0x0022, h01=0x0050, text=»APH EQU /1D ATTACH PRINT HEAD «, t00=0x0012, t01=0x0054}
0x1c94…1cba Head {h00=0x0022, h01=0x0050, text=»RPH EQU /1E RETURN PRINT HEAD «, t00=0x0012, t01=0x007a}
0x1cba…1cf2 Head {h00=0x0034, h01=0x0050, text=»TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE «, t00=0x0012, t01=0x00a0}
0x1cf2…1cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d8}
0x1cfc…1d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e2}
0x1d06…1d24 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x00ec}
0x1d24…1d42 Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0012, t01=0x010a}
0x1d42…1d60 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x0128}
0x1d60…1d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0146}
0x1d6a…1d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0150}
0x1d74…1da8 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x015a}
0x1da8…1db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018e}
0x1db2…1dc8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0008}
0x1dc8…1de0 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0013, t01=0x001e}
0x1de0…1dec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0036}
0x1dec…1df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0042}
0x1df6…1e0c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x004c}
0x1e0c…1e26 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0013, t01=0x0062}
0x1e26…1e32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x007c}
0x1e32…1e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0088}
0x1e3c…1e6e Head {h00=0x002e, h01=0x0050, text=»DWTRLN EQU START+/12 REQUESTED LINE NUMBER«, t00=0x0013, t01=0x0092}
0x1e6e…1e9e Head {h00=0x002c, h01=0x0050, text=»DWTALN EQU START+/13 ACTUAL LINE NUMBER «, t00=0x0013, t01=0x00c4}
0x1e9e…1ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f4}
0x1ea8…1eb6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00fe}
0x1eb6…1ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x010c}
0x1ec0…1ed4 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x0116}
0x1ed4…1ee8 Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x0013, t01=0x012a}
0x1ee8…1efc Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x013e}
0x1efc…1f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0152}
0x1f06…1f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x015c}
0x1f10…1f3a Head {h00=0x0026, h01=0x0050, text=»BUF1 DATA /0382,/0D1D STX,CR1,APH «, t00=0x0013, t01=0x0166}
0x1f3a…1f50 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0013, t01=0x0190}
0x1f50…1f6c Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0382 STX «, t00=0x0014, t01=0x0016}
0x1f6c…1f78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0032}
0x1f78…1f8e Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x003e}
0x1f8e…1faa Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0482 STX «, t00=0x0014, t01=0x0054}
0x1faa…1fb6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0070}
0x1fb6…1fde Head {h00=0x0024, h01=0x0050, text=» DATA /091D,/2000 CR2,APH,SPACE «, t00=0x0014, t01=0x007c}
0x1fde…2008 Head {h00=0x0026, h01=0x0050, text=»BUF3 DATA /0382,/091D STX,CR2,APH «, t00=0x0014, t01=0x00a4}
0x2008…2040 Head {h00=0x0034, h01=0x0050, text=»BUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,STB =2«, t00=0x0014, t01=0x00ce}
0x2040…204a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0106}
0x204a…2054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0110}
0x2054…205e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011a}
0x205e…2070 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0124}
0x2070…2082 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0014, t01=0x0136}
0x2082…2094 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0148}
0x2094…209e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015a}
0x209e…20a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0164}
0x20a8…20cc Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0014, t01=0x016e}
0x20cc…20e8 (21, 0, 400) Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0015, t01=0x0004}
0x20e8…2108 Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x0015, t01=0x0020}
0x2108…212c Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x0015, t01=0x0040}
0x212c…2152 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0015, t01=0x0064}
0x2152…2176 Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x0015, t01=0x008a}
0x2176…219a Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0015, t01=0x00ae}
0x219a…21a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d2}
0x21a4…21cc Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x0015, t01=0x00dc}
0x21cc…21d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0104}
0x21d6…21ea Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0015, t01=0x010e}
0x21ea…2216 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2627,/3B3C,/3E40,/5E5F «, t00=0x0015, t01=0x0122}
0x2216…2220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014e}
0x2220…224c Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x0015, t01=0x0158}
0x224c…2256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0184}
0x2256…2260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018e}
0x2260…2274 Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x0016, t01=0x0008}
0x2274…22a4 Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x0016, t01=0x001c}
0x22a4…22ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004c}
0x22ae…22b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0056}
0x22b8…22ce Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0016, t01=0x0060}
0x22ce…230c Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x0016, t01=0x0076}
0x230c…2318 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00b4}
0x2318…2338 Head {h00=0x001c, h01=0x0050, text=»TPTAB EQU * ORDER TABLE «, t00=0x0016, t01=0x00c0}
0x2338…2358 Head {h00=0x001c, h01=0x0050, text=» DATA /0002,/0607,/080D «, t00=0x0016, t01=0x00e0}
0x2358…236e Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0016, t01=0x0100}
0x236e…2382 Head {h00=0x0010, h01=0x0050, text=» DATA /2226 «, t00=0x0016, t01=0x0116}
0x2382…238e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x012a}
0x238e…23a2 Head {h00=0x0010, h01=0x0050, text=» DATA /393A «, t00=0x0016, t01=0x0136}
0x23a2…23bc Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0016, t01=0x014a}
0x23bc…23ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0164}
0x23ca…23d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0172}
0x23d4…23de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017c}
0x23de…23f2 Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0016, t01=0x0186}
0x23f2…23fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x000a}
0x23fc…2432 Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0017, t01=0x0014}
0x2432…2474 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0017, t01=0x004a}
0x2474…247e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x008c}
0x247e…2488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0096}
0x2488…2492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a0}
0x2492…24b6 Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0017, t01=0x00aa}
0x24b6…24c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ce}
0x24c0…24ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d8}
0x24ca…250a Head {h00=0x003c, h01=0x0050, text=»* GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK «, t00=0x0017, t01=0x00e2}
0x250a…2530 Head {h00=0x0022, h01=0x0050, text=» LC A1,DWTOR,A6 GET DWT INDEX «, t00=0x0017, t01=0x0122}
0x2530…2546 Head {h00=0x0012, h01=0x0050, text=» ANK A1,7 MASK«, t00=0x0017, t01=0x0148}
0x2546…2570 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 ADD DWT INDEX TO ORDER «, t00=0x0017, t01=0x015e}
0x2570…25a0 Head {h00=0x002c, h01=0x0050, text=» SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT «, t00=0x0017, t01=0x0188}
0x25a0…25bc Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ACTIVATION«, t00=0x0018, t01=0x0028}
0x25bc…25da Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0018, t01=0x0044}
0x25da…2610 Head {h00=0x0032, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER «, t00=0x0018, t01=0x0062}
0x2610…2632 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0018, t01=0x0098}
0x2632…2644 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0018, t01=0x00ba}
0x2644…2664 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0018, t01=0x00cc}
0x2664…266e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ec}
0x266e…2690 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0018, t01=0x00f6}
0x2690…269a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0118}
0x269a…26a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0122}
0x26a4…26b8 Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x0018, t01=0x012c}
0x26b8…26e2 Head {h00=0x0026, h01=0x0050, text=» SC A4,DWTBC,A6 RESET BYTE COUNTER«, t00=0x0018, t01=0x0140}
0x26e2…26fe Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x0018, t01=0x016a}
0x26fe…2722 Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x0018, t01=0x0186}
0x2722…2760 Head {h00=0x003a, h01=0x0050, text=»TPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 =1 «, t00=0x0019, t01=0x001a}
0x2760…2776 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0019, t01=0x0058}
0x2776…2790 Head {h00=0x0016, h01=0x0050, text=» DATA TP700,TP750 «, t00=0x0019, t01=0x006e}
0x2790…279c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0088}
0x279c…27b6 Head {h00=0x0016, h01=0x0050, text=» DATA TP800,TP900 «, t00=0x0019, t01=0x0094}
0x27b6…27ca Head {h00=0x0010, h01=0x0050, text=» EJECT =1 «, t00=0x0019, t01=0x00ae}
0x27ca…27da Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x00c2}
0x27da…27ea Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x00d2}
0x27ea…280a Head {h00=0x001c, h01=0x0050, text=»* ORDER 00: TEST =1«, t00=0x0019, t01=0x00e2}
0x280a…2858 Head {h00=0x004a, h01=0x0050, text=»* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =1 «, t00=0x0019, t01=0x0102}
0x2858…2868 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0150}
0x2868…2878 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0160}
0x2878…2888 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0170}
0x2888…2898 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0180}
0x2898…28be Head {h00=0x0022, h01=0x0050, text=»TPTEST LDK A2,STX SEND STX =2 «, t00=0x0019, t01=0x0190}
0x28be…28d8 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001a, t01=0x0026}
0x28d8…28fc Head {h00=0x0020, h01=0x0050, text=» LDK A2,/02 SEND CHAR /02 =2«, t00=0x001a, t01=0x0040}
0x28fc…2916 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x001a, t01=0x0064}
0x2916…2944 Head {h00=0x002a, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST =1«, t00=0x001a, t01=0x007e}
0x2944…295e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x001a, t01=0x00ac}
0x295e…2974 Head {h00=0x0012, h01=0x0050, text=» RF TPDUMY =1«, t00=0x001a, t01=0x00c6}
0x2974…2982 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00dc}
0x2982…298c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ea}
0x298c…2996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f4}
0x2996…29c6 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06,0B: WRITE VOUCHER/PASSBOOK «, t00=0x001a, t01=0x00fe}
0x29c6…2a08 Head {h00=0x003e, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x001a, t01=0x012e}
0x2a08…2a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0170}
0x2a12…2a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017a}
0x2a1c…2a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0184}
0x2a26…2a6c Head {h00=0x0042, h01=0x0050, text=»ACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB«, t00=0x001a, t01=0x018e}
0x2a6c…2a7e Head {h00=0x000e, h01=0x0050, text=» RF ACT085«, t00=0x001b, t01=0x0044}
0x2a7e…2a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0056}
0x2a88…2ab8 Head {h00=0x002c, h01=0x0050, text=»ACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x001b, t01=0x0060}
0x2ab8…2ae2 Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x001b, t01=0x0090}
0x2ae2…2b0a Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF REQUESTED LINE STEPS«, t00=0x001b, t01=0x00ba}
0x2b0a…2b1e Head {h00=0x0010, h01=0x0050, text=» SUK A3,/39 «, t00=0x001b, t01=0x00e2}
0x2b1e…2b42 Head {h00=0x0020, h01=0x0050, text=» RF(G) ACT070 > /39 = ONE LF«, t00=0x001b, t01=0x00f6}
0x2b42…2b54 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/9«, t00=0x001b, t01=0x011a}
0x2b54…2b6a Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACT060«, t00=0x001b, t01=0x012c}
0x2b6a…2b88 Head {h00=0x001a, h01=0x0050, text=» LDK A3,2 /30 = TWO LF«, t00=0x001b, t01=0x0142}
0x2b88…2b9a Head {h00=0x000e, h01=0x0050, text=» RF ACT080«, t00=0x001b, t01=0x0160}
0x2b9a…2bc6 Head {h00=0x0028, h01=0x0050, text=»ACT060 RF(G) ACT080 /31-/39 = 1-9 LF«, t00=0x001b, t01=0x0172}
0x2bc6…2bd8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/5«, t00=0x001c, t01=0x000e}
0x2bd8…2bf8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TP605 /2B = NO LF«, t00=0x001c, t01=0x0020}
0x2bf8…2c16 Head {h00=0x001a, h01=0x0050, text=»ACT070 LDK A3,1 ONE LF«, t00=0x001c, t01=0x0040}
0x2c16…2c4e Head {h00=0x0034, h01=0x0050, text=»ACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT «, t00=0x001c, t01=0x005e}
0x2c4e…2c7c Head {h00=0x002a, h01=0x0050, text=» SUR A1,A3 GET REQUESTED LINE POSITION«, t00=0x001c, t01=0x0096}
0x2c7c…2cb2 Head {h00=0x0032, h01=0x0050, text=»ACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ?«, t00=0x001c, t01=0x00c4}
0x2cb2…2ce0 Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 YES; SET LINE POSITION ZERO «, t00=0x001c, t01=0x00fa}
0x2ce0…2cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0128}
0x2cea…2d0e Head {h00=0x0020, h01=0x0050, text=»ACT090 LDR A4,A4 RECOVERY ? «, t00=0x001c, t01=0x0132}
0x2d0e…2d28 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TP605 YES «, t00=0x001c, t01=0x0156}
0x2d28…2d5c Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTRLN,A6 SAVE REQUESTED LINE NUMBER «, t00=0x001c, t01=0x0170}
0x2d5c…2d6e Head {h00=0x000e, h01=0x0050, text=» RF TP605 «, t00=0x001d, t01=0x0014}
0x2d6e…2d7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0026}
0x2d7c…2d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0034}
0x2d86…2d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x003e}
0x2d90…2d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0048}
0x2d9a…2dbe Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x001d, t01=0x0052}
0x2dbe…2dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0076}
0x2dc8…2dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0080}
0x2dd2…2ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008a}
0x2ddc…2e0a Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x001d, t01=0x0094}
0x2e0a…2e1e Head {h00=0x0010, h01=0x0050, text=»TP210 EQU * «, t00=0x001d, t01=0x00c2}
0x2e1e…2e52 Head {h00=0x0030, h01=0x0050, text=» LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD«, t00=0x001d, t01=0x00d6}
0x2e52…2e7a Head {h00=0x0024, h01=0x0050, text=» ANK A1,4 TEXT MESSAGE WRITTEN ?«, t00=0x001d, t01=0x010a}
0x2e7a…2ea6 Head {h00=0x0028, h01=0x0050, text=» RF(NE) TP220 YES; COMPLETE REQUEST «, t00=0x001d, t01=0x0132}
0x2ea6…2ed2 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001d, t01=0x015e}
0x2ed2…2efa Head {h00=0x0024, h01=0x0050, text=» SUK A1,3 REQUESTED LENGTH 0-2 ?«, t00=0x001d, t01=0x018a}
0x2efa…2f24 Head {h00=0x0026, h01=0x0050, text=» RF(N) TP230 YES; COMPLETE REQUEST«, t00=0x001e, t01=0x0022}
0x2f24…2f38 Head {h00=0x0010, h01=0x0050, text=» RF(P) TP215«, t00=0x001e, t01=0x004c}
0x2f38…2f5a Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001e, t01=0x0060}
0x2f5a…2f7e Head {h00=0x0020, h01=0x0050, text=» LC A2,2,A1 THIRD CHARACTER «, t00=0x001e, t01=0x0082}
0x2f7e…2fa6 Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 CONTROL CHARACTER «, t00=0x001e, t01=0x00a6}
0x2fa6…2fbc Head {h00=0x0012, h01=0x0050, text=» RF(NL) TP215 «, t00=0x001e, t01=0x00ce}
0x2fbc…2fdc Head {h00=0x001c, h01=0x0050, text=» LDR A4,A2 SAVE CHAR =2 «, t00=0x001e, t01=0x00e4}
0x2fdc…2ffc Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x001e, t01=0x0104}
0x2ffc…3016 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001e, t01=0x0124}
0x3016…3038 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 RELOAD CHAR =2 «, t00=0x001e, t01=0x013e}
0x3038…304e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001e, t01=0x0160}
0x304e…306e Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x001e, t01=0x0176}
0x306e…3088 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001f, t01=0x0008}
0x3088…309a Head {h00=0x000e, h01=0x0050, text=» RF TP220 «, t00=0x001f, t01=0x0022}
0x309a…30ae Head {h00=0x0010, h01=0x0050, text=»TP215 EQU * «, t00=0x001f, t01=0x0034}
0x30ae…30d0 Head {h00=0x001e, h01=0x0050, text=» CF A5,BUFCHR SEND BUFFER «, t00=0x001f, t01=0x0048}
0x30d0…30f6 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x001f, t01=0x006a}
0x30f6…310a Head {h00=0x0010, h01=0x0050, text=»TP220 EQU * «, t00=0x001f, t01=0x0090}
0x310a…311c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001f, t01=0x00a4}
0x311c…3156 Head {h00=0x0036, h01=0x0050, text=»TP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED «, t00=0x001f, t01=0x00b6}
0x3156…316e Head {h00=0x0014, h01=0x0050, text=» ANS A2,DWTST,A6«, t00=0x001f, t01=0x00f0}
0x316e…317c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0108}
0x317c…3186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0116}
0x3186…3190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0120}
0x3190…31b2 Head {h00=0x001e, h01=0x0050, text=»* ECB-BUFFER IS WRITTEN «, t00=0x001f, t01=0x012a}
0x31b2…31bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x014c}
0x31bc…31ea Head {h00=0x002a, h01=0x0050, text=»* SEND LINE FEED IF JOURNAL OR TALLY«, t00=0x001f, t01=0x0156}
0x31ea…31f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0184}
0x31f4…31fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x018e}
0x31fe…3210 Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x0020, t01=0x0008}
0x3210…3230 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x0020, t01=0x001a}
0x3230…324a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0020, t01=0x003a}
0x324a…325c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0020, t01=0x0054}
0x325c…3272 Head {h00=0x0012, h01=0x0050, text=» RF(NE) TPLF10«, t00=0x0020, t01=0x0066}
0x3272…3298 Head {h00=0x0022, h01=0x0050, text=» LDK A2,RPH DETACH PRINT HEAD «, t00=0x0020, t01=0x007c}
0x3298…32b2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0020, t01=0x00a2}
0x32b2…32c6 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x0020, t01=0x00bc}
0x32c6…32d8 Head {h00=0x000e, h01=0x0050, text=» SUK A7,8 «, t00=0x0020, t01=0x00d0}
0x32d8…3304 Head {h00=0x0028, h01=0x0050, text=» RF(NN) TPL010 NOT JOURNAL AND TALLY«, t00=0x0020, t01=0x00e2}
0x3304…3326 Head {h00=0x001e, h01=0x0050, text=» ADK A7,2 GET INDEX TABLE «, t00=0x0020, t01=0x010e}
0x3326…334e Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x0020, t01=0x0130}
0x334e…3372 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND LF CHAR. «, t00=0x0020, t01=0x0158}
0x3372…33a4 Head {h00=0x002e, h01=0x0050, text=»TPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0020, t01=0x017c}
0x33a4…33d2 Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x0021, t01=0x001e}
0x33d2…33e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x004c}
0x33e0…33ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x005a}
0x33ea…33f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0064}
0x33f4…3414 Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x0021, t01=0x006e}
0x3414…341e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x008e}
0x341e…3428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0098}
0x3428…344e Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x0021, t01=0x00a2}
0x344e…3458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c8}
0x3458…346c Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x0021, t01=0x00d2}
0x346c…348c Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x0021, t01=0x00e6}
0x348c…34a6 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0021, t01=0x0106}
0x34a6…34ba Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x0021, t01=0x0120}
0x34ba…34d0 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0021, t01=0x0134}
0x34d0…34de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x014a}
0x34de…34e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0158}
0x34e8…34f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0162}
0x34f2…3526 Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x0021, t01=0x016c}
0x3526…3530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0010}
0x3530…3544 Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x0022, t01=0x001a}
0x3544…3576 Head {h00=0x002e, h01=0x0050, text=» SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?«, t00=0x0022, t01=0x002e}
0x3576…3590 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x0022, t01=0x0060}
0x3590…35b8 Head {h00=0x0024, h01=0x0050, text=»TST005 ANK A2,VOIN VOUCHER OUT ?«, t00=0x0022, t01=0x007a}
0x35b8…35d0 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) ENDIO NO«, t00=0x0022, t01=0x00a2}
0x35d0…35e6 Head {h00=0x0012, h01=0x0050, text=» RF TST015 YES«, t00=0x0022, t01=0x00ba}
0x35e6…35f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d0}
0x35f0…3608 Head {h00=0x0014, h01=0x0050, text=»TST010 SUK A7,4 «, t00=0x0022, t01=0x00da}
0x3608…361e Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0022, t01=0x00f2}
0x361e…364c Head {h00=0x002a, h01=0x0050, text=» RF(G) ENDIO NOT TEST STATUS, JOURNAL «, t00=0x0022, t01=0x0108}
0x364c…3658 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0136}
0x3658…366e Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0022, t01=0x0142}
0x366e…369c Head {h00=0x002a, h01=0x0050, text=» RF(G) TST020 NOT TEST STATUS, JOURNAL«, t00=0x0022, t01=0x0158}
0x369c…36b0 Head {h00=0x0010, h01=0x0050, text=»TST012 EQU *«, t00=0x0022, t01=0x0186}
0x36b0…36bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x000a}
0x36bc…36e6 Head {h00=0x0026, h01=0x0050, text=» ANK A2,EOJT END OF JOURNAL TAPE? «, t00=0x0023, t01=0x0016}
0x36e6…370e Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ENDIO NO: PERFORM ENDIO «, t00=0x0023, t01=0x0040}
0x370e…373a Head {h00=0x0028, h01=0x0050, text=»TST015 ORK A1,PROUT SET RETURN CODE:«, t00=0x0023, t01=0x0068}
0x373a…3766 Head {h00=0x0028, h01=0x0050, text=» END OF JOURNAL TAPE, VOUCHER OUT «, t00=0x0023, t01=0x0094}
0x3766…3770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c0}
0x3770…377a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ca}
0x377a…37aa Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0023, t01=0x00d4}
0x37aa…37b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0104}
0x37b4…37c8 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0023, t01=0x010e}
0x37c8…3800 Head {h00=0x0034, h01=0x0050, text=» ABL DISEND PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0023, t01=0x0122}
0x3800…380a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x015a}
0x380a…3814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0164}
0x3814…381e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016e}
0x381e…3828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0178}
0x3828…383e Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0023, t01=0x0182}
0x383e…3856 Head {h00=0x0014, h01=0x0050, text=»TST020 SUK A7,16«, t00=0x0024, t01=0x0008}
0x3856…387c Head {h00=0x0022, h01=0x0050, text=» RB(L) ENDIO VOUCHER/PASSBOOK «, t00=0x0024, t01=0x0020}
0x387c…388e Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0024, t01=0x0046}
0x388e…38b0 Head {h00=0x001e, h01=0x0050, text=» RB(G) ENDIO GRASP,RELEASE«, t00=0x0024, t01=0x0058}
0x38b0…38d0 Head {h00=0x001c, h01=0x0050, text=» RB TST012 CUT,PERFORATE«, t00=0x0024, t01=0x007a}
0x38d0…38dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x009a}
0x38dc…38ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00a6}
0x38ea…38f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b4}
0x38f4…38fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00be}
0x38fe…3908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c8}
0x3908…3930 Head {h00=0x0024, h01=0x0050, text=»* ORDER 06 : PRINT TALLY ROLL «, t00=0x0024, t01=0x00d2}
0x3930…393a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00fa}
0x393a…3944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0104}
0x3944…394e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x010e}
0x394e…397a Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x0024, t01=0x0118}
0x397a…3984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0144}
0x3984…39b2 Head {h00=0x002a, h01=0x0050, text=»TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH«, t00=0x0024, t01=0x014e}
0x39b2…39c6 Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x0024, t01=0x017c}
0x39c6…39dc Head {h00=0x0012, h01=0x0050, text=» LDKL A1,VOCHA«, t00=0x0024, t01=0x0190}
0x39dc…3a20 Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x0025, t01=0x0016}
0x3a20…3a32 Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x0025, t01=0x005a}
0x3a32…3a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006c}
0x3a3c…3a4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0076}
0x3a4a…3a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0084}
0x3a54…3a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008e}
0x3a5e…3a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0098}
0x3a68…3a96 Head {h00=0x002a, h01=0x0050, text=»* ORDER 06 : WRITE VOUCHER/PASSBOOK«, t00=0x0025, t01=0x00a2}
0x3a96…3ac4 Head {h00=0x002a, h01=0x0050, text=»* OB : POSITION LIFT AND WRITE«, t00=0x0025, t01=0x00d0}
0x3ac4…3ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fe}
0x3ace…3ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0108}
0x3ad8…3af0 Head {h00=0x0014, h01=0x0050, text=»TP605 EQU * =2 «, t00=0x0025, t01=0x0112}
0x3af0…3b10 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x0025, t01=0x012a}
0x3b10…3b2a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0025, t01=0x014a}
0x3b2a…3b50 Head {h00=0x0022, h01=0x0050, text=» CF A5,GRASP GRASP VOUCHER =2 «, t00=0x0025, t01=0x0164}
0x3b50…3b5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x018a}
0x3b5e…3b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0008}
0x3b68…3b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0012}
0x3b72…3ba0 Head {h00=0x002a, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL«, t00=0x0026, t01=0x001c}
0x3ba0…3bca Head {h00=0x0026, h01=0x0050, text=»* LINE NUMBER IS EQUAL REQUESTED«, t00=0x0026, t01=0x004a}
0x3bca…3bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0074}
0x3bd4…3bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x007e}
0x3bde…3c10 Head {h00=0x002e, h01=0x0050, text=»TP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER «, t00=0x0026, t01=0x0088}
0x3c10…3c2a Head {h00=0x0016, h01=0x0050, text=» RF(E) TP650 EQUAL«, t00=0x0026, t01=0x00ba}
0x3c2a…3c50 Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x0026, t01=0x00d4}
0x3c50…3c76 Head {h00=0x0022, h01=0x0050, text=» LDK A2,LDO SEND ELEVATOR DOWN«, t00=0x0026, t01=0x00fa}
0x3c76…3ca4 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0026, t01=0x0120}
0x3ca4…3cb6 Head {h00=0x000e, h01=0x0050, text=» RF TP640 «, t00=0x0026, t01=0x014e}
0x3cb6…3ce0 Head {h00=0x0026, h01=0x0050, text=»TP630 LDK A2,LUP SEND ELEVATOR UP «, t00=0x0026, t01=0x0160}
0x3ce0…3d0e Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LINE NUMBER«, t00=0x0026, t01=0x018a}
0x3d0e…3d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0028}
0x3d18…3d42 Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR «, t00=0x0027, t01=0x0032}
0x3d42…3d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005c}
0x3d4c…3d7c Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x0027, t01=0x0066}
0x3d7c…3d9e Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0027, t01=0x0096}
0x3d9e…3db2 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0027, t01=0x00b8}
0x3db2…3ddc Head {h00=0x0026, h01=0x0050, text=» ABL(Z) RCTP01 NO: ERROR RECOVERY «, t00=0x0027, t01=0x00cc}
0x3ddc…3e0c Head {h00=0x002c, h01=0x0050, text=» RB TP610 YES: CHECK IF LIFT POSITIONED«, t00=0x0027, t01=0x00f6}
0x3e0c…3e18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0126}
0x3e18…3e2c Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0027, t01=0x0132}
0x3e2c…3e62 Head {h00=0x0032, h01=0x0050, text=» RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED«, t00=0x0027, t01=0x0146}
0x3e62…3e8a Head {h00=0x0024, h01=0x0050, text=»TP645 LDK A1,PROUT 'VOUCHER OUT'«, t00=0x0027, t01=0x017c}
0x3e8a…3eba Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 INDICATE IN RETURN CODE«, t00=0x0028, t01=0x0014}
0x3eba…3ecc Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0028, t01=0x0044}
0x3ecc…3ed8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0056}
0x3ed8…3ee6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0062}
0x3ee6…3ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0070}
0x3ef0…3efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x007a}
0x3efa…3f2a Head {h00=0x002c, h01=0x0050, text=»* ORDER 06 AND 0B: LIFT IS POSITIONED «, t00=0x0028, t01=0x0084}
0x3f2a…3f58 Head {h00=0x002a, h01=0x0050, text=»* ATTACH AND PRINT «, t00=0x0028, t01=0x00b4}
0x3f58…3f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e2}
0x3f62…3f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ec}
0x3f6c…3f80 Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0028, t01=0x00f6}
0x3f80…3faa Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF2 SEND CR2 AND ATTACH «, t00=0x0028, t01=0x010a}
0x3faa…3fcc Head {h00=0x001e, h01=0x0050, text=» RB TP410 PRINT ECB-BUFFER«, t00=0x0028, t01=0x0134}
0x3fcc…3fda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0156}
0x3fda…3ff0 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0028, t01=0x0164}
0x3ff0…3ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017a}
0x3ffa…4032 Head {h00=0x0034, h01=0x0050, text=»* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL «, t00=0x0028, t01=0x0184}
0x4032…403c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002c}
0x403c…4050 Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0029, t01=0x0036}
0x4050…406e Head {h00=0x001a, h01=0x0050, text=» LDK A3,1 SET INDEX =4«, t00=0x0029, t01=0x004a}
0x406e…4080 Head {h00=0x000e, h01=0x0050, text=» RF TP760 «, t00=0x0029, t01=0x0068}
0x4080…4094 Head {h00=0x0010, h01=0x0050, text=»TP750 EQU * «, t00=0x0029, t01=0x007a}
0x4094…40b2 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SET INDEX =4«, t00=0x0029, t01=0x008e}
0x40b2…40d6 Head {h00=0x0020, h01=0x0050, text=»TP760 LDK A2,STX SEND STX =4«, t00=0x0029, t01=0x00ac}
0x40d6…40f0 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =4 «, t00=0x0029, t01=0x00d0}
0x40f0…4114 Head {h00=0x0020, h01=0x0050, text=» LC A2,CPTAB,A3 GET CHAR =4 «, t00=0x0029, t01=0x00ea}
0x4114…412e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0029, t01=0x010e}
0x412e…413c Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x0029, t01=0x0128}
0x413c…414a Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x0029, t01=0x0136}
0x414a…415c Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0029, t01=0x0144}
0x415c…4168 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0156}
0x4168…4172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0162}
0x4172…41b2 Head {h00=0x003c, h01=0x0050, text=»* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK«, t00=0x0029, t01=0x016c}
0x41b2…41bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x001c}
0x41bc…41d0 Head {h00=0x0010, h01=0x0050, text=»TP800 EQU * «, t00=0x002a, t01=0x0026}
0x41d0…41e6 Head {h00=0x0012, h01=0x0050, text=» CF A5,GRASPA «, t00=0x002a, t01=0x003a}
0x41e6…41f8 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002a, t01=0x0050}
0x41f8…420c Head {h00=0x0010, h01=0x0050, text=»TP900 EQU * «, t00=0x002a, t01=0x0062}
0x420c…4222 Head {h00=0x0012, h01=0x0050, text=» CF A5,RELEAS «, t00=0x002a, t01=0x0076}
0x4222…4234 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002a, t01=0x008c}
0x4234…423c Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x009e}
0x423c…424a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00a6}
0x424a…4254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b4}
0x4254…426a Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x002a, t01=0x00be}
0x426a…4274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d4}
0x4274…42be Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x002a, t01=0x00de}
0x42be…42dc Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x002a, t01=0x0128}
0x42dc…42e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0146}
0x42e6…4318 Head {h00=0x002e, h01=0x0050, text=»PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH «, t00=0x002a, t01=0x0150}
0x4318…4342 Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x002a, t01=0x0182}
0x4342…4368 Head {h00=0x0022, h01=0x0050, text=» LD A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x002b, t01=0x001c}
0x4368…4394 Head {h00=0x0028, h01=0x0050, text=»* SKIP PRECEDING SPACES IN BUFFER «, t00=0x002b, t01=0x0042}
0x4394…43a6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x002b, t01=0x006e}
0x43a6…43cc Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x002b, t01=0x0080}
0x43cc…43e2 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x002b, t01=0x00a6}
0x43e2…4402 Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB050 NOT BLANK«, t00=0x002b, t01=0x00bc}
0x4402…441a Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x002b, t01=0x00dc}
0x441a…442c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002b, t01=0x00f4}
0x442c…4452 Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x002b, t01=0x0106}
0x4452…4494 Head {h00=0x003e, h01=0x0050, text=»* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER «, t00=0x002b, t01=0x012c}
0x4494…44bc Head {h00=0x0024, h01=0x0050, text=»PRB050 LDR A1,A3 GET ADDRESS TO «, t00=0x002b, t01=0x016e}
0x44bc…44e8 Head {h00=0x0028, h01=0x0050, text=» ADR A1,A4 LAST CHARACTER IN BUFFER «, t00=0x002c, t01=0x0008}
0x44e8…4506 Head {h00=0x001a, h01=0x0050, text=» LC A1,-1,A1 GET CHAR «, t00=0x002c, t01=0x0034}
0x4506…4534 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0909 CARRIAGE RETURN - CR2 ? «, t00=0x002c, t01=0x0052}
0x4534…454e Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002c, t01=0x0080}
0x454e…457c Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0D0D CARRIAGE RETURN - CR1 ? «, t00=0x002c, t01=0x009a}
0x457c…4596 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002c, t01=0x00c8}
0x4596…45b8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 DUMMY CHARACTER «, t00=0x002c, t01=0x00e2}
0x45b8…45ca Head {h00=0x000e, h01=0x0050, text=» RF PRB070«, t00=0x002c, t01=0x0104}
0x45ca…45fc Head {h00=0x002e, h01=0x0050, text=»PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002c, t01=0x0116}
0x45fc…462c Head {h00=0x002c, h01=0x0050, text=»PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB «, t00=0x002c, t01=0x0148}
0x462c…4636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0178}
0x4636…4640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0182}
0x4640…4672 Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002c, t01=0x018c}
0x4672…4696 Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x002d, t01=0x002e}
0x4696…46d0 Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D)«, t00=0x002d, t01=0x0052}
0x46d0…46e6 Head {h00=0x0012, h01=0x0050, text=» RF(E) PRB101 «, t00=0x002d, t01=0x008c}
0x46e6…4706 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND CHAR «, t00=0x002d, t01=0x00a2}
0x4706…471a Head {h00=0x0010, h01=0x0050, text=»PRB101 EQU *«, t00=0x002d, t01=0x00c2}
0x471a…472e Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETB «, t00=0x002d, t01=0x00d6}
0x472e…4758 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT SEND END OF MESSAGE «, t00=0x002d, t01=0x00ea}
0x4758…476c Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x002d, t01=0x0114}
0x476c…47a6 Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED «, t00=0x002d, t01=0x0128}
0x47a6…47d4 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED«, t00=0x002d, t01=0x0162}
0x47d4…47ec Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x002d, t01=0x0190}
0x47ec…4802 Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x002e, t01=0x0018}
0x4802…4810 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x002e}
0x4810…481a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x003c}
0x481a…4824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0046}
0x4824…482e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0050}
0x482e…4846 Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x002e, t01=0x005a}
0x4846…4850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0072}
0x4850…485a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x007c}
0x485a…486e Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x002e, t01=0x0086}
0x486e…48a4 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x002e, t01=0x009a}
0x48a4…48c2 Head {h00=0x001a, h01=0x0050, text=» SUK A7,7 CHECK ORDER «, t00=0x002e, t01=0x00d0}
0x48c2…48e6 Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x002e, t01=0x00ee}
0x48e6…490a Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x002e, t01=0x0112}
0x490a…4918 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0136}
0x4918…4922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0144}
0x4922…492c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014e}
0x492c…4936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0158}
0x4936…4952 Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x002e, t01=0x0162}
0x4952…495c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x017e}
0x495c…4966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0188}
0x4966…4970 (47, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0004}
0x4970…4992 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x002f, t01=0x000e}
0x4992…49b8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x002f, t01=0x0030}
0x49b8…49de Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x002f, t01=0x0056}
0x49de…4a0c Head {h00=0x002a, h01=0x0050, text=» RB TP405 SEND LIFT TO TOP AND RELEAS «, t00=0x002f, t01=0x007c}
0x4a0c…4a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00aa}
0x4a16…4a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00b4}
0x4a20…4a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00be}
0x4a2a…4a4c Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x002f, t01=0x00c8}
0x4a4c…4a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ea}
0x4a56…4a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f4}
0x4a60…4a88 Head {h00=0x0024, h01=0x0050, text=»PRB110 ANK A2,VOIN VOUCHER IN ? «, t00=0x002f, t01=0x00fe}
0x4a88…4a9c Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x002f, t01=0x0126}
0x4a9c…4ac8 Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP01 ERROR .VOUCHER NOT IN «, t00=0x002f, t01=0x013a}
0x4ac8…4ad4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0166}
0x4ad4…4ae8 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x002f, t01=0x0172}
0x4ae8…4afc Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x002f, t01=0x0186}
0x4afc…4b08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x000a}
0x4b08…4b30 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 COPY REQUESTED LENGTH«, t00=0x0030, t01=0x0016}
0x4b30…4b4c Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 R.L. < 3? «, t00=0x0030, t01=0x003e}
0x4b4c…4b74 Head {h00=0x0024, h01=0x0050, text=» RF(N) PRB200 YES: NO TABULATION«, t00=0x0030, t01=0x005a}
0x4b74…4b88 Head {h00=0x0010, h01=0x0050, text=» LDK A1,TAB «, t00=0x0030, t01=0x0082}
0x4b88…4ba8 Head {h00=0x001c, h01=0x0050, text=» CC A1,-2,A3 TABULATION?«, t00=0x0030, t01=0x0096}
0x4ba8…4bc2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x0030, t01=0x00b6}
0x4bc2…4bd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00d0}
0x4bd0…4bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00de}
0x4bda…4be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e8}
0x4be4…4c1c Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x0030, t01=0x00f2}
0x4c1c…4c5c Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x0030, t01=0x012a}
0x4c5c…4c7e Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x0030, t01=0x016a}
0x4c7e…4c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018c}
0x4c88…4c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0008}
0x4c92…4cbe Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,RPH DETACH PRINT HEAD «, t00=0x0031, t01=0x0012}
0x4cbe…4ce0 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x0031, t01=0x003e}
0x4ce0…4d10 Head {h00=0x002c, h01=0x0050, text=»PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR «, t00=0x0031, t01=0x0060}
0x4d10…4d38 Head {h00=0x0024, h01=0x0050, text=» LCR A1,A3 GET 2ND TAB POS CHAR «, t00=0x0031, t01=0x0090}
0x4d38…4d54 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x0031, t01=0x00b8}
0x4d54…4d66 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0031, t01=0x00d4}
0x4d66…4d86 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/F0 LINE DECADE «, t00=0x0031, t01=0x00e6}
0x4d86…4dac Head {h00=0x0022, h01=0x0050, text=» ORR A1,A2 DECIMAL LINE NUMBER«, t00=0x0031, t01=0x0106}
0x4dac…4dd4 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x0031, t01=0x012c}
0x4dd4…4e06 Head {h00=0x002e, h01=0x0050, text=»PRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0031, t01=0x0154}
0x4e06…4e3c Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. «, t00=0x0031, t01=0x0186}
0x4e3c…4e58 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x0032, t01=0x002c}
0x4e58…4e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0048}
0x4e62…4e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0052}
0x4e6c…4e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x005c}
0x4e76…4e94 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x0032, t01=0x0066}
0x4e94…4ec0 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x0032, t01=0x0084}
0x4ec0…4ed2 Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x0032, t01=0x00b0}
0x4ed2…4edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c2}
0x4edc…4ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00cc}
0x4ee6…4ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00d6}
0x4ef0…4f22 Head {h00=0x002e, h01=0x0050, text=»PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH«, t00=0x0032, t01=0x00e0}
0x4f22…4f4c Head {h00=0x0026, h01=0x0050, text=» SUK A3,2 DECREMENT BUFFER ADDRESS«, t00=0x0032, t01=0x0112}
0x4f4c…4f66 Head {h00=0x0016, h01=0x0050, text=» LDK A2,APH ATTACH«, t00=0x0032, t01=0x013c}
0x4f66…4f84 Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x0032, t01=0x0156}
0x4f84…4f92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0174}
0x4f92…4f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0182}
0x4f9c…4fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x018c}
0x4fa6…4fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0008}
0x4fb0…4fe6 Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x0033, t01=0x0012}
0x4fe6…5002 Head {h00=0x0018, h01=0x0050, text=»* - ROOMLESS POINT«, t00=0x0033, t01=0x0048}
0x5002…5022 Head {h00=0x001c, h01=0x0050, text=»* - ILLEGAL CHARACTER «, t00=0x0033, t01=0x0064}
0x5022…504c Head {h00=0x0026, h01=0x0050, text=»* - SPECIAL CHARACTER (/13,/14) «, t00=0x0033, t01=0x0084}
0x504c…5056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ae}
0x5056…506a Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x0033, t01=0x00b8}
0x506a…5098 Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x0033, t01=0x00cc}
0x5098…50be Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x0033, t01=0x00fa}
0x50be…50d8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x0033, t01=0x0120}
0x50d8…5102 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER POINTER«, t00=0x0033, t01=0x013a}
0x5102…5114 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x0164}
0x5114…513c Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x0033, t01=0x0176}
0x513c…5154 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x0034, t01=0x000e}
0x5154…517e Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x0034, t01=0x0026}
0x517e…5188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0050}
0x5188…5192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005a}
0x5192…519c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0064}
0x519c…51cc Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x0034, t01=0x006e}
0x51cc…51e6 Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB225 YES «, t00=0x0034, t01=0x009e}
0x51e6…5216 Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x0034, t01=0x00b8}
0x5216…5230 Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x0034, t01=0x00e8}
0x5230…523a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0102}
0x523a…5244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x010c}
0x5244…5258 Head {h00=0x0010, h01=0x0050, text=»PRB225 EQU *«, t00=0x0034, t01=0x0116}
0x5258…526c Head {h00=0x0010, h01=0x0050, text=» IFT CHR13=1«, t00=0x0034, t01=0x012a}
0x526c…5296 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x0034, t01=0x013e}
0x5296…52b0 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0034, t01=0x0168}
0x52b0…52bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0182}
0x52bc…52d0 Head {h00=0x0010, h01=0x0050, text=» IFT CHR14=1«, t00=0x0034, t01=0x018e}
0x52d0…52fa Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x0035, t01=0x0012}
0x52fa…5314 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0035, t01=0x003c}
0x5314…5320 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0056}
0x5320…532a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0062}
0x532a…5350 Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x0035, t01=0x006c}
0x5350…537e Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 STORE IN RETURN CODE «, t00=0x0035, t01=0x0092}
0x537e…53a0 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0035, t01=0x00c0}
0x53a0…53b4 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0035, t01=0x00e2}
0x53b4…53c6 Head {h00=0x000e, h01=0x0050, text=» RF PRB245«, t00=0x0035, t01=0x00f6}
0x53c6…53d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0108}
0x53d0…53da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0112}
0x53da…53e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x011c}
0x53e4…5416 Head {h00=0x002e, h01=0x0050, text=»PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0035, t01=0x0126}
0x5416…543e Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x0035, t01=0x0158}
0x543e…5468 Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x0035, t01=0x0180}
0x5468…5498 Head {h00=0x002c, h01=0x0050, text=»PRB245 SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x0036, t01=0x001a}
0x5498…54aa Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x0036, t01=0x004a}
0x54aa…54b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x005c}
0x54b4…54be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0066}
0x54be…54c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0070}
0x54c8…54d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x007a}
0x54d6…54e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0088}
0x54e0…54f4 Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x0036, t01=0x0092}
0x54f4…54fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00a6}
0x54fe…5532 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0036, t01=0x00b0}
0x5532…553c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e4}
0x553c…5546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00ee}
0x5546…5550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00f8}
0x5550…5562 Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x0036, t01=0x0102}
0x5562…5584 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x0036, t01=0x0114}
0x5584…55a2 Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP10 NOT BUSY«, t00=0x0036, t01=0x0136}
0x55a2…55b0 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0036, t01=0x0154}
0x55b0…55be Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0036, t01=0x0162}
0x55be…55e0 Head {h00=0x001e, h01=0x0050, text=» CWK A7,2 TEST STATUS ? =1«, t00=0x0036, t01=0x0170}
0x55e0…55fe (55, 0, 398) Head {h00=0x001a, h01=0x0050, text=» RF(NG) IHTP20 YES =1 «, t00=0x0037, t01=0x0004}
0x55fe…562e Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT«, t00=0x0037, t01=0x0022}
0x562e…563c Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0037, t01=0x0052}
0x563c…5652 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=0 «, t00=0x0037, t01=0x0060}
0x5652…5680 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) RCTP10 YES GO TO DISPATCHER =1«, t00=0x0037, t01=0x0076}
0x5680…568c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00a4}
0x568c…56a2 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=1 «, t00=0x0037, t01=0x00b0}
0x56a2…56ce Head {h00=0x0028, h01=0x0050, text=» RF(NZ) IHTP30 YES FINISH REQUEST =1«, t00=0x0037, t01=0x00c6}
0x56ce…56da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00f2}
0x56da…5716 Head {h00=0x0038, h01=0x0050, text=»IHTP10 ABL LDREG NO RETURN CODE RESTORE REGISTER =1 «, t00=0x0037, t01=0x00fe}
0x5716…572e Head {h00=0x0014, h01=0x0050, text=»IHTP20 LDR A1,A1«, t00=0x0037, t01=0x013a}
0x572e…575e Head {h00=0x002c, h01=0x0050, text=» RB(Z) IHTP10 TEST ORDER AND TIME OUT =1«, t00=0x0037, t01=0x0152}
0x575e…5772 Head {h00=0x0010, h01=0x0050, text=»IHTP30 EQU *«, t00=0x0037, t01=0x0182}
0x5772…5784 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0038, t01=0x0008}
0x5784…578e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x001a}
0x578e…5798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0024}
0x5798…57a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x002e}
0x57a2…57b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0038}
0x57b0…57ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0046}
0x57ba…57ce Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x0038, t01=0x0050}
0x57ce…57d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0064}
0x57d8…581a Head {h00=0x003e, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON«, t00=0x0038, t01=0x006e}
0x581a…5824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b0}
0x5824…5836 Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x0038, t01=0x00ba}
0x5836…584c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0038, t01=0x00cc}
0x584c…5876 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0038, t01=0x00e2}
0x5876…5882 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x010c}
0x5882…588c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0118}
0x588c…58a2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0038, t01=0x0122}
0x58a2…58c8 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0038, t01=0x0138}
0x58c8…58d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x015e}
0x58d4…58de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x016a}
0x58de…5908 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/7FFF IND DEVICE BUSY =3 «, t00=0x0038, t01=0x0174}
0x5908…5924 Head {h00=0x0018, h01=0x0050, text=» ANS A2,DWTST,A6 =3«, t00=0x0039, t01=0x000e}
0x5924…5940 Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTECB,A6 =3«, t00=0x0039, t01=0x002a}
0x5940…596c Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP05 REQUEST NOT RUNNING =3«, t00=0x0039, t01=0x0046}
0x596c…5976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0072}
0x5976…599e Head {h00=0x0024, h01=0x0050, text=»RCTP01 LDKL A5,DWTSB2 STACK BASE«, t00=0x0039, t01=0x007c}
0x599e…59b0 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0039, t01=0x00a4}
0x59b0…59f0 Head {h00=0x003c, h01=0x0050, text=» LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x0039, t01=0x00b6}
0x59f0…5a10 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0039, t01=0x00f6}
0x5a10…5a24 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0039, t01=0x0116}
0x5a24…5a46 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 STATUS CHANGE ?«, t00=0x0039, t01=0x012a}
0x5a46…5a5c Head {h00=0x0012, h01=0x0050, text=» ABL(NE) TP645«, t00=0x0039, t01=0x014c}
0x5a5c…5a68 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0162}
0x5a68…5a7c Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x0039, t01=0x016e}
0x5a7c…5a8e Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0039, t01=0x0182}
0x5a8e…5ac4 (58, 0, 398) Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x003a, t01=0x0004}
0x5ac4…5ae4 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003a, t01=0x003a}
0x5ae4…5afa Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003a, t01=0x005a}
0x5afa…5b16 Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTECB,A6 =3«, t00=0x003a, t01=0x0070}
0x5b16…5b40 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RCTP07 REQUEST RUNNING =3 «, t00=0x003a, t01=0x008c}
0x5b40…5b74 Head {h00=0x0030, h01=0x0050, text=» LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3«, t00=0x003a, t01=0x00b6}
0x5b74…5b8e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =3 «, t00=0x003a, t01=0x00ea}
0x5b8e…5ba6 Head {h00=0x0014, h01=0x0050, text=» ABL DISEND =3 «, t00=0x003a, t01=0x0104}
0x5ba6…5bbe Head {h00=0x0014, h01=0x0050, text=»RCTP07 EQU * =3«, t00=0x003a, t01=0x011c}
0x5bbe…5bd2 Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x003a, t01=0x0134}
0x5bd2…5bf8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/80 INDICATE POWER OFF«, t00=0x003a, t01=0x0148}
0x5bf8…5c1c Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x003a, t01=0x016e}
0x5c1c…5c28 (59, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0004}
0x5c28…5c46 Head {h00=0x001a, h01=0x0050, text=» LDK A4,1 IND RECOVERY«, t00=0x003b, t01=0x0010}
0x5c46…5c74 Head {h00=0x002a, h01=0x0050, text=» ABL ACT005 START RECOVERY OF PRINTER «, t00=0x003b, t01=0x002e}
0x5c74…5c9e Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL TDISP GO TO DISPATCHER «, t00=0x003b, t01=0x005c}
0x5c9e…5cac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0086}
0x5cac…5cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0094}
0x5cb6…5cce Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x003b, t01=0x009e}
0x5cce…5cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00b6}
0x5cd8…5d10 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x003b, t01=0x00c0}
0x5d10…5d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f8}
0x5d1a…5d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0102}
0x5d24…5d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x010c}
0x5d2e…5d60 Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 «, t00=0x003b, t01=0x0116}
0x5d60…5d7a Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x003b, t01=0x0148}
0x5d7a…5d94 Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x003b, t01=0x0162}
0x5d94…5db4 Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x003b, t01=0x017c}
0x5db4…5dc8 Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x003c, t01=0x000c}
0x5dc8…5dee Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x003c, t01=0x0020}
0x5dee…5df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0046}
0x5df8…5e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0050}
0x5e02…5e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x005a}
0x5e0c…5e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0064}
0x5e16…5e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x006e}
0x5e20…5e36 Head {h00=0x0012, h01=0x0050, text=»* G R A S P «, t00=0x003c, t01=0x0078}
0x5e36…5e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x008e}
0x5e40…5e78 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK«, t00=0x003c, t01=0x0098}
0x5e78…5e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d0}
0x5e82…5e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00da}
0x5e8c…5ea0 Head {h00=0x0010, h01=0x0050, text=»GRASPA EQU *«, t00=0x003c, t01=0x00e4}
0x5ea0…5ec0 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003c, t01=0x00f8}
0x5ec0…5eda Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003c, t01=0x0118}
0x5eda…5efa Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003c, t01=0x0132}
0x5efa…5f10 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003c, t01=0x0152}
0x5f10…5f24 Head {h00=0x0010, h01=0x0050, text=»GRASP EQU * «, t00=0x003c, t01=0x0168}
0x5f24…5f36 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003c, t01=0x017c}
0x5f36…5f50 Head {h00=0x0016, h01=0x0050, text=» LDK A2,GRA GRASP «, t00=0x003c, t01=0x018e}
0x5f50…5f66 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x0018}
0x5f66…5f88 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x003d, t01=0x002e}
0x5f88…5fa2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GRAS10 YES«, t00=0x003d, t01=0x0050}
0x5fa2…5fc2 Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x003d, t01=0x006a}
0x5fc2…5fdc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003d, t01=0x008a}
0x5fdc…6002 Head {h00=0x0022, h01=0x0050, text=» LDK A2,TETX DUMMY AFTER GRASP«, t00=0x003d, t01=0x00a4}
0x6002…6018 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x00ca}
0x6018…6038 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003d, t01=0x00e0}
0x6038…6052 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003d, t01=0x0100}
0x6052…6072 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003d, t01=0x011a}
0x6072…6088 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x013a}
0x6088…6098 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003d, t01=0x0150}
0x6098…60b6 Head {h00=0x001a, h01=0x0050, text=»GRAS10 LC A3,DWTALN,A6«, t00=0x003d, t01=0x0160}
0x60b6…60c6 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003d, t01=0x017e}
0x60c6…60d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x018e}
0x60d0…60da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0008}
0x60da…60e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0012}
0x60e8…60f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0020}
0x60f2…60fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x002a}
0x60fc…6114 Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x003e, t01=0x0034}
0x6114…611e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x004c}
0x611e…6154 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x003e, t01=0x0056}
0x6154…615e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x008c}
0x615e…6168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0096}
0x6168…6172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a0}
0x6172…6186 Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x003e, t01=0x00aa}
0x6186…6198 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003e, t01=0x00be}
0x6198…61cc Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0«, t00=0x003e, t01=0x00d0}
0x61cc…61f8 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,BUF5 LIFT TO TOP AND RELEAS«, t00=0x003e, t01=0x0104}
0x61f8…6218 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003e, t01=0x0130}
0x6218…6232 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003e, t01=0x0150}
0x6232…6252 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003e, t01=0x016a}
0x6252…6268 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003e, t01=0x018a}
0x6268…628a Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x003f, t01=0x0010}
0x628a…62a0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BUFRTN «, t00=0x003f, t01=0x0032}
0x62a0…62aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0048}
0x62aa…62c2 Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x003f, t01=0x0052}
0x62c2…62cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x006a}
0x62cc…630c Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x003f, t01=0x0074}
0x630c…6338 Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x003f, t01=0x00b4}
0x6338…6342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00e0}
0x6342…634c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00ea}
0x634c…6384 Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x003f, t01=0x00f4}
0x6384…639c Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x003f, t01=0x012c}
0x639c…63cc Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x003f, t01=0x0144}
0x63cc…63f4 Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x003f, t01=0x0174}
0x63f4…6418 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0040, t01=0x000c}
0x6418…643c Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0040, t01=0x0030}
0x643c…6466 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x0040, t01=0x0054}
0x6466…647a Head {h00=0x0010, h01=0x0050, text=»BUFRTN EQU *«, t00=0x0040, t01=0x007e}
0x647a…649a Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x0040, t01=0x0092}
0x649a…64a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00b2}
0x64a4…64ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00bc}
0x64ae…64b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00c6}
0x64b8…64c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d0}
0x64c2…64cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00da}
0x64cc…64d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00e4}
0x64d6…64e2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0040, t01=0x00ee}
0x64e2…64e6 Head {h00=0x4004, h01=0x0000}
0x64e6…64ea 00 40 00 fa ┆ @ ┆
0x64ea…64f2 (65, 1, 8) 20 04 00 00 00 41 00 04 ┆ A ┆
0x64f2…6542 (66, 0, 398) 00 2c 00 28 03 13 00 00 01 59 00 00 5f 60 81 42 00 0a 50 00 e4 24 24 ff 91 10 11 01 1c 01 52 00 19 01 ea 25 5c 0a 14 01 84 43 00 0a 00 02 00 04 00 2c 00 28 03 13 00 00 01 79 08 00 f7 a1 00 00 2a 80 f5 21 00 00 00 0e 57 00 84 08 ec 59 00 2b ┆ , ( Y _` B P $$ R % C , ( y * ! W Y +┆
0x6542…6592 50 00 ec 59 00 2a 50 00 ec 59 00 28 00 02 00 34 00 2c 00 28 03 13 00 00 01 97 00 00 50 00 ec 59 00 29 50 00 f7 a1 00 00 84 08 1c 20 52 00 1c 5f 51 00 ef 20 00 02 50 00 14 4f 52 00 00 02 00 64 00 2c 00 28 03 13 00 10 01 b7 02 00 1c 0a 52 00 ┆P Y *P Y ( 4 , ( P Y )P R _Q P OR d , ( R ┆
0x6592…65e2 01 04 57 00 22 7f f5 21 00 00 00 0e eb 42 00 04 8a 20 00 9a 01 08 57 00 04 03 57 00 00 02 00 94 00 2c 00 28 03 13 00 00 01 d5 00 40 04 02 02 30 1c 01 5a 14 81 10 f7 a1 00 00 84 04 f5 21 00 00 00 0e eb 42 00 04 5a 18 1c 01 5a 26 00 02 00 c4 ┆ W " ! B W W , ( @ 0 Z ! B Z Z& ┆
0x65e2…6632 00 2c 00 28 03 13 00 00 01 f3 00 00 20 bf 81 58 00 2e 99 18 e9 20 00 30 54 00 01 58 91 18 19 01 57 00 91 18 19 01 e9 58 00 2c 50 00 00 02 00 f4 00 2c 00 28 03 13 00 00 02 13 00 00 81 59 00 2e 02 30 e2 25 5f 2e 04 ff e4 25 81 59 00 2e 01 0a ┆ , ( X . 0T X W X ,P , ( Y . 0 %_. % Y . ┆
0x6632…6680 57 00 03 00 02 18 5f 70 83 0c 50 00 00 02 01 24 00 2c 00 28 03 13 00 00 02 33 00 22 1b 01 9a 08 f7 a1 00 00 1b 01 02 08 5f 82 01 00 20 bf 84 58 00 00 00 08 50 00 a0 79 00 00 00 08 00 02 01 54 00 0e 00 0a 02 04 c2 45 43 48 45 4e 44 c4 ┆W _p P $ , ( 3 " _ X P y T ECHEND ┆
0x6680…66d0 (67, 0, 400) 00 02 01 84 00 0e 00 0a 02 04 c2 44 49 53 45 4e 44 00 00 03 00 08 00 2c 00 28 03 13 00 00 02 4f 41 10 a0 59 00 00 00 08 83 43 00 06 84 04 f5 21 00 00 00 10 81 10 8f 20 00 00 00 12 22 ff f7 a1 00 00 00 03 00 1a 00 2a 00 26 03 12 00 00 02 69 ┆ DISEND , ( OA Y C ! " * & i┆
0x66d0…6720 08 40 84 10 51 00 52 00 83 58 00 00 00 02 23 ff 50 00 83 58 00 00 00 02 52 00 3b 47 56 00 83 58 00 03 00 4a 00 0c 00 08 02 03 a2 4c 44 52 45 47 00 03 00 78 00 2c 00 28 03 13 00 00 02 83 82 40 00 00 00 08 50 00 83 20 fe d4 83 79 00 00 00 08 ┆ @ Q R X # P X R ;GV X J LDREG x , ( @ P y ┆
0x6720…6770 8f 20 00 00 00 14 f7 a1 00 00 83 0c 50 00 83 58 00 03 00 88 00 0c 00 08 02 03 a2 44 57 54 41 33 00 03 00 b8 00 0e 00 0a 02 04 c2 44 57 54 53 42 32 d5 00 03 00 c8 00 2c 00 28 03 13 00 04 02 9d 82 40 00 00 00 02 52 00 3b 47 56 00 83 58 00 00 ┆ P X DWTA3 DWTSB2 , ( @ R ;GV X ┆
0x6770…67c0 00 16 85 20 00 00 00 18 95 18 8f 20 00 9a 81 58 00 2c 00 03 00 da 00 2a 00 26 03 12 00 00 02 b7 00 00 e4 24 34 ff 50 00 83 04 f7 a1 00 00 e9 58 00 2e 54 00 2a ff 57 00 81 59 00 2c e2 2d 8f 20 00 03 01 0a 00 2c 00 28 03 13 00 00 02 d5 84 82 ┆ X , * & $4 P X .T * W Y , - , ( ┆
0x67c0…6810 00 00 00 04 86 04 01 40 a0 59 00 00 00 08 82 58 00 00 00 02 5a 12 5f 58 84 3f 83 58 00 00 00 02 00 03 01 38 00 2c 00 28 03 13 00 00 02 ed 00 04 82 20 01 00 3a 61 14 02 5a 06 a3 08 54 00 84 10 54 00 57 00 84 10 50 00 83 58 00 00 00 02 b3 08 ┆ @ Y X Z _X ? X 8 , ( :a Z T T W P X ┆
0x6810…6860 (68, 0, 400) 00 03 01 68 00 2c 00 28 03 13 00 00 03 0b 10 00 3a 64 aa 0c 82 59 00 00 00 02 03 01 84 3e f0 3e 84 08 82 3f 85 38 1c 20 52 00 1c 40 52 00 1c 10 00 04 00 08 00 2c 00 28 03 13 00 00 03 29 00 00 56 00 1a 40 25 10 3d 63 57 00 1c 08 52 00 50 00 ┆ h , ( :d Y > > ? 8 R @R , ( ) V @% =cW R P ┆
0x6860…68b0 1c 02 52 00 50 00 1c 02 52 00 50 00 57 00 82 20 00 04 00 38 00 2c 00 28 03 13 00 00 03 49 00 00 ff df a5 08 85 39 04 10 57 00 84 14 24 10 50 00 02 90 57 00 02 10 ad 08 5f 16 84 14 24 80 50 00 00 04 00 68 00 2c 00 28 03 13 00 00 03 69 00 00 ┆ R P R P W 8 , ( I 9 W $ P W _ $ P h , ( i ┆
0x68b0…6900 82 20 ff 7f 5f 24 82 20 ff ef 5f 2a 5f 2c 02 20 5f 1c 1a 20 25 30 3d 63 15 04 84 58 00 14 94 14 00 04 00 98 00 2c 00 28 03 13 00 00 03 89 00 00 84 30 50 00 94 08 82 3e e2 30 04 00 f0 3e 82 3e 5f 06 84 42 00 02 94 0c e2 31 13 01 97 a0 00 02 ┆ _$ _*_, _ %0=c X , ( 0P > 0 > >_ B 1 ┆
0x6900…6950 00 04 00 c8 00 1e 00 1a 03 0c 00 00 03 a9 00 00 80 3e 11 01 99 18 e9 20 00 58 54 00 01 30 91 18 5f 16 00 04 00 f8 00 48 00 44 04 21 e0 c0 00 07 00 28 00 0b 02 62 00 0d 00 0e 00 15 56 0c 00 27 57 3c 00 37 55 08 00 3b 52 1a 00 3f 50 08 00 47 ┆ > XT 0 _ H D ! ( b V 'W< 7U ;R ?P G┆
0x6950…69a0 02 56 00 55 02 42 00 5f 50 10 00 69 50 06 00 6f 57 7e 00 75 50 24 00 7b 50 0a 00 85 57 14 00 04 01 1a 00 48 00 44 04 21 82 64 00 93 02 d6 00 a1 50 50 00 ad 52 08 00 af 51 04 00 b3 57 02 00 cd 54 02 00 d9 03 9a 00 e1 50 68 00 e7 50 02 00 f1 ┆ V U B _P iP oW~ uP$ {P W H D ! d PP R Q W T Ph P ┆