|
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: 27054 (0x69ae)
Notes: pts_type(SC)
Names: »DRTP02.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DRTP02.SC«
IDENT DRTP02 REL 9.2 79-11-16 870105040920 =4,CUT AND PERF CORRECTED REL 9.1 79-05-23 UPDATE PRR 9.1 - REL 9.1 PRR 9.1 79-04-25 REL 9.1 79-04-06 =1-3,GEN UPDATE TO 8.2+ STATUS REL 8.2 79-04-19 =3,RECOVERY TIMER CORRECTED REL 8.2 79-04-18 =2,GRSP/REL CH.TO IMPR. REMOTE REL 8.2 79-03-16 =1,IMPRROV. OF TEST ORDER REL 8.2 78-09-15 ******************************************************* * * * PHILIPS TERMINAL SYSTEM PTS * * * * DRTP02 = DRIVER TELLER TERMINAL PRINTER * * * * * * * * * * ******************************************************* * * THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221, * 6222 OR 6223 CONNECTED TO CPU VIA CHLT OR CHRT * * * THIS DRIVER CONSISTS OF THE FOLLOWING PARTS: * * A C T P : ACTIVATION PART * * I H T P : INTERRUPT HANDLER * * R C T P : RECOVERY ROUTINE * * * THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES: * * P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM * * B C D T B Y : CONVERT TO BINARY FROM DECIMAL * * B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST * CHARACTER IN OUTPUT BUFFER * * G R A S P : SEND GRASP TO VOUCHER * * R E L E A S : SEND LIFT TO TOP AND RELEASE EJECT * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00 : TEST STATUS * ORDER 06 : WRITE * ORDER 0B : POSITION LIFT AND WRITE * ORDER 22 : CUT JOURNAL * ORDER 26 : PERFORATE JOURNAL * ORDER 37 : GRASP VOUCHER/PASSBOOK * ORDER 38 : RELEASE VOUCHER/PASSBOOK * * THE FOLLOWING RETURN CODES ARE USED: * * BIT 0 : REQUEST ERROR * BIT 8 : RECOVERY EXECUTED ON REQUEST * BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT * BIT 13 : CODE CHECK ERROR * BIT 15 : NOT OPERABLE * * * * NORMAL REGISTER USAGE: * * REGISTER A1: WORK REGISTER * A2: INPUT/OUTPUT * A3: BUFFER POINTER * A4: OUTPUT COUNTER * A5: STACK POINTER * A6: DWT-ADDRESS * A7: ORDER * A8: ECB-ADDRESS * * * * * SYSTEM ADAPTATION: * * BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN * BE EXCLUDED: * * RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST * CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) * ACCAPTANCE OF SPECIAL CHARACTER /13,/14 * COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN * * * THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED * IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET * * EJECT * *********** * ENTRIES * *********** * * ENTRY TPAD ADDRESS BLOCK * * * ************* * EXTERNALS * ************* * * EXTRN TDISP DISPATCHING FROM INTERRUPT EXTRN DISIOE DISPATCH I/O ERROR EXTRN DISEND END I/O AND DISPATCH EXTRN TENDIO END I/O EXTRN OUTPUT OUTPUT ONE CHARACTER EXTRN LDREG RESTORE REGISTERS EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT EXTRN SAVE8 SAVE REG. A1-A8 * EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS EXTRN DWTOR ORDER EXTRN DWTSB2 STACK BASE 2 IN DWT EJECT * * ECB DISPLACEMENTS * EXTRN ECBBA BUFFER ADDRESS EXTRN ECBRL REQUESTED LENGTH EXTRN ECBEL EFFECTIVE LENGTH EXTRN ECBRC RETURN CODE EXTRN ECBCW CONTROL WORD EJECT ************************ * CONDITIONAL ASSEMBLY * ************************ * * * WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET * BY SETTING X:A = 1 * * X:A EQU 0 RECOV EQU 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 /20 RETURN CODE. END OF JOURNAL TAPE * * VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. VOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED MESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN * STX EQU /82 START OF TEXT BLOCK ETB EQU /97 END OF TEXT BLOCK ETX EQU /03 LAST DUMMY REMOT EQU /01 RESET PRINT BUFFER REMOTE TAB EQU /11 TABULATION CHAR IN BUFFER CR1 EQU /0D CR JOURNAL TAPE LF1 EQU /18 LF JOURNAL TAPE CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK LF2 EQU /19 LF TALLY ROLL LDO EQU /0B LIFT DOWN 1 POSITION LUP EQU /0A LIFT UP ONE POSITION LFF EQU /0C LIFT TO TOP POSITION GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK REL EQU /1B RELEASE VOUCHER/PASSBOOK APH EQU /1D ATTACH PRINT HEAD RPH EQU /1E RETURN PRINT HEAD TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE * * ********************* * DWT-DISPLACEMENTS * ********************* * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTRLN EQU START+/12 REQUESTED LINE NUMBER DWTALN EQU START+/13 ACTUAL LINE NUMBER * EJECT * *********** * BUFFERS * *********** * * BUF1 DATA /0382,/0D1D STX,CR1,APH IFT CUTPER=0 BUF2 DATA /0382 STX XIF IFT CUTPER=1 BUF2 DATA /0482 STX XIF DATA /091D,/2000 CR2,APH,SPACE BUF3 DATA /0382,/091D STX,CR2,APH BUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,STB =2 * * * ********** * TABLES * ********** * * DATA DVBLEN MMU BUFFER SIZE DATA 2 DEVICE INDEX TPAD EQU * ADDRESS BLOCK DATA ACTP ACTIVATIONDRIVER DATA 0 ABORT ROUTINE ADDRESS DATA IHTP INTERRUPTHANDLER DATA RCTP RECOVERY ROUTINE * * TABLE TO GET ROOMLESS POINT * ROMTAB EQU * DATA /2122,/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 ORK A1,PROUT SET RETURN CODE: END OF JOURNAL TAPE, VOUCHER OUT * * * PERFORM END I/O AND GO TO DISPATCHER * ENDIO EQU * ABL DISEND PERFORM END I/O AND GO TO DISPATCHER * * * * IFT CUTPER=1 TST020 SUK A7,16 RB(L) ENDIO VOUCHER/PASSBOOK SUK A7,4 RB(G) ENDIO GRASP,RELEASE RB TST012 CUT,PERFORATE XIF EJECT * * * * ORDER 06 : PRINT TALLY ROLL * * * TP405 CF A5,RELEAS ERROR. VOUCHER IN * TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH TP410 EQU * LDKL A1,VOCHA ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED RB TP210 * EJECT * * * * ORDER 06 : WRITE VOUCHER/PASSBOOK * OB : POSITION LIFT AND WRITE * * TP605 EQU * =2 LDK A2,STX SEND STX =2 CF A5,OUTPUT =2 CF A5,GRASP GRASP VOUCHER =2 EJECT * * * SEND ELEVATOR UP/DOWN UNTIL ACTUAL * LINE NUMBER IS EQUAL REQUESTED * * TP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER RF(E) TP650 EQUAL RF(G) TP630 SEND ELEVATOR UP LDK A2,LDO SEND ELEVATOR DOWN ADK A3,1 INCREMENT ACTUAL LINE NUMBER RF TP640 TP630 LDK A2,LUP SEND ELEVATOR UP SUK A3,1 DECREMENT ACTUAL LINE NUMBER * TP640 CF A5,OUTPUT SEND LIFT CHAR * SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER ANK A2,VOIN VOUCHER IN ? IFT COMPL=0 ABL(Z) RCTP01 NO: ERROR RECOVERY RB TP610 YES: CHECK IF LIFT POSITIONED XIF IFT COMPL=1 RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED TP645 LDK A1,PROUT 'VOUCHER OUT' ORS A1,ECBRC,A8 INDICATE IN RETURN CODE RB TPDUMY XIF EJECT * * * ORDER 06 AND 0B: LIFT IS POSITIONED * ATTACH AND PRINT * * TP650 EQU * LDKL A3,BUF2 SEND CR2 AND ATTACH RB TP410 PRINT ECB-BUFFER EJECT IFT CUTPER=1 * * ORDER 22 AND 26 CUT AND PERFORATE JOURNAL * TP700 EQU * LDK A3,1 SET INDEX =4 RF TP760 TP750 EQU * LDK A3,0 SET INDEX =4 TP760 LDK A2,STX SEND STX =4 CF A5,OUTPUT =4 LC A2,CPTAB,A3 GET CHAR =4 CF A5,OUTPUT SEND =4 =4 RB TPDUMY XIF * * ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK * TP800 EQU * CF A5,GRASPA RB TPDUMY TP900 EQU * CF A5,RELEAS RB TPDUMY EJECT * * P R B U F * * SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED * LENGTH IS REACHED * PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH SUK A4,2 ADJUST REQUESTED LENGTH LD A3,ECBBA,A8 BUFFER ADDRESS * SKIP PRECEDING SPACES IN BUFFER ADK A3,2 PRB010 LCR A1,A3 GET CHARACTER CCK A1,/2020 RF(NE) PRB050 NOT BLANK ADK A3,1 BLANK SUK A4,1 RB PRB010 GET NEXT CHARACTER * LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER PRB050 LDR A1,A3 GET ADDRESS TO ADR A1,A4 LAST CHARACTER IN BUFFER LC A1,-1,A1 GET CHAR CCK A1,/0909 CARRIAGE RETURN - CR2 ? RF(E) PRB060 YES CCK A1,/0D0D CARRIAGE RETURN - CR1 ? RF(E) PRB060 YES LDK A1,0 DUMMY CHARACTER RF PRB070 PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB * * PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH RF(NN) PRB105 PRINT BUFFER LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) RF(E) PRB101 CF A5,OUTPUT SEND CHAR PRB101 EQU * LDK A2,ETB CF A5,OUTPUT SEND END OF MESSAGE LDK A2,ETX CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED LDKL A1,MESS INDICATE MESSAGE PRINTED ORS A1,DWTST,A6 PRB102 RTN A5 EJECT * * * * PRINT BUFFER * * PRB105 EQU * ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED SUK A7,7 CHECK ORDER RF(L) PRB200 PRINT JOURNAL RF(G) PRB110 PRINT VOUCHER EJECT * * * * PRINT TALLY ROLL * * * ANK A2,VOIN VOUCHER IN ? RF(Z) PRB200 NO. GO AND PRINT ADK A5,4 RESET STACK POINTER RB TP405 SEND LIFT TO TOP AND RELEAS * * * * PRINT VOUCHER/PASSBOOK * * PRB110 ANK A2,VOIN VOUCHER IN ? IFT COMPL=0 RF(Z) RCTP01 ERROR .VOUCHER NOT IN XIF IFT COMPL=1 RB(Z) TP645 XIF LDR A1,A4 COPY REQUESTED LENGTH SUK A1,2 R.L. < 3? RF(N) PRB200 YES: NO TABULATION LDK A1,TAB CC A1,-2,A3 TABULATION? RF(NE) PRB200 NO EJECT * * * IF TABULATION CHARACTER: DETACH PRINT HEAD, * SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED * AND ATTACH PRINT HEAD * * PRB115 LDK A2,RPH DETACH PRINT HEAD CF A5,OUTPUT SEND DETACH PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR LCR A1,A3 GET 2ND TAB POS CHAR ANK A1,/F LINE UNIT SLL A2,4 ANK A2,/F0 LINE DECADE ORR A1,A2 DECIMAL LINE NUMBER CF A5,BCDTBY CONVERT TO BINARY PRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. RF(NG) PRB125 PRINT * * * LDK A2,/20 LOAD BLANK CF A5,OUTPUT SEND BLANKS OR DETACH RB PRB117 * * * PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH SUK A3,2 DECREMENT BUFFER ADDRESS LDK A2,APH ATTACH RF PRB240 SEND ATTACH EJECT * * * * GET OUTPUT CHARACTER FROM BUFFER. CHECK IF * - ROOMLESS POINT * - ILLEGAL CHARACTER * - SPECIAL CHARACTER (/13,/14) * PRB200 EQU * PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER CCK A7,/AEAE ROOMLESS POINT ? RF(NE) PRB210 NO SUK A3,1 DECREMENT BUFFER POINTER SUK A4,1 LCR A7,A3 GET OUTPUT CHARACTER ANK A7,/F MASK LC A7,ROMTAB,A7 GET CODE IN TABLE * * * PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? RF(L) PRB225 YES PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? RF(NG) PRB230 NO * * PRB225 EQU * IFT CHR13=1 CCK A7,/1313 SPECIAL CHARACTER ? RF(E) PRB230 YES XIF IFT CHR14=1 CCK A7,/1414 SPECIAL CHARACTER ? RF(E) PRB230 YES XIF * LDK A1,CCERR CODE CHECK ERROR ORS A1,ECBRC,A8 STORE IN RETURN CODE LD A7,DWTOR,A6 GET ORDER ANK A7,/FF RF PRB245 * * * PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER LDR A2,A7 GET OUTPUT CHARACTER PRB240 CF A5,OUTPUT SEND CHARACTER PRB245 SUR A3,A4 START OF BUFFER ADDRESS RB PRB100 * * * EJECT * * I H T P * * INTERRUPT HANDLER: PROCESS OF INTERRUPT * * * IHTP EQU * LD A4,DWTST,A6 GET STATUS RF(N) RCTP10 NOT BUSY =1 =1 CWK A7,2 TEST STATUS ? =1 RF(NG) IHTP20 YES =1 LDR A1,A1 RETURN CODE FROM CHANNEL UNIT =1 IFT RELEND=0 RF(NZ) RCTP10 YES GO TO DISPATCHER =1 XIF IFT RELEND=1 RF(NZ) IHTP30 YES FINISH REQUEST =1 XIF IHTP10 ABL LDREG NO RETURN CODE RESTORE REGISTER =1 IHTP20 LDR A1,A1 RB(Z) IHTP10 TEST ORDER AND TIME OUT =1 IHTP30 EQU * ABL ENDIO * * * EJECT * * R C T P * * RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON * RCTP EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A2,/7FFF IND DEVICE BUSY =3 ANS A2,DWTST,A6 =3 LD A2,DWTECB,A6 =3 RF(Z) RCTP05 REQUEST NOT RUNNING =3 * RCTP01 LDKL A5,DWTSB2 STACK BASE ADR A5,A6 LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY CF A5,OUTPUT SEND DUMMY IFT COMPL=1 LDR A4,A4 STATUS CHANGE ? ABL(NE) TP645 XIF RCTP05 EQU * LDK A2,0 SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER LDK A2,LFF LIFT TO TOP CF A5,OUTPUT LD A2,DWTECB,A6 =3 RF(NZ) RCTP07 REQUEST RUNNING =3 LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3 CF A5,OUTPUT =3 ABL DISEND =3 RCTP07 EQU * =3 IFT RECOV=1 LDK A2,/80 INDICATE POWER OFF ORS A2,8,A8 SET RETURN CODE XIF LDK A4,1 IND RECOVERY ABL ACT005 START RECOVERY OF PRINTER RCTP10 ABL TDISP GO TO DISPATCHER EJECT * * B C D T B Y * * SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL * * * BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 BCDTB1 SUK A2,/10 RF(N) BCDTB2 END SUK A1,6 DECREMENT BY 6 RB BCDTB1 BCDTB2 RTN A5 RETURN TO CALLER * * * * * * G R A S P * * SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK * * GRASPA EQU * LDK A2,STX SEND STX =2 CF A5,OUTPUT =2 LDK A2,LFF LIFT TO TOP CF A5,OUTPUT GRASP EQU * LDK A3,0 LDK A2,GRA GRASP CF A5,OUTPUT ANK A2,VOIN VOUCHER IN ? RF(NZ) GRAS10 YES LDK A2,ETB SEND ETB =2 CF A5,OUTPUT =2 LDK A2,TETX DUMMY AFTER GRASP CF A5,OUTPUT LDK A2,STX SEND STX =2 CF A5,OUTPUT =2 LDK A2,LFF LIFT TO TOP CF A5,OUTPUT RTN A5 GRAS10 LC A3,DWTALN,A6 RTN A5 * * EJECT * * * R E L E A S * * SUBROUTINE TO SEND LIFT TO TOP AND RELEASE * * * RELEAS EQU * LDK A1,0 SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0 LDKL A3,BUF5 LIFT TO TOP AND RELEAS LDK A2,STX SEND STX =2 CF A5,OUTPUT =2 LDK A2,LFF LIFT TO TOP CF A5,OUTPUT ANK A2,VOIN VOUCHER IN ? RF(Z) BUFRTN * * B U F C H R * * SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN * FIRST CHARACTER IN OUTPUT BUFFER * * BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS ANK A4,/FF MASK BUFC10 ADK A3,1 INCREMENT BUFFER POINTER LCR A2,A3 GET OUTPUT CHARACTER CF A5,OUTPUT SEND CHARACTER SUK A4,1 DECREMENT COUNTER RB(NZ) BUFC10 NOT LAST CHARACTER BUFRTN EQU * RTN A5 RETURN TO CALLER * * * * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRTP02 REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0062 Head {h00=0x0020, h01=0x0050, text=» =4,CUT AND PERF CORRECTED«, t00=0x0000, t01=0x0042}
0x0062…007e Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x0066}
0x007e…00a2 Head {h00=0x0020, h01=0x0050, text=» UPDATE PRR 9.1 - REL 9.1 «, t00=0x0000, t01=0x0082}
0x00a2…00be Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-04-25 «, t00=0x0000, t01=0x00a6}
0x00be…00da Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-04-06 «, t00=0x0000, t01=0x00c2}
0x00da…0104 Head {h00=0x0026, h01=0x0050, text=» =1-3,GEN UPDATE TO 8.2+ STATUS «, t00=0x0000, t01=0x00de}
0x0104…0120 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-04-19 «, t00=0x0000, t01=0x0108}
0x0120…0146 Head {h00=0x0022, h01=0x0050, text=» =3,RECOVERY TIMER CORRECTED«, t00=0x0000, t01=0x0124}
0x0146…0162 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-04-18 «, t00=0x0000, t01=0x014a}
0x0162…018c Head {h00=0x0026, h01=0x0050, text=» =2,GRSP/REL CH.TO IMPR. REMOTE «, t00=0x0000, t01=0x0166}
0x018c…01a8 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-03-16 «, t00=0x0000, t01=0x0190}
0x01a8…01cc Head {h00=0x0020, h01=0x0050, text=» =1,IMPRROV. OF TEST ORDER«, t00=0x0001, t01=0x001c}
0x01cc…01e8 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 78-09-15 «, t00=0x0001, t01=0x0040}
0x01e8…0228 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x005c}
0x0228…0268 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x009c}
0x0268…02a8 Head {h00=0x003c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0001, t01=0x00dc}
0x02a8…02e8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0001, t01=0x011c}
0x02e8…0328 Head {h00=0x003c, h01=0x0050, text=»* DRTP02 = DRIVER TELLER TERMINAL PRINTER * «, t00=0x0001, t01=0x015c}
0x0328…0368 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x000c}
0x0368…03a8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x004c}
0x03a8…03b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008c}
0x03b2…03bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0096}
0x03bc…03c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a0}
0x03c6…0406 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00aa}
0x0406…0446 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0002, t01=0x00ea}
0x0446…0450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x0450…0492 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221,«, t00=0x0002, t01=0x0134}
0x0492…04cc Head {h00=0x0036, h01=0x0050, text=»* 6222 OR 6223 CONNECTED TO CPU VIA CHLT OR CHRT«, t00=0x0002, t01=0x0176}
0x04cc…04d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d6…04e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04e0…0518 Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0003, t01=0x0034}
0x0518…0522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006c}
0x0522…054a Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0003, t01=0x0076}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009e}
0x0554…057e Head {h00=0x0026, h01=0x0050, text=»* I H T P : INTERRUPT HANDLER «, t00=0x0003, t01=0x00a8}
0x057e…0588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d2}
0x0588…05b0 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0003, t01=0x00dc}
0x05b0…05ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x05ba…05c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010e}
0x05c4…05fe Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES:«, t00=0x0003, t01=0x0118}
0x05fe…0608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0152}
0x0608…064e Head {h00=0x0042, h01=0x0050, text=»* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM«, t00=0x0003, t01=0x015c}
0x064e…0658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0658…0692 Head {h00=0x0036, h01=0x0050, text=»* B C D T B Y : CONVERT TO BINARY FROM DECIMAL«, t00=0x0004, t01=0x001c}
0x0692…069c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x069c…06e4 Head {h00=0x0044, h01=0x0050, text=»* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST«, t00=0x0004, t01=0x0060}
0x06e4…070c Head {h00=0x0024, h01=0x0050, text=»* CHARACTER IN OUTPUT BUFFER «, t00=0x0004, t01=0x00a8}
0x070c…0716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d0}
0x0716…0748 Head {h00=0x002e, h01=0x0050, text=»* G R A S P : SEND GRASP TO VOUCHER «, t00=0x0004, t01=0x00da}
0x0748…0752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010c}
0x0752…078a Head {h00=0x0034, h01=0x0050, text=»* R E L E A S : SEND LIFT TO TOP AND RELEASE«, t00=0x0004, t01=0x0116}
0x078a…0798 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x014e}
0x0798…07a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015c}
0x07a2…07d0 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0004, t01=0x0166}
0x07d0…07da (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07da…0802 Head {h00=0x0024, h01=0x0050, text=»* ORDER 00 : TEST STATUS «, t00=0x0005, t01=0x000e}
0x0802…0824 Head {h00=0x001e, h01=0x0050, text=»* ORDER 06 : WRITE «, t00=0x0005, t01=0x0036}
0x0824…0858 Head {h00=0x0030, h01=0x0050, text=»* ORDER 0B : POSITION LIFT AND WRITE «, t00=0x0005, t01=0x0058}
0x0858…0880 Head {h00=0x0024, h01=0x0050, text=»* ORDER 22 : CUT JOURNAL «, t00=0x0005, t01=0x008c}
0x0880…08ae Head {h00=0x002a, h01=0x0050, text=»* ORDER 26 : PERFORATE JOURNAL «, t00=0x0005, t01=0x00b4}
0x08ae…08e0 Head {h00=0x002e, h01=0x0050, text=»* ORDER 37 : GRASP VOUCHER/PASSBOOK«, t00=0x0005, t01=0x00e2}
0x08e0…0914 Head {h00=0x0030, h01=0x0050, text=»* ORDER 38 : RELEASE VOUCHER/PASSBOOK«, t00=0x0005, t01=0x0114}
0x0914…091e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0148}
0x091e…094e Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0005, t01=0x0152}
0x094e…0958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x0958…0982 Head {h00=0x0026, h01=0x0050, text=»* BIT 0 : REQUEST ERROR «, t00=0x0005, t01=0x018c}
0x0982…09ba Head {h00=0x0034, h01=0x0050, text=»* BIT 8 : RECOVERY EXECUTED ON REQUEST«, t00=0x0006, t01=0x0026}
0x09ba…09f6 Head {h00=0x0038, h01=0x0050, text=»* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT«, t00=0x0006, t01=0x005e}
0x09f6…0a22 Head {h00=0x0028, h01=0x0050, text=»* BIT 13 : CODE CHECK ERROR«, t00=0x0006, t01=0x009a}
0x0a22…0a4a Head {h00=0x0024, h01=0x0050, text=»* BIT 15 : NOT OPERABLE«, t00=0x0006, t01=0x00c6}
0x0a4a…0a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ee}
0x0a54…0a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f8}
0x0a5e…0a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0102}
0x0a68…0a8a Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0006, t01=0x010c}
0x0a8a…0a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a94…0aba Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0006, t01=0x0138}
0x0aba…0ae0 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0006, t01=0x015e}
0x0ae0…0b08 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0006, t01=0x0184}
0x0b08…0b30 Head {h00=0x0024, h01=0x0050, text=»* A4: OUTPUT COUNTER «, t00=0x0007, t01=0x001c}
0x0b30…0b56 Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0007, t01=0x0044}
0x0b56…0b7a Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0007, t01=0x006a}
0x0b7a…0b98 Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0007, t01=0x008e}
0x0b98…0bbc Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0007, t01=0x00ac}
0x0bbc…0bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d0}
0x0bc6…0bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00da}
0x0bd0…0bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e4}
0x0bda…0be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ee}
0x0be4…0c02 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0007, t01=0x00f8}
0x0c02…0c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0116}
0x0c0c…0c54 Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN «, t00=0x0007, t01=0x0120}
0x0c54…0c6c Head {h00=0x0014, h01=0x0050, text=»* BE EXCLUDED:«, t00=0x0007, t01=0x0168}
0x0c6c…0c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0180}
0x0c76…0cb8 Head {h00=0x003e, h01=0x0050, text=»* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST «, t00=0x0007, t01=0x018a}
0x0cb8…0cf0 Head {h00=0x0034, h01=0x0050, text=»* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) «, t00=0x0008, t01=0x003c}
0x0cf0…0d24 Head {h00=0x0030, h01=0x0050, text=»* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 «, t00=0x0008, t01=0x0074}
0x0d24…0d70 Head {h00=0x0048, h01=0x0050, text=»* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN«, t00=0x0008, t01=0x00a8}
0x0d70…0d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f4}
0x0d7a…0d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00fe}
0x0d84…0dc8 Head {h00=0x0040, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED«, t00=0x0008, t01=0x0108}
0x0dc8…0e0a Head {h00=0x003e, h01=0x0050, text=»* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET «, t00=0x0008, t01=0x014c}
0x0e0a…0e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e14…0e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1e…0e2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0012}
0x0e2c…0e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e36…0e4a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0009, t01=0x002a}
0x0e4a…0e5e Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0009, t01=0x003e}
0x0e5e…0e72 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0009, t01=0x0052}
0x0e72…0e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0066}
0x0e7c…0e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0070}
0x0e86…0ea8 Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD ADDRESS BLOCK «, t00=0x0009, t01=0x007a}
0x0ea8…0eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009c}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a6}
0x0ebc…0ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b0}
0x0ec6…0edc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x00ba}
0x0edc…0ef2 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0009, t01=0x00d0}
0x0ef2…0f08 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x00e6}
0x0f08…0f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fc}
0x0f12…0f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0106}
0x0f1c…0f4c Head {h00=0x002c, h01=0x0050, text=» EXTRN TDISP DISPATCHING FROM INTERRUPT «, t00=0x0009, t01=0x0110}
0x0f4c…0f74 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE DISPATCH I/O ERROR«, t00=0x0009, t01=0x0140}
0x0f74…0f9e Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x0009, t01=0x0168}
0x0f9e…0fbc (10, 0, 400) Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x000a, t01=0x0004}
0x0fbc…0fe6 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x000a, t01=0x0022}
0x0fe6…100c Head {h00=0x0022, h01=0x0050, text=» EXTRN LDREG RESTORE REGISTERS«, t00=0x000a, t01=0x004c}
0x100c…1048 Head {h00=0x0038, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT «, t00=0x000a, t01=0x0072}
0x1048…106c Head {h00=0x0020, h01=0x0050, text=» EXTRN SAVE8 SAVE REG. A1-A8«, t00=0x000a, t01=0x00ae}
0x106c…1076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d2}
0x1076…1092 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x00dc}
0x1092…10b4 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x00f8}
0x10b4…10d6 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x000a, t01=0x011a}
0x10d6…10f0 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x013c}
0x10f0…111a Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x000a, t01=0x0156}
0x111a…1128 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0180}
0x1128…1132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018e}
0x1132…114e Head {h00=0x0018, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x000b, t01=0x0008}
0x114e…1158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0024}
0x1158…117c Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x000b, t01=0x002e}
0x117c…11a2 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x000b, t01=0x0052}
0x11a2…11c8 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x000b, t01=0x0078}
0x11c8…11e8 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x000b, t01=0x009e}
0x11e8…120a Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x000b, t01=0x00be}
0x120a…1218 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00e0}
0x1218…1238 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x00ee}
0x1238…1258 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x010e}
0x1258…1278 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x012e}
0x1278…1282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x014e}
0x1282…128c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0158}
0x128c…12cc Head {h00=0x003c, h01=0x0050, text=»* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET«, t00=0x000b, t01=0x0162}
0x12cc…12ea Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:A = 1«, t00=0x000c, t01=0x0012}
0x12ea…12f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f4…12fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003a}
0x12fe…1310 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000c, t01=0x0044}
0x1310…1326 Head {h00=0x0012, h01=0x0050, text=»RECOV EQU X:A «, t00=0x000c, t01=0x0056}
0x1326…1330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006c}
0x1330…133a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0076}
0x133a…1378 Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x000c, t01=0x0080}
0x1378…1394 Head {h00=0x0018, h01=0x0050, text=»* SETTING X:B = 1 «, t00=0x000c, t01=0x00be}
0x1394…139e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00da}
0x139e…13a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e4}
0x13a8…13ba Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x00ee}
0x13ba…13d0 Head {h00=0x0012, h01=0x0050, text=»CUTPER EQU X:B«, t00=0x000c, t01=0x0100}
0x13d0…13da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0116}
0x13da…13e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0120}
0x13e4…142a Head {h00=0x0042, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 «, t00=0x000c, t01=0x012a}
0x142a…144e Head {h00=0x0020, h01=0x0050, text=»* AND X:D = 1 RESPECTIVLY «, t00=0x000c, t01=0x0170}
0x144e…1458 (13, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x1458…1462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000e}
0x1462…1474 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000d, t01=0x0018}
0x1474…148a Head {h00=0x0012, h01=0x0050, text=»CHR13 EQU X:C «, t00=0x000d, t01=0x002a}
0x148a…1494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0040}
0x1494…149e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004a}
0x149e…14b0 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000d, t01=0x0054}
0x14b0…14c6 Head {h00=0x0012, h01=0x0050, text=»CHR14 EQU X:D «, t00=0x000d, t01=0x0066}
0x14c6…14d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007c}
0x14d0…14da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0086}
0x14da…1510 Head {h00=0x0032, h01=0x0050, text=»* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF«, t00=0x000d, t01=0x0090}
0x1510…154e Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000d, t01=0x00c6}
0x154e…1558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1562…1574 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x0118}
0x1574…158a Head {h00=0x0012, h01=0x0050, text=»COMPL EQU X:E «, t00=0x000d, t01=0x012a}
0x158a…1598 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0140}
0x1598…15a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014e}
0x15a2…15ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0158}
0x15ac…15ee Head {h00=0x003e, h01=0x0050, text=»* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT «, t00=0x000d, t01=0x0162}
0x15ee…162e Head {h00=0x003c, h01=0x0050, text=»* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING «, t00=0x000e, t01=0x0014}
0x162e…1670 Head {h00=0x003e, h01=0x0050, text=»* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET«, t00=0x000e, t01=0x0054}
0x1670…167a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0096}
0x167a…1684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a0}
0x1684…1696 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000e, t01=0x00aa}
0x1696…16ac Head {h00=0x0012, h01=0x0050, text=»RELEND EQU X:F«, t00=0x000e, t01=0x00bc}
0x16ac…16b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d2}
0x16b6…16c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00dc}
0x16c0…16f2 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000e, t01=0x00e6}
0x16f2…1720 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000e, t01=0x0118}
0x1720…172a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0146}
0x172a…173e Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000e, t01=0x0150}
0x173e…1748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0164}
0x1748…1752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016e}
0x1752…178c Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000e, t01=0x0178}
0x178c…17be Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000f, t01=0x0022}
0x17be…17c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0054}
0x17c8…17dc Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000f, t01=0x005e}
0x17dc…17e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0072}
0x17e6…17f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007c}
0x17f0…180c Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000f, t01=0x0086}
0x180c…1816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a2}
0x1816…1820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ac}
0x1820…1832 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 20«, t00=0x000f, t01=0x00b6}
0x1832…1848 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x000f, t01=0x00c8}
0x1848…1852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00de}
0x1852…1860 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00e8}
0x1860…186a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f6}
0x186a…1874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0100}
0x1874…188a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x010a}
0x188a…18a0 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000f, t01=0x0120}
0x18a0…18b6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x0136}
0x18b6…18c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014c}
0x18c0…18ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0156}
0x18ca…18fc Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x000f, t01=0x0160}
0x18fc…1932 (16, 0, 400) Head {h00=0x0032, h01=0x0050, text=»PROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE«, t00=0x0010, t01=0x0004}
0x1932…193c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003a}
0x193c…1946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0044}
0x1946…197a Head {h00=0x0030, h01=0x0050, text=»VOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST«, t00=0x0010, t01=0x004e}
0x197a…19b0 Head {h00=0x0032, h01=0x0050, text=»EOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. «, t00=0x0010, t01=0x0082}
0x19b0…19f4 Head {h00=0x0040, h01=0x0050, text=»VOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED «, t00=0x0010, t01=0x00b8}
0x19f4…1a2c Head {h00=0x0034, h01=0x0050, text=»MESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN«, t00=0x0010, t01=0x00fc}
0x1a2c…1a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a36…1a5e Head {h00=0x0024, h01=0x0050, text=»STX EQU /82 START OF TEXT BLOCK «, t00=0x0010, t01=0x013e}
0x1a5e…1a84 Head {h00=0x0022, h01=0x0050, text=»ETB EQU /97 END OF TEXT BLOCK «, t00=0x0010, t01=0x0166}
0x1a84…1aa2 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x0010, t01=0x018c}
0x1aa2…1ad2 Head {h00=0x002c, h01=0x0050, text=»REMOT EQU /01 RESET PRINT BUFFER REMOTE «, t00=0x0011, t01=0x001a}
0x1ad2…1b00 Head {h00=0x002a, h01=0x0050, text=»TAB EQU /11 TABULATION CHAR IN BUFFER «, t00=0x0011, t01=0x004a}
0x1b00…1b24 Head {h00=0x0020, h01=0x0050, text=»CR1 EQU /0D CR JOURNAL TAPE «, t00=0x0011, t01=0x0078}
0x1b24…1b48 Head {h00=0x0020, h01=0x0050, text=»LF1 EQU /18 LF JOURNAL TAPE «, t00=0x0011, t01=0x009c}
0x1b48…1b7a Head {h00=0x002e, h01=0x0050, text=»CR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK«, t00=0x0011, t01=0x00c0}
0x1b7a…1b9c Head {h00=0x001e, h01=0x0050, text=»LF2 EQU /19 LF TALLY ROLL «, t00=0x0011, t01=0x00f2}
0x1b9c…1bc4 Head {h00=0x0024, h01=0x0050, text=»LDO EQU /0B LIFT DOWN 1 POSITION«, t00=0x0011, t01=0x0114}
0x1bc4…1bec Head {h00=0x0024, h01=0x0050, text=»LUP EQU /0A LIFT UP ONE POSITION«, t00=0x0011, t01=0x013c}
0x1bec…1c14 Head {h00=0x0024, h01=0x0050, text=»LFF EQU /0C LIFT TO TOP POSITION«, t00=0x0011, t01=0x0164}
0x1c14…1c4e Head {h00=0x0036, h01=0x0050, text=»GRA EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK«, t00=0x0011, t01=0x018c}
0x1c4e…1c7a Head {h00=0x0028, h01=0x0050, text=»REL EQU /1B RELEASE VOUCHER/PASSBOOK«, t00=0x0012, t01=0x0036}
0x1c7a…1ca0 Head {h00=0x0022, h01=0x0050, text=»APH EQU /1D ATTACH PRINT HEAD «, t00=0x0012, t01=0x0062}
0x1ca0…1cc6 Head {h00=0x0022, h01=0x0050, text=»RPH EQU /1E RETURN PRINT HEAD «, t00=0x0012, t01=0x0088}
0x1cc6…1cfe Head {h00=0x0034, h01=0x0050, text=»TETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE «, t00=0x0012, t01=0x00ae}
0x1cfe…1d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e6}
0x1d08…1d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f0}
0x1d12…1d30 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x00fa}
0x1d30…1d4e Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0012, t01=0x0118}
0x1d4e…1d6c Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x0136}
0x1d6c…1d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0154}
0x1d76…1d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015e}
0x1d80…1db4 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x0168}
0x1db4…1dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000c}
0x1dbe…1dd4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0016}
0x1dd4…1dec Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0013, t01=0x002c}
0x1dec…1df8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0044}
0x1df8…1e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0050}
0x1e02…1e18 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x005a}
0x1e18…1e32 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0013, t01=0x0070}
0x1e32…1e3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x008a}
0x1e3e…1e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0096}
0x1e48…1e7a Head {h00=0x002e, h01=0x0050, text=»DWTRLN EQU START+/12 REQUESTED LINE NUMBER«, t00=0x0013, t01=0x00a0}
0x1e7a…1eaa Head {h00=0x002c, h01=0x0050, text=»DWTALN EQU START+/13 ACTUAL LINE NUMBER «, t00=0x0013, t01=0x00d2}
0x1eaa…1eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0102}
0x1eb4…1ec2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x010c}
0x1ec2…1ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011a}
0x1ecc…1ee0 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x0124}
0x1ee0…1ef4 Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x0013, t01=0x0138}
0x1ef4…1f08 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x014c}
0x1f08…1f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0160}
0x1f12…1f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016a}
0x1f1c…1f46 Head {h00=0x0026, h01=0x0050, text=»BUF1 DATA /0382,/0D1D STX,CR1,APH «, t00=0x0013, t01=0x0174}
0x1f46…1f5c Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0014, t01=0x000e}
0x1f5c…1f78 Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0382 STX «, t00=0x0014, t01=0x0024}
0x1f78…1f84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0040}
0x1f84…1f9a Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0014, t01=0x004c}
0x1f9a…1fb6 Head {h00=0x0018, h01=0x0050, text=»BUF2 DATA /0482 STX «, t00=0x0014, t01=0x0062}
0x1fb6…1fc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x007e}
0x1fc2…1fea Head {h00=0x0024, h01=0x0050, text=» DATA /091D,/2000 CR2,APH,SPACE «, t00=0x0014, t01=0x008a}
0x1fea…2014 Head {h00=0x0026, h01=0x0050, text=»BUF3 DATA /0382,/091D STX,CR2,APH «, t00=0x0014, t01=0x00b2}
0x2014…204c Head {h00=0x0034, h01=0x0050, text=»BUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,STB =2«, t00=0x0014, t01=0x00dc}
0x204c…2056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0114}
0x2056…2060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011e}
0x2060…206a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0128}
0x206a…207c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0132}
0x207c…208e Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0014, t01=0x0144}
0x208e…20a0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0156}
0x20a0…20aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0168}
0x20aa…20b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0172}
0x20b4…20d8 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0014, t01=0x017c}
0x20d8…20f4 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0015, t01=0x0010}
0x20f4…2114 Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x0015, t01=0x002c}
0x2114…2138 Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x0015, t01=0x004c}
0x2138…215e Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0015, t01=0x0070}
0x215e…2182 Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x0015, t01=0x0096}
0x2182…21a6 Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0015, t01=0x00ba}
0x21a6…21b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00de}
0x21b0…21d8 Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x0015, t01=0x00e8}
0x21d8…21e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0110}
0x21e2…21f6 Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0015, t01=0x011a}
0x21f6…2222 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0015, t01=0x012e}
0x2222…222c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015a}
0x222c…2258 Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x0015, t01=0x0164}
0x2258…2262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0190}
0x2262…226c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000a}
0x226c…2280 Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x0016, t01=0x0014}
0x2280…22b0 Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x0016, t01=0x0028}
0x22b0…22ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0058}
0x22ba…22c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0062}
0x22c4…22da Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0016, t01=0x006c}
0x22da…2318 Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x0016, t01=0x0082}
0x2318…2324 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00c0}
0x2324…2344 Head {h00=0x001c, h01=0x0050, text=»TPTAB EQU * ORDER TABLE «, t00=0x0016, t01=0x00cc}
0x2344…2364 Head {h00=0x001c, h01=0x0050, text=» DATA /0002,/0607,/080D «, t00=0x0016, t01=0x00ec}
0x2364…237a Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0016, t01=0x010c}
0x237a…238e Head {h00=0x0010, h01=0x0050, text=» DATA /2226 «, t00=0x0016, t01=0x0122}
0x238e…239a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0136}
0x239a…23ae Head {h00=0x0010, h01=0x0050, text=» DATA /393A «, t00=0x0016, t01=0x0142}
0x23ae…23c8 Head {h00=0x0016, h01=0x0050, text=»TPLEN EQU *-TPTAB «, t00=0x0016, t01=0x0156}
0x23c8…23d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0170}
0x23d6…23e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017e}
0x23e0…23ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0188}
0x23ea…23fe (23, 0, 398) Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0017, t01=0x0004}
0x23fe…2408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0018}
0x2408…243e Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0017, t01=0x0022}
0x243e…2480 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0017, t01=0x0058}
0x2480…248a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009a}
0x248a…2494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a4}
0x2494…249e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ae}
0x249e…24c2 Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0017, t01=0x00b8}
0x24c2…24cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00dc}
0x24cc…24d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e6}
0x24d6…2516 Head {h00=0x003c, h01=0x0050, text=»* GET DWT INDEX: 0=JOURNAL,1=TALLY,2=VOUCHER/PASSBOOK «, t00=0x0017, t01=0x00f0}
0x2516…253c Head {h00=0x0022, h01=0x0050, text=» LC A1,DWTOR,A6 GET DWT INDEX «, t00=0x0017, t01=0x0130}
0x253c…2552 Head {h00=0x0012, h01=0x0050, text=» ANK A1,7 MASK«, t00=0x0017, t01=0x0156}
0x2552…257c Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 ADD DWT INDEX TO ORDER «, t00=0x0017, t01=0x016c}
0x257c…25ac Head {h00=0x002c, h01=0x0050, text=» SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT «, t00=0x0018, t01=0x0008}
0x25ac…25c8 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ACTIVATION«, t00=0x0018, t01=0x0038}
0x25c8…25e6 Head {h00=0x001a, h01=0x0050, text=»ACT005 LDK A3,TPLEN-1 «, t00=0x0018, t01=0x0054}
0x25e6…261c Head {h00=0x0032, h01=0x0050, text=»ACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER «, t00=0x0018, t01=0x0072}
0x261c…263e Head {h00=0x001e, h01=0x0050, text=» RF(E) ACT020 VALID ORDER «, t00=0x0018, t01=0x00a8}
0x263e…2650 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0018, t01=0x00ca}
0x2650…2670 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACT010 TRY NEXT «, t00=0x0018, t01=0x00dc}
0x2670…267a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fc}
0x267a…269c Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0018, t01=0x0106}
0x269c…26a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0128}
0x26a6…26b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0132}
0x26b0…26c4 Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x0018, t01=0x013c}
0x26c4…26ee Head {h00=0x0026, h01=0x0050, text=» SC A4,DWTBC,A6 RESET BYTE COUNTER«, t00=0x0018, t01=0x0150}
0x26ee…270a Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x0018, t01=0x017a}
0x270a…272e Head {h00=0x0020, h01=0x0050, text=» ABI TPFUC,A3 EXECUTE ORDER «, t00=0x0019, t01=0x0008}
0x272e…276c Head {h00=0x003a, h01=0x0050, text=»TPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 =1 «, t00=0x0019, t01=0x002c}
0x276c…2782 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0019, t01=0x006a}
0x2782…279c Head {h00=0x0016, h01=0x0050, text=» DATA TP700,TP750 «, t00=0x0019, t01=0x0080}
0x279c…27a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x009a}
0x27a8…27c2 Head {h00=0x0016, h01=0x0050, text=» DATA TP800,TP900 «, t00=0x0019, t01=0x00a6}
0x27c2…27d6 Head {h00=0x0010, h01=0x0050, text=» EJECT =1 «, t00=0x0019, t01=0x00c0}
0x27d6…27e6 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x00d4}
0x27e6…27f6 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x00e4}
0x27f6…2816 Head {h00=0x001c, h01=0x0050, text=»* ORDER 00: TEST =1«, t00=0x0019, t01=0x00f4}
0x2816…2864 Head {h00=0x004a, h01=0x0050, text=»* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =1 «, t00=0x0019, t01=0x0114}
0x2864…2874 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0162}
0x2874…2884 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0172}
0x2884…2894 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0182}
0x2894…28a4 (26, 0, 400) Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x001a, t01=0x0004}
0x28a4…28ca Head {h00=0x0022, h01=0x0050, text=»TPTEST LDK A2,STX SEND STX =2 «, t00=0x001a, t01=0x0014}
0x28ca…28e4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001a, t01=0x003a}
0x28e4…2908 Head {h00=0x0020, h01=0x0050, text=» LDK A2,/02 SEND CHAR /02 =2«, t00=0x001a, t01=0x0054}
0x2908…2922 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x001a, t01=0x0078}
0x2922…2950 Head {h00=0x002a, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST =1«, t00=0x001a, t01=0x0092}
0x2950…296a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x001a, t01=0x00c0}
0x296a…2980 Head {h00=0x0012, h01=0x0050, text=» RF TPDUMY =1«, t00=0x001a, t01=0x00da}
0x2980…298e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00f0}
0x298e…2998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00fe}
0x2998…29a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0108}
0x29a2…29d2 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06,0B: WRITE VOUCHER/PASSBOOK «, t00=0x001a, t01=0x0112}
0x29d2…2a14 Head {h00=0x003e, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x001a, t01=0x0142}
0x2a14…2a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0184}
0x2a1e…2a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018e}
0x2a28…2a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0008}
0x2a32…2a78 Head {h00=0x0042, h01=0x0050, text=»ACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB«, t00=0x001b, t01=0x0012}
0x2a78…2a8a Head {h00=0x000e, h01=0x0050, text=» RF ACT085«, t00=0x001b, t01=0x0058}
0x2a8a…2a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006a}
0x2a94…2ac4 Head {h00=0x002c, h01=0x0050, text=»ACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x001b, t01=0x0074}
0x2ac4…2aee Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x001b, t01=0x00a4}
0x2aee…2b16 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF REQUESTED LINE STEPS«, t00=0x001b, t01=0x00ce}
0x2b16…2b2a Head {h00=0x0010, h01=0x0050, text=» SUK A3,/39 «, t00=0x001b, t01=0x00f6}
0x2b2a…2b4e Head {h00=0x0020, h01=0x0050, text=» RF(G) ACT070 > /39 = ONE LF«, t00=0x001b, t01=0x010a}
0x2b4e…2b60 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/9«, t00=0x001b, t01=0x012e}
0x2b60…2b76 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACT060«, t00=0x001b, t01=0x0140}
0x2b76…2b94 Head {h00=0x001a, h01=0x0050, text=» LDK A3,2 /30 = TWO LF«, t00=0x001b, t01=0x0156}
0x2b94…2ba6 Head {h00=0x000e, h01=0x0050, text=» RF ACT080«, t00=0x001b, t01=0x0174}
0x2ba6…2bd2 Head {h00=0x0028, h01=0x0050, text=»ACT060 RF(G) ACT080 /31-/39 = 1-9 LF«, t00=0x001b, t01=0x0186}
0x2bd2…2be4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,/5«, t00=0x001c, t01=0x0022}
0x2be4…2c04 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TP605 /2B = NO LF«, t00=0x001c, t01=0x0034}
0x2c04…2c22 Head {h00=0x001a, h01=0x0050, text=»ACT070 LDK A3,1 ONE LF«, t00=0x001c, t01=0x0054}
0x2c22…2c5a Head {h00=0x0034, h01=0x0050, text=»ACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT «, t00=0x001c, t01=0x0072}
0x2c5a…2c88 Head {h00=0x002a, h01=0x0050, text=» SUR A1,A3 GET REQUESTED LINE POSITION«, t00=0x001c, t01=0x00aa}
0x2c88…2cbe Head {h00=0x0032, h01=0x0050, text=»ACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ?«, t00=0x001c, t01=0x00d8}
0x2cbe…2cec Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 YES; SET LINE POSITION ZERO «, t00=0x001c, t01=0x010e}
0x2cec…2cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013c}
0x2cf6…2d1a Head {h00=0x0020, h01=0x0050, text=»ACT090 LDR A4,A4 RECOVERY ? «, t00=0x001c, t01=0x0146}
0x2d1a…2d34 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TP605 YES «, t00=0x001c, t01=0x016a}
0x2d34…2d68 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTRLN,A6 SAVE REQUESTED LINE NUMBER «, t00=0x001c, t01=0x0184}
0x2d68…2d7a Head {h00=0x000e, h01=0x0050, text=» RF TP605 «, t00=0x001d, t01=0x0028}
0x2d7a…2d88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x003a}
0x2d88…2d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0048}
0x2d92…2d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0052}
0x2d9c…2da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x005c}
0x2da6…2dca Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x001d, t01=0x0066}
0x2dca…2dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008a}
0x2dd4…2dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0094}
0x2dde…2de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x009e}
0x2de8…2e16 Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x001d, t01=0x00a8}
0x2e16…2e2a Head {h00=0x0010, h01=0x0050, text=»TP210 EQU * «, t00=0x001d, t01=0x00d6}
0x2e2a…2e5e Head {h00=0x0030, h01=0x0050, text=» LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD«, t00=0x001d, t01=0x00ea}
0x2e5e…2e86 Head {h00=0x0024, h01=0x0050, text=» ANK A1,4 TEXT MESSAGE WRITTEN ?«, t00=0x001d, t01=0x011e}
0x2e86…2eb2 Head {h00=0x0028, h01=0x0050, text=» RF(NE) TP220 YES; COMPLETE REQUEST «, t00=0x001d, t01=0x0146}
0x2eb2…2ede Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001d, t01=0x0172}
0x2ede…2f06 Head {h00=0x0024, h01=0x0050, text=» SUK A1,3 REQUESTED LENGTH 0-2 ?«, t00=0x001e, t01=0x000e}
0x2f06…2f30 Head {h00=0x0026, h01=0x0050, text=» RF(N) TP230 YES; COMPLETE REQUEST«, t00=0x001e, t01=0x0036}
0x2f30…2f44 Head {h00=0x0010, h01=0x0050, text=» RF(P) TP215«, t00=0x001e, t01=0x0060}
0x2f44…2f66 Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001e, t01=0x0074}
0x2f66…2f8a Head {h00=0x0020, h01=0x0050, text=» LC A2,2,A1 THIRD CHARACTER «, t00=0x001e, t01=0x0096}
0x2f8a…2fb2 Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 CONTROL CHARACTER «, t00=0x001e, t01=0x00ba}
0x2fb2…2fc8 Head {h00=0x0012, h01=0x0050, text=» RF(NL) TP215 «, t00=0x001e, t01=0x00e2}
0x2fc8…2fe8 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A2 SAVE CHAR =2 «, t00=0x001e, t01=0x00f8}
0x2fe8…3008 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x001e, t01=0x0118}
0x3008…3022 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001e, t01=0x0138}
0x3022…3044 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 RELOAD CHAR =2 «, t00=0x001e, t01=0x0152}
0x3044…305a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001e, t01=0x0174}
0x305a…307a Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x001e, t01=0x018a}
0x307a…3094 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001f, t01=0x001a}
0x3094…30a6 Head {h00=0x000e, h01=0x0050, text=» RF TP220 «, t00=0x001f, t01=0x0034}
0x30a6…30ba Head {h00=0x0010, h01=0x0050, text=»TP215 EQU * «, t00=0x001f, t01=0x0046}
0x30ba…30dc Head {h00=0x001e, h01=0x0050, text=» CF A5,BUFCHR SEND BUFFER «, t00=0x001f, t01=0x005a}
0x30dc…3102 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x001f, t01=0x007c}
0x3102…3116 Head {h00=0x0010, h01=0x0050, text=»TP220 EQU * «, t00=0x001f, t01=0x00a2}
0x3116…3128 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001f, t01=0x00b6}
0x3128…3162 Head {h00=0x0036, h01=0x0050, text=»TP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED «, t00=0x001f, t01=0x00c8}
0x3162…317a Head {h00=0x0014, h01=0x0050, text=» ANS A2,DWTST,A6«, t00=0x001f, t01=0x0102}
0x317a…3188 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x011a}
0x3188…3192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0128}
0x3192…319c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0132}
0x319c…31be Head {h00=0x001e, h01=0x0050, text=»* ECB-BUFFER IS WRITTEN «, t00=0x001f, t01=0x013c}
0x31be…31c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x015e}
0x31c8…31f6 Head {h00=0x002a, h01=0x0050, text=»* SEND LINE FEED IF JOURNAL OR TALLY«, t00=0x001f, t01=0x0168}
0x31f6…3200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0008}
0x3200…320a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0012}
0x320a…321c Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x0020, t01=0x001c}
0x321c…323c Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x0020, t01=0x002e}
0x323c…3256 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0020, t01=0x004e}
0x3256…3268 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0020, t01=0x0068}
0x3268…327e Head {h00=0x0012, h01=0x0050, text=» RF(NE) TPLF10«, t00=0x0020, t01=0x007a}
0x327e…32a4 Head {h00=0x0022, h01=0x0050, text=» LDK A2,RPH DETACH PRINT HEAD «, t00=0x0020, t01=0x0090}
0x32a4…32be Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0020, t01=0x00b6}
0x32be…32d2 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x0020, t01=0x00d0}
0x32d2…32e4 Head {h00=0x000e, h01=0x0050, text=» SUK A7,8 «, t00=0x0020, t01=0x00e4}
0x32e4…3310 Head {h00=0x0028, h01=0x0050, text=» RF(NN) TPL010 NOT JOURNAL AND TALLY«, t00=0x0020, t01=0x00f6}
0x3310…3332 Head {h00=0x001e, h01=0x0050, text=» ADK A7,2 GET INDEX TABLE «, t00=0x0020, t01=0x0122}
0x3332…335a Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x0020, t01=0x0144}
0x335a…337e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND LF CHAR. «, t00=0x0020, t01=0x016c}
0x337e…33b0 Head {h00=0x002e, h01=0x0050, text=»TPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0020, t01=0x0190}
0x33b0…33de Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x0021, t01=0x0032}
0x33de…33ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0060}
0x33ec…33f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006e}
0x33f6…3400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0078}
0x3400…3420 Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x0021, t01=0x0082}
0x3420…342a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a2}
0x342a…3434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ac}
0x3434…345a Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x0021, t01=0x00b6}
0x345a…3464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00dc}
0x3464…3478 Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x0021, t01=0x00e6}
0x3478…3498 Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x0021, t01=0x00fa}
0x3498…34b2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0021, t01=0x011a}
0x34b2…34c6 Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x0021, t01=0x0134}
0x34c6…34dc Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0021, t01=0x0148}
0x34dc…34ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x015e}
0x34ea…34f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x016c}
0x34f4…34fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0176}
0x34fe…3532 Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x0021, t01=0x0180}
0x3532…353c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0024}
0x353c…3550 Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x0022, t01=0x002e}
0x3550…3582 Head {h00=0x002e, h01=0x0050, text=» SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?«, t00=0x0022, t01=0x0042}
0x3582…359c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x0022, t01=0x0074}
0x359c…35c4 Head {h00=0x0024, h01=0x0050, text=»TST005 ANK A2,VOIN VOUCHER OUT ?«, t00=0x0022, t01=0x008e}
0x35c4…35dc Head {h00=0x0014, h01=0x0050, text=» RF(NZ) ENDIO NO«, t00=0x0022, t01=0x00b6}
0x35dc…35f2 Head {h00=0x0012, h01=0x0050, text=» RF TST015 YES«, t00=0x0022, t01=0x00ce}
0x35f2…35fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e4}
0x35fc…3614 Head {h00=0x0014, h01=0x0050, text=»TST010 SUK A7,4 «, t00=0x0022, t01=0x00ee}
0x3614…362a Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=0 «, t00=0x0022, t01=0x0106}
0x362a…3658 Head {h00=0x002a, h01=0x0050, text=» RF(G) ENDIO NOT TEST STATUS, JOURNAL «, t00=0x0022, t01=0x011c}
0x3658…3664 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x014a}
0x3664…367a Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0022, t01=0x0156}
0x367a…36a8 Head {h00=0x002a, h01=0x0050, text=» RF(G) TST020 NOT TEST STATUS, JOURNAL«, t00=0x0022, t01=0x016c}
0x36a8…36bc Head {h00=0x0010, h01=0x0050, text=»TST012 EQU *«, t00=0x0023, t01=0x000a}
0x36bc…36c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x001e}
0x36c8…36f2 Head {h00=0x0026, h01=0x0050, text=» ANK A2,EOJT END OF JOURNAL TAPE? «, t00=0x0023, t01=0x002a}
0x36f2…371a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ENDIO NO: PERFORM ENDIO «, t00=0x0023, t01=0x0054}
0x371a…3746 Head {h00=0x0028, h01=0x0050, text=»TST015 ORK A1,PROUT SET RETURN CODE:«, t00=0x0023, t01=0x007c}
0x3746…3772 Head {h00=0x0028, h01=0x0050, text=» END OF JOURNAL TAPE, VOUCHER OUT «, t00=0x0023, t01=0x00a8}
0x3772…377c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d4}
0x377c…3786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00de}
0x3786…37b6 Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0023, t01=0x00e8}
0x37b6…37c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0118}
0x37c0…37d4 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0023, t01=0x0122}
0x37d4…380c Head {h00=0x0034, h01=0x0050, text=» ABL DISEND PERFORM END I/O AND GO TO DISPATCHER«, t00=0x0023, t01=0x0136}
0x380c…3816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016e}
0x3816…3820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0178}
0x3820…382a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0182}
0x382a…3834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x018c}
0x3834…384a Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0024, t01=0x0008}
0x384a…3862 Head {h00=0x0014, h01=0x0050, text=»TST020 SUK A7,16«, t00=0x0024, t01=0x001e}
0x3862…3888 Head {h00=0x0022, h01=0x0050, text=» RB(L) ENDIO VOUCHER/PASSBOOK «, t00=0x0024, t01=0x0036}
0x3888…389a Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0024, t01=0x005c}
0x389a…38bc Head {h00=0x001e, h01=0x0050, text=» RB(G) ENDIO GRASP,RELEASE«, t00=0x0024, t01=0x006e}
0x38bc…38dc Head {h00=0x001c, h01=0x0050, text=» RB TST012 CUT,PERFORATE«, t00=0x0024, t01=0x0090}
0x38dc…38e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00b0}
0x38e8…38f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00bc}
0x38f6…3900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ca}
0x3900…390a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d4}
0x390a…3914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00de}
0x3914…393c Head {h00=0x0024, h01=0x0050, text=»* ORDER 06 : PRINT TALLY ROLL «, t00=0x0024, t01=0x00e8}
0x393c…3946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0110}
0x3946…3950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011a}
0x3950…395a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0124}
0x395a…3986 Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x0024, t01=0x012e}
0x3986…3990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015a}
0x3990…39be Head {h00=0x002a, h01=0x0050, text=»TP407 LDKL A3,BUF3 SEND CR2 AND ATTACH«, t00=0x0024, t01=0x0164}
0x39be…39d2 (37, 0, 400) Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x0025, t01=0x0004}
0x39d2…39e8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,VOCHA«, t00=0x0025, t01=0x0018}
0x39e8…3a2c Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x0025, t01=0x002e}
0x3a2c…3a3e Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x0025, t01=0x0072}
0x3a3e…3a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0084}
0x3a48…3a56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x008e}
0x3a56…3a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009c}
0x3a60…3a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a6}
0x3a6a…3a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b0}
0x3a74…3aa2 Head {h00=0x002a, h01=0x0050, text=»* ORDER 06 : WRITE VOUCHER/PASSBOOK«, t00=0x0025, t01=0x00ba}
0x3aa2…3ad0 Head {h00=0x002a, h01=0x0050, text=»* OB : POSITION LIFT AND WRITE«, t00=0x0025, t01=0x00e8}
0x3ad0…3ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0116}
0x3ada…3ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0120}
0x3ae4…3afc Head {h00=0x0014, h01=0x0050, text=»TP605 EQU * =2 «, t00=0x0025, t01=0x012a}
0x3afc…3b1c Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x0025, t01=0x0142}
0x3b1c…3b36 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0025, t01=0x0162}
0x3b36…3b5c Head {h00=0x0022, h01=0x0050, text=» CF A5,GRASP GRASP VOUCHER =2 «, t00=0x0025, t01=0x017c}
0x3b5c…3b6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0012}
0x3b6a…3b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0020}
0x3b74…3b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x002a}
0x3b7e…3bac Head {h00=0x002a, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL«, t00=0x0026, t01=0x0034}
0x3bac…3bd6 Head {h00=0x0026, h01=0x0050, text=»* LINE NUMBER IS EQUAL REQUESTED«, t00=0x0026, t01=0x0062}
0x3bd6…3be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008c}
0x3be0…3bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0096}
0x3bea…3c1c Head {h00=0x002e, h01=0x0050, text=»TP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER «, t00=0x0026, t01=0x00a0}
0x3c1c…3c36 Head {h00=0x0016, h01=0x0050, text=» RF(E) TP650 EQUAL«, t00=0x0026, t01=0x00d2}
0x3c36…3c5c Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x0026, t01=0x00ec}
0x3c5c…3c82 Head {h00=0x0022, h01=0x0050, text=» LDK A2,LDO SEND ELEVATOR DOWN«, t00=0x0026, t01=0x0112}
0x3c82…3cb0 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0026, t01=0x0138}
0x3cb0…3cc2 Head {h00=0x000e, h01=0x0050, text=» RF TP640 «, t00=0x0026, t01=0x0166}
0x3cc2…3cec Head {h00=0x0026, h01=0x0050, text=»TP630 LDK A2,LUP SEND ELEVATOR UP «, t00=0x0026, t01=0x0178}
0x3cec…3d1a Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LINE NUMBER«, t00=0x0027, t01=0x0012}
0x3d1a…3d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0040}
0x3d24…3d4e Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR «, t00=0x0027, t01=0x004a}
0x3d4e…3d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0074}
0x3d58…3d88 Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x0027, t01=0x007e}
0x3d88…3daa Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0027, t01=0x00ae}
0x3daa…3dbe Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0027, t01=0x00d0}
0x3dbe…3de8 Head {h00=0x0026, h01=0x0050, text=» ABL(Z) RCTP01 NO: ERROR RECOVERY «, t00=0x0027, t01=0x00e4}
0x3de8…3e18 Head {h00=0x002c, h01=0x0050, text=» RB TP610 YES: CHECK IF LIFT POSITIONED«, t00=0x0027, t01=0x010e}
0x3e18…3e24 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x013e}
0x3e24…3e38 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0027, t01=0x014a}
0x3e38…3e6e Head {h00=0x0032, h01=0x0050, text=» RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED«, t00=0x0027, t01=0x015e}
0x3e6e…3e96 (40, 0, 398) Head {h00=0x0024, h01=0x0050, text=»TP645 LDK A1,PROUT 'VOUCHER OUT'«, t00=0x0028, t01=0x0004}
0x3e96…3ec6 Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 INDICATE IN RETURN CODE«, t00=0x0028, t01=0x002c}
0x3ec6…3ed8 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0028, t01=0x005c}
0x3ed8…3ee4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x006e}
0x3ee4…3ef2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x007a}
0x3ef2…3efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0088}
0x3efc…3f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0092}
0x3f06…3f36 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06 AND 0B: LIFT IS POSITIONED «, t00=0x0028, t01=0x009c}
0x3f36…3f64 Head {h00=0x002a, h01=0x0050, text=»* ATTACH AND PRINT «, t00=0x0028, t01=0x00cc}
0x3f64…3f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00fa}
0x3f6e…3f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0104}
0x3f78…3f8c Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0028, t01=0x010e}
0x3f8c…3fb6 Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF2 SEND CR2 AND ATTACH «, t00=0x0028, t01=0x0122}
0x3fb6…3fd8 Head {h00=0x001e, h01=0x0050, text=» RB TP410 PRINT ECB-BUFFER«, t00=0x0028, t01=0x014c}
0x3fd8…3fe6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x016e}
0x3fe6…3ffc Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0028, t01=0x017c}
0x3ffc…4006 (41, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0004}
0x4006…403e Head {h00=0x0034, h01=0x0050, text=»* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL «, t00=0x0029, t01=0x000e}
0x403e…4048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0046}
0x4048…405c Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0029, t01=0x0050}
0x405c…407a Head {h00=0x001a, h01=0x0050, text=» LDK A3,1 SET INDEX =4«, t00=0x0029, t01=0x0064}
0x407a…408c Head {h00=0x000e, h01=0x0050, text=» RF TP760 «, t00=0x0029, t01=0x0082}
0x408c…40a0 Head {h00=0x0010, h01=0x0050, text=»TP750 EQU * «, t00=0x0029, t01=0x0094}
0x40a0…40be Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SET INDEX =4«, t00=0x0029, t01=0x00a8}
0x40be…40e2 Head {h00=0x0020, h01=0x0050, text=»TP760 LDK A2,STX SEND STX =4«, t00=0x0029, t01=0x00c6}
0x40e2…40fc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =4 «, t00=0x0029, t01=0x00ea}
0x40fc…4120 Head {h00=0x0020, h01=0x0050, text=» LC A2,CPTAB,A3 GET CHAR =4 «, t00=0x0029, t01=0x0104}
0x4120…413a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0029, t01=0x0128}
0x413a…4148 Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x0029, t01=0x0142}
0x4148…4156 Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x0029, t01=0x0150}
0x4156…4168 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0029, t01=0x015e}
0x4168…4174 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0170}
0x4174…417e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x017c}
0x417e…41be Head {h00=0x003c, h01=0x0050, text=»* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK«, t00=0x0029, t01=0x0186}
0x41be…41c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0036}
0x41c8…41dc Head {h00=0x0010, h01=0x0050, text=»TP800 EQU * «, t00=0x002a, t01=0x0040}
0x41dc…41f2 Head {h00=0x0012, h01=0x0050, text=» CF A5,GRASPA «, t00=0x002a, t01=0x0054}
0x41f2…4204 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002a, t01=0x006a}
0x4204…4218 Head {h00=0x0010, h01=0x0050, text=»TP900 EQU * «, t00=0x002a, t01=0x007c}
0x4218…422e Head {h00=0x0012, h01=0x0050, text=» CF A5,RELEAS «, t00=0x002a, t01=0x0090}
0x422e…4240 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x002a, t01=0x00a6}
0x4240…4248 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00b8}
0x4248…4256 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00c0}
0x4256…4260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ce}
0x4260…4276 Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x002a, t01=0x00d8}
0x4276…4280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ee}
0x4280…42ca Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x002a, t01=0x00f8}
0x42ca…42e8 Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x002a, t01=0x0142}
0x42e8…42f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0160}
0x42f2…4324 Head {h00=0x002e, h01=0x0050, text=»PRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH «, t00=0x002a, t01=0x016a}
0x4324…434e Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x002b, t01=0x000c}
0x434e…4374 Head {h00=0x0022, h01=0x0050, text=» LD A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x002b, t01=0x0036}
0x4374…43a0 Head {h00=0x0028, h01=0x0050, text=»* SKIP PRECEDING SPACES IN BUFFER «, t00=0x002b, t01=0x005c}
0x43a0…43b2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x002b, t01=0x0088}
0x43b2…43d8 Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x002b, t01=0x009a}
0x43d8…43ee Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x002b, t01=0x00c0}
0x43ee…440e Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB050 NOT BLANK«, t00=0x002b, t01=0x00d6}
0x440e…4426 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x002b, t01=0x00f6}
0x4426…4438 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002b, t01=0x010e}
0x4438…445e Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x002b, t01=0x0120}
0x445e…44a0 Head {h00=0x003e, h01=0x0050, text=»* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER «, t00=0x002b, t01=0x0146}
0x44a0…44c8 Head {h00=0x0024, h01=0x0050, text=»PRB050 LDR A1,A3 GET ADDRESS TO «, t00=0x002b, t01=0x0188}
0x44c8…44f4 Head {h00=0x0028, h01=0x0050, text=» ADR A1,A4 LAST CHARACTER IN BUFFER «, t00=0x002c, t01=0x0020}
0x44f4…4512 Head {h00=0x001a, h01=0x0050, text=» LC A1,-1,A1 GET CHAR «, t00=0x002c, t01=0x004c}
0x4512…4540 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0909 CARRIAGE RETURN - CR2 ? «, t00=0x002c, t01=0x006a}
0x4540…455a Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002c, t01=0x0098}
0x455a…4588 Head {h00=0x002a, h01=0x0050, text=» CCK A1,/0D0D CARRIAGE RETURN - CR1 ? «, t00=0x002c, t01=0x00b2}
0x4588…45a2 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB060 YES «, t00=0x002c, t01=0x00e0}
0x45a2…45c4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 DUMMY CHARACTER «, t00=0x002c, t01=0x00fa}
0x45c4…45d6 Head {h00=0x000e, h01=0x0050, text=» RF PRB070«, t00=0x002c, t01=0x011c}
0x45d6…4608 Head {h00=0x002e, h01=0x0050, text=»PRB060 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002c, t01=0x012e}
0x4608…4638 Head {h00=0x002c, h01=0x0050, text=»PRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB «, t00=0x002c, t01=0x0160}
0x4638…4642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0190}
0x4642…464c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x000a}
0x464c…467e Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x002d, t01=0x0014}
0x467e…46a2 Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x002d, t01=0x0046}
0x46a2…46dc Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D)«, t00=0x002d, t01=0x006a}
0x46dc…46f2 Head {h00=0x0012, h01=0x0050, text=» RF(E) PRB101 «, t00=0x002d, t01=0x00a4}
0x46f2…4712 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND CHAR «, t00=0x002d, t01=0x00ba}
0x4712…4726 Head {h00=0x0010, h01=0x0050, text=»PRB101 EQU *«, t00=0x002d, t01=0x00da}
0x4726…473a Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETB «, t00=0x002d, t01=0x00ee}
0x473a…4764 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT SEND END OF MESSAGE «, t00=0x002d, t01=0x0102}
0x4764…4778 Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x002d, t01=0x012c}
0x4778…47b2 Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED «, t00=0x002d, t01=0x0140}
0x47b2…47e0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,MESS INDICATE MESSAGE PRINTED«, t00=0x002d, t01=0x017a}
0x47e0…47f8 Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x002e, t01=0x0018}
0x47f8…480e Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x002e, t01=0x0030}
0x480e…481c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0046}
0x481c…4826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0054}
0x4826…4830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x005e}
0x4830…483a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0068}
0x483a…4852 Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x002e, t01=0x0072}
0x4852…485c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x008a}
0x485c…4866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0094}
0x4866…487a Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x002e, t01=0x009e}
0x487a…48b0 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x002e, t01=0x00b2}
0x48b0…48ce Head {h00=0x001a, h01=0x0050, text=» SUK A7,7 CHECK ORDER «, t00=0x002e, t01=0x00e8}
0x48ce…48f2 Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x002e, t01=0x0106}
0x48f2…4916 Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x002e, t01=0x012a}
0x4916…4924 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x014e}
0x4924…492e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x015c}
0x492e…4938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0166}
0x4938…4942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0170}
0x4942…495e Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x002e, t01=0x017a}
0x495e…4968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0008}
0x4968…4972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0012}
0x4972…497c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x001c}
0x497c…499e Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x002f, t01=0x0026}
0x499e…49c4 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x002f, t01=0x0048}
0x49c4…49ea Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x002f, t01=0x006e}
0x49ea…4a18 Head {h00=0x002a, h01=0x0050, text=» RB TP405 SEND LIFT TO TOP AND RELEAS «, t00=0x002f, t01=0x0094}
0x4a18…4a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c2}
0x4a22…4a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00cc}
0x4a2c…4a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00d6}
0x4a36…4a58 Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x002f, t01=0x00e0}
0x4a58…4a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0102}
0x4a62…4a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x010c}
0x4a6c…4a94 Head {h00=0x0024, h01=0x0050, text=»PRB110 ANK A2,VOIN VOUCHER IN ? «, t00=0x002f, t01=0x0116}
0x4a94…4aa8 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x002f, t01=0x013e}
0x4aa8…4ad4 Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP01 ERROR .VOUCHER NOT IN «, t00=0x002f, t01=0x0152}
0x4ad4…4ae0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x017e}
0x4ae0…4af4 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x002f, t01=0x018a}
0x4af4…4b08 Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x0030, t01=0x000e}
0x4b08…4b14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0022}
0x4b14…4b3c Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 COPY REQUESTED LENGTH«, t00=0x0030, t01=0x002e}
0x4b3c…4b58 Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 R.L. < 3? «, t00=0x0030, t01=0x0056}
0x4b58…4b80 Head {h00=0x0024, h01=0x0050, text=» RF(N) PRB200 YES: NO TABULATION«, t00=0x0030, t01=0x0072}
0x4b80…4b94 Head {h00=0x0010, h01=0x0050, text=» LDK A1,TAB «, t00=0x0030, t01=0x009a}
0x4b94…4bb4 Head {h00=0x001c, h01=0x0050, text=» CC A1,-2,A3 TABULATION?«, t00=0x0030, t01=0x00ae}
0x4bb4…4bce Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x0030, t01=0x00ce}
0x4bce…4bdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00e8}
0x4bdc…4be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00f6}
0x4be6…4bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0100}
0x4bf0…4c28 Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x0030, t01=0x010a}
0x4c28…4c68 Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x0030, t01=0x0142}
0x4c68…4c8a Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x0030, t01=0x0182}
0x4c8a…4c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0014}
0x4c94…4c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x001e}
0x4c9e…4cca Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,RPH DETACH PRINT HEAD «, t00=0x0031, t01=0x0028}
0x4cca…4cec Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x0031, t01=0x0054}
0x4cec…4d1c Head {h00=0x002c, h01=0x0050, text=»PRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR «, t00=0x0031, t01=0x0076}
0x4d1c…4d44 Head {h00=0x0024, h01=0x0050, text=» LCR A1,A3 GET 2ND TAB POS CHAR «, t00=0x0031, t01=0x00a6}
0x4d44…4d60 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x0031, t01=0x00ce}
0x4d60…4d72 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0031, t01=0x00ea}
0x4d72…4d92 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/F0 LINE DECADE «, t00=0x0031, t01=0x00fc}
0x4d92…4db8 Head {h00=0x0022, h01=0x0050, text=» ORR A1,A2 DECIMAL LINE NUMBER«, t00=0x0031, t01=0x011c}
0x4db8…4de0 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x0031, t01=0x0142}
0x4de0…4e12 Head {h00=0x002e, h01=0x0050, text=»PRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0031, t01=0x016a}
0x4e12…4e48 Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. «, t00=0x0032, t01=0x000c}
0x4e48…4e64 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x0032, t01=0x0042}
0x4e64…4e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x005e}
0x4e6e…4e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0068}
0x4e78…4e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0072}
0x4e82…4ea0 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x0032, t01=0x007c}
0x4ea0…4ecc Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x0032, t01=0x009a}
0x4ecc…4ede Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x0032, t01=0x00c6}
0x4ede…4ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00d8}
0x4ee8…4ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e2}
0x4ef2…4efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ec}
0x4efc…4f2e Head {h00=0x002e, h01=0x0050, text=»PRB125 SUK A4,2 DECREMENT REQUESTED LENGTH«, t00=0x0032, t01=0x00f6}
0x4f2e…4f58 Head {h00=0x0026, h01=0x0050, text=» SUK A3,2 DECREMENT BUFFER ADDRESS«, t00=0x0032, t01=0x0128}
0x4f58…4f72 Head {h00=0x0016, h01=0x0050, text=» LDK A2,APH ATTACH«, t00=0x0032, t01=0x0152}
0x4f72…4f90 Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x0032, t01=0x016c}
0x4f90…4f9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x018a}
0x4f9e…4fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0008}
0x4fa8…4fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0012}
0x4fb2…4fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x001c}
0x4fbc…4ff2 Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x0033, t01=0x0026}
0x4ff2…500e Head {h00=0x0018, h01=0x0050, text=»* - ROOMLESS POINT«, t00=0x0033, t01=0x005c}
0x500e…502e Head {h00=0x001c, h01=0x0050, text=»* - ILLEGAL CHARACTER «, t00=0x0033, t01=0x0078}
0x502e…5058 Head {h00=0x0026, h01=0x0050, text=»* - SPECIAL CHARACTER (/13,/14) «, t00=0x0033, t01=0x0098}
0x5058…5062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c2}
0x5062…5076 Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x0033, t01=0x00cc}
0x5076…50a4 Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x0033, t01=0x00e0}
0x50a4…50ca Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x0033, t01=0x010e}
0x50ca…50e4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x0033, t01=0x0134}
0x50e4…510e Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER POINTER«, t00=0x0033, t01=0x014e}
0x510e…5120 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x0178}
0x5120…5148 Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x0033, t01=0x018a}
0x5148…5160 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x0034, t01=0x0022}
0x5160…518a Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x0034, t01=0x003a}
0x518a…5194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0064}
0x5194…519e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x006e}
0x519e…51a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0078}
0x51a8…51d8 Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x0034, t01=0x0082}
0x51d8…51f2 Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB225 YES «, t00=0x0034, t01=0x00b2}
0x51f2…5222 Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x0034, t01=0x00cc}
0x5222…523c Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x0034, t01=0x00fc}
0x523c…5246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0116}
0x5246…5250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0120}
0x5250…5264 Head {h00=0x0010, h01=0x0050, text=»PRB225 EQU *«, t00=0x0034, t01=0x012a}
0x5264…5278 Head {h00=0x0010, h01=0x0050, text=» IFT CHR13=1«, t00=0x0034, t01=0x013e}
0x5278…52a2 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x0034, t01=0x0152}
0x52a2…52bc Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0034, t01=0x017c}
0x52bc…52c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0008}
0x52c8…52dc Head {h00=0x0010, h01=0x0050, text=» IFT CHR14=1«, t00=0x0035, t01=0x0014}
0x52dc…5306 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x0035, t01=0x0028}
0x5306…5320 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x0035, t01=0x0052}
0x5320…532c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x006c}
0x532c…5336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0078}
0x5336…535c Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x0035, t01=0x0082}
0x535c…538a Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 STORE IN RETURN CODE «, t00=0x0035, t01=0x00a8}
0x538a…53ac Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0035, t01=0x00d6}
0x53ac…53c0 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0035, t01=0x00f8}
0x53c0…53d2 Head {h00=0x000e, h01=0x0050, text=» RF PRB245«, t00=0x0035, t01=0x010c}
0x53d2…53dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x011e}
0x53dc…53e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0128}
0x53e6…53f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0132}
0x53f0…5422 Head {h00=0x002e, h01=0x0050, text=»PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0035, t01=0x013c}
0x5422…544a Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x0035, t01=0x016e}
0x544a…5474 Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x0036, t01=0x0008}
0x5474…54a4 Head {h00=0x002c, h01=0x0050, text=»PRB245 SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x0036, t01=0x0032}
0x54a4…54b6 Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x0036, t01=0x0062}
0x54b6…54c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0074}
0x54c0…54ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x007e}
0x54ca…54d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0088}
0x54d4…54e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0092}
0x54e2…54ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00a0}
0x54ec…5500 Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x0036, t01=0x00aa}
0x5500…550a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00be}
0x550a…553e Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0036, t01=0x00c8}
0x553e…5548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00fc}
0x5548…5552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0106}
0x5552…555c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0110}
0x555c…556e Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x0036, t01=0x011a}
0x556e…5590 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x0036, t01=0x012c}
0x5590…55ae Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP10 NOT BUSY«, t00=0x0036, t01=0x014e}
0x55ae…55bc Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0036, t01=0x016c}
0x55bc…55ca Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0036, t01=0x017a}
0x55ca…55ec Head {h00=0x001e, h01=0x0050, text=» CWK A7,2 TEST STATUS ? =1«, t00=0x0036, t01=0x0188}
0x55ec…560a Head {h00=0x001a, h01=0x0050, text=» RF(NG) IHTP20 YES =1 «, t00=0x0037, t01=0x001a}
0x560a…563a Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT«, t00=0x0037, t01=0x0038}
0x563a…5648 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0037, t01=0x0068}
0x5648…565e Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=0 «, t00=0x0037, t01=0x0076}
0x565e…568c Head {h00=0x002a, h01=0x0050, text=» RF(NZ) RCTP10 YES GO TO DISPATCHER =1«, t00=0x0037, t01=0x008c}
0x568c…5698 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00ba}
0x5698…56ae Head {h00=0x0012, h01=0x0050, text=» IFT RELEND=1 «, t00=0x0037, t01=0x00c6}
0x56ae…56da Head {h00=0x0028, h01=0x0050, text=» RF(NZ) IHTP30 YES FINISH REQUEST =1«, t00=0x0037, t01=0x00dc}
0x56da…56e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0108}
0x56e6…5722 Head {h00=0x0038, h01=0x0050, text=»IHTP10 ABL LDREG NO RETURN CODE RESTORE REGISTER =1 «, t00=0x0037, t01=0x0114}
0x5722…573a Head {h00=0x0014, h01=0x0050, text=»IHTP20 LDR A1,A1«, t00=0x0037, t01=0x0150}
0x573a…576a Head {h00=0x002c, h01=0x0050, text=» RB(Z) IHTP10 TEST ORDER AND TIME OUT =1«, t00=0x0037, t01=0x0168}
0x576a…577e Head {h00=0x0010, h01=0x0050, text=»IHTP30 EQU *«, t00=0x0038, t01=0x0008}
0x577e…5790 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0038, t01=0x001c}
0x5790…579a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x002e}
0x579a…57a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0038}
0x57a4…57ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0042}
0x57ae…57bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x004c}
0x57bc…57c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x005a}
0x57c6…57da Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x0038, t01=0x0064}
0x57da…57e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0078}
0x57e4…5826 Head {h00=0x003e, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON«, t00=0x0038, t01=0x0082}
0x5826…5830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c4}
0x5830…5842 Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x0038, t01=0x00ce}
0x5842…5858 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0038, t01=0x00e0}
0x5858…5882 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0038, t01=0x00f6}
0x5882…588e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0120}
0x588e…5898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x012c}
0x5898…58ae Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0038, t01=0x0136}
0x58ae…58d4 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0038, t01=0x014c}
0x58d4…58e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0172}
0x58e0…58ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x017e}
0x58ea…5914 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/7FFF IND DEVICE BUSY =3 «, t00=0x0038, t01=0x0188}
0x5914…5930 Head {h00=0x0018, h01=0x0050, text=» ANS A2,DWTST,A6 =3«, t00=0x0039, t01=0x0022}
0x5930…594c Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTECB,A6 =3«, t00=0x0039, t01=0x003e}
0x594c…5978 Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP05 REQUEST NOT RUNNING =3«, t00=0x0039, t01=0x005a}
0x5978…5982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0086}
0x5982…59aa Head {h00=0x0024, h01=0x0050, text=»RCTP01 LDKL A5,DWTSB2 STACK BASE«, t00=0x0039, t01=0x0090}
0x59aa…59bc Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0039, t01=0x00b8}
0x59bc…59fc Head {h00=0x003c, h01=0x0050, text=» LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x0039, t01=0x00ca}
0x59fc…5a1c Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0039, t01=0x010a}
0x5a1c…5a30 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0039, t01=0x012a}
0x5a30…5a52 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 STATUS CHANGE ?«, t00=0x0039, t01=0x013e}
0x5a52…5a68 Head {h00=0x0012, h01=0x0050, text=» ABL(NE) TP645«, t00=0x0039, t01=0x0160}
0x5a68…5a74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0176}
0x5a74…5a88 Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x0039, t01=0x0182}
0x5a88…5a9a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003a, t01=0x0008}
0x5a9a…5ad0 Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x003a, t01=0x001a}
0x5ad0…5af0 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003a, t01=0x0050}
0x5af0…5b06 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003a, t01=0x0070}
0x5b06…5b22 Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTECB,A6 =3«, t00=0x003a, t01=0x0086}
0x5b22…5b4c Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RCTP07 REQUEST RUNNING =3 «, t00=0x003a, t01=0x00a2}
0x5b4c…5b80 Head {h00=0x0030, h01=0x0050, text=» LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3«, t00=0x003a, t01=0x00cc}
0x5b80…5b9a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =3 «, t00=0x003a, t01=0x0100}
0x5b9a…5bb2 Head {h00=0x0014, h01=0x0050, text=» ABL DISEND =3 «, t00=0x003a, t01=0x011a}
0x5bb2…5bca Head {h00=0x0014, h01=0x0050, text=»RCTP07 EQU * =3«, t00=0x003a, t01=0x0132}
0x5bca…5bde Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x003a, t01=0x014a}
0x5bde…5c04 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/80 INDICATE POWER OFF«, t00=0x003a, t01=0x015e}
0x5c04…5c28 Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x003a, t01=0x0184}
0x5c28…5c34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0018}
0x5c34…5c52 Head {h00=0x001a, h01=0x0050, text=» LDK A4,1 IND RECOVERY«, t00=0x003b, t01=0x0024}
0x5c52…5c80 Head {h00=0x002a, h01=0x0050, text=» ABL ACT005 START RECOVERY OF PRINTER «, t00=0x003b, t01=0x0042}
0x5c80…5caa Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL TDISP GO TO DISPATCHER «, t00=0x003b, t01=0x0070}
0x5caa…5cb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x009a}
0x5cb8…5cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00a8}
0x5cc2…5cda Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x003b, t01=0x00b2}
0x5cda…5ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ca}
0x5ce4…5d1c Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x003b, t01=0x00d4}
0x5d1c…5d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x010c}
0x5d26…5d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0116}
0x5d30…5d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0120}
0x5d3a…5d6c Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 «, t00=0x003b, t01=0x012a}
0x5d6c…5d86 Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x003b, t01=0x015c}
0x5d86…5da0 Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x003b, t01=0x0176}
0x5da0…5dc0 Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x003b, t01=0x0190}
0x5dc0…5dd4 Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x003c, t01=0x0020}
0x5dd4…5dfa Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x003c, t01=0x0034}
0x5dfa…5e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x005a}
0x5e04…5e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0064}
0x5e0e…5e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x006e}
0x5e18…5e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0078}
0x5e22…5e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0082}
0x5e2c…5e42 Head {h00=0x0012, h01=0x0050, text=»* G R A S P «, t00=0x003c, t01=0x008c}
0x5e42…5e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a2}
0x5e4c…5e84 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK«, t00=0x003c, t01=0x00ac}
0x5e84…5e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00e4}
0x5e8e…5e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ee}
0x5e98…5eac Head {h00=0x0010, h01=0x0050, text=»GRASPA EQU *«, t00=0x003c, t01=0x00f8}
0x5eac…5ecc Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003c, t01=0x010c}
0x5ecc…5ee6 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003c, t01=0x012c}
0x5ee6…5f06 Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003c, t01=0x0146}
0x5f06…5f1c Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003c, t01=0x0166}
0x5f1c…5f30 Head {h00=0x0010, h01=0x0050, text=»GRASP EQU * «, t00=0x003c, t01=0x017c}
0x5f30…5f42 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003c, t01=0x0190}
0x5f42…5f5c Head {h00=0x0016, h01=0x0050, text=» LDK A2,GRA GRASP «, t00=0x003d, t01=0x0012}
0x5f5c…5f72 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x002c}
0x5f72…5f94 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x003d, t01=0x0042}
0x5f94…5fae Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GRAS10 YES«, t00=0x003d, t01=0x0064}
0x5fae…5fce Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETB SEND ETB =2 «, t00=0x003d, t01=0x007e}
0x5fce…5fe8 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003d, t01=0x009e}
0x5fe8…600e Head {h00=0x0022, h01=0x0050, text=» LDK A2,TETX DUMMY AFTER GRASP«, t00=0x003d, t01=0x00b8}
0x600e…6024 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x00de}
0x6024…6044 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003d, t01=0x00f4}
0x6044…605e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003d, t01=0x0114}
0x605e…607e Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003d, t01=0x012e}
0x607e…6094 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003d, t01=0x014e}
0x6094…60a4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003d, t01=0x0164}
0x60a4…60c2 Head {h00=0x001a, h01=0x0050, text=»GRAS10 LC A3,DWTALN,A6«, t00=0x003d, t01=0x0174}
0x60c2…60d2 (62, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003e, t01=0x0004}
0x60d2…60dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0014}
0x60dc…60e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x001e}
0x60e6…60f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0028}
0x60f4…60fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0036}
0x60fe…6108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0040}
0x6108…6120 Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x003e, t01=0x004a}
0x6120…612a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0062}
0x612a…6160 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x003e, t01=0x006c}
0x6160…616a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a2}
0x616a…6174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ac}
0x6174…617e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00b6}
0x617e…6192 Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x003e, t01=0x00c0}
0x6192…61a4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003e, t01=0x00d4}
0x61a4…61d8 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0«, t00=0x003e, t01=0x00e6}
0x61d8…6204 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,BUF5 LIFT TO TOP AND RELEAS«, t00=0x003e, t01=0x011a}
0x6204…6224 Head {h00=0x001c, h01=0x0050, text=» LDK A2,STX SEND STX =2 «, t00=0x003e, t01=0x0146}
0x6224…623e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x003e, t01=0x0166}
0x623e…625e Head {h00=0x001c, h01=0x0050, text=» LDK A2,LFF LIFT TO TOP «, t00=0x003e, t01=0x0180}
0x625e…6274 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003f, t01=0x0010}
0x6274…6296 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x003f, t01=0x0026}
0x6296…62ac Head {h00=0x0012, h01=0x0050, text=» RF(Z) BUFRTN «, t00=0x003f, t01=0x0048}
0x62ac…62b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x005e}
0x62b6…62ce Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x003f, t01=0x0068}
0x62ce…62d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0080}
0x62d8…6318 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x003f, t01=0x008a}
0x6318…6344 Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x003f, t01=0x00ca}
0x6344…634e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f6}
0x634e…6358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0100}
0x6358…6390 Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x003f, t01=0x010a}
0x6390…63a8 Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x003f, t01=0x0142}
0x63a8…63d8 Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x003f, t01=0x015a}
0x63d8…6400 Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x003f, t01=0x018a}
0x6400…6424 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0040, t01=0x0022}
0x6424…6448 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0040, t01=0x0046}
0x6448…6472 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x0040, t01=0x006a}
0x6472…6486 Head {h00=0x0010, h01=0x0050, text=»BUFRTN EQU *«, t00=0x0040, t01=0x0094}
0x6486…64a6 Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x0040, t01=0x00a8}
0x64a6…64b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00c8}
0x64b0…64ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d2}
0x64ba…64c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00dc}
0x64c4…64ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00e6}
0x64ce…64d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00f0}
0x64d8…64e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00fa}
0x64e2…64ee Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0040, t01=0x0104}
0x64ee…64f2 Head {h00=0x4004, h01=0x0000}
0x64f2…64f6 00 40 01 10 ┆ @ ┆
0x64f6…64fe (65, 1, 8) 20 04 00 00 00 41 00 04 ┆ A ┆
0x64fe…654e (66, 0, 400) 00 61 01 72 00 08 00 50 5c 58 49 46 00 62 00 08 00 06 00 50 2a 20 00 62 00 14 00 12 00 50 5c 49 46 54 5c 52 45 43 48 41 4e 3d 34 20 00 62 00 1e 00 1e 00 50 5c 4c 44 4b 5c 41 37 2c 32 32 5c 49 4e 44 49 43 41 54 45 20 43 48 52 54 34 20 00 62 ┆ a r P XIF b P* b P IFT RECHAN=4 b P LDK A7,22 INDICATE CHRT4 b┆
0x654e…659e 00 34 00 08 00 50 5c 58 49 46 00 62 00 56 00 06 00 50 2a 20 00 62 00 62 00 2a 00 50 43 4c 54 30 31 30 5c 4c 44 5c 41 35 2c 43 48 54 41 42 2c 41 37 5c 47 45 54 20 43 57 54 2d 41 44 44 52 45 53 53 20 00 62 00 6c 00 06 00 50 2a 20 00 62 00 9a ┆ 4 P XIF b V P* b b * PCLT010 LD A5,CHTAB,A7 GET CWT-ADDRESS b l P* b ┆
0x659e…65ee 00 08 00 50 5c 58 49 46 00 62 00 a4 00 06 00 50 2a 20 00 62 00 b0 00 2a 00 50 5c 45 58 5c 43 57 54 49 4e 52 2c 41 35 5c 45 58 45 43 55 54 45 20 49 4e 52 2d 49 4e 53 54 52 55 43 54 49 4f 4e 20 00 62 00 ba 00 06 00 50 2a 20 00 62 00 e8 00 12 ┆ P XIF b P* b * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION b P* b ┆
0x65ee…663e 00 50 5c 49 46 54 5c 4c 4f 47 49 4e 47 3d 31 20 00 62 00 f2 00 06 00 50 2a 20 00 62 01 08 00 34 00 50 43 4c 54 30 31 32 5c 43 46 5c 41 31 35 2c 4c 4f 47 47 5c 2a 2a 20 4c 4f 47 47 20 4f 46 20 49 4e 50 55 54 20 43 48 41 52 41 43 54 45 52 20 ┆ P IFT LOGING=1 b P* b 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ┆
0x663e…668e 2a 2a 00 62 01 12 00 06 00 50 2a 20 00 62 01 4a 00 08 00 50 5c 58 49 46 00 62 01 54 00 0a 00 50 5c 45 4a 45 43 54 00 62 01 60 00 06 00 50 2a 20 00 62 01 6e 00 26 00 50 2a 20 20 20 20 44 45 54 45 52 4d 49 4e 45 20 54 59 50 45 20 4f 46 20 49 ┆** b P* b J P XIF b T P EJECT b ` P* b n & P* DETERMINE TYPE OF I┆
0x668e…66de (67, 0, 400) 4e 54 45 52 52 55 50 54 2e 20 00 62 01 78 00 34 00 50 2a 20 20 20 20 4d 4f 52 45 4f 56 45 52 2c 20 49 46 20 52 45 4d 4f 54 45 2c 20 47 45 54 20 54 48 45 20 52 49 47 48 54 20 43 48 41 4e 4e 45 4c 20 00 63 00 12 00 32 00 50 2a 20 20 20 20 4f ┆NTERRUPT. b x 4 P* MOREOVER, IF REMOTE, GET THE RIGHT CHANNEL c 2 P* O┆
0x66de…672e 46 20 43 48 52 54 20 41 4e 44 20 53 54 41 52 54 20 4f 52 20 52 45 53 54 41 52 54 20 53 59 4e 43 2d 54 49 4d 45 52 2e 20 00 63 00 4a 00 06 00 50 2a 20 00 63 00 80 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 31 30 00 63 00 8a 00 22 00 50 5c 52 46 28 ┆F CHRT AND START OR RESTART SYNC-TIMER. c J P* c P SUK A7,10 c " P RF(┆
0x672e…677e 4e 29 5c 43 4c 54 30 31 38 5c 4c 4f 43 41 4c 20 49 4e 54 45 52 52 55 50 54 20 00 63 00 9c 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 63 00 c2 00 2e 00 50 5c 53 4c 43 5c 41 33 2c 36 5c 52 45 4d 4f 54 45 20 46 49 52 53 54 20 4f 52 20 53 45 ┆N) CLT018 LOCAL INTERRUPT c P LDR A3,A2 c . P SLC A3,6 REMOTE FIRST OR SE┆
0x677e…67ce 43 4f 4e 44 20 43 48 41 4e 4e 45 4c 20 3f 00 63 00 d4 00 18 00 50 5c 52 46 28 4e 4e 29 5c 43 4c 54 30 31 35 5c 46 49 52 53 54 00 63 01 06 00 3e 00 50 5c 4c 44 5c 41 35 2c 43 48 54 41 42 2b 31 32 2c 41 37 5c 47 45 54 20 43 57 54 2d 41 44 44 ┆COND CHANNEL ? c P RF(NN) CLT015 FIRST c > P LD A5,CHTAB+12,A7 GET CWT-ADD┆
0x67ce…681e 52 45 53 53 20 53 45 43 4f 4e 44 20 43 48 41 4e 4e 45 4c 20 4f 46 20 43 48 52 54 20 00 63 01 22 00 34 00 50 43 4c 54 30 31 35 5c 43 46 5c 41 31 35 2c 52 45 53 54 53 59 5c 53 54 41 52 54 20 4f 52 20 52 45 53 54 41 52 54 20 53 59 4e 43 2d 54 ┆RESS SECOND CHANNEL OF CHRT c " 4 PCLT015 CF A15,RESTSY START OR RESTART SYNC-T┆
0x681e…686e (68, 0, 400) 49 4d 45 52 00 63 01 64 00 2a 00 50 5c 41 4e 4b 5c 41 33 2c 2f 32 5c 46 49 52 53 54 20 4f 52 20 53 45 43 4f 4e 44 20 54 45 52 4d 49 4e 41 4c 20 3f 20 00 64 00 0c 00 0e 00 50 5c 4c 44 52 5c 41 37 2c 41 35 00 64 00 3a 00 0e 00 50 5c 41 44 52 ┆IMER c d * P ANK A3,/2 FIRST OR SECOND TERMINAL ? d P LDR A7,A5 d : P ADR┆
0x686e…68be 5c 41 37 2c 41 33 00 64 00 4c 00 26 00 50 5c 4c 44 5c 41 33 2c 43 57 54 52 53 54 2c 41 35 5c 4c 4f 4f 50 20 54 45 53 54 20 4d 4f 44 45 20 3f 20 00 64 00 5e 00 16 00 50 5c 41 42 4c 28 4e 29 5c 43 4c 54 31 37 30 5c 59 45 53 00 64 00 88 00 26 ┆ A7,A3 d L & P LD A3,CWTRST,A5 LOOP TEST MODE ? d ^ P ABL(N) CLT170 YES d &┆
0x68be…690e 00 50 43 4c 54 30 31 38 5c 4c 44 4b 5c 41 31 2c 30 5c 52 45 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 64 00 a2 00 28 00 50 5c 4c 44 52 5c 41 33 2c 41 32 5c 44 41 54 41 20 52 45 51 55 45 53 54 20 49 4d 4d 45 44 49 41 54 45 20 3f 20 ┆ PCLT018 LDK A1,0 RESET RETURN CODE d ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? ┆
0x690e…695e 00 64 00 cc 00 12 00 50 5c 52 46 28 4e 29 5c 43 4c 54 30 35 30 20 00 64 00 f8 00 24 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 37 30 30 30 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 3f 20 00 64 01 0e 00 28 00 50 5c 41 42 4c 28 4e 45 29 5c 43 ┆ d P RF(N) CLT050 d $ P ANKL A3,/7000 DEVICE ADDRESS ? d ( P ABL(NE) C┆
0x695e…69ae 4c 54 31 30 30 5c 59 45 53 2c 20 44 49 4e 2c 20 53 54 44 20 4f 52 20 44 52 44 00 64 01 36 00 0a 00 50 5c 45 4a 45 43 54 00 64 01 62 00 06 00 50 2a 20 00 64 01 70 00 06 00 50 2a 20 00 64 01 7a 00 2c 00 50 2a 20 20 20 20 44 45 54 45 52 4d 49 ┆LT100 YES, DIN, STD OR DRD d 6 P EJECT d b P* d p P* d z , P* DETERMI┆