|
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: 26130 (0x6612)
Notes: pts_type(SC)
Names: »DRTP02.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/DRTP02.SC«
IDENT DRTP02 REL 10.0 80-03-14 870105041000 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 2 : END OF JOURNAL TAPE, VOUCHER OUT * BIT 7 : RECOVERY EXECUTED ON REQUEST * BIT 13 : CODE CHECK ERROR * BIT 15 : NOT OPERABLE * * * * NORMAL REGISTER USAGE: * * REGISTER A1: WORK REGISTER * A2: INPUT/OUTPUT * A3: BUFFER POINTER * A4: OUTPUT COUNTER * A5: STACK POINTER * A6: DWT-ADDRESS * A7: ORDER * A8: ECB-ADDRESS * * * * * 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 X:A * * * JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY * SETTING X:B = 1 * * X:B EQU 0 CUTPER EQU X:B * * * SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 * AND X:D = 1 RESPECTIVLY * * X:C EQU 0 CHR13 EQU X:C * * X:D EQU 0 CHR14 EQU X:D * * * PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF * PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 * * X:E EQU 0 COMPL EQU X:E EJECT * * * IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT * IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING * THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET * * X:F EQU 0 RELEND EQU X:F * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * MMU BUFFER SIZE * * X:H EQU 20 DVBLEN EQU X:H * EJECT * * ************* * CONSTANTS * ************* * * CCERR EQU /4 RETURN CODE. CODE CHECK ERROR PROUT EQU /2000 RETURN CODE. END OF JOURNAL TAPE * * VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. 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,/2426,/3B3C,/3E40,/5E5F * * TABLE TO GET ACTUAL LF-CHARACTER * * LFTAB EQU * DATA /1819 LINE FEED JOURNAL/TALLY ROLL * * IFT CUTPER=1 CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE XIF TPTAB EQU * ORDER TABLE DATA /0002,/0607,/080D IFT CUTPER=1 DATA /2226 XIF DATA /393A TPLEN EQU *-TPTAB EJECT * * * A C T P * * THIS IS THE ACTIVATION PART OF THE DRIVER * CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR * * * ACTP EQU * ACTIVATION ENTRY * * * GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK LC A1,DWTOR,A6 GET DWT INDEX ANK A1,7 MASK ADR A7,A1 ADD DWT INDEX TO ORDER SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT LDK A4,0 ACTIVATION ACT005 LDK A3,TPLEN-1 ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER RF(E) ACT020 VALID ORDER SUK A3,1 RB(NN) ACT010 TRY NEXT * ABL DISIOE ILLEGAL ORDER * * ACT020 EQU * SC A4,DWTBC,A6 RESET BYTE COUNTER ADR A3,A3 GET INDEX ABI TPFUC,A3 EXECUTE ORDER TPFUC DATA 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 ORKL 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 LDKL A1,PROUT 'VOUCHER OUT' ORS A1,ECBRC,A8 INDICATE IN RETURN CODE RB TPDUMY XIF EJECT * * * ORDER 06 AND 0B: LIFT IS POSITIONED * ATTACH AND PRINT * * TP650 EQU * LDKL A3,BUF2 SEND CR2 AND ATTACH RB TP410 PRINT ECB-BUFFER EJECT IFT CUTPER=1 * * ORDER 22 AND 26 CUT AND PERFORATE JOURNAL * TP700 EQU * LDK A1,1 SET INDEX RF TP760 TP750 EQU * LDK A1,0 SET INDEX TP760 LC A2,CPTAB,A1 GET CHAR CF A5,OUTPUT SEND LDK A2,LF1 LINE FEED CF A5,OUTPUT SEND RB TPDUMY XIF * * ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK * TP800 EQU * CF A5,GRASPA RB TPDUMY TP900 EQU * CF A5,RELEAS RB TPDUMY EJECT * * P R B U F * * SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED * LENGTH IS REACHED * PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH SUK A4,2 ADJUST REQUESTED LENGTH LD A3,ECBBA,A8 BUFFER ADDRESS * SKIP PRECEDING SPACES IN BUFFER ADK A3,2 PRB010 LCR A1,A3 GET CHARACTER CCK A1,/2020 RF(NE) PRB050 NOT BLANK ADK A3,1 BLANK SUK A4,1 RB PRB010 GET NEXT CHARACTER * LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER PRB050 LDR A1,A3 GET ADDRESS TO ADR A1,A4 LAST CHARACTER IN BUFFER LC A1,-1,A1 GET CHAR CCK A1,/0909 CARRIAGE RETURN - CR2 ? RF(E) PRB060 YES CCK A1,/0D0D CARRIAGE RETURN - CR1 ? RF(E) PRB060 YES LDK A1,0 DUMMY CHARACTER RF PRB070 PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB * * PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH RF(NN) PRB105 PRINT BUFFER LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) RF(E) PRB101 CF A5,OUTPUT SEND CHAR PRB101 EQU * LDK A2,ETB CF A5,OUTPUT SEND END OF MESSAGE 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 LDKL A2,/100 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 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005a Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-04-06 «, t00=0x0000, t01=0x0042}
0x005a…0084 Head {h00=0x0026, h01=0x0050, text=» =1-3,GEN UPDATE TO 8.2+ STATUS «, t00=0x0000, t01=0x005e}
0x0084…00a0 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-04-19 «, t00=0x0000, t01=0x0088}
0x00a0…00c6 Head {h00=0x0022, h01=0x0050, text=» =3,RECOVERY TIMER CORRECTED«, t00=0x0000, t01=0x00a4}
0x00c6…00e2 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-04-18 «, t00=0x0000, t01=0x00ca}
0x00e2…010c Head {h00=0x0026, h01=0x0050, text=» =2,GRSP/REL CH.TO IMPR. REMOTE «, t00=0x0000, t01=0x00e6}
0x010c…0128 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-03-16 «, t00=0x0000, t01=0x0110}
0x0128…014c Head {h00=0x0020, h01=0x0050, text=» =1,IMPRROV. OF TEST ORDER«, t00=0x0000, t01=0x012c}
0x014c…0168 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 78-09-15 «, t00=0x0000, t01=0x0150}
0x0168…01a8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x016c}
0x01a8…01e8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x001c}
0x01e8…0228 Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0001, t01=0x005c}
0x0228…0268 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x009c}
0x0268…02a8 Head {h00=0x003c, h01=0x0050, text=»* DRTP02 = DRIVER TELLER TERMINAL PRINTER * «, t00=0x0001, t01=0x00dc}
0x02a8…02e8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x011c}
0x02e8…0328 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x015c}
0x0328…0332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000c}
0x0332…033c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0016}
0x033c…0346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0020}
0x0346…0386 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x002a}
0x0386…03c6 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0002, t01=0x006a}
0x03c6…03d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00aa}
0x03d0…0412 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221,«, t00=0x0002, t01=0x00b4}
0x0412…044c Head {h00=0x0036, h01=0x0050, text=»* 6222 OR 6223 CONNECTED TO CPU VIA CHLT OR CHRT«, t00=0x0002, t01=0x00f6}
0x044c…0456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0130}
0x0456…0460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x0460…0498 Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0002, t01=0x0144}
0x0498…04a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017c}
0x04a2…04ca Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0002, t01=0x0186}
0x04ca…04d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001e}
0x04d4…04fe Head {h00=0x0026, h01=0x0050, text=»* I H T P : INTERRUPT HANDLER «, t00=0x0003, t01=0x0028}
0x04fe…0508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0052}
0x0508…0530 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0003, t01=0x005c}
0x0530…053a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0084}
0x053a…0544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008e}
0x0544…057e Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES:«, t00=0x0003, t01=0x0098}
0x057e…0588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d2}
0x0588…05ce Head {h00=0x0042, h01=0x0050, text=»* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM«, t00=0x0003, t01=0x00dc}
0x05ce…05d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0122}
0x05d8…0612 Head {h00=0x0036, h01=0x0050, text=»* B C D T B Y : CONVERT TO BINARY FROM DECIMAL«, t00=0x0003, t01=0x012c}
0x0612…061c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0166}
0x061c…0664 Head {h00=0x0044, h01=0x0050, text=»* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST«, t00=0x0003, t01=0x0170}
0x0664…068c Head {h00=0x0024, h01=0x0050, text=»* CHARACTER IN OUTPUT BUFFER «, t00=0x0004, t01=0x0028}
0x068c…0696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0050}
0x0696…06c8 Head {h00=0x002e, h01=0x0050, text=»* G R A S P : SEND GRASP TO VOUCHER «, t00=0x0004, t01=0x005a}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…070a Head {h00=0x0034, h01=0x0050, text=»* R E L E A S : SEND LIFT TO TOP AND RELEASE«, t00=0x0004, t01=0x0096}
0x070a…0718 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00ce}
0x0718…0722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00dc}
0x0722…0750 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0004, t01=0x00e6}
0x0750…075a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0114}
0x075a…0782 Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0004, t01=0x011e}
0x0782…07a4 Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0004, t01=0x0146}
0x07a4…07d8 Head {h00=0x0030, h01=0x0050, text=»* ORDER 0B : POSITION LIFT AND WRITE «, t00=0x0004, t01=0x0168}
0x07d8…0800 Head {h00=0x0024, h01=0x0050, text=»* ORDER 22 : CUT JOURNAL «, t00=0x0005, t01=0x000c}
0x0800…082e Head {h00=0x002a, h01=0x0050, text=»* ORDER 26 : PERFORATE JOURNAL «, t00=0x0005, t01=0x0034}
0x082e…0860 Head {h00=0x002e, h01=0x0050, text=»* ORDER 37 : GRASP VOUCHER/PASSBOOK«, t00=0x0005, t01=0x0062}
0x0860…0894 Head {h00=0x0030, h01=0x0050, text=»* ORDER 38 : RELEASE VOUCHER/PASSBOOK«, t00=0x0005, t01=0x0094}
0x0894…089e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c8}
0x089e…08ce Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0005, t01=0x00d2}
0x08ce…08d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0102}
0x08d8…0902 Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0005, t01=0x010c}
0x0902…093e Head {h00=0x0038, h01=0x0050, text=»* BIT 2 : END OF JOURNAL TAPE, VOUCHER OUT«, t00=0x0005, t01=0x0136}
0x093e…0976 Head {h00=0x0034, h01=0x0050, text=»* BIT 7 : RECOVERY EXECUTED ON REQUEST«, t00=0x0005, t01=0x0172}
0x0976…09a2 Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0006, t01=0x001a}
0x09a2…09ca Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0006, t01=0x0046}
0x09ca…09d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006e}
0x09d4…09de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0078}
0x09de…09e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0082}
0x09e8…0a0a Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0006, t01=0x008c}
0x0a0a…0a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ae}
0x0a14…0a3a Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0006, t01=0x00b8}
0x0a3a…0a60 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0006, t01=0x00de}
0x0a60…0a88 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0006, t01=0x0104}
0x0a88…0ab0 Head {h00=0x0024, h01=0x0050, text=»* A4: OUTPUT COUNTER «, t00=0x0006, t01=0x012c}
0x0ab0…0ad6 Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0006, t01=0x0154}
0x0ad6…0afa Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0006, t01=0x017a}
0x0afa…0b18 Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0007, t01=0x000e}
0x0b18…0b3c Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0007, t01=0x002c}
0x0b3c…0b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0050}
0x0b46…0b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005a}
0x0b50…0b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0064}
0x0b5a…0b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006e}
0x0b64…0b82 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0007, t01=0x0078}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0096}
0x0b8c…0bd4 Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN «, t00=0x0007, t01=0x00a0}
0x0bd4…0bec Head {h00=0x0014, h01=0x0050, text=»* BE EXCLUDED:«, t00=0x0007, t01=0x00e8}
0x0bec…0bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0100}
0x0bf6…0c38 Head {h00=0x003e, h01=0x0050, text=»* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST «, t00=0x0007, t01=0x010a}
0x0c38…0c70 Head {h00=0x0034, h01=0x0050, text=»* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) «, t00=0x0007, t01=0x014c}
0x0c70…0ca4 Head {h00=0x0030, h01=0x0050, text=»* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 «, t00=0x0007, t01=0x0184}
0x0ca4…0cf0 Head {h00=0x0048, h01=0x0050, text=»* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN«, t00=0x0008, t01=0x0028}
0x0cf0…0cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0074}
0x0cfa…0d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007e}
0x0d04…0d48 Head {h00=0x0040, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED«, t00=0x0008, t01=0x0088}
0x0d48…0d8a Head {h00=0x003e, h01=0x0050, text=»* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET «, t00=0x0008, t01=0x00cc}
0x0d8a…0d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010e}
0x0d94…0d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0118}
0x0d9e…0dac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0122}
0x0dac…0db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x0db6…0dca Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x013a}
0x0dca…0dde Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0008, t01=0x014e}
0x0dde…0df2 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0162}
0x0df2…0dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0176}
0x0dfc…0e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0180}
0x0e06…0e28 Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD ADDRESS BLOCK «, t00=0x0008, t01=0x018a}
0x0e28…0e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001c}
0x0e32…0e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0026}
0x0e3c…0e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0030}
0x0e46…0e5c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x003a}
0x0e5c…0e72 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0009, t01=0x0050}
0x0e72…0e88 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0066}
0x0e88…0e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x007c}
0x0e92…0e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0086}
0x0e9c…0ecc Head {h00=0x002c, h01=0x0050, text=» EXTRN TDISP DISPATCHING FROM INTERRUPT «, t00=0x0009, t01=0x0090}
0x0ecc…0ef4 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE DISPATCH I/O ERROR«, t00=0x0009, t01=0x00c0}
0x0ef4…0f1e Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x0009, t01=0x00e8}
0x0f1e…0f3c Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x0112}
0x0f3c…0f66 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0009, t01=0x0130}
0x0f66…0f8c Head {h00=0x0022, h01=0x0050, text=» EXTRN LDREG RESTORE REGISTERS«, t00=0x0009, t01=0x015a}
0x0f8c…0fc8 Head {h00=0x0038, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT «, t00=0x0009, t01=0x0180}
0x0fc8…0fec Head {h00=0x0020, h01=0x0050, text=» EXTRN SAVE8 SAVE REG. A1-A8«, t00=0x000a, t01=0x002c}
0x0fec…0ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0050}
0x0ff6…1012 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x005a}
0x1012…1034 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x0076}
0x1034…1056 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x000a, t01=0x0098}
0x1056…1070 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x00ba}
0x1070…109a Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x000a, t01=0x00d4}
0x109a…10a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00fe}
0x10a8…10b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010c}
0x10b2…10ce Head {h00=0x0018, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x000a, t01=0x0116}
0x10ce…10d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0132}
0x10d8…10fc Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x000a, t01=0x013c}
0x10fc…1122 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x000a, t01=0x0160}
0x1122…1148 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x000a, t01=0x0186}
0x1148…1168 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x000b, t01=0x001c}
0x1168…118a Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x000b, t01=0x003c}
0x118a…1198 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x005e}
0x1198…11b8 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x006c}
0x11b8…11d8 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x008c}
0x11d8…11f8 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x00ac}
0x11f8…1202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00cc}
0x1202…120c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d6}
0x120c…124c Head {h00=0x003c, h01=0x0050, text=»* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET«, t00=0x000b, t01=0x00e0}
0x124c…126a Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:A = 1«, t00=0x000b, t01=0x0120}
0x126a…1274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013e}
0x1274…127e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0148}
0x127e…1290 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000b, t01=0x0152}
0x1290…12a6 Head {h00=0x0012, h01=0x0050, text=»RECOV EQU X:A «, t00=0x000b, t01=0x0164}
0x12a6…12b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017a}
0x12b0…12ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0184}
0x12ba…12f8 Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x000b, t01=0x018e}
0x12f8…1314 Head {h00=0x0018, h01=0x0050, text=»* SETTING X:B = 1 «, t00=0x000c, t01=0x003c}
0x1314…131e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131e…1328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0062}
0x1328…133a Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x006c}
0x133a…1350 Head {h00=0x0012, h01=0x0050, text=»CUTPER EQU X:B«, t00=0x000c, t01=0x007e}
0x1350…135a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0094}
0x135a…1364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009e}
0x1364…13aa Head {h00=0x0042, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 «, t00=0x000c, t01=0x00a8}
0x13aa…13ce Head {h00=0x0020, h01=0x0050, text=»* AND X:D = 1 RESPECTIVLY «, t00=0x000c, t01=0x00ee}
0x13ce…13d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0112}
0x13d8…13e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011c}
0x13e2…13f4 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000c, t01=0x0126}
0x13f4…140a Head {h00=0x0012, h01=0x0050, text=»CHR13 EQU X:C «, t00=0x000c, t01=0x0138}
0x140a…1414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014e}
0x1414…141e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0158}
0x141e…1430 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000c, t01=0x0162}
0x1430…1446 Head {h00=0x0012, h01=0x0050, text=»CHR14 EQU X:D «, t00=0x000c, t01=0x0174}
0x1446…1450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018a}
0x1450…145a (13, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x145a…1490 Head {h00=0x0032, h01=0x0050, text=»* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF«, t00=0x000d, t01=0x000e}
0x1490…14ce Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000d, t01=0x0044}
0x14ce…14d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0082}
0x14d8…14e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008c}
0x14e2…14f4 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x0096}
0x14f4…150a Head {h00=0x0012, h01=0x0050, text=»COMPL EQU X:E «, t00=0x000d, t01=0x00a8}
0x150a…1518 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00be}
0x1518…1522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00cc}
0x1522…152c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d6}
0x152c…156e Head {h00=0x003e, h01=0x0050, text=»* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT «, t00=0x000d, t01=0x00e0}
0x156e…15ae Head {h00=0x003c, h01=0x0050, text=»* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING «, t00=0x000d, t01=0x0122}
0x15ae…15f0 Head {h00=0x003e, h01=0x0050, text=»* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET«, t00=0x000d, t01=0x0162}
0x15f0…15fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0014}
0x15fa…1604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001e}
0x1604…1616 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000e, t01=0x0028}
0x1616…162c Head {h00=0x0012, h01=0x0050, text=»RELEND EQU X:F«, t00=0x000e, t01=0x003a}
0x162c…1636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0050}
0x1636…1640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005a}
0x1640…1672 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000e, t01=0x0064}
0x1672…16a0 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000e, t01=0x0096}
0x16a0…16aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c4}
0x16aa…16be Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000e, t01=0x00ce}
0x16be…16c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e2}
0x16c8…16d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ec}
0x16d2…170c Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000e, t01=0x00f6}
0x170c…173e Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000e, t01=0x0130}
0x173e…1748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0162}
0x1748…175c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000e, t01=0x016c}
0x175c…1766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0180}
0x1766…1770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018a}
0x1770…178c (15, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000f, t01=0x0004}
0x178c…1796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0020}
0x1796…17a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002a}
0x17a0…17b2 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 20«, t00=0x000f, t01=0x0034}
0x17b2…17c8 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x000f, t01=0x0046}
0x17c8…17d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005c}
0x17d2…17e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0066}
0x17e0…17ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0074}
0x17ea…17f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007e}
0x17f4…180a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x0088}
0x180a…1820 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000f, t01=0x009e}
0x1820…1836 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x00b4}
0x1836…1840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ca}
0x1840…184a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d4}
0x184a…187c Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x000f, t01=0x00de}
0x187c…18b4 Head {h00=0x0034, h01=0x0050, text=»PROUT EQU /2000 RETURN CODE. END OF JOURNAL TAPE«, t00=0x000f, t01=0x0110}
0x18b4…18be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0148}
0x18be…18c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0152}
0x18c8…18fc Head {h00=0x0030, h01=0x0050, text=»VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST«, t00=0x000f, t01=0x015c}
0x18fc…1932 Head {h00=0x0032, h01=0x0050, text=»EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. «, t00=0x000f, t01=0x0190}
0x1932…1976 Head {h00=0x0040, h01=0x0050, text=»VOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED «, t00=0x0010, t01=0x0036}
0x1976…19ae Head {h00=0x0034, h01=0x0050, text=»MESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN«, t00=0x0010, t01=0x007a}
0x19ae…19b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b2}
0x19b8…19e0 Head {h00=0x0024, h01=0x0050, text=»STX EQU /82 START OF TEXT BLOCK «, t00=0x0010, t01=0x00bc}
0x19e0…1a06 Head {h00=0x0022, h01=0x0050, text=»ETB EQU /97 END OF TEXT BLOCK «, t00=0x0010, t01=0x00e4}
0x1a06…1a24 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x0010, t01=0x010a}
0x1a24…1a54 Head {h00=0x002c, h01=0x0050, text=»REMOT EQU /01 RESET PRINT BUFFER REMOTE «, t00=0x0010, t01=0x0128}
0x1a54…1a82 Head {h00=0x002a, h01=0x0050, text=»TAB EQU /11 TABULATION CHAR IN BUFFER «, t00=0x0010, t01=0x0158}
0x1a82…1aa6 Head {h00=0x0020, h01=0x0050, text=»CR1 EQU /0D CR JOURNAL TAPE «, t00=0x0010, t01=0x0186}
0x1aa6…1aca Head {h00=0x0020, h01=0x0050, text=»LF1 EQU /18 LF JOURNAL TAPE «, t00=0x0011, t01=0x001a}
0x1aca…1afc Head {h00=0x002e, h01=0x0050, text=»CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK«, t00=0x0011, t01=0x003e}
0x1afc…1b1e Head {h00=0x001e, h01=0x0050, text=»LF2 EQU /19 LF TALLY ROLL «, t00=0x0011, t01=0x0070}
0x1b1e…1b46 Head {h00=0x0024, h01=0x0050, text=»LDO EQU /0B LIFT DOWN 1 POSITION«, t00=0x0011, t01=0x0092}
0x1b46…1b6e Head {h00=0x0024, h01=0x0050, text=»LUP EQU /0A LIFT UP ONE POSITION«, t00=0x0011, t01=0x00ba}
0x1b6e…1b96 Head {h00=0x0024, h01=0x0050, text=»LFF EQU /0C LIFT TO TOP POSITION«, t00=0x0011, t01=0x00e2}
0x1b96…1bd0 Head {h00=0x0036, h01=0x0050, text=»GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK«, t00=0x0011, t01=0x010a}
0x1bd0…1bfc Head {h00=0x0028, h01=0x0050, text=»REL EQU /1B RELEASE VOUCHER/PASSBOOK«, t00=0x0011, t01=0x0144}
0x1bfc…1c22 Head {h00=0x0022, h01=0x0050, text=»APH EQU /1D ATTACH PRINT HEAD «, t00=0x0011, t01=0x0170}
0x1c22…1c48 Head {h00=0x0022, h01=0x0050, text=»RPH EQU /1E RETURN PRINT HEAD «, t00=0x0012, t01=0x0008}
0x1c48…1c80 Head {h00=0x0034, h01=0x0050, text=»TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE «, t00=0x0012, t01=0x002e}
0x1c80…1c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0066}
0x1c8a…1c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0070}
0x1c94…1cb2 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x007a}
0x1cb2…1cd0 Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0012, t01=0x0098}
0x1cd0…1cee Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x00b6}
0x1cee…1cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d4}
0x1cf8…1d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00de}
0x1d02…1d36 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x00e8}
0x1d36…1d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011c}
0x1d40…1d56 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x0126}
0x1d56…1d6e Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0012, t01=0x013c}
0x1d6e…1d7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0154}
0x1d7a…1d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0160}
0x1d84…1d9a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x016a}
0x1d9a…1db4 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0012, t01=0x0180}
0x1db4…1dc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x000a}
0x1dc0…1dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dca…1dfc Head {h00=0x002e, h01=0x0050, text=»DWTRLN EQU START+/12 REQUESTED LINE NUMBER«, t00=0x0013, t01=0x0020}
0x1dfc…1e2c Head {h00=0x002c, h01=0x0050, text=»DWTALN EQU START+/13 ACTUAL LINE NUMBER «, t00=0x0013, t01=0x0052}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0082}
0x1e36…1e44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x008c}
0x1e44…1e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009a}
0x1e4e…1e62 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x00a4}
0x1e62…1e76 Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x0013, t01=0x00b8}
0x1e76…1e8a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x00cc}
0x1e8a…1e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e0}
0x1e94…1e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ea}
0x1e9e…1ec8 Head {h00=0x0026, h01=0x0050, text=»BUF1 DATA /0382,/0D1D STX,CR1,APH «, t00=0x0013, t01=0x00f4}
0x1ec8…1ede Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0013, t01=0x011e}
0x1ede…1efa Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0382 STX «, t00=0x0013, t01=0x0134}
0x1efa…1f06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0150}
0x1f06…1f1c Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0013, t01=0x015c}
0x1f1c…1f38 Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0482 STX «, t00=0x0013, t01=0x0172}
0x1f38…1f44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x018e}
0x1f44…1f6c Head {h00=0x0024, h01=0x0050, text=» DATA /091D,/2000 CR2,APH,SPACE «, t00=0x0014, t01=0x000a}
0x1f6c…1f96 Head {h00=0x0026, h01=0x0050, text=»BUF3 DATA /0382,/091D STX,CR2,APH «, t00=0x0014, t01=0x0032}
0x1f96…1fce Head {h00=0x0034, h01=0x0050, text=»BUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,STB =2«, t00=0x0014, t01=0x005c}
0x1fce…1fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0094}
0x1fd8…1fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009e}
0x1fe2…1fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a8}
0x1fec…1ffe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x00b2}
0x1ffe…2010 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0014, t01=0x00c4}
0x2010…2022 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x00d6}
0x2022…202c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e8}
0x202c…2036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f2}
0x2036…205a Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0014, t01=0x00fc}
0x205a…2076 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0014, t01=0x0120}
0x2076…2096 Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x0014, t01=0x013c}
0x2096…20ba Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x0014, t01=0x015c}
0x20ba…20e0 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0014, t01=0x0180}
0x20e0…2104 Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x0015, t01=0x0016}
0x2104…2128 Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0015, t01=0x003a}
0x2128…2132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005e}
0x2132…215a Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x0015, t01=0x0068}
0x215a…2164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0090}
0x2164…2178 Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0015, t01=0x009a}
0x2178…21a4 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0015, t01=0x00ae}
0x21a4…21ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00da}
0x21ae…21da Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x0015, t01=0x00e4}
0x21da…21e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0110}
0x21e4…21ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011a}
0x21ee…2202 Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x0015, t01=0x0124}
0x2202…2232 Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x0015, t01=0x0138}
0x2232…223c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0168}
0x223c…2246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0172}
0x2246…225c Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0015, t01=0x017c}
0x225c…229a (22, 0, 400) Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x0016, t01=0x0004}
0x229a…22a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0042}
0x22a6…22c6 Head {h00=0x001c, h01=0x0050, text=»TPTAB EQU * ORDER TABLE «, t00=0x0016, t01=0x004e}
0x22c6…22e6 Head {h00=0x001c, h01=0x0050, text=» DATA /0002,/0607,/080D «, t00=0x0016, t01=0x006e}
0x22e6…22fc Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0016, t01=0x008e}
0x22fc…2310 Head {h00=0x0010, h01=0x0050, text=» DATA /2226 «, t00=0x0016, t01=0x00a4}
0x2310…231c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00b8}
0x231c…2330 Head {h00=0x0010, h01=0x0050, text=» DATA /393A «, t00=0x0016, t01=0x00c4}
0x2330…234a Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0016, t01=0x00d8}
0x234a…2358 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00f2}
0x2358…2362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0100}
0x2362…236c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010a}
0x236c…2380 Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0016, t01=0x0114}
0x2380…238a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0128}
0x238a…23c0 Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0016, t01=0x0132}
0x23c0…2402 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0016, t01=0x0168}
0x2402…240c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x001a}
0x240c…2416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0024}
0x2416…2420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002e}
0x2420…2444 Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0017, t01=0x0038}
0x2444…244e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x005c}
0x244e…2458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0066}
0x2458…2498 Head {h00=0x003c, h01=0x0050, text=»* GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK «, t00=0x0017, t01=0x0070}
0x2498…24be Head {h00=0x0022, h01=0x0050, text=» LC A1,DWTOR,A6 GET DWT INDEX «, t00=0x0017, t01=0x00b0}
0x24be…24d4 Head {h00=0x0012, h01=0x0050, text=» ANK A1,7 MASK«, t00=0x0017, t01=0x00d6}
0x24d4…24fe Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 ADD DWT INDEX TO ORDER «, t00=0x0017, t01=0x00ec}
0x24fe…252e Head {h00=0x002c, h01=0x0050, text=» SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT «, t00=0x0017, t01=0x0116}
0x252e…254a Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ACTIVATION«, t00=0x0017, t01=0x0146}
0x254a…2568 Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0017, t01=0x0162}
0x2568…259e Head {h00=0x0032, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER «, t00=0x0017, t01=0x0180}
0x259e…25c0 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0018, t01=0x0026}
0x25c0…25d2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0018, t01=0x0048}
0x25d2…25f2 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0018, t01=0x005a}
0x25f2…25fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x007a}
0x25fc…261e Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0018, t01=0x0084}
0x261e…2628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a6}
0x2628…2632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b0}
0x2632…2646 Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x0018, t01=0x00ba}
0x2646…2670 Head {h00=0x0026, h01=0x0050, text=» SC A4,DWTBC,A6 RESET BYTE COUNTER«, t00=0x0018, t01=0x00ce}
0x2670…268c Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x0018, t01=0x00f8}
0x268c…26b0 Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x0018, t01=0x0114}
0x26b0…26ee Head {h00=0x003a, h01=0x0050, text=»TPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 =1 «, t00=0x0018, t01=0x0138}
0x26ee…2704 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0018, t01=0x0176}
0x2704…271e Head {h00=0x0016, h01=0x0050, text=» DATA TP700,TP750 «, t00=0x0018, t01=0x018c}
0x271e…272a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0016}
0x272a…2744 Head {h00=0x0016, h01=0x0050, text=» DATA TP800,TP900 «, t00=0x0019, t01=0x0022}
0x2744…2758 Head {h00=0x0010, h01=0x0050, text=» EJECT =1 «, t00=0x0019, t01=0x003c}
0x2758…2768 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0050}
0x2768…2778 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0060}
0x2778…2798 Head {h00=0x001c, h01=0x0050, text=»* ORDER 00: TEST =1«, t00=0x0019, t01=0x0070}
0x2798…27e6 Head {h00=0x004a, h01=0x0050, text=»* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =1 «, t00=0x0019, t01=0x0090}
0x27e6…27f6 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x00de}
0x27f6…2806 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x00ee}
0x2806…2816 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x00fe}
0x2816…2826 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x010e}
0x2826…284c Head {h00=0x0022, h01=0x0050, text=»TPTEST LDK A2,STX SEND STX =2 «, t00=0x0019, t01=0x011e}
0x284c…2866 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0019, t01=0x0144}
0x2866…288a Head {h00=0x0020, h01=0x0050, text=» LDK A2,/02 SEND CHAR /02 =2«, t00=0x0019, t01=0x015e}
0x288a…28a4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0019, t01=0x0182}
0x28a4…28d2 Head {h00=0x002a, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST =1«, t00=0x001a, t01=0x000c}
0x28d2…28ec Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x001a, t01=0x003a}
0x28ec…2902 Head {h00=0x0012, h01=0x0050, text=» RF TPDUMY =1«, t00=0x001a, t01=0x0054}
0x2902…2910 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x006a}
0x2910…291a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0078}
0x291a…2924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0082}
0x2924…2954 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06,0B: WRITE VOUCHER/PASSBOOK «, t00=0x001a, t01=0x008c}
0x2954…2996 Head {h00=0x003e, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x001a, t01=0x00bc}
0x2996…29a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00fe}
0x29a0…29aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0108}
0x29aa…29b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0112}
0x29b4…29fa Head {h00=0x0042, h01=0x0050, text=»ACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB«, t00=0x001a, t01=0x011c}
0x29fa…2a0c Head {h00=0x000e, h01=0x0050, text=» RF ACT085«, t00=0x001a, t01=0x0162}
0x2a0c…2a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0174}
0x2a16…2a46 Head {h00=0x002c, h01=0x0050, text=»ACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x001a, t01=0x017e}
0x2a46…2a70 Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x001b, t01=0x001e}
0x2a70…2a98 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF REQUESTED LINE STEPS«, t00=0x001b, t01=0x0048}
0x2a98…2aac Head {h00=0x0010, h01=0x0050, text=» SUK A3,/39 «, t00=0x001b, t01=0x0070}
0x2aac…2ad0 Head {h00=0x0020, h01=0x0050, text=» RF(G) ACT070 > /39 = ONE LF«, t00=0x001b, t01=0x0084}
0x2ad0…2ae2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/9«, t00=0x001b, t01=0x00a8}
0x2ae2…2af8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACT060«, t00=0x001b, t01=0x00ba}
0x2af8…2b16 Head {h00=0x001a, h01=0x0050, text=» LDK A3,2 /30 = TWO LF«, t00=0x001b, t01=0x00d0}
0x2b16…2b28 Head {h00=0x000e, h01=0x0050, text=» RF ACT080«, t00=0x001b, t01=0x00ee}
0x2b28…2b54 Head {h00=0x0028, h01=0x0050, text=»ACT060 RF(G) ACT080 /31-/39 = 1-9 LF«, t00=0x001b, t01=0x0100}
0x2b54…2b66 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/5«, t00=0x001b, t01=0x012c}
0x2b66…2b86 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TP605 /2B = NO LF«, t00=0x001b, t01=0x013e}
0x2b86…2ba4 Head {h00=0x001a, h01=0x0050, text=»ACT070 LDK A3,1 ONE LF«, t00=0x001b, t01=0x015e}
0x2ba4…2bdc Head {h00=0x0034, h01=0x0050, text=»ACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT «, t00=0x001b, t01=0x017c}
0x2bdc…2c0a Head {h00=0x002a, h01=0x0050, text=» SUR A1,A3 GET REQUESTED LINE POSITION«, t00=0x001c, t01=0x0024}
0x2c0a…2c40 Head {h00=0x0032, h01=0x0050, text=»ACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ?«, t00=0x001c, t01=0x0052}
0x2c40…2c6e Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 YES; SET LINE POSITION ZERO «, t00=0x001c, t01=0x0088}
0x2c6e…2c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b6}
0x2c78…2c9c Head {h00=0x0020, h01=0x0050, text=»ACT090 LDR A4,A4 RECOVERY ? «, t00=0x001c, t01=0x00c0}
0x2c9c…2cb6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TP605 YES «, t00=0x001c, t01=0x00e4}
0x2cb6…2cea Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTRLN,A6 SAVE REQUESTED LINE NUMBER «, t00=0x001c, t01=0x00fe}
0x2cea…2cfc Head {h00=0x000e, h01=0x0050, text=» RF TP605 «, t00=0x001c, t01=0x0132}
0x2cfc…2d0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0144}
0x2d0a…2d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0152}
0x2d14…2d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x015c}
0x2d1e…2d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0166}
0x2d28…2d4c Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x001c, t01=0x0170}
0x2d4c…2d56 (29, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0004}
0x2d56…2d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x000e}
0x2d60…2d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0018}
0x2d6a…2d98 Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x001d, t01=0x0022}
0x2d98…2dac Head {h00=0x0010, h01=0x0050, text=»TP210 EQU * «, t00=0x001d, t01=0x0050}
0x2dac…2de0 Head {h00=0x0030, h01=0x0050, text=» LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD«, t00=0x001d, t01=0x0064}
0x2de0…2e08 Head {h00=0x0024, h01=0x0050, text=» ANK A1,4 TEXT MESSAGE WRITTEN ?«, t00=0x001d, t01=0x0098}
0x2e08…2e34 Head {h00=0x0028, h01=0x0050, text=» RF(NE) TP220 YES; COMPLETE REQUEST «, t00=0x001d, t01=0x00c0}
0x2e34…2e60 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001d, t01=0x00ec}
0x2e60…2e88 Head {h00=0x0024, h01=0x0050, text=» SUK A1,3 REQUESTED LENGTH 0-2 ?«, t00=0x001d, t01=0x0118}
0x2e88…2eb2 Head {h00=0x0026, h01=0x0050, text=» RF(N) TP230 YES; COMPLETE REQUEST«, t00=0x001d, t01=0x0140}
0x2eb2…2ec6 Head {h00=0x0010, h01=0x0050, text=» RF(P) TP215«, t00=0x001d, t01=0x016a}
0x2ec6…2ee8 Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001d, t01=0x017e}
0x2ee8…2f0c Head {h00=0x0020, h01=0x0050, text=» LC A2,2,A1 THIRD CHARACTER «, t00=0x001e, t01=0x0010}
0x2f0c…2f34 Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 CONTROL CHARACTER «, t00=0x001e, t01=0x0034}
0x2f34…2f4a Head {h00=0x0012, h01=0x0050, text=» RF(NL) TP215 «, t00=0x001e, t01=0x005c}
0x2f4a…2f6a Head {h00=0x001c, h01=0x0050, text=» LDR A4,A2 SAVE CHAR =2 «, t00=0x001e, t01=0x0072}
0x2f6a…2f8a Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x001e, t01=0x0092}
0x2f8a…2fa4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001e, t01=0x00b2}
0x2fa4…2fc6 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 RELOAD CHAR =2 «, t00=0x001e, t01=0x00cc}
0x2fc6…2fdc Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001e, t01=0x00ee}
0x2fdc…2ffc Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x001e, t01=0x0104}
0x2ffc…3016 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001e, t01=0x0124}
0x3016…3028 Head {h00=0x000e, h01=0x0050, text=» RF TP220 «, t00=0x001e, t01=0x013e}
0x3028…303c Head {h00=0x0010, h01=0x0050, text=»TP215 EQU * «, t00=0x001e, t01=0x0150}
0x303c…305e Head {h00=0x001e, h01=0x0050, text=» CF A5,BUFCHR SEND BUFFER «, t00=0x001e, t01=0x0164}
0x305e…3084 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x001e, t01=0x0186}
0x3084…3098 Head {h00=0x0010, h01=0x0050, text=»TP220 EQU * «, t00=0x001f, t01=0x001c}
0x3098…30aa Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001f, t01=0x0030}
0x30aa…30e4 Head {h00=0x0036, h01=0x0050, text=»TP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED «, t00=0x001f, t01=0x0042}
0x30e4…30fc Head {h00=0x0014, h01=0x0050, text=» ANS A2,DWTST,A6«, t00=0x001f, t01=0x007c}
0x30fc…310a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0094}
0x310a…3114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a2}
0x3114…311e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ac}
0x311e…3140 Head {h00=0x001e, h01=0x0050, text=»* ECB-BUFFER IS WRITTEN «, t00=0x001f, t01=0x00b6}
0x3140…314a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d8}
0x314a…3178 Head {h00=0x002a, h01=0x0050, text=»* SEND LINE FEED IF JOURNAL OR TALLY«, t00=0x001f, t01=0x00e2}
0x3178…3182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0110}
0x3182…318c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x011a}
0x318c…319e Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x001f, t01=0x0124}
0x319e…31be Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x001f, t01=0x0136}
0x31be…31d8 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001f, t01=0x0156}
0x31d8…31ea Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001f, t01=0x0170}
0x31ea…3200 Head {h00=0x0012, h01=0x0050, text=» RF(NE) TPLF10«, t00=0x001f, t01=0x0182}
0x3200…3226 Head {h00=0x0022, h01=0x0050, text=» LDK A2,RPH DETACH PRINT HEAD «, t00=0x0020, t01=0x0008}
0x3226…3240 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0020, t01=0x002e}
0x3240…3254 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x0020, t01=0x0048}
0x3254…3266 Head {h00=0x000e, h01=0x0050, text=» SUK A7,8 «, t00=0x0020, t01=0x005c}
0x3266…3292 Head {h00=0x0028, h01=0x0050, text=» RF(NN) TPL010 NOT JOURNAL AND TALLY«, t00=0x0020, t01=0x006e}
0x3292…32b4 Head {h00=0x001e, h01=0x0050, text=» ADK A7,2 GET INDEX TABLE «, t00=0x0020, t01=0x009a}
0x32b4…32dc Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x0020, t01=0x00bc}
0x32dc…3300 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND LF CHAR. «, t00=0x0020, t01=0x00e4}
0x3300…3332 Head {h00=0x002e, h01=0x0050, text=»TPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0020, t01=0x0108}
0x3332…3360 Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x0020, t01=0x013a}
0x3360…336e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0168}
0x336e…3378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0176}
0x3378…3382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0180}
0x3382…33a2 Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x0020, t01=0x018a}
0x33a2…33ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x001a}
0x33ac…33b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0024}
0x33b6…33dc Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x0021, t01=0x002e}
0x33dc…33e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0054}
0x33e6…33fa Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x0021, t01=0x005e}
0x33fa…341a Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x0021, t01=0x0072}
0x341a…3434 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0021, t01=0x0092}
0x3434…3448 Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x0021, t01=0x00ac}
0x3448…345e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0021, t01=0x00c0}
0x345e…346c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00d6}
0x346c…3476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e4}
0x3476…3480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ee}
0x3480…34b4 Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x0021, t01=0x00f8}
0x34b4…34be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x012c}
0x34be…34d2 Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x0021, t01=0x0136}
0x34d2…3504 Head {h00=0x002e, h01=0x0050, text=» SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?«, t00=0x0021, t01=0x014a}
0x3504…351e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x0021, t01=0x017c}
0x351e…3546 Head {h00=0x0024, h01=0x0050, text=»TST005 ANK A2,VOIN VOUCHER OUT ?«, t00=0x0022, t01=0x0008}
0x3546…355e Head {h00=0x0014, h01=0x0050, text=» RF(NZ) ENDIO NO«, t00=0x0022, t01=0x0030}
0x355e…3574 Head {h00=0x0012, h01=0x0050, text=» RF TST015 YES«, t00=0x0022, t01=0x0048}
0x3574…357e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x005e}
0x357e…3596 Head {h00=0x0014, h01=0x0050, text=»TST010 SUK A7,4 «, t00=0x0022, t01=0x0068}
0x3596…35ac Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0022, t01=0x0080}
0x35ac…35da Head {h00=0x002a, h01=0x0050, text=» RF(G) ENDIO NOT TEST STATUS, JOURNAL «, t00=0x0022, t01=0x0096}
0x35da…35e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00c4}
0x35e6…35fc Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0022, t01=0x00d0}
0x35fc…362a Head {h00=0x002a, h01=0x0050, text=» RF(G) TST020 NOT TEST STATUS, JOURNAL«, t00=0x0022, t01=0x00e6}
0x362a…363e Head {h00=0x0010, h01=0x0050, text=»TST012 EQU *«, t00=0x0022, t01=0x0114}
0x363e…364a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0128}
0x364a…3674 Head {h00=0x0026, h01=0x0050, text=» ANK A2,EOJT END OF JOURNAL TAPE? «, t00=0x0022, t01=0x0134}
0x3674…369c Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ENDIO NO: PERFORM ENDIO «, t00=0x0022, t01=0x015e}
0x369c…36ca Head {h00=0x002a, h01=0x0050, text=»TST015 ORKL A1,PROUT SET RETURN CODE: «, t00=0x0022, t01=0x0186}
0x36ca…36f6 Head {h00=0x0028, h01=0x0050, text=» END OF JOURNAL TAPE, VOUCHER OUT «, t00=0x0023, t01=0x0024}
0x36f6…3700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0050}
0x3700…370a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x005a}
0x370a…373a Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0023, t01=0x0064}
0x373a…3744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0094}
0x3744…3758 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0023, t01=0x009e}
0x3758…3790 Head {h00=0x0034, h01=0x0050, text=» ABL DISEND PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0023, t01=0x00b2}
0x3790…379a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ea}
0x379a…37a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f4}
0x37a4…37ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fe}
0x37ae…37b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0108}
0x37b8…37ce Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0023, t01=0x0112}
0x37ce…37e6 Head {h00=0x0014, h01=0x0050, text=»TST020 SUK A7,16«, t00=0x0023, t01=0x0128}
0x37e6…380c Head {h00=0x0022, h01=0x0050, text=» RB(L) ENDIO VOUCHER/PASSBOOK «, t00=0x0023, t01=0x0140}
0x380c…381e Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0023, t01=0x0166}
0x381e…3840 Head {h00=0x001e, h01=0x0050, text=» RB(G) ENDIO GRASP,RELEASE«, t00=0x0023, t01=0x0178}
0x3840…3860 Head {h00=0x001c, h01=0x0050, text=» RB TST012 CUT,PERFORATE«, t00=0x0024, t01=0x000a}
0x3860…386c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x002a}
0x386c…387a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0036}
0x387a…3884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0044}
0x3884…388e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x004e}
0x388e…3898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0058}
0x3898…38c0 Head {h00=0x0024, h01=0x0050, text=»* ORDER 06 : PRINT TALLY ROLL «, t00=0x0024, t01=0x0062}
0x38c0…38ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x008a}
0x38ca…38d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0094}
0x38d4…38de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x009e}
0x38de…390a Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x0024, t01=0x00a8}
0x390a…3914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d4}
0x3914…3942 Head {h00=0x002a, h01=0x0050, text=»TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH«, t00=0x0024, t01=0x00de}
0x3942…3956 Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x0024, t01=0x010c}
0x3956…396c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,VOCHA«, t00=0x0024, t01=0x0120}
0x396c…39b0 Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x0024, t01=0x0136}
0x39b0…39c2 Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x0024, t01=0x017a}
0x39c2…39cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018c}
0x39cc…39da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0008}
0x39da…39e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0016}
0x39e4…39ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0020}
0x39ee…39f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002a}
0x39f8…3a26 Head {h00=0x002a, h01=0x0050, text=»* ORDER 06 : WRITE VOUCHER/PASSBOOK«, t00=0x0025, t01=0x0034}
0x3a26…3a54 Head {h00=0x002a, h01=0x0050, text=»* OB : POSITION LIFT AND WRITE«, t00=0x0025, t01=0x0062}
0x3a54…3a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0090}
0x3a5e…3a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009a}
0x3a68…3a80 Head {h00=0x0014, h01=0x0050, text=»TP605 EQU * =2 «, t00=0x0025, t01=0x00a4}
0x3a80…3aa0 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x0025, t01=0x00bc}
0x3aa0…3aba Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0025, t01=0x00dc}
0x3aba…3ae0 Head {h00=0x0022, h01=0x0050, text=» CF A5,GRASP GRASP VOUCHER =2 «, t00=0x0025, t01=0x00f6}
0x3ae0…3aee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x011c}
0x3aee…3af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012a}
0x3af8…3b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0134}
0x3b02…3b30 Head {h00=0x002a, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL«, t00=0x0025, t01=0x013e}
0x3b30…3b5a Head {h00=0x0026, h01=0x0050, text=»* LINE NUMBER IS EQUAL REQUESTED«, t00=0x0025, t01=0x016c}
0x3b5a…3b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0008}
0x3b64…3b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0012}
0x3b6e…3ba0 Head {h00=0x002e, h01=0x0050, text=»TP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER «, t00=0x0026, t01=0x001c}
0x3ba0…3bba Head {h00=0x0016, h01=0x0050, text=» RF(E) TP650 EQUAL«, t00=0x0026, t01=0x004e}
0x3bba…3be0 Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x0026, t01=0x0068}
0x3be0…3c06 Head {h00=0x0022, h01=0x0050, text=» LDK A2,LDO SEND ELEVATOR DOWN«, t00=0x0026, t01=0x008e}
0x3c06…3c34 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0026, t01=0x00b4}
0x3c34…3c46 Head {h00=0x000e, h01=0x0050, text=» RF TP640 «, t00=0x0026, t01=0x00e2}
0x3c46…3c70 Head {h00=0x0026, h01=0x0050, text=»TP630 LDK A2,LUP SEND ELEVATOR UP «, t00=0x0026, t01=0x00f4}
0x3c70…3c9e Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LINE NUMBER«, t00=0x0026, t01=0x011e}
0x3c9e…3ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x014c}
0x3ca8…3cd2 Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR «, t00=0x0026, t01=0x0156}
0x3cd2…3cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0180}
0x3cdc…3d0c Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x0026, t01=0x018a}
0x3d0c…3d2e Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0027, t01=0x002a}
0x3d2e…3d42 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0027, t01=0x004c}
0x3d42…3d6c Head {h00=0x0026, h01=0x0050, text=» ABL(Z) RCTP01 NO: ERROR RECOVERY «, t00=0x0027, t01=0x0060}
0x3d6c…3d9c Head {h00=0x002c, h01=0x0050, text=» RB TP610 YES: CHECK IF LIFT POSITIONED«, t00=0x0027, t01=0x008a}
0x3d9c…3da8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00ba}
0x3da8…3dbc Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0027, t01=0x00c6}
0x3dbc…3df2 Head {h00=0x0032, h01=0x0050, text=» RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED«, t00=0x0027, t01=0x00da}
0x3df2…3e1c Head {h00=0x0026, h01=0x0050, text=»TP645 LDKL A1,PROUT 'VOUCHER OUT' «, t00=0x0027, t01=0x0110}
0x3e1c…3e4c Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 INDICATE IN RETURN CODE«, t00=0x0027, t01=0x013a}
0x3e4c…3e5e Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0027, t01=0x016a}
0x3e5e…3e6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x017c}
0x3e6a…3e78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0188}
0x3e78…3e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0008}
0x3e82…3e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0012}
0x3e8c…3ebc Head {h00=0x002c, h01=0x0050, text=»* ORDER 06 AND 0B: LIFT IS POSITIONED «, t00=0x0028, t01=0x001c}
0x3ebc…3eea Head {h00=0x002a, h01=0x0050, text=»* ATTACH AND PRINT «, t00=0x0028, t01=0x004c}
0x3eea…3ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x007a}
0x3ef4…3efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0084}
0x3efe…3f12 Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0028, t01=0x008e}
0x3f12…3f3c Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF2 SEND CR2 AND ATTACH «, t00=0x0028, t01=0x00a2}
0x3f3c…3f5e Head {h00=0x001e, h01=0x0050, text=» RB TP410 PRINT ECB-BUFFER«, t00=0x0028, t01=0x00cc}
0x3f5e…3f6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00ee}
0x3f6c…3f82 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0028, t01=0x00fc}
0x3f82…3f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0112}
0x3f8c…3fc4 Head {h00=0x0034, h01=0x0050, text=»* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL «, t00=0x0028, t01=0x011c}
0x3fc4…3fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0154}
0x3fce…3fe2 Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0028, t01=0x015e}
0x3fe2…3ffe Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 SET INDEX «, t00=0x0028, t01=0x0172}
0x3ffe…4010 Head {h00=0x000e, h01=0x0050, text=» RF TP760 «, t00=0x0028, t01=0x018e}
0x4010…4024 Head {h00=0x0010, h01=0x0050, text=»TP750 EQU * «, t00=0x0029, t01=0x0010}
0x4024…4040 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 SET INDEX «, t00=0x0029, t01=0x0024}
0x4040…4066 Head {h00=0x0022, h01=0x0050, text=»TP760 LC A2,CPTAB,A1 GET CHAR «, t00=0x0029, t01=0x0040}
0x4066…4080 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0029, t01=0x0066}
0x4080…409e Head {h00=0x001a, h01=0x0050, text=» LDK A2,LF1 LINE FEED «, t00=0x0029, t01=0x0080}
0x409e…40b8 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0029, t01=0x009e}
0x40b8…40ca Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0029, t01=0x00b8}
0x40ca…40d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00ca}
0x40d6…40e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d6}
0x40e0…4120 Head {h00=0x003c, h01=0x0050, text=»* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK«, t00=0x0029, t01=0x00e0}
0x4120…412a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0120}
0x412a…413e Head {h00=0x0010, h01=0x0050, text=»TP800 EQU * «, t00=0x0029, t01=0x012a}
0x413e…4154 Head {h00=0x0012, h01=0x0050, text=» CF A5,GRASPA «, t00=0x0029, t01=0x013e}
0x4154…4166 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0029, t01=0x0154}
0x4166…417a Head {h00=0x0010, h01=0x0050, text=»TP900 EQU * «, t00=0x0029, t01=0x0166}
0x417a…4190 Head {h00=0x0012, h01=0x0050, text=» CF A5,RELEAS «, t00=0x0029, t01=0x017a}
0x4190…41a2 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0029, t01=0x0190}
0x41a2…41aa Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0012}
0x41aa…41b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x001a}
0x41b8…41c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0028}
0x41c2…41d8 Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x002a, t01=0x0032}
0x41d8…41e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0048}
0x41e2…422c Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x002a, t01=0x0052}
0x422c…424a Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x002a, t01=0x009c}
0x424a…4254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ba}
0x4254…4286 Head {h00=0x002e, h01=0x0050, text=»PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH «, t00=0x002a, t01=0x00c4}
0x4286…42b0 Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x002a, t01=0x00f6}
0x42b0…42d6 Head {h00=0x0022, h01=0x0050, text=» LD A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x002a, t01=0x0120}
0x42d6…4302 Head {h00=0x0028, h01=0x0050, text=»* SKIP PRECEDING SPACES IN BUFFER «, t00=0x002a, t01=0x0146}
0x4302…4314 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x002a, t01=0x0172}
0x4314…433a Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x002a, t01=0x0184}
0x433a…4350 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x002b, t01=0x001a}
0x4350…4370 Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB050 NOT BLANK«, t00=0x002b, t01=0x0030}
0x4370…4388 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x002b, t01=0x0050}
0x4388…439a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002b, t01=0x0068}
0x439a…43c0 Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x002b, t01=0x007a}
0x43c0…4402 Head {h00=0x003e, h01=0x0050, text=»* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER «, t00=0x002b, t01=0x00a0}
0x4402…442a Head {h00=0x0024, h01=0x0050, text=»PRB050 LDR A1,A3 GET ADDRESS TO «, t00=0x002b, t01=0x00e2}
0x442a…4456 Head {h00=0x0028, h01=0x0050, text=» ADR A1,A4 LAST CHARACTER IN BUFFER «, t00=0x002b, t01=0x010a}
0x4456…4474 Head {h00=0x001a, h01=0x0050, text=» LC A1,-1,A1 GET CHAR «, t00=0x002b, t01=0x0136}
0x4474…44a2 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0909 CARRIAGE RETURN - CR2 ? «, t00=0x002b, t01=0x0154}
0x44a2…44bc Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002b, t01=0x0182}
0x44bc…44ea Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0D0D CARRIAGE RETURN - CR1 ? «, t00=0x002c, t01=0x000c}
0x44ea…4504 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002c, t01=0x003a}
0x4504…4526 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 DUMMY CHARACTER «, t00=0x002c, t01=0x0054}
0x4526…4538 Head {h00=0x000e, h01=0x0050, text=» RF PRB070«, t00=0x002c, t01=0x0076}
0x4538…456a Head {h00=0x002e, h01=0x0050, text=»PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002c, t01=0x0088}
0x456a…459a Head {h00=0x002c, h01=0x0050, text=»PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB «, t00=0x002c, t01=0x00ba}
0x459a…45a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ea}
0x45a4…45ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f4}
0x45ae…45e0 Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002c, t01=0x00fe}
0x45e0…4604 Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x002c, t01=0x0130}
0x4604…463e Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D)«, t00=0x002c, t01=0x0154}
0x463e…4654 Head {h00=0x0012, h01=0x0050, text=» RF(E) PRB101 «, t00=0x002c, t01=0x018e}
0x4654…4674 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND CHAR «, t00=0x002d, t01=0x0014}
0x4674…4688 Head {h00=0x0010, h01=0x0050, text=»PRB101 EQU *«, t00=0x002d, t01=0x0034}
0x4688…469c Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETB «, t00=0x002d, t01=0x0048}
0x469c…46c6 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT SEND END OF MESSAGE «, t00=0x002d, t01=0x005c}
0x46c6…46da Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x002d, t01=0x0086}
0x46da…4714 Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED «, t00=0x002d, t01=0x009a}
0x4714…4742 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED«, t00=0x002d, t01=0x00d4}
0x4742…475a Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x002d, t01=0x0102}
0x475a…4770 Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x002d, t01=0x011a}
0x4770…477e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0130}
0x477e…4788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x013e}
0x4788…4792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0148}
0x4792…479c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0152}
0x479c…47b4 Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x002d, t01=0x015c}
0x47b4…47be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0174}
0x47be…47c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x017e}
0x47c8…47dc Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x002d, t01=0x0188}
0x47dc…4812 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x002e, t01=0x000c}
0x4812…4830 Head {h00=0x001a, h01=0x0050, text=» SUK A7,7 CHECK ORDER «, t00=0x002e, t01=0x0042}
0x4830…4854 Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x002e, t01=0x0060}
0x4854…4878 Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x002e, t01=0x0084}
0x4878…4886 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00a8}
0x4886…4890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b6}
0x4890…489a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c0}
0x489a…48a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ca}
0x48a4…48c0 Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x002e, t01=0x00d4}
0x48c0…48ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f0}
0x48ca…48d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fa}
0x48d4…48de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0104}
0x48de…4900 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x002e, t01=0x010e}
0x4900…4926 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x002e, t01=0x0130}
0x4926…494c Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x002e, t01=0x0156}
0x494c…497a Head {h00=0x002a, h01=0x0050, text=» RB TP405 SEND LIFT TO TOP AND RELEAS «, t00=0x002e, t01=0x017c}
0x497a…4984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x001a}
0x4984…498e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0024}
0x498e…4998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002e}
0x4998…49ba Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x002f, t01=0x0038}
0x49ba…49c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005a}
0x49c4…49ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0064}
0x49ce…49f6 Head {h00=0x0024, h01=0x0050, text=»PRB110 ANK A2,VOIN VOUCHER IN ? «, t00=0x002f, t01=0x006e}
0x49f6…4a0a Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x002f, t01=0x0096}
0x4a0a…4a36 Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP01 ERROR .VOUCHER NOT IN «, t00=0x002f, t01=0x00aa}
0x4a36…4a42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00d6}
0x4a42…4a56 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x002f, t01=0x00e2}
0x4a56…4a6a Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x002f, t01=0x00f6}
0x4a6a…4a76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x010a}
0x4a76…4a9e Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 COPY REQUESTED LENGTH«, t00=0x002f, t01=0x0116}
0x4a9e…4aba Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 R.L. < 3? «, t00=0x002f, t01=0x013e}
0x4aba…4ae2 Head {h00=0x0024, h01=0x0050, text=» RF(N) PRB200 YES: NO TABULATION«, t00=0x002f, t01=0x015a}
0x4ae2…4af6 Head {h00=0x0010, h01=0x0050, text=» LDK A1,TAB «, t00=0x002f, t01=0x0182}
0x4af6…4b16 Head {h00=0x001c, h01=0x0050, text=» CC A1,-2,A3 TABULATION?«, t00=0x0030, t01=0x0008}
0x4b16…4b30 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x0030, t01=0x0028}
0x4b30…4b3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0042}
0x4b3e…4b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0050}
0x4b48…4b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x005a}
0x4b52…4b8a Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x0030, t01=0x0064}
0x4b8a…4bca Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x0030, t01=0x009c}
0x4bca…4bec Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x0030, t01=0x00dc}
0x4bec…4bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00fe}
0x4bf6…4c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0108}
0x4c00…4c2c Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,RPH DETACH PRINT HEAD «, t00=0x0030, t01=0x0112}
0x4c2c…4c4e Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x0030, t01=0x013e}
0x4c4e…4c7e Head {h00=0x002c, h01=0x0050, text=»PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR «, t00=0x0030, t01=0x0160}
0x4c7e…4ca6 Head {h00=0x0024, h01=0x0050, text=» LCR A1,A3 GET 2ND TAB POS CHAR «, t00=0x0030, t01=0x0190}
0x4ca6…4cc2 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x0031, t01=0x0028}
0x4cc2…4cd4 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0031, t01=0x0044}
0x4cd4…4cf4 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/F0 LINE DECADE «, t00=0x0031, t01=0x0056}
0x4cf4…4d1a Head {h00=0x0022, h01=0x0050, text=» ORR A1,A2 DECIMAL LINE NUMBER«, t00=0x0031, t01=0x0076}
0x4d1a…4d42 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x0031, t01=0x009c}
0x4d42…4d74 Head {h00=0x002e, h01=0x0050, text=»PRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0031, t01=0x00c4}
0x4d74…4daa Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. «, t00=0x0031, t01=0x00f6}
0x4daa…4dc6 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x0031, t01=0x012c}
0x4dc6…4dd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0148}
0x4dd0…4dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0152}
0x4dda…4de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015c}
0x4de4…4e02 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x0031, t01=0x0166}
0x4e02…4e2e Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x0031, t01=0x0184}
0x4e2e…4e40 Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x0032, t01=0x0020}
0x4e40…4e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0032}
0x4e4a…4e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003c}
0x4e54…4e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0046}
0x4e5e…4e90 Head {h00=0x002e, h01=0x0050, text=»PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH«, t00=0x0032, t01=0x0050}
0x4e90…4eba Head {h00=0x0026, h01=0x0050, text=» SUK A3,2 DECREMENT BUFFER ADDRESS«, t00=0x0032, t01=0x0082}
0x4eba…4ed4 Head {h00=0x0016, h01=0x0050, text=» LDK A2,APH ATTACH«, t00=0x0032, t01=0x00ac}
0x4ed4…4ef2 Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x0032, t01=0x00c6}
0x4ef2…4f00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00e4}
0x4f00…4f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00f2}
0x4f0a…4f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00fc}
0x4f14…4f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0106}
0x4f1e…4f54 Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x0032, t01=0x0110}
0x4f54…4f70 Head {h00=0x0018, h01=0x0050, text=»* - ROOMLESS POINT«, t00=0x0032, t01=0x0146}
0x4f70…4f90 Head {h00=0x001c, h01=0x0050, text=»* - ILLEGAL CHARACTER «, t00=0x0032, t01=0x0162}
0x4f90…4fba Head {h00=0x0026, h01=0x0050, text=»* - SPECIAL CHARACTER (/13,/14) «, t00=0x0032, t01=0x0182}
0x4fba…4fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x001c}
0x4fc4…4fd8 Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x0033, t01=0x0026}
0x4fd8…5006 Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x0033, t01=0x003a}
0x5006…502c Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x0033, t01=0x0068}
0x502c…5046 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x0033, t01=0x008e}
0x5046…5070 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER POINTER«, t00=0x0033, t01=0x00a8}
0x5070…5082 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x00d2}
0x5082…50aa Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x0033, t01=0x00e4}
0x50aa…50c2 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x0033, t01=0x010c}
0x50c2…50ec Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x0033, t01=0x0124}
0x50ec…50f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x014e}
0x50f6…5100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0158}
0x5100…510a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0162}
0x510a…513a Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x0033, t01=0x016c}
0x513a…5154 Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB225 YES «, t00=0x0034, t01=0x000c}
0x5154…5184 Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x0034, t01=0x0026}
0x5184…519e Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x0034, t01=0x0056}
0x519e…51a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0070}
0x51a8…51b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x007a}
0x51b2…51c6 Head {h00=0x0010, h01=0x0050, text=»PRB225 EQU *«, t00=0x0034, t01=0x0084}
0x51c6…51da Head {h00=0x0010, h01=0x0050, text=» IFT CHR13=1«, t00=0x0034, t01=0x0098}
0x51da…5204 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x0034, t01=0x00ac}
0x5204…521e Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0034, t01=0x00d6}
0x521e…522a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00f0}
0x522a…523e Head {h00=0x0010, h01=0x0050, text=» IFT CHR14=1«, t00=0x0034, t01=0x00fc}
0x523e…5268 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x0034, t01=0x0110}
0x5268…5282 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0034, t01=0x013a}
0x5282…528e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0154}
0x528e…5298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0160}
0x5298…52be Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x0034, t01=0x016a}
0x52be…52ec Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 STORE IN RETURN CODE «, t00=0x0034, t01=0x0190}
0x52ec…530e Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0035, t01=0x002e}
0x530e…5322 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0035, t01=0x0050}
0x5322…5334 Head {h00=0x000e, h01=0x0050, text=» RF PRB245«, t00=0x0035, t01=0x0064}
0x5334…533e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0076}
0x533e…5348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0080}
0x5348…5352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x008a}
0x5352…5384 Head {h00=0x002e, h01=0x0050, text=»PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0035, t01=0x0094}
0x5384…53ac Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x0035, t01=0x00c6}
0x53ac…53d6 Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x0035, t01=0x00ee}
0x53d6…5406 Head {h00=0x002c, h01=0x0050, text=»PRB245 SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x0035, t01=0x0118}
0x5406…5418 Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x0035, t01=0x0148}
0x5418…5422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x015a}
0x5422…542c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0164}
0x542c…5436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x016e}
0x5436…5444 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0178}
0x5444…544e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0186}
0x544e…5462 Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x0035, t01=0x0190}
0x5462…546c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0014}
0x546c…54a0 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0036, t01=0x001e}
0x54a0…54aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0052}
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…54d0 Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x0036, t01=0x0070}
0x54d0…54f2 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x0036, t01=0x0082}
0x54f2…5510 Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP10 NOT BUSY«, t00=0x0036, t01=0x00a4}
0x5510…551e Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0036, t01=0x00c2}
0x551e…552c Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0036, t01=0x00d0}
0x552c…554e Head {h00=0x001e, h01=0x0050, text=» CWK A7,2 TEST STATUS ? =1«, t00=0x0036, t01=0x00de}
0x554e…556c Head {h00=0x001a, h01=0x0050, text=» RF(NG) IHTP20 YES =1 «, t00=0x0036, t01=0x0100}
0x556c…559c Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT«, t00=0x0036, t01=0x011e}
0x559c…55aa Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0036, t01=0x014e}
0x55aa…55c0 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=0 «, t00=0x0036, t01=0x015c}
0x55c0…55ee Head {h00=0x002a, h01=0x0050, text=» RF(NZ) RCTP10 YES GO TO DISPATCHER =1«, t00=0x0036, t01=0x0172}
0x55ee…55fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0010}
0x55fa…5610 Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=1 «, t00=0x0037, t01=0x001c}
0x5610…563c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) IHTP30 YES FINISH REQUEST =1«, t00=0x0037, t01=0x0032}
0x563c…5648 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x005e}
0x5648…5684 Head {h00=0x0038, h01=0x0050, text=»IHTP10 ABL LDREG NO RETURN CODE RESTORE REGISTER =1 «, t00=0x0037, t01=0x006a}
0x5684…569c Head {h00=0x0014, h01=0x0050, text=»IHTP20 LDR A1,A1«, t00=0x0037, t01=0x00a6}
0x569c…56cc Head {h00=0x002c, h01=0x0050, text=» RB(Z) IHTP10 TEST ORDER AND TIME OUT =1«, t00=0x0037, t01=0x00be}
0x56cc…56e0 Head {h00=0x0010, h01=0x0050, text=»IHTP30 EQU *«, t00=0x0037, t01=0x00ee}
0x56e0…56f2 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0037, t01=0x0102}
0x56f2…56fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0114}
0x56fc…5706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x011e}
0x5706…5710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0128}
0x5710…571e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0132}
0x571e…5728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0140}
0x5728…573c Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x0037, t01=0x014a}
0x573c…5746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x015e}
0x5746…5788 Head {h00=0x003e, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON«, t00=0x0037, t01=0x0168}
0x5788…5792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x001a}
0x5792…57a4 Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x0038, t01=0x0024}
0x57a4…57ba Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0038, t01=0x0036}
0x57ba…57e4 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0038, t01=0x004c}
0x57e4…57f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0076}
0x57f0…57fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0082}
0x57fa…5810 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0038, t01=0x008c}
0x5810…5836 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0038, t01=0x00a2}
0x5836…5842 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00c8}
0x5842…584c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00d4}
0x584c…5876 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/7FFF IND DEVICE BUSY =3 «, t00=0x0038, t01=0x00de}
0x5876…5892 Head {h00=0x0018, h01=0x0050, text=» ANS A2,DWTST,A6 =3«, t00=0x0038, t01=0x0108}
0x5892…58ae Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTECB,A6 =3«, t00=0x0038, t01=0x0124}
0x58ae…58da Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP05 REQUEST NOT RUNNING =3«, t00=0x0038, t01=0x0140}
0x58da…58e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x016c}
0x58e4…590c Head {h00=0x0024, h01=0x0050, text=»RCTP01 LDKL A5,DWTSB2 STACK BASE«, t00=0x0038, t01=0x0176}
0x590c…591e Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0039, t01=0x000e}
0x591e…595e Head {h00=0x003c, h01=0x0050, text=» LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x0039, t01=0x0020}
0x595e…597e Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0039, t01=0x0060}
0x597e…5992 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0039, t01=0x0080}
0x5992…59b4 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 STATUS CHANGE ?«, t00=0x0039, t01=0x0094}
0x59b4…59ca Head {h00=0x0012, h01=0x0050, text=» ABL(NE) TP645«, t00=0x0039, t01=0x00b6}
0x59ca…59d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00cc}
0x59d6…59ea Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x0039, t01=0x00d8}
0x59ea…59fc Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0039, t01=0x00ec}
0x59fc…5a32 Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x0039, t01=0x00fe}
0x5a32…5a52 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x0039, t01=0x0134}
0x5a52…5a68 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0039, t01=0x0154}
0x5a68…5a84 Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTECB,A6 =3«, t00=0x0039, t01=0x016a}
0x5a84…5aae Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RCTP07 REQUEST RUNNING =3 «, t00=0x0039, t01=0x0186}
0x5aae…5ae2 Head {h00=0x0030, h01=0x0050, text=» LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3«, t00=0x003a, t01=0x0020}
0x5ae2…5afc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =3 «, t00=0x003a, t01=0x0054}
0x5afc…5b14 Head {h00=0x0014, h01=0x0050, text=» ABL DISEND =3 «, t00=0x003a, t01=0x006e}
0x5b14…5b2c Head {h00=0x0014, h01=0x0050, text=»RCTP07 EQU * =3«, t00=0x003a, t01=0x0086}
0x5b2c…5b40 Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x003a, t01=0x009e}
0x5b40…5b68 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/100 INDICATE POWER OFF«, t00=0x003a, t01=0x00b2}
0x5b68…5b8c Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x003a, t01=0x00da}
0x5b8c…5b98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00fe}
0x5b98…5bb6 Head {h00=0x001a, h01=0x0050, text=» LDK A4,1 IND RECOVERY«, t00=0x003a, t01=0x010a}
0x5bb6…5be4 Head {h00=0x002a, h01=0x0050, text=» ABL ACT005 START RECOVERY OF PRINTER «, t00=0x003a, t01=0x0128}
0x5be4…5c0e Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL TDISP GO TO DISPATCHER «, t00=0x003a, t01=0x0156}
0x5c0e…5c1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0180}
0x5c1c…5c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x018e}
0x5c26…5c3e Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x003b, t01=0x0008}
0x5c3e…5c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0020}
0x5c48…5c80 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x003b, t01=0x002a}
0x5c80…5c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0062}
0x5c8a…5c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x006c}
0x5c94…5c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0076}
0x5c9e…5cd0 Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 «, t00=0x003b, t01=0x0080}
0x5cd0…5cea Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x003b, t01=0x00b2}
0x5cea…5d04 Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x003b, t01=0x00cc}
0x5d04…5d24 Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x003b, t01=0x00e6}
0x5d24…5d38 Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x003b, t01=0x0106}
0x5d38…5d5e Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x003b, t01=0x011a}
0x5d5e…5d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0140}
0x5d68…5d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x014a}
0x5d72…5d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0154}
0x5d7c…5d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x015e}
0x5d86…5d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0168}
0x5d90…5da6 Head {h00=0x0012, h01=0x0050, text=»* G R A S P «, t00=0x003b, t01=0x0172}
0x5da6…5db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0188}
0x5db0…5de8 (60, 0, 400) Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK«, t00=0x003c, t01=0x0004}
0x5de8…5df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x003c}
0x5df2…5dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0046}
0x5dfc…5e10 Head {h00=0x0010, h01=0x0050, text=»GRASPA EQU *«, t00=0x003c, t01=0x0050}
0x5e10…5e30 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003c, t01=0x0064}
0x5e30…5e4a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003c, t01=0x0084}
0x5e4a…5e6a Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003c, t01=0x009e}
0x5e6a…5e80 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003c, t01=0x00be}
0x5e80…5e94 Head {h00=0x0010, h01=0x0050, text=»GRASP EQU * «, t00=0x003c, t01=0x00d4}
0x5e94…5ea6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003c, t01=0x00e8}
0x5ea6…5ec0 Head {h00=0x0016, h01=0x0050, text=» LDK A2,GRA GRASP «, t00=0x003c, t01=0x00fa}
0x5ec0…5ed6 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003c, t01=0x0114}
0x5ed6…5ef8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x003c, t01=0x012a}
0x5ef8…5f12 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GRAS10 YES«, t00=0x003c, t01=0x014c}
0x5f12…5f32 Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x003c, t01=0x0166}
0x5f32…5f4c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003c, t01=0x0186}
0x5f4c…5f72 Head {h00=0x0022, h01=0x0050, text=» LDK A2,TETX DUMMY AFTER GRASP«, t00=0x003d, t01=0x0010}
0x5f72…5f88 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x0036}
0x5f88…5fa8 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003d, t01=0x004c}
0x5fa8…5fc2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003d, t01=0x006c}
0x5fc2…5fe2 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003d, t01=0x0086}
0x5fe2…5ff8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x00a6}
0x5ff8…6008 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003d, t01=0x00bc}
0x6008…6026 Head {h00=0x001a, h01=0x0050, text=»GRAS10 LC A3,DWTALN,A6«, t00=0x003d, t01=0x00cc}
0x6026…6036 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003d, t01=0x00ea}
0x6036…6040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00fa}
0x6040…604a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0104}
0x604a…6058 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x010e}
0x6058…6062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x011c}
0x6062…606c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0126}
0x606c…6084 Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x003d, t01=0x0130}
0x6084…608e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0148}
0x608e…60c4 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x003d, t01=0x0152}
0x60c4…60ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0188}
0x60ce…60d8 (62, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0004}
0x60d8…60e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x000e}
0x60e2…60f6 Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x003e, t01=0x0018}
0x60f6…6108 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003e, t01=0x002c}
0x6108…613c Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0«, t00=0x003e, t01=0x003e}
0x613c…6168 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,BUF5 LIFT TO TOP AND RELEAS«, t00=0x003e, t01=0x0072}
0x6168…6188 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003e, t01=0x009e}
0x6188…61a2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003e, t01=0x00be}
0x61a2…61c2 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003e, t01=0x00d8}
0x61c2…61d8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003e, t01=0x00f8}
0x61d8…61fa Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x003e, t01=0x010e}
0x61fa…6210 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BUFRTN «, t00=0x003e, t01=0x0130}
0x6210…621a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0146}
0x621a…6232 Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x003e, t01=0x0150}
0x6232…623c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0168}
0x623c…627c Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x003e, t01=0x0172}
0x627c…62a8 Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x003f, t01=0x0022}
0x62a8…62b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x004e}
0x62b2…62bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0058}
0x62bc…62f4 Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x003f, t01=0x0062}
0x62f4…630c Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x003f, t01=0x009a}
0x630c…633c Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x003f, t01=0x00b2}
0x633c…6364 Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x003f, t01=0x00e2}
0x6364…6388 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x003f, t01=0x010a}
0x6388…63ac Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x003f, t01=0x012e}
0x63ac…63d6 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x003f, t01=0x0152}
0x63d6…63ea Head {h00=0x0010, h01=0x0050, text=»BUFRTN EQU *«, t00=0x003f, t01=0x017c}
0x63ea…640a Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x003f, t01=0x0190}
0x640a…6414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0020}
0x6414…641e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x002a}
0x641e…6428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0034}
0x6428…6432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x003e}
0x6432…643c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0048}
0x643c…6446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0052}
0x6446…6452 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0040, t01=0x005c}
0x6452…6456 Head {h00=0x4004, h01=0x0000}
0x6456…645a 00 40 00 68 ┆ @ h┆
0x645a…6462 (65, 1, 8) 20 04 00 00 00 41 00 04 ┆ A ┆
0x6462…647a (66, 2, 24) 00 41 01 8c 00 08 00 04 5c 45 4e 44 00 42 00 08 40 04 00 00 00 42 00 14 ┆ A END B @ B ┆
0x647a…6482 (67, 1, 8) 20 04 00 00 00 43 00 04 ┆ C ┆
0x6482…64d2 (68, 0, 400) 00 26 00 50 5c 52 46 5c 49 41 53 30 37 30 5c 47 4f 20 54 4f 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 00 34 00 04 00 06 00 50 2a 20 00 34 00 2e 00 10 00 50 45 58 49 54 4c 5c 45 51 55 5c 2a 20 00 34 00 38 00 12 00 50 5c 49 46 54 ┆ & P RF IAS070 GO TO INTERRUPT HANDLER 4 P* 4 . PEXITL EQU * 4 8 P IFT┆
0x64d2…6522 5c 4c 4f 47 49 4e 47 3d 31 20 00 34 00 4c 00 28 00 50 5c 43 46 5c 41 31 35 2c 49 4e 46 4c 47 31 5c 47 45 54 20 4c 49 4e 45 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 00 34 00 62 00 20 00 50 5c 43 46 5c 41 31 35 2c 4c 4f 47 47 5c 2a 2a 4c 4f 47 ┆ LOGING=1 4 L ( P CF A15,INFLG1 GET LINE INFORMATION 4 b P CF A15,LOGG **LOG┆
0x6522…6572 47 20 49 4e 50 55 54 2a 2a 20 00 34 00 8e 00 08 00 50 5c 58 49 46 00 34 00 b2 00 06 00 50 2a 20 00 34 00 be 00 0e 00 50 45 58 49 54 5c 45 51 55 5c 2a 00 34 00 c8 00 0e 00 50 5c 41 42 4c 5c 54 44 49 53 50 00 34 00 da 00 06 00 03 2a 20 00 34 ┆G INPUT** 4 P XIF 4 P* 4 PEXIT EQU * 4 P ABL TDISP 4 * 4┆
0x6572…65c2 00 ec 00 0a 00 50 5c 45 4a 45 43 54 00 34 00 f6 00 06 00 50 2a 20 00 34 01 04 00 1e 00 50 2a 20 20 20 4f 55 54 50 55 54 20 53 41 56 45 44 20 43 48 41 52 41 43 54 45 52 00 34 01 0e 00 06 00 50 2a 20 00 34 01 30 00 10 00 50 49 41 53 30 34 30 ┆ P EJECT 4 P* 4 P* OUTPUT SAVED CHARACTER 4 P* 4 0 PIAS040┆
0x65c2…6612 5c 45 51 55 5c 2a 00 34 01 3a 00 20 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 35 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 44 57 54 20 00 34 01 4e 00 16 00 50 5c 4c 43 5c 41 32 2c 43 57 54 4c 4f 4e 2b 31 2c 41 35 00 34 01 72 00 10 00 50 5c 41 4e 4b ┆ EQU * 4 : P LDR* A6,A5 LAST OUTPUT DWT 4 N P LC A2,CWTLON+1,A5 4 r P ANK┆