|
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: 20492 (0x500c)
Notes: pts_type(SC)
Names: »DRTP01.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DRTP01.SC«
IDENT DRTP01 REL 8.2 78-09-15 870105040820 * ******************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRTP01 = 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 FROM BINARY TO DECIMAL * * B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST * CHARACTER IN OUTPUT BUFFER * EJECT * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00 : TEST STATUS * ORDER 06 : WRITE JOURNAL * ORDER 07 : WRITE TALLY ROLL * ORDER 08 : WRITE VOUCHER/PASSBOOK * * * 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: * * ORDER 07 (PTS 6223) * CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) * ACCAPTANCE OF SPECIAL CHARACTER /13,/14 * * * THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED * IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET * * EJECT * *********** * ENTRIES * *********** * ENTRY TPAD ADDRESS BLOCK * ************* * EXTERNALS * ************* * EXTRN TDISP DISPATCHING FROM INTERRUPT EXTRN DISIOE DISPATCH I/O ERROR EXTRN DISEND END I/O AND DISPATCH EXTRN TENDIO END I/O EXTRN OUTPUT OUTPUT ONE CHARACTER EXTRN LDREG RESTORE REGISTERS EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT EXTRN SAVE8 SAVE REG. A1-A8 * * DISPLACMENT IN DEVICE WORK TABLE DWT * EXTRN DWTST STATUS WORD EXTRN DWTECB ECB-ADDRESS EXTRN DWTOR ORDER EJECT * * ************* * CONSTANTS * ************* * * CCERR EQU /4 RETURN CODE. CODE CHECK ERROR PROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE VOCHIN EQU /200 RETURN CODE. VOUCHER IN THRPUT EQU /2 THROUGHPUT ERROR * * VOIN EQU /8 VOUCHER IN BIT IN DATA-REQUEST EOJT EQU /4 END OF JOURNALTAPE BIT IN DATA-REQ. STX EQU /82 START OF TEXT BLOCK ETB EQU /97 END OF TEXT BLOCK ETX EQU /03 LAST DUMMY * * ********************* * DWT-DISPLACEMENTS * ********************* * DWTBC EQU /3 BYTE COUNTER DWTSB2 EQU /1E STACK BASE DWTRLN EQU /22 REQUESTED LINE NUMBER DWTALN EQU /23 ACTUAL LINE NUMBER * EJECT ************************ * CONDITIONAL ASSEMBLY * ************************ * * ORDER 07, PRINT TALLY ROLL, MAY BE EXCLUDED FOR PTS 6223 * BY SETTING X:A=0 * X:A EQU 1 ORD7 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 TRETON EQU X:C * X:D EQU 0 FJOTON EQU X:D * * ORDER 08,PRINT VOUCHER/PASSBOOK,IS COMPLETED IF * PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 * X:E EQU 0 COMPL EQU X:E * * INDICATION OF RECOVERY EXECUTED ON REQUEST CAN * BE INCLUDED IN THE DRIVER BY SETTING X:F = 1 * X:F EQU 0 RECOVY EQU X:F * IN SITUATIONS WHERE THE SELECTOR UNIT OR PRINTER HARDWARE * IS INACTIVE, END OF REQUEST WITH RETURN CODE NOT OPERABLE * CAN BE CHOSEN BY SETTING THE CONSTANT RECEND = 1 X:G EQU 0 RECEND EQU X:G EJECT * *********** * BUFFERS * *********** * * BUF1 DATA /0382,/0D1D CR1, ATTACH PRINT HEAD BUF3 DATA /0382,/091D CR2, ATTACH PRINT HEAD * * BUF4 CONTAINS FOLLOWING ORDERS: * CR2,LIFT TO TOP,GRASP,LIFT TO TOP * * BUF4 DATA /0700,/2009,/0C1A,/830C BUF5 DATA /030C,/1B83 LIFT TO TOP AND RELASE * * * ********** * TABLES * ********** * * TPAD EQU * ADDRESS BLOCK DATA ACTP ACTIVATIONDRIVER DATA IHTP INTERRUPTHANDLER DATA RCTP RECOVERY ROUTINE * * TABLE TO GET ROOMLESS POINT * ROMTAB EQU * DATA /2122,/2426,/3B3C,/3E40,/5E5F * * TABLE TO GET ACTUAL LF-CHARACTER * * LFTAB EQU * DATA /1819 LINE FEED JOURNAL/TALLY ROLL * * * TABLE TO GET ACTUAL CR-CHARACTER FOR JOURNAL AND VOUCHER/PASSBOOK * * HPTAB EQU * DATA /0D09 DATA /0009 DATA /0D00 * * IFT CUTPER=1 CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE XIF 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 * * LDR A7,A7 ORDER /00 ? RF(Z) TPDUMY YES ACTP01 LDR A4,A7 GET ORDER SUK A4,8 CHECK ORDER RF(P) ACT020 ILLEGAL ORDER RF(E) ACT010 ORDER 08 ADK A4,2 ILLEGAL ORDER ? IFT ORD7=1 RF(NN) TP100 NO XIF IFT ORD7=0 RF(Z) TP100 XIF ACT020 ABL DISIOE ILLEGAL ORDER EJECT * * * ORDER 08 : WRITE VOUCHER/PASSBOOK * GET REQUESTED LINE NUMBER AND SAVE IN DWT * * ACT010 LD A1,2,A8 BUFFER ADDRESS LCR A4,A1 GET FIRST CHARACTER LC A1,1,A1 GET SECOND CHARACTER ANK A1,/F LINE UNIT SLL A4,4 ANK A4,/F0 LINE DECADE ORR A1,A4 DECIMAL LINE NUMBER CF A5,BCDTBY CONVERT TO BINARY LDR A3,A1 LD A2,10,A8 GET CONTROL WORD SLL A2,3 LINE NUMBER RELATIVE OR ABSOLUTE ? RF(NN) ACT018 ABSOLUTE LC A3,DWTRLN,A6 GET LINE NUMBER * * SLL A2,1 RELATIVE. LIFT UP OR DOWN ? RF(NN) ACT015 LIFT DOWN SUR A3,A1 LIFT UP RF(NN) ACT018 LDK A3,0 RF ACT018 * * ACT015 ADR A3,A1 LIFT DOWN * * ACT018 SC A3,DWTRLN,A6 SAVE REQUESTED LINE NUMBER IN DWT EJECT TP100 EQU * LDK A2,0 SC A2,DWTBC,A6 RESET BYTE COUNTER CF A5,OUTPUT SEND DUMMY * * * CHECK IF REQUESTED LENGTH IS EQUAL TO TWO FOR * ORDERS 06 AND 07. * TP110 EQU * LD A3,4,A8 GET REQUESTED LENGTH LDR A4,A7 SAVE ORDER IN A4 RF(Z) TPDUMY ORDER /00 LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD SUK A4,8 ORDER 08 ? RF(Z) TP600 YES GO TO ORDER PROCESSING ANK A1,/4 RF(NE) TPHP TEXT MESSAGE WRITTEN ? SUK A3,2 REQ. LENGTH =2 ? RF(NP) TPLF10 SEND LINE FEED DIRECT * * IFT ORD7=1 SUK A7,7 ORDER 07 RF(Z) TP400 GO TO ORDER PROCESSING ORDER 07 ELSE ORDER PROCESSING ORDER 06 XIF EJECT * * * * ORDER 06 : PRINT JOURNAL * * * TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH TP210 CF A5,BUFCHR -"- CF A5,PRBUF PRINT ECB-BUFFER EJECT * * * SEND LINE FEED ORDERS 06 AND 07 * TPLF EQU * LDK A2,/1E DETACH PRINT HEAD CF A5,OUTPUT TPLF10 EQU * * * POSITION PRINT HEAD ACCORDING TO HP-PARAMETER * IN CONTROL WORD. * TPHP EQU * LD A1,4,A8 GET REQUESTED LENGTH ST A1,6,A8 SAVE EFFECTIVE LENGTH LD A1,10,A8 GET CONTROL WORD SRL A1,14 HP-PARAMETER IN A1 SUK A7,6 ORDER 06 ? RF(Z) TPHP10 YES ADK A1,3 NO MODIFY INDEX TPHP10 LC A2,HPTAB,A1 LOAD CR-CHARACTER CF A5,OUTPUT AND SEND IT LD A7,DWTOR,A6 GET ORDER ANK A7,/FF SUK A7,8 ORDER 8 ? RF(E) TPDUMY ADK A7,2 LC A2,LFTAB,A7 GET LF CHARACTER CF A5,OUTPUT AND SEND IT EJECT TPHP20 EQU * * IFT CUTPER=1 LD A1,10,A8 GET CONTROL WORD ECR A1,A1 ANK A1,3 CUT/PERFORATE ? RF(Z) TPDUMY POSITION PRINT HEAD LC A2,CPTAB-1,A1 GET CUT/PERFORATE CODE CF A5,OUTPUT XIF EJECT * * * COMMON END OF PRINT * * * SEND LAST DUMMY CHARACTER * TPDUMY EQU * LDK A2,ETX END OF TEXT MESSAGE CF A5,OUTPUT EJECT * * * CHECK STATUS AFTER LAST DUMMY CHARACTER * TPTST EQU * LDR A7,A7 ORDER 00 ? RF(NZ) TST010 NO TST005 LDR A3,A2 ANK A3,VOIN VOUCHER IN ? RF(Z) TST010 NO ORKL A1,VOCHIN SET RETURN CODE TST010 ANK A2,EOJT END OF JOURNAL TAPE ? RF(NZ) ENDIO NO PERFORM ENDIO ORK A1,PROUT SET RETURN CODE PAPER OUT * * * PERFORM END I/O AND GO TO DISPATCHER * ENDIO EQU * ABL DISEND PERFORM END I/O AND GO TO DISPATCHER * * * * IFT ORD7=1 EJECT * * * * ORDER 07 : PRINT TALLY ROLL * * * TP400 ANK A2,VOIN VOUCHER IN ? RF(Z) TP410 NO TP405 CF A5,RELEAS ERROR. VOUCHER IN * TP410 EQU * LDKL A1,/200 ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED LDKL A3,BUF3 SEND CR2, ATTACH AND PRINT BUFFER RB TP210 * * * XIF EJECT * * * * ORDER 08 : PRINT VOUCHER PASSBOOK * * * TP600 EQU * ANK A1,/4 RF(NE) TP700 TEXT ALREADY PRINTED LDK A2,/09 CR2 CF A5,OUTPUT SEND CHARACTER LD A1,10,A8 GET CONTROL WORD SLL A1,2 RELEASE ? RF(NN) TP602 NO SUK A3,2 REQUESTED LENGTH = 2 ? RF(Z) TP710 YES RELEASE TP602 EQU * ANK A2,VOIN VOUCHER IN ? RF(Z) TP605 NO SLL A1,1 DISPLACEMENT RF(N) TP610 YES TP605 LDKL A3,BUF4 CF A5,BUFCHR SEND LDK A3,0 RF TP620 EJECT * * SEND ELEVATOR UP/DOWN UNTIL ACTUAL LINE NUMBER IS EQUEAL * TO REQUESTED * TP610 LC A3,DWTALN,A6 GET ACTUAL LINE NUMBER ANK A3,/FF ACTUAL LINE NUMBER TP620 CC A3,DWTRLN,A6 COMPARE LINE NUMBERS RF(E) TP650 EQUEAL RF(G) TP630 SEND ELEVATOR UP * LDK A2,/0B SEND ELEVATOR DOWN ADK A3,1 INCREMENT ACTUAL LINE NUMBER RF TP640 SEND LIFT CHAR. * TP630 LDK A2,/0A SEND LIFT UP SUK A3,1 DECREMENT ACTUAL LUNE 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 ERROR. RECOVERY RB TP620 CHECK IF LIFT POSITIONED XIF IFT COMPL=1 RB(NZ) TP620 CHECK IF LIFT IS POSITIONED TP645 LDK A1,THRPUT VOUCHER OUT/SHOULD BE IN ORS A1,8,A8 INDICATE IN RETURN CODE RB TPDUMY XIF EJECT * * ORDER 08: ATTACH AND PRINT TP650 EQU * LDK A2,0 SEND DUMMY TO LET THE CF A5,OUTPUT LIFT SETTLE LD A3,4,A8 GET REQUESTED LENGTH SUK A3,2 GET NUMBER OF CHAR. RF(Z) TP700 ALL LDK A2,STX CF A5,OUTPUT START OF MESSAGE LD A3,2,A8 GET BUFFER ADDRESS ADK A3,2 LCR A1,A3 GET FIRST CHARACTER CCK A1,/1111 TABULATION ? RF(E) TP690 LDK A2,/1D ATTACH CF A5,OUTPUT SEND TP690 EQU * IFT CUTPER=1 LDK A2,/20 CF A5,OUTPUT SEND SPACE BEFORE PRINT XIF LDKL A1,/200 ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED CF A5,PRBUF PRINT ECB-BUFFER EJECT * * ORDER 08: RETURN AFTER PRINT * TP700 EQU * LD A1,10,A8 GET CONTROL WORD SLL A1,2 RELEASE ? RF(NN) TP715 TP710 EQU * CF A5,RELEAS RELEASE TP715 ABL TPLF EJECT * * P R B U F * * SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED * LENGTH IS REACHED * * PRBUF LD A4,4,A8 GET REQUESTED LENGTH SUK A4,2 ADJUST REQUESTED LENGTH LD A3,2,A8 BUFFER ADDRESS ADK A3,2 PRB010 LCR A1,A3 GET CHARACTER CCK A1,/2020 RF(NE) PRB100 NOT BLANK ADK A3,1 BLANK SUK A4,1 RB PRB010 GET NEXT CHARACTER * * PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH RF(NN) PRB105 PRINT BUFFER 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,/400 INDICATE MESSAGE PRINTED ORS A1,DWTST,A6 LDKL A1,/FDFF VOUCHER STATUS CHANGE ALLOWED ANS 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 IFT ORD7=1 * * * * PRINT TALLY ROLL * * * ANK A2,VOIN VOUCHER IN ? RF(Z) PRB200 NO. GO AND PRINT ADK A5,4 RESET STACK POINTER ABL TP400 SEND LIFT TO TOP AND RELEAS * XIF * * * 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 LDK A1,/11 CCR A1,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,/1E DETACH PRINT HEAD CF A5,OUTPUT SEND DETACH PRB117 LD A1,10,A8 GET CONTROL WORD ANK A1,/FF 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 LDK A2,/1D ATTACH RF PRB240 SEND ATTACH EJECT * * * * GET OUTPUT CHARACTER FROM BUFFER. CHECK IF * ILLEGAL CHARACTER OR ROOMLESS POINT * * * PRB200 EQU * PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER CCK A7,/AEAE ROOMLESS POINT ? RF(NE) PRB210 NO SUK A3,1 INCREMENT 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) PRB220 YES PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? RF(NG) PRB230 NO * * PRB220 EQU * IFT TRETON=1 CCK A7,/1313 SPECIAL CHARACTER ? RF(E) PRB230 YES XIF IFT FJOTON=1 CCK A7,/1414 SPECIAL CHARACTER ? RF(E) PRB230 YES XIF LDK A1,CCERR CODE CHECK ERROR ORS A1,8,A8 STORE IN RETURN CODE LD A7,DWTOR,A6 GET ORDER ANK A7,/FF SUR A3,A4 RB PRB100 * * * PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER LDR A2,A7 GET OUTPUT CHARACTER PRB240 CF A5,OUTPUT SEND CHARACTER 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 BUSY LDR A7,A7 ORDER 0 ? RF(Z) IHTP20 LDR A1,A1 RETURN CODE FROM CHANNEL UNIT IHTP10 ABL(Z) LDREG NO RETURN CODE RESTORE REGISTERS IFT RECEND=0 RF RCTP10 ELSE GO TO DISPATCHER XIF IFT RECEND=1 RF IHTP30 XIF IHTP20 LDR A1,A1 ERROR ? ABL(Z) TST005 IHTP30 ABL ENDIO * * * EJECT * * R C T P * * RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT * POWER UP RCTP CF A15,SAVE8 SAVE REG. A1-A8 LD A2,DWTST,A6 GET STATUS RF(N) RCTP05 NOT BUSY RCTP01 EQU * * * LDKL A5,DWTSB2 STACK BASE ADR A5,A6 LDK A2,/01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY CF A5,OUTPUT SEND DUMMY RCTP05 EQU * LDK A2,0 SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER LDK A2,/0C LIFT TO TOP CF A5,OUTPUT IFT COMPL=1 * LDR A4,A4 STATUS CHANGE ? ABL(NE) TP645 XIF IFT RECOVY=1 LDK A2,/80 INDICATE POWER OFF ORS A2,8,A8 SET RETURN CODE XIF ABL TP100 SEND FIRST DUMMY CHARACTER 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 IJ A2 BCDTB1 SUK A2,/10 RF(N) BCDTB2 END SUK A1,6 DECREMENT BY 6 RB BCDTB1 BCDTB2 RTN A5 RETURN TO CALLER * * * EJECT * * * R E L E A S * * SUBROUTINE TO SEND LIFT TO TOP AND RELEASE * * * RELEAS EQU * LDK A1,0 ST A1,DWTRLN,A6 SET ACTUAL AND REQ. LINE NUMBER TO ZERO LDKL A3,BUF5 LIFT TO TOP AND RELEAS * * 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 RTN A5 RETURN TO CALLER * * * * * * END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRTP01 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0088 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x004c}
0x0088…0092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00ba Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0096}
0x00ba…00c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…00f8 Head {h00=0x0030, h01=0x0050, text=»* DRTP01 = DRIVER TELLER TERMINAL PRINTER «, t00=0x0000, t01=0x00c8}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…012a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x012a…0134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012e}
0x0134…0174 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0138}
0x0174…017e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0178}
0x017e…0188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0182}
0x0188…0192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x0192…01d4 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221,«, t00=0x0001, t01=0x0008}
0x01d4…020e Head {h00=0x0036, h01=0x0050, text=»* 6222 OR 6223 CONNECTED TO CPU VIA CHLT OR CHRT«, t00=0x0001, t01=0x004a}
0x020e…0218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0084}
0x0218…0222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008e}
0x0222…025a Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0001, t01=0x0098}
0x025a…0264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d0}
0x0264…028c Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0001, t01=0x00da}
0x028c…0296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x0296…02c0 Head {h00=0x0026, h01=0x0050, text=»* I H T P : INTERRUPT HANDLER «, t00=0x0001, t01=0x010c}
0x02c0…02ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0136}
0x02ca…02f2 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0001, t01=0x0140}
0x02f2…02fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0168}
0x02fc…0306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0172}
0x0306…0340 Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES:«, t00=0x0001, t01=0x017c}
0x0340…034a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0026}
0x034a…0390 Head {h00=0x0042, h01=0x0050, text=»* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM«, t00=0x0002, t01=0x0030}
0x0390…039a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x039a…03d4 Head {h00=0x0036, h01=0x0050, text=»* B C D T B Y : CONVERT FROM BINARY TO DECIMAL«, t00=0x0002, t01=0x0080}
0x03d4…03de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ba}
0x03de…0426 Head {h00=0x0044, h01=0x0050, text=»* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST«, t00=0x0002, t01=0x00c4}
0x0426…044e Head {h00=0x0024, h01=0x0050, text=»* CHARACTER IN OUTPUT BUFFER «, t00=0x0002, t01=0x010c}
0x044e…0458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x0458…0466 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x013e}
0x0466…0470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014c}
0x0470…049e Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x0156}
0x049e…04a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0184}
0x04a8…04cc Head {h00=0x0020, h01=0x0050, text=»* ORDER 00 : TEST STATUS«, t00=0x0002, t01=0x018e}
0x04cc…04f2 Head {h00=0x0022, h01=0x0050, text=»* ORDER 06 : WRITE JOURNAL«, t00=0x0003, t01=0x0022}
0x04f2…051c Head {h00=0x0026, h01=0x0050, text=»* ORDER 07 : WRITE TALLY ROLL «, t00=0x0003, t01=0x0048}
0x051c…054c Head {h00=0x002c, h01=0x0050, text=»* ORDER 08 : WRITE VOUCHER/PASSBOOK «, t00=0x0003, t01=0x0072}
0x054c…0556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a2}
0x0556…0560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x0560…0582 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0003, t01=0x00b6}
0x0582…058c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d8}
0x058c…05b2 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0003, t01=0x00e2}
0x05b2…05d8 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0003, t01=0x0108}
0x05d8…0600 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0003, t01=0x012e}
0x0600…0628 Head {h00=0x0024, h01=0x0050, text=»* A4: OUTPUT COUNTER «, t00=0x0003, t01=0x0156}
0x0628…064e Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0003, t01=0x017e}
0x064e…0672 Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0004, t01=0x0014}
0x0672…0690 Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0004, t01=0x0038}
0x0690…06b4 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0004, t01=0x0056}
0x06b4…06be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06be…06c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0084}
0x06c8…06e6 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0004, t01=0x008e}
0x06e6…06f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ac}
0x06f0…0738 Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN«, t00=0x0004, t01=0x00b6}
0x0738…0750 Head {h00=0x0014, h01=0x0050, text=»* BE EXCLUDED:«, t00=0x0004, t01=0x00fe}
0x0750…075a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075a…077a Head {h00=0x001c, h01=0x0050, text=»* ORDER 07 (PTS 6223)«, t00=0x0004, t01=0x0120}
0x077a…07b2 Head {h00=0x0034, h01=0x0050, text=»* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) «, t00=0x0004, t01=0x0140}
0x07b2…07e6 Head {h00=0x0030, h01=0x0050, text=»* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 «, t00=0x0004, t01=0x0178}
0x07e6…07f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001c}
0x07f0…07fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0026}
0x07fa…083e Head {h00=0x0040, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED«, t00=0x0005, t01=0x0030}
0x083e…0880 Head {h00=0x003e, h01=0x0050, text=»* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET «, t00=0x0005, t01=0x0074}
0x0880…088a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b6}
0x088a…0894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c0}
0x0894…08a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00ca}
0x08a2…08ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d8}
0x08ac…08c0 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x00e2}
0x08c0…08d4 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x00f6}
0x08d4…08e8 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x010a}
0x08e8…08f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011e}
0x08f2…0914 Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD ADDRESS BLOCK «, t00=0x0005, t01=0x0128}
0x0914…091e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014a}
0x091e…0934 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0154}
0x0934…094a Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x016a}
0x094a…0960 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0180}
0x0960…096a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096a…099a Head {h00=0x002c, h01=0x0050, text=» EXTRN TDISP DISPATCHING FROM INTERRUPT «, t00=0x0006, t01=0x0012}
0x099a…09c2 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE DISPATCH I/O ERROR«, t00=0x0006, t01=0x0042}
0x09c2…09ec Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x0006, t01=0x006a}
0x09ec…0a0a Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0006, t01=0x0094}
0x0a0a…0a34 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0006, t01=0x00b2}
0x0a34…0a5a Head {h00=0x0022, h01=0x0050, text=» EXTRN LDREG RESTORE REGISTERS«, t00=0x0006, t01=0x00dc}
0x0a5a…0a96 Head {h00=0x0038, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT «, t00=0x0006, t01=0x0102}
0x0a96…0aba Head {h00=0x0020, h01=0x0050, text=» EXTRN SAVE8 SAVE REG. A1-A8«, t00=0x0006, t01=0x013e}
0x0aba…0ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0162}
0x0ac4…0af6 Head {h00=0x002e, h01=0x0050, text=»* DISPLACMENT IN DEVICE WORK TABLE DWT«, t00=0x0006, t01=0x016c}
0x0af6…0b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000e}
0x0b00…0b20 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST STATUS WORD«, t00=0x0007, t01=0x0018}
0x0b20…0b42 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0007, t01=0x0038}
0x0b42…0b5c Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0007, t01=0x005a}
0x0b5c…0b6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0074}
0x0b6a…0b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0082}
0x0b74…0b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008c}
0x0b7e…0b94 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x0096}
0x0b94…0baa Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0007, t01=0x00ac}
0x0baa…0bc0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00c2}
0x0bc0…0bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d8}
0x0bca…0bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e2}
0x0bd4…0c06 Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x0007, t01=0x00ec}
0x0c06…0c3c Head {h00=0x0032, h01=0x0050, text=»PROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE«, t00=0x0007, t01=0x011e}
0x0c3c…0c6c Head {h00=0x002c, h01=0x0050, text=»VOCHIN EQU /200 RETURN CODE. VOUCHER IN «, t00=0x0007, t01=0x0154}
0x0c6c…0c92 Head {h00=0x0022, h01=0x0050, text=»THRPUT EQU /2 THROUGHPUT ERROR«, t00=0x0007, t01=0x0184}
0x0c92…0c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001a}
0x0c9c…0ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0024}
0x0ca6…0cd8 Head {h00=0x002e, h01=0x0050, text=»VOIN EQU /8 VOUCHER IN BIT IN DATA-REQUEST«, t00=0x0008, t01=0x002e}
0x0cd8…0d10 Head {h00=0x0034, h01=0x0050, text=»EOJT EQU /4 END OF JOURNALTAPE BIT IN DATA-REQ. «, t00=0x0008, t01=0x0060}
0x0d10…0d38 Head {h00=0x0024, h01=0x0050, text=»STX EQU /82 START OF TEXT BLOCK «, t00=0x0008, t01=0x0098}
0x0d38…0d5e Head {h00=0x0022, h01=0x0050, text=»ETB EQU /97 END OF TEXT BLOCK «, t00=0x0008, t01=0x00c0}
0x0d5e…0d7c Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x0008, t01=0x00e6}
0x0d7c…0d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0104}
0x0d86…0d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010e}
0x0d90…0dae Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0118}
0x0dae…0dcc Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0008, t01=0x0136}
0x0dcc…0dea Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0154}
0x0dea…0df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0172}
0x0df4…0e16 Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /3 BYTE COUNTER «, t00=0x0008, t01=0x017c}
0x0e16…0e38 Head {h00=0x001e, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE «, t00=0x0009, t01=0x000e}
0x0e38…0e64 Head {h00=0x0028, h01=0x0050, text=»DWTRLN EQU /22 REQUESTED LINE NUMBER«, t00=0x0009, t01=0x0030}
0x0e64…0e8e Head {h00=0x0026, h01=0x0050, text=»DWTALN EQU /23 ACTUAL LINE NUMBER «, t00=0x0009, t01=0x005c}
0x0e8e…0e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0086}
0x0e98…0ea6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0090}
0x0ea6…0ec6 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x009e}
0x0ec6…0ee6 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0009, t01=0x00be}
0x0ee6…0f06 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x00de}
0x0f06…0f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f10…0f54 Head {h00=0x0040, h01=0x0050, text=»* ORDER 07, PRINT TALLY ROLL, MAY BE EXCLUDED FOR PTS 6223«, t00=0x0009, t01=0x0108}
0x0f54…0f70 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:A=0«, t00=0x0009, t01=0x014c}
0x0f70…0f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0168}
0x0f7a…0f8c Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0009, t01=0x0172}
0x0f8c…0fa0 Head {h00=0x0010, h01=0x0050, text=»ORD7 EQU X:A«, t00=0x0009, t01=0x0184}
0x0fa0…0faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0faa…0fe8 Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x000a, t01=0x0012}
0x0fe8…1002 Head {h00=0x0016, h01=0x0050, text=»* SETTING X:B=1 «, t00=0x000a, t01=0x0050}
0x1002…100c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006a}
0x100c…101e Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x0074}
0x101e…1034 Head {h00=0x0012, h01=0x0050, text=»CUTPER EQU X:B«, t00=0x000a, t01=0x0086}
0x1034…103e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009c}
0x103e…1082 Head {h00=0x0040, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C=1 «, t00=0x000a, t01=0x00a6}
0x1082…10a4 Head {h00=0x001e, h01=0x0050, text=»* AND X:D=1 RESPECTIVLY «, t00=0x000a, t01=0x00ea}
0x10a4…10ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010c}
0x10ae…10c0 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000a, t01=0x0116}
0x10c0…10d6 Head {h00=0x0012, h01=0x0050, text=»TRETON EQU X:C«, t00=0x000a, t01=0x0128}
0x10d6…10e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x013e}
0x10e0…10f2 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x0148}
0x10f2…1108 Head {h00=0x0012, h01=0x0050, text=»FJOTON EQU X:D«, t00=0x000a, t01=0x015a}
0x1108…1112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0170}
0x1112…114e Head {h00=0x0038, h01=0x0050, text=»* ORDER 08,PRINT VOUCHER/PASSBOOK,IS COMPLETED IF «, t00=0x000a, t01=0x017a}
0x114e…118c Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000b, t01=0x0026}
0x118c…1196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0064}
0x1196…11a8 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000b, t01=0x006e}
0x11a8…11be Head {h00=0x0012, h01=0x0050, text=»COMPL EQU X:E «, t00=0x000b, t01=0x0080}
0x11be…11c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0096}
0x11c8…1202 Head {h00=0x0036, h01=0x0050, text=»* INDICATION OF RECOVERY EXECUTED ON REQUEST CAN«, t00=0x000b, t01=0x00a0}
0x1202…123a Head {h00=0x0034, h01=0x0050, text=»* BE INCLUDED IN THE DRIVER BY SETTING X:F = 1«, t00=0x000b, t01=0x00da}
0x123a…1244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0112}
0x1244…1256 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000b, t01=0x011c}
0x1256…126c Head {h00=0x0012, h01=0x0050, text=»RECOVY EQU X:F«, t00=0x000b, t01=0x012e}
0x126c…12b2 Head {h00=0x0042, h01=0x0050, text=»* IN SITUATIONS WHERE THE SELECTOR UNIT OR PRINTER HARDWARE«, t00=0x000b, t01=0x0144}
0x12b2…12f8 Head {h00=0x0042, h01=0x0050, text=»* IS INACTIVE, END OF REQUEST WITH RETURN CODE NOT OPERABLE«, t00=0x000b, t01=0x018a}
0x12f8…1336 Head {h00=0x003a, h01=0x0050, text=»* CAN BE CHOSEN BY SETTING THE CONSTANT RECEND = 1 «, t00=0x000c, t01=0x0040}
0x1336…1348 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000c, t01=0x007e}
0x1348…135e Head {h00=0x0012, h01=0x0050, text=»RECEND EQU X:G«, t00=0x000c, t01=0x0090}
0x135e…136c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00a6}
0x136c…1376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b4}
0x1376…138a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x000c, t01=0x00be}
0x138a…139e Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x000c, t01=0x00d2}
0x139e…13b2 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x000c, t01=0x00e6}
0x13b2…13bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13bc…13c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13c6…13fa Head {h00=0x0030, h01=0x0050, text=»BUF1 DATA /0382,/0D1D CR1, ATTACH PRINT HEAD«, t00=0x000c, t01=0x010e}
0x13fa…142e Head {h00=0x0030, h01=0x0050, text=»BUF3 DATA /0382,/091D CR2, ATTACH PRINT HEAD«, t00=0x000c, t01=0x0142}
0x142e…1438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0176}
0x1438…1464 Head {h00=0x0028, h01=0x0050, text=»* BUF4 CONTAINS FOLLOWING ORDERS: «, t00=0x000c, t01=0x0180}
0x1464…1492 Head {h00=0x002a, h01=0x0050, text=»* CR2,LIFT TO TOP,GRASP,LIFT TO TOP «, t00=0x000d, t01=0x001c}
0x1492…149c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004a}
0x149c…14a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0054}
0x14a6…14d0 Head {h00=0x0026, h01=0x0050, text=»BUF4 DATA /0700,/2009,/0C1A,/830C «, t00=0x000d, t01=0x005e}
0x14d0…1504 Head {h00=0x0030, h01=0x0050, text=»BUF5 DATA /030C,/1B83 LIFT TO TOP AND RELASE«, t00=0x000d, t01=0x0088}
0x1504…150e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00bc}
0x150e…1518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c6}
0x1518…1522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d0}
0x1522…1534 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x00da}
0x1534…1546 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000d, t01=0x00ec}
0x1546…1558 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x00fe}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0110}
0x1562…156c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011a}
0x156c…158c Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x000d, t01=0x0124}
0x158c…15b0 Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x000d, t01=0x0144}
0x15b0…15d4 Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x000d, t01=0x0168}
0x15d4…15f8 Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x000d, t01=0x018c}
0x15f8…1602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0020}
0x1602…162a Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x000e, t01=0x002a}
0x162a…1634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0052}
0x1634…1648 Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x000e, t01=0x005c}
0x1648…1674 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x000e, t01=0x0070}
0x1674…167e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009c}
0x167e…16aa Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x000e, t01=0x00a6}
0x16aa…16b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d2}
0x16b4…16be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00dc}
0x16be…16d2 Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x000e, t01=0x00e6}
0x16d2…1702 Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x000e, t01=0x00fa}
0x1702…170c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012a}
0x170c…1716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0134}
0x1716…1764 Head {h00=0x004a, h01=0x0050, text=»* TABLE TO GET ACTUAL CR-CHARACTER FOR JOURNAL AND VOUCHER/PASSBOOK «, t00=0x000e, t01=0x013e}
0x1764…176e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018c}
0x176e…1778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0008}
0x1778…178c Head {h00=0x0010, h01=0x0050, text=»HPTAB EQU * «, t00=0x000f, t01=0x0012}
0x178c…17a0 Head {h00=0x0010, h01=0x0050, text=» DATA /0D09 «, t00=0x000f, t01=0x0026}
0x17a0…17b4 Head {h00=0x0010, h01=0x0050, text=» DATA /0009 «, t00=0x000f, t01=0x003a}
0x17b4…17c8 Head {h00=0x0010, h01=0x0050, text=» DATA /0D00 «, t00=0x000f, t01=0x004e}
0x17c8…17d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0062}
0x17d2…17dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006c}
0x17dc…17f2 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x000f, t01=0x0076}
0x17f2…1830 Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x000f, t01=0x008c}
0x1830…183c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00ca}
0x183c…184a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00d6}
0x184a…1854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e4}
0x1854…185e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x185e…1872 Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x000f, t01=0x00f8}
0x1872…187c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x187c…18b2 Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x000f, t01=0x0116}
0x18b2…18f4 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x000f, t01=0x014c}
0x18f4…18fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x018e}
0x18fe…1908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x1908…1912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0012}
0x1912…1936 Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0010, t01=0x001c}
0x1936…1940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0040}
0x1940…194a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004a}
0x194a…1968 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A7 ORDER /00 ?«, t00=0x0010, t01=0x0054}
0x1968…1982 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TPDUMY YES «, t00=0x0010, t01=0x0072}
0x1982…19a4 Head {h00=0x001e, h01=0x0050, text=»ACTP01 LDR A4,A7 GET ORDER«, t00=0x0010, t01=0x008c}
0x19a4…19c2 Head {h00=0x001a, h01=0x0050, text=» SUK A4,8 CHECK ORDER «, t00=0x0010, t01=0x00ae}
0x19c2…19e6 Head {h00=0x0020, h01=0x0050, text=» RF(P) ACT020 ILLEGAL ORDER «, t00=0x0010, t01=0x00cc}
0x19e6…1a04 Head {h00=0x001a, h01=0x0050, text=» RF(E) ACT010 ORDER 08«, t00=0x0010, t01=0x00f0}
0x1a04…1a26 Head {h00=0x001e, h01=0x0050, text=» ADK A4,2 ILLEGAL ORDER ? «, t00=0x0010, t01=0x010e}
0x1a26…1a3a Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0010, t01=0x0130}
0x1a3a…1a52 Head {h00=0x0014, h01=0x0050, text=» RF(NN) TP100 NO«, t00=0x0010, t01=0x0144}
0x1a52…1a5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x015c}
0x1a5e…1a72 Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=0 «, t00=0x0010, t01=0x0168}
0x1a72…1a86 Head {h00=0x0010, h01=0x0050, text=» RF(Z) TP100«, t00=0x0010, t01=0x017c}
0x1a86…1a92 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0190}
0x1a92…1aba Head {h00=0x0024, h01=0x0050, text=»ACT020 ABL DISIOE ILLEGAL ORDER «, t00=0x0011, t01=0x000c}
0x1aba…1ac8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0034}
0x1ac8…1ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0042}
0x1ad2…1adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004c}
0x1adc…1b0a Head {h00=0x002a, h01=0x0050, text=»* ORDER 08 : WRITE VOUCHER/PASSBOOK «, t00=0x0011, t01=0x0056}
0x1b0a…1b4a Head {h00=0x003c, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x0011, t01=0x0084}
0x1b4a…1b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c4}
0x1b54…1b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ce}
0x1b5e…1b86 Head {h00=0x0024, h01=0x0050, text=»ACT010 LD A1,2,A8 BUFFER ADDRESS«, t00=0x0011, t01=0x00d8}
0x1b86…1bac Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 GET FIRST CHARACTER«, t00=0x0011, t01=0x0100}
0x1bac…1bd4 Head {h00=0x0024, h01=0x0050, text=» LC A1,1,A1 GET SECOND CHARACTER«, t00=0x0011, t01=0x0126}
0x1bd4…1bf0 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x0011, t01=0x014e}
0x1bf0…1c02 Head {h00=0x000e, h01=0x0050, text=» SLL A4,4 «, t00=0x0011, t01=0x016a}
0x1c02…1c22 Head {h00=0x001c, h01=0x0050, text=» ANK A4,/F0 LINE DECADE «, t00=0x0011, t01=0x017c}
0x1c22…1c48 Head {h00=0x0022, h01=0x0050, text=» ORR A1,A4 DECIMAL LINE NUMBER«, t00=0x0012, t01=0x000c}
0x1c48…1c70 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x0012, t01=0x0032}
0x1c70…1c82 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0012, t01=0x005a}
0x1c82…1ca8 Head {h00=0x0022, h01=0x0050, text=» LD A2,10,A8 GET CONTROL WORD «, t00=0x0012, t01=0x006c}
0x1ca8…1cdc Head {h00=0x0030, h01=0x0050, text=» SLL A2,3 LINE NUMBER RELATIVE OR ABSOLUTE ?«, t00=0x0012, t01=0x0092}
0x1cdc…1cfc Head {h00=0x001c, h01=0x0050, text=» RF(NN) ACT018 ABSOLUTE «, t00=0x0012, t01=0x00c6}
0x1cfc…1d24 Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTRLN,A6 GET LINE NUMBER«, t00=0x0012, t01=0x00e6}
0x1d24…1d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010e}
0x1d2e…1d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0118}
0x1d38…1d66 Head {h00=0x002a, h01=0x0050, text=» SLL A2,1 RELATIVE. LIFT UP OR DOWN ? «, t00=0x0012, t01=0x0122}
0x1d66…1d86 Head {h00=0x001c, h01=0x0050, text=» RF(NN) ACT015 LIFT DOWN«, t00=0x0012, t01=0x0150}
0x1d86…1da0 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A1 LIFT UP«, t00=0x0012, t01=0x0170}
0x1da0…1db6 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACT018«, t00=0x0012, t01=0x018a}
0x1db6…1dc8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0013, t01=0x0010}
0x1dc8…1dda Head {h00=0x000e, h01=0x0050, text=» RF ACT018«, t00=0x0013, t01=0x0022}
0x1dda…1de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0034}
0x1de4…1dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003e}
0x1dee…1e10 Head {h00=0x001e, h01=0x0050, text=»ACT015 ADR A3,A1 LIFT DOWN«, t00=0x0013, t01=0x0048}
0x1e10…1e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006a}
0x1e1a…1e24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0074}
0x1e24…1e64 Head {h00=0x003c, h01=0x0050, text=»ACT018 SC A3,DWTRLN,A6 SAVE REQUESTED LINE NUMBER IN DWT«, t00=0x0013, t01=0x007e}
0x1e64…1e72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00be}
0x1e72…1e86 Head {h00=0x0010, h01=0x0050, text=»TP100 EQU * «, t00=0x0013, t01=0x00cc}
0x1e86…1e98 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0013, t01=0x00e0}
0x1e98…1ec2 Head {h00=0x0026, h01=0x0050, text=» SC A2,DWTBC,A6 RESET BYTE COUNTER«, t00=0x0013, t01=0x00f2}
0x1ec2…1ee2 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0013, t01=0x011c}
0x1ee2…1eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013c}
0x1eec…1ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0146}
0x1ef6…1f30 Head {h00=0x0036, h01=0x0050, text=»* CHECK IF REQUESTED LENGTH IS EQUAL TO TWO FOR «, t00=0x0013, t01=0x0150}
0x1f30…1f4e Head {h00=0x001a, h01=0x0050, text=»* ORDERS 06 AND 07. «, t00=0x0013, t01=0x018a}
0x1f4e…1f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0018}
0x1f58…1f6c Head {h00=0x0010, h01=0x0050, text=»TP110 EQU * «, t00=0x0014, t01=0x0022}
0x1f6c…1f94 Head {h00=0x0024, h01=0x0050, text=» LD A3,4,A8 GET REQUESTED LENGTH«, t00=0x0014, t01=0x0036}
0x1f94…1fb8 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A7 SAVE ORDER IN A4 «, t00=0x0014, t01=0x005e}
0x1fb8…1fd8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TPDUMY ORDER /00 «, t00=0x0014, t01=0x0082}
0x1fd8…200c Head {h00=0x0030, h01=0x0050, text=» LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD«, t00=0x0014, t01=0x00a2}
0x200c…2028 Head {h00=0x0018, h01=0x0050, text=» SUK A4,8 ORDER 08 ?«, t00=0x0014, t01=0x00d6}
0x2028…2058 Head {h00=0x002c, h01=0x0050, text=» RF(Z) TP600 YES GO TO ORDER PROCESSING «, t00=0x0014, t01=0x00f2}
0x2058…206a Head {h00=0x000e, h01=0x0050, text=» ANK A1,/4«, t00=0x0014, t01=0x0122}
0x206a…2096 Head {h00=0x0028, h01=0x0050, text=» RF(NE) TPHP TEXT MESSAGE WRITTEN ? «, t00=0x0014, t01=0x0134}
0x2096…20b8 Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 REQ. LENGTH =2 ?«, t00=0x0014, t01=0x0160}
0x20b8…20e4 Head {h00=0x0028, h01=0x0050, text=» RF(NP) TPLF10 SEND LINE FEED DIRECT«, t00=0x0014, t01=0x0182}
0x20e4…20ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001e}
0x20ee…20f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20f8…210c Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0015, t01=0x0032}
0x210c…2126 Head {h00=0x0016, h01=0x0050, text=» SUK A7,7 ORDER 07«, t00=0x0015, t01=0x0046}
0x2126…215a Head {h00=0x0030, h01=0x0050, text=» RF(Z) TP400 GO TO ORDER PROCESSING ORDER 07«, t00=0x0015, t01=0x0060}
0x215a…2184 Head {h00=0x0026, h01=0x0050, text=» ELSE ORDER PROCESSING ORDER 06 «, t00=0x0015, t01=0x0094}
0x2184…2190 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00be}
0x2190…219e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00ca}
0x219e…21a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d8}
0x21a8…21b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e2}
0x21b2…21bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ec}
0x21bc…21e0 Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x0015, t01=0x00f6}
0x21e0…21ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011a}
0x21ea…21f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0124}
0x21f4…21fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012e}
0x21fe…222c Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x0015, t01=0x0138}
0x222c…2250 Head {h00=0x0020, h01=0x0050, text=»TP210 CF A5,BUFCHR -"-«, t00=0x0015, t01=0x0166}
0x2250…2276 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x0015, t01=0x018a}
0x2276…2284 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0020}
0x2284…228e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002e}
0x228e…2298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0038}
0x2298…22c4 Head {h00=0x0028, h01=0x0050, text=»* SEND LINE FEED ORDERS 06 AND 07 «, t00=0x0016, t01=0x0042}
0x22c4…22ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x006e}
0x22ce…22e0 Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x0016, t01=0x0078}
0x22e0…2306 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/1E DETACH PRINT HEAD «, t00=0x0016, t01=0x008a}
0x2306…231c Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0016, t01=0x00b0}
0x231c…2330 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x0016, t01=0x00c6}
0x2330…233a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x233a…2374 Head {h00=0x0036, h01=0x0050, text=»* POSITION PRINT HEAD ACCORDING TO HP-PARAMETER «, t00=0x0016, t01=0x00e4}
0x2374…2390 Head {h00=0x0018, h01=0x0050, text=»* IN CONTROL WORD.«, t00=0x0016, t01=0x011e}
0x2390…239a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x013a}
0x239a…23ac Head {h00=0x000e, h01=0x0050, text=»TPHP EQU *«, t00=0x0016, t01=0x0144}
0x23ac…23d4 Head {h00=0x0024, h01=0x0050, text=» LD A1,4,A8 GET REQUESTED LENGTH«, t00=0x0016, t01=0x0156}
0x23d4…23fe Head {h00=0x0026, h01=0x0050, text=» ST A1,6,A8 SAVE EFFECTIVE LENGTH «, t00=0x0016, t01=0x017e}
0x23fe…2424 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x0017, t01=0x0018}
0x2424…244a Head {h00=0x0022, h01=0x0050, text=» SRL A1,14 HP-PARAMETER IN A1 «, t00=0x0017, t01=0x003e}
0x244a…2466 Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 06 ?«, t00=0x0017, t01=0x0064}
0x2466…2480 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TPHP10 YES «, t00=0x0017, t01=0x0080}
0x2480…24a2 Head {h00=0x001e, h01=0x0050, text=» ADK A1,3 NO MODIFY INDEX «, t00=0x0017, t01=0x009a}
0x24a2…24d2 Head {h00=0x002c, h01=0x0050, text=»TPHP10 LC A2,HPTAB,A1 LOAD CR-CHARACTER «, t00=0x0017, t01=0x00bc}
0x24d2…24f4 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT AND SEND IT «, t00=0x0017, t01=0x00ec}
0x24f4…2516 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0017, t01=0x010e}
0x2516…252a Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0017, t01=0x0130}
0x252a…2546 Head {h00=0x0018, h01=0x0050, text=» SUK A7,8 ORDER 8 ? «, t00=0x0017, t01=0x0144}
0x2546…255c Head {h00=0x0012, h01=0x0050, text=» RF(E) TPDUMY «, t00=0x0017, t01=0x0160}
0x255c…256e Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0017, t01=0x0176}
0x256e…2596 Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x0017, t01=0x0188}
0x2596…25b8 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT AND SEND IT «, t00=0x0018, t01=0x0020}
0x25b8…25c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0042}
0x25c6…25da Head {h00=0x0010, h01=0x0050, text=»TPHP20 EQU *«, t00=0x0018, t01=0x0050}
0x25da…25e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0064}
0x25e4…25fa Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0018, t01=0x006e}
0x25fa…2620 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x0018, t01=0x0084}
0x2620…2632 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0018, t01=0x00aa}
0x2632…2654 Head {h00=0x001e, h01=0x0050, text=» ANK A1,3 CUT/PERFORATE ? «, t00=0x0018, t01=0x00bc}
0x2654…267e Head {h00=0x0026, h01=0x0050, text=» RF(Z) TPDUMY POSITION PRINT HEAD «, t00=0x0018, t01=0x00de}
0x267e…26ae Head {h00=0x002c, h01=0x0050, text=» LC A2,CPTAB-1,A1 GET CUT/PERFORATE CODE«, t00=0x0018, t01=0x0108}
0x26ae…26c4 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0018, t01=0x0138}
0x26c4…26d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x014e}
0x26d0…26de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x015a}
0x26de…26e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0168}
0x26e8…26f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0172}
0x26f2…2712 Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x0018, t01=0x017c}
0x2712…271c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000c}
0x271c…2726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0016}
0x2726…274c Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x0019, t01=0x0020}
0x274c…2756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0046}
0x2756…276a Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x0019, t01=0x0050}
0x276a…2792 Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETX END OF TEXT MESSAGE «, t00=0x0019, t01=0x0064}
0x2792…27a8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0019, t01=0x008c}
0x27a8…27b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00a2}
0x27b6…27c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b0}
0x27c0…27ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ba}
0x27ca…27fe Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x0019, t01=0x00c4}
0x27fe…2808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f8}
0x2808…281c Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x0019, t01=0x0102}
0x281c…283a Head {h00=0x001a, h01=0x0050, text=» LDR A7,A7 ORDER 00 ? «, t00=0x0019, t01=0x0116}
0x283a…2854 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x0019, t01=0x0134}
0x2854…286c Head {h00=0x0014, h01=0x0050, text=»TST005 LDR A3,A2«, t00=0x0019, t01=0x014e}
0x286c…288e Head {h00=0x001e, h01=0x0050, text=» ANK A3,VOIN VOUCHER IN ? «, t00=0x0019, t01=0x0166}
0x288e…28a6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TST010 NO«, t00=0x0019, t01=0x0188}
0x28a6…28ce Head {h00=0x0024, h01=0x0050, text=» ORKL A1,VOCHIN SET RETURN CODE «, t00=0x001a, t01=0x0010}
0x28ce…28fe Head {h00=0x002c, h01=0x0050, text=»TST010 ANK A2,EOJT END OF JOURNAL TAPE ?«, t00=0x001a, t01=0x0038}
0x28fe…2924 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ENDIO NO PERFORM ENDIO«, t00=0x001a, t01=0x0068}
0x2924…2954 Head {h00=0x002c, h01=0x0050, text=» ORK A1,PROUT SET RETURN CODE PAPER OUT «, t00=0x001a, t01=0x008e}
0x2954…295e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00be}
0x295e…2968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c8}
0x2968…2998 Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x001a, t01=0x00d2}
0x2998…29a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0102}
0x29a2…29b6 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x001a, t01=0x010c}
0x29b6…29ee Head {h00=0x0034, h01=0x0050, text=» ABL DISEND PERFORM END I/O AND GO TO DISPATCHER«, t00=0x001a, t01=0x0120}
0x29ee…29f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0158}
0x29f8…2a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0162}
0x2a02…2a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016c}
0x2a0c…2a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0176}
0x2a16…2a2a Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x001a, t01=0x0180}
0x2a2a…2a38 (27, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0004}
0x2a38…2a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0012}
0x2a42…2a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001c}
0x2a4c…2a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0026}
0x2a56…2a7e Head {h00=0x0024, h01=0x0050, text=»* ORDER 07 : PRINT TALLY ROLL «, t00=0x001b, t01=0x0030}
0x2a7e…2a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0058}
0x2a88…2a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0062}
0x2a92…2a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006c}
0x2a9c…2ac2 Head {h00=0x0022, h01=0x0050, text=»TP400 ANK A2,VOIN VOUCHER IN ?«, t00=0x001b, t01=0x0076}
0x2ac2…2ada Head {h00=0x0014, h01=0x0050, text=» RF(Z) TP410 NO «, t00=0x001b, t01=0x009c}
0x2ada…2b06 Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x001b, t01=0x00b4}
0x2b06…2b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e0}
0x2b10…2b24 Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x001b, t01=0x00ea}
0x2b24…2b3a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x001b, t01=0x00fe}
0x2b3a…2b7e Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x001b, t01=0x0114}
0x2b7e…2bb6 Head {h00=0x0034, h01=0x0050, text=» LDKL A3,BUF3 SEND CR2, ATTACH AND PRINT BUFFER «, t00=0x001b, t01=0x0158}
0x2bb6…2bc8 Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x001b, t01=0x0190}
0x2bc8…2bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0012}
0x2bd2…2bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001c}
0x2bdc…2be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0026}
0x2be6…2bf2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0030}
0x2bf2…2c00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x003c}
0x2c00…2c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x004a}
0x2c0a…2c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0054}
0x2c14…2c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005e}
0x2c1e…2c4c Head {h00=0x002a, h01=0x0050, text=»* ORDER 08 : PRINT VOUCHER PASSBOOK «, t00=0x001c, t01=0x0068}
0x2c4c…2c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0096}
0x2c56…2c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a0}
0x2c60…2c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00aa}
0x2c6a…2c7e Head {h00=0x0010, h01=0x0050, text=»TP600 EQU * «, t00=0x001c, t01=0x00b4}
0x2c7e…2c90 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/4«, t00=0x001c, t01=0x00c8}
0x2c90…2cba Head {h00=0x0026, h01=0x0050, text=» RF(NE) TP700 TEXT ALREADY PRINTED«, t00=0x001c, t01=0x00da}
0x2cba…2cd2 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/09 CR2 «, t00=0x001c, t01=0x0104}
0x2cd2…2cf6 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001c, t01=0x011c}
0x2cf6…2d1c Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x001c, t01=0x0140}
0x2d1c…2d38 Head {h00=0x0018, h01=0x0050, text=» SLL A1,2 RELEASE ? «, t00=0x001c, t01=0x0166}
0x2d38…2d50 Head {h00=0x0014, h01=0x0050, text=» RF(NN) TP602 NO«, t00=0x001c, t01=0x0182}
0x2d50…2d78 Head {h00=0x0024, h01=0x0050, text=» SUK A3,2 REQUESTED LENGTH = 2 ?«, t00=0x001d, t01=0x000a}
0x2d78…2d98 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TP710 YES RELEASE«, t00=0x001d, t01=0x0032}
0x2d98…2dac Head {h00=0x0010, h01=0x0050, text=»TP602 EQU * «, t00=0x001d, t01=0x0052}
0x2dac…2dce Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x001d, t01=0x0066}
0x2dce…2de6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TP605 NO «, t00=0x001d, t01=0x0088}
0x2de6…2e04 Head {h00=0x001a, h01=0x0050, text=» SLL A1,1 DISPLACEMENT«, t00=0x001d, t01=0x00a0}
0x2e04…2e1c Head {h00=0x0014, h01=0x0050, text=» RF(N) TP610 YES«, t00=0x001d, t01=0x00be}
0x2e1c…2e36 Head {h00=0x0016, h01=0x0050, text=»TP605 LDKL A3,BUF4«, t00=0x001d, t01=0x00d6}
0x2e36…2e50 Head {h00=0x0016, h01=0x0050, text=» CF A5,BUFCHR SEND«, t00=0x001d, t01=0x00f0}
0x2e50…2e62 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001d, t01=0x010a}
0x2e62…2e74 Head {h00=0x000e, h01=0x0050, text=» RF TP620 «, t00=0x001d, t01=0x011c}
0x2e74…2e82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x012e}
0x2e82…2e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013c}
0x2e8c…2ed0 Head {h00=0x0040, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL LINE NUMBER IS EQUEAL«, t00=0x001d, t01=0x0146}
0x2ed0…2ee8 Head {h00=0x0014, h01=0x0050, text=»* TO REQUESTED«, t00=0x001d, t01=0x018a}
0x2ee8…2ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0012}
0x2ef2…2f26 Head {h00=0x0030, h01=0x0050, text=»TP610 LC A3,DWTALN,A6 GET ACTUAL LINE NUMBER«, t00=0x001e, t01=0x001c}
0x2f26…2f4c Head {h00=0x0022, h01=0x0050, text=» ANK A3,/FF ACTUAL LINE NUMBER«, t00=0x001e, t01=0x0050}
0x2f4c…2f7e Head {h00=0x002e, h01=0x0050, text=»TP620 CC A3,DWTRLN,A6 COMPARE LINE NUMBERS«, t00=0x001e, t01=0x0076}
0x2f7e…2f9a Head {h00=0x0018, h01=0x0050, text=» RF(E) TP650 EQUEAL «, t00=0x001e, t01=0x00a8}
0x2f9a…2fc0 Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x001e, t01=0x00c4}
0x2fc0…2fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ea}
0x2fca…2ff0 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/0B SEND ELEVATOR DOWN«, t00=0x001e, t01=0x00f4}
0x2ff0…301e Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x001e, t01=0x011a}
0x301e…3040 Head {h00=0x001e, h01=0x0050, text=» RF TP640 SEND LIFT CHAR. «, t00=0x001e, t01=0x0148}
0x3040…304a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x016a}
0x304a…3070 Head {h00=0x0022, h01=0x0050, text=»TP630 LDK A2,/0A SEND LIFT UP «, t00=0x001e, t01=0x0174}
0x3070…309e Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LUNE NUMBER«, t00=0x001f, t01=0x000a}
0x309e…30a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0038}
0x30a8…30b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0042}
0x30b2…30dc Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR.«, t00=0x001f, t01=0x004c}
0x30dc…310c Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x001f, t01=0x0076}
0x310c…312e Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x001f, t01=0x00a6}
0x312e…3142 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x001f, t01=0x00c8}
0x3142…3168 Head {h00=0x0022, h01=0x0050, text=» ABL(Z) RCTP01 ERROR. RECOVERY«, t00=0x001f, t01=0x00dc}
0x3168…3192 Head {h00=0x0026, h01=0x0050, text=» RB TP620 CHECK IF LIFT POSITIONED«, t00=0x001f, t01=0x0102}
0x3192…319e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x012c}
0x319e…31b2 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x001f, t01=0x0138}
0x31b2…31e4 Head {h00=0x002e, h01=0x0050, text=» RB(NZ) TP620 CHECK IF LIFT IS POSITIONED «, t00=0x001f, t01=0x014c}
0x31e4…3218 Head {h00=0x0030, h01=0x0050, text=»TP645 LDK A1,THRPUT VOUCHER OUT/SHOULD BE IN«, t00=0x001f, t01=0x017e}
0x3218…3244 Head {h00=0x0028, h01=0x0050, text=» ORS A1,8,A8 INDICATE IN RETURN CODE«, t00=0x0020, t01=0x0022}
0x3244…3256 Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0020, t01=0x004e}
0x3256…3262 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0060}
0x3262…3270 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x006c}
0x3270…327a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x007a}
0x327a…32a0 Head {h00=0x0022, h01=0x0050, text=»* ORDER 08: ATTACH AND PRINT«, t00=0x0020, t01=0x0084}
0x32a0…32b4 Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0020, t01=0x00aa}
0x32b4…32dc Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 SEND DUMMY TO LET THE «, t00=0x0020, t01=0x00be}
0x32dc…32fe Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT LIFT SETTLE «, t00=0x0020, t01=0x00e6}
0x32fe…3326 Head {h00=0x0024, h01=0x0050, text=» LD A3,4,A8 GET REQUESTED LENGTH«, t00=0x0020, t01=0x0108}
0x3326…334c Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 GET NUMBER OF CHAR. «, t00=0x0020, t01=0x0130}
0x334c…3364 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TP700 ALL«, t00=0x0020, t01=0x0156}
0x3364…3378 Head {h00=0x0010, h01=0x0050, text=» LDK A2,STX «, t00=0x0020, t01=0x016e}
0x3378…339e Head {h00=0x0022, h01=0x0050, text=» CF A5,OUTPUT START OF MESSAGE«, t00=0x0020, t01=0x0182}
0x339e…33c4 Head {h00=0x0022, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0021, t01=0x0018}
0x33c4…33d6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0021, t01=0x003e}
0x33d6…33fc Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 GET FIRST CHARACTER«, t00=0x0021, t01=0x0050}
0x33fc…341e Head {h00=0x001e, h01=0x0050, text=» CCK A1,/1111 TABULATION ?«, t00=0x0021, t01=0x0076}
0x341e…3432 Head {h00=0x0010, h01=0x0050, text=» RF(E) TP690«, t00=0x0021, t01=0x0098}
0x3432…344c Head {h00=0x0016, h01=0x0050, text=» LDK A2,/1D ATTACH«, t00=0x0021, t01=0x00ac}
0x344c…3466 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0021, t01=0x00c6}
0x3466…347a Head {h00=0x0010, h01=0x0050, text=»TP690 EQU * «, t00=0x0021, t01=0x00e0}
0x347a…3490 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0021, t01=0x00f4}
0x3490…34a4 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x0021, t01=0x010a}
0x34a4…34d2 Head {h00=0x002a, h01=0x0050, text=» CF A5,OUTPUT SEND SPACE BEFORE PRINT «, t00=0x0021, t01=0x011e}
0x34d2…34de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x014c}
0x34de…34f4 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0021, t01=0x0158}
0x34f4…3538 Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x0021, t01=0x016e}
0x3538…355e Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x0022, t01=0x0022}
0x355e…356c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0048}
0x356c…3576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0056}
0x3576…359e Head {h00=0x0024, h01=0x0050, text=»* ORDER 08: RETURN AFTER PRINT«, t00=0x0022, t01=0x0060}
0x359e…35a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0088}
0x35a8…35bc Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0022, t01=0x0092}
0x35bc…35e2 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x0022, t01=0x00a6}
0x35e2…35fe Head {h00=0x0018, h01=0x0050, text=» SLL A1,2 RELEASE ? «, t00=0x0022, t01=0x00cc}
0x35fe…3614 Head {h00=0x0012, h01=0x0050, text=» RF(NN) TP715 «, t00=0x0022, t01=0x00e8}
0x3614…3628 Head {h00=0x0010, h01=0x0050, text=»TP710 EQU * «, t00=0x0022, t01=0x00fe}
0x3628…3646 Head {h00=0x001a, h01=0x0050, text=» CF A5,RELEAS RELEASE «, t00=0x0022, t01=0x0112}
0x3646…365c Head {h00=0x0012, h01=0x0050, text=»TP715 ABL TPLF«, t00=0x0022, t01=0x0130}
0x365c…366a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0146}
0x366a…3674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0154}
0x3674…368a Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x0022, t01=0x015e}
0x368a…3694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0174}
0x3694…36de Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x0022, t01=0x017e}
0x36de…36fc Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x0023, t01=0x0038}
0x36fc…3706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0056}
0x3706…3710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0060}
0x3710…373e Head {h00=0x002a, h01=0x0050, text=»PRBUF LD A4,4,A8 GET REQUESTED LENGTH «, t00=0x0023, t01=0x006a}
0x373e…3768 Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x0023, t01=0x0098}
0x3768…378a Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A8 BUFFER ADDRESS«, t00=0x0023, t01=0x00c2}
0x378a…379c Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0023, t01=0x00e4}
0x379c…37c2 Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x0023, t01=0x00f6}
0x37c2…37d8 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x0023, t01=0x011c}
0x37d8…37f8 Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB100 NOT BLANK«, t00=0x0023, t01=0x0132}
0x37f8…3810 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x0023, t01=0x0152}
0x3810…3822 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x016a}
0x3822…3848 Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x0023, t01=0x017c}
0x3848…3852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0012}
0x3852…385c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001c}
0x385c…388e Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x0024, t01=0x0026}
0x388e…38b2 Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x0024, t01=0x0058}
0x38b2…38c6 Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETB «, t00=0x0024, t01=0x007c}
0x38c6…38f0 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT SEND END OF MESSAGE «, t00=0x0024, t01=0x0090}
0x38f0…3904 Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x0024, t01=0x00ba}
0x3904…393e Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED «, t00=0x0024, t01=0x00ce}
0x393e…396c Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/400 INDICATE MESSAGE PRINTED«, t00=0x0024, t01=0x0108}
0x396c…3984 Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x0024, t01=0x0136}
0x3984…39b8 Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/FDFF VOUCHER STATUS CHANGE ALLOWED«, t00=0x0024, t01=0x014e}
0x39b8…39d0 Head {h00=0x0014, h01=0x0050, text=» ANS A1,DWTST,A6«, t00=0x0024, t01=0x0182}
0x39d0…39e6 Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x0025, t01=0x000a}
0x39e6…39f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0020}
0x39f4…39fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002e}
0x39fe…3a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0038}
0x3a08…3a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0042}
0x3a12…3a2a Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x0025, t01=0x004c}
0x3a2a…3a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0064}
0x3a34…3a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006e}
0x3a3e…3a52 Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x0025, t01=0x0078}
0x3a52…3a88 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x0025, t01=0x008c}
0x3a88…3aa6 Head {h00=0x001a, h01=0x0050, text=» SUK A7,7 CHECK ORDER «, t00=0x0025, t01=0x00c2}
0x3aa6…3aca Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x0025, t01=0x00e0}
0x3aca…3aee Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x0025, t01=0x0104}
0x3aee…3afc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0128}
0x3afc…3b10 Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0025, t01=0x0136}
0x3b10…3b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x014a}
0x3b1a…3b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0154}
0x3b24…3b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x015e}
0x3b2e…3b4a Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x0025, t01=0x0168}
0x3b4a…3b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0184}
0x3b54…3b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x018e}
0x3b5e…3b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0008}
0x3b68…3b8a Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0026, t01=0x0012}
0x3b8a…3bb0 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x0026, t01=0x0034}
0x3bb0…3bd6 Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x0026, t01=0x005a}
0x3bd6…3c04 Head {h00=0x002a, h01=0x0050, text=» ABL TP400 SEND LIFT TO TOP AND RELEAS«, t00=0x0026, t01=0x0080}
0x3c04…3c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ae}
0x3c0e…3c1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00b8}
0x3c1a…3c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c4}
0x3c24…3c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ce}
0x3c2e…3c50 Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x0026, t01=0x00d8}
0x3c50…3c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00fa}
0x3c5a…3c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0104}
0x3c64…3c8c Head {h00=0x0024, h01=0x0050, text=»PRB110 ANK A2,VOIN VOUCHER IN ? «, t00=0x0026, t01=0x010e}
0x3c8c…3ca0 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0026, t01=0x0136}
0x3ca0…3ccc Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP01 ERROR .VOUCHER NOT IN «, t00=0x0026, t01=0x014a}
0x3ccc…3cd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0176}
0x3cd8…3cec Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0026, t01=0x0182}
0x3cec…3d00 Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x0027, t01=0x0008}
0x3d00…3d0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x001c}
0x3d0c…3d20 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/11 «, t00=0x0027, t01=0x0028}
0x3d20…3d3e Head {h00=0x001a, h01=0x0050, text=» CCR A1,A3 TABULATION?«, t00=0x0027, t01=0x003c}
0x3d3e…3d58 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x0027, t01=0x005a}
0x3d58…3d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0074}
0x3d62…3d70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x007e}
0x3d70…3d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008c}
0x3d7a…3d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0096}
0x3d84…3dbc Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x0027, t01=0x00a0}
0x3dbc…3dfc Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x0027, t01=0x00d8}
0x3dfc…3e1e Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x0027, t01=0x0118}
0x3e1e…3e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x013a}
0x3e28…3e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0144}
0x3e32…3e5e Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,/1E DETACH PRINT HEAD «, t00=0x0027, t01=0x014e}
0x3e5e…3e80 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x0027, t01=0x017a}
0x3e80…3eac Head {h00=0x0028, h01=0x0050, text=»PRB117 LD A1,10,A8 GET CONTROL WORD «, t00=0x0028, t01=0x000c}
0x3eac…3ec0 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0028, t01=0x0038}
0x3ec0…3ee8 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x0028, t01=0x004c}
0x3ee8…3f1a Head {h00=0x002e, h01=0x0050, text=»PRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x0028, t01=0x0074}
0x3f1a…3f50 Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. «, t00=0x0028, t01=0x00a6}
0x3f50…3f6c Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x0028, t01=0x00dc}
0x3f6c…3f76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f8}
0x3f76…3f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0102}
0x3f80…3f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010c}
0x3f8a…3fa8 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x0028, t01=0x0116}
0x3fa8…3fd4 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x0028, t01=0x0134}
0x3fd4…3fe6 Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x0028, t01=0x0160}
0x3fe6…3ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0172}
0x3ff0…3ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017c}
0x3ffa…4004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0186}
0x4004…4024 Head {h00=0x001c, h01=0x0050, text=»PRB125 LDK A2,/1D ATTACH«, t00=0x0028, t01=0x0190}
0x4024…4042 Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x0029, t01=0x0020}
0x4042…4050 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x003e}
0x4050…405a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004c}
0x405a…4064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0056}
0x4064…406e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0060}
0x406e…40a4 Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x0029, t01=0x006a}
0x40a4…40d4 Head {h00=0x002c, h01=0x0050, text=»* ILLEGAL CHARACTER OR ROOMLESS POINT «, t00=0x0029, t01=0x00a0}
0x40d4…40de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d0}
0x40de…40e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00da}
0x40e8…40f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e4}
0x40f2…4106 Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x0029, t01=0x00ee}
0x4106…4134 Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x0029, t01=0x0102}
0x4134…415a Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x0029, t01=0x0130}
0x415a…4174 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x0029, t01=0x0156}
0x4174…419e Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 INCREMENT BUFFER POINTER«, t00=0x0029, t01=0x0170}
0x419e…41b0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x000a}
0x41b0…41d8 Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x002a, t01=0x001c}
0x41d8…41f0 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x002a, t01=0x0044}
0x41f0…421a Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x002a, t01=0x005c}
0x421a…4224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0086}
0x4224…422e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0090}
0x422e…4238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x009a}
0x4238…4268 Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x002a, t01=0x00a4}
0x4268…4282 Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB220 YES «, t00=0x002a, t01=0x00d4}
0x4282…42b2 Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x002a, t01=0x00ee}
0x42b2…42cc Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x002a, t01=0x011e}
0x42cc…42d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0138}
0x42d6…42e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0142}
0x42e0…42f4 Head {h00=0x0010, h01=0x0050, text=»PRB220 EQU *«, t00=0x002a, t01=0x014c}
0x42f4…430a Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x002a, t01=0x0160}
0x430a…4334 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x002a, t01=0x0176}
0x4334…434e Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x002b, t01=0x0010}
0x434e…435a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x002a}
0x435a…4370 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x002b, t01=0x0036}
0x4370…439a Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x002b, t01=0x004c}
0x439a…43b4 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x002b, t01=0x0076}
0x43b4…43c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0090}
0x43c0…43e6 Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x002b, t01=0x009c}
0x43e6…4410 Head {h00=0x0026, h01=0x0050, text=» ORS A1,8,A8 STORE IN RETURN CODE «, t00=0x002b, t01=0x00c2}
0x4410…4432 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x002b, t01=0x00ec}
0x4432…4446 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x002b, t01=0x010e}
0x4446…4458 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x002b, t01=0x0122}
0x4458…446a Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x002b, t01=0x0134}
0x446a…4474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0146}
0x4474…447e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0150}
0x447e…4488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x015a}
0x4488…44ba Head {h00=0x002e, h01=0x0050, text=»PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x002b, t01=0x0164}
0x44ba…44e2 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x002c, t01=0x0008}
0x44e2…450c Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x002c, t01=0x0030}
0x450c…4536 Head {h00=0x0026, h01=0x0050, text=» SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x002c, t01=0x005a}
0x4536…4548 Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x002c, t01=0x0084}
0x4548…4552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0096}
0x4552…455c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00a0}
0x455c…4566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00aa}
0x4566…4574 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00b4}
0x4574…457e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c2}
0x457e…4592 Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x002c, t01=0x00cc}
0x4592…459c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e0}
0x459c…45d0 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x002c, t01=0x00ea}
0x45d0…45da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x011e}
0x45da…45e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0128}
0x45e4…45ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0132}
0x45ee…4600 Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x002c, t01=0x013c}
0x4600…4622 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x002c, t01=0x014e}
0x4622…463c Head {h00=0x0016, h01=0x0050, text=» RF(N) RCTP10 BUSY«, t00=0x002c, t01=0x0170}
0x463c…4658 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x002c, t01=0x018a}
0x4658…466e Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHTP20 «, t00=0x002d, t01=0x0016}
0x466e…469e Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT«, t00=0x002d, t01=0x002c}
0x469e…46da Head {h00=0x0038, h01=0x0050, text=»IHTP10 ABL(Z) LDREG NO RETURN CODE RESTORE REGISTERS«, t00=0x002d, t01=0x005c}
0x46da…46f0 Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=0 «, t00=0x002d, t01=0x0098}
0x46f0…4718 Head {h00=0x0024, h01=0x0050, text=» RF RCTP10 ELSE GO TO DISPATCHER«, t00=0x002d, t01=0x00ae}
0x4718…4724 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00d6}
0x4724…473a Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=1 «, t00=0x002d, t01=0x00e2}
0x473a…474c Head {h00=0x000e, h01=0x0050, text=» RF IHTP30«, t00=0x002d, t01=0x00f8}
0x474c…4758 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x010a}
0x4758…4778 Head {h00=0x001c, h01=0x0050, text=»IHTP20 LDR A1,A1 ERROR ?«, t00=0x002d, t01=0x0116}
0x4778…478e Head {h00=0x0012, h01=0x0050, text=» ABL(Z) TST005«, t00=0x002d, t01=0x0136}
0x478e…47a6 Head {h00=0x0014, h01=0x0050, text=»IHTP30 ABL ENDIO«, t00=0x002d, t01=0x014c}
0x47a6…47b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0164}
0x47b0…47ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x016e}
0x47ba…47c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0178}
0x47c4…47d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0182}
0x47d2…47dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0190}
0x47dc…47f0 Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x002e, t01=0x000a}
0x47f0…47fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x001e}
0x47fa…4834 Head {h00=0x0036, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT «, t00=0x002e, t01=0x0028}
0x4834…485a Head {h00=0x0022, h01=0x0050, text=»* POWER UP«, t00=0x002e, t01=0x0062}
0x485a…4884 Head {h00=0x0026, h01=0x0050, text=»RCTP CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x002e, t01=0x0088}
0x4884…48a6 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 GET STATUS«, t00=0x002e, t01=0x00b2}
0x48a6…48c4 Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP05 NOT BUSY«, t00=0x002e, t01=0x00d4}
0x48c4…48d8 Head {h00=0x0010, h01=0x0050, text=»RCTP01 EQU *«, t00=0x002e, t01=0x00f2}
0x48d8…48e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0106}
0x48e2…48ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0110}
0x48ec…490e Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x002e, t01=0x011a}
0x490e…4920 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x002e, t01=0x013c}
0x4920…495e Head {h00=0x003a, h01=0x0050, text=» LDK A2,/01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x002e, t01=0x014e}
0x495e…497e Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x002e, t01=0x018c}
0x497e…4992 Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x002f, t01=0x001c}
0x4992…49a4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002f, t01=0x0030}
0x49a4…49da Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x002f, t01=0x0042}
0x49da…49fa Head {h00=0x001c, h01=0x0050, text=» LDK A2,/0C LIFT TO TOP «, t00=0x002f, t01=0x0078}
0x49fa…4a10 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002f, t01=0x0098}
0x4a10…4a24 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x002f, t01=0x00ae}
0x4a24…4a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c2}
0x4a2e…4a50 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 STATUS CHANGE ?«, t00=0x002f, t01=0x00cc}
0x4a50…4a66 Head {h00=0x0012, h01=0x0050, text=» ABL(NE) TP645«, t00=0x002f, t01=0x00ee}
0x4a66…4a72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0104}
0x4a72…4a88 Head {h00=0x0012, h01=0x0050, text=» IFT RECOVY=1 «, t00=0x002f, t01=0x0110}
0x4a88…4aae Head {h00=0x0022, h01=0x0050, text=» LDK A2,/80 INDICATE POWER OFF«, t00=0x002f, t01=0x0126}
0x4aae…4ad2 Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x002f, t01=0x014c}
0x4ad2…4ade Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0170}
0x4ade…4b0c Head {h00=0x002a, h01=0x0050, text=» ABL TP100 SEND FIRST DUMMY CHARACTER «, t00=0x002f, t01=0x017c}
0x4b0c…4b36 Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL TDISP GO TO DISPATCHER «, t00=0x0030, t01=0x001a}
0x4b36…4b44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0044}
0x4b44…4b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0052}
0x4b4e…4b66 Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x0030, t01=0x005c}
0x4b66…4b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0074}
0x4b70…4ba8 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x0030, t01=0x007e}
0x4ba8…4bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b6}
0x4bb2…4bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00c0}
0x4bbc…4bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ca}
0x4bc6…4bf8 Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IJ A2 «, t00=0x0030, t01=0x00d4}
0x4bf8…4c12 Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x0030, t01=0x0106}
0x4c12…4c2c Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x0030, t01=0x0120}
0x4c2c…4c4c Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x0030, t01=0x013a}
0x4c4c…4c60 Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x0030, t01=0x015a}
0x4c60…4c86 Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x0030, t01=0x016e}
0x4c86…4c90 (49, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0004}
0x4c90…4c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x000e}
0x4c9a…4ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0018}
0x4ca4…4cb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0022}
0x4cb2…4cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0030}
0x4cbc…4cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003a}
0x4cc6…4cde Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x0031, t01=0x0044}
0x4cde…4ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005c}
0x4ce8…4d1e Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x0031, t01=0x0066}
0x4d1e…4d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x009c}
0x4d28…4d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a6}
0x4d32…4d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b0}
0x4d3c…4d50 Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x0031, t01=0x00ba}
0x4d50…4d62 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0031, t01=0x00ce}
0x4d62…4da2 Head {h00=0x003c, h01=0x0050, text=» ST A1,DWTRLN,A6 SET ACTUAL AND REQ. LINE NUMBER TO ZERO«, t00=0x0031, t01=0x00e0}
0x4da2…4dce Head {h00=0x0028, h01=0x0050, text=» LDKL A3,BUF5 LIFT TO TOP AND RELEAS«, t00=0x0031, t01=0x0120}
0x4dce…4dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x014c}
0x4dd8…4df0 Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x0031, t01=0x0156}
0x4df0…4dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x016e}
0x4dfa…4e3a Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x0031, t01=0x0178}
0x4e3a…4e66 Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x0032, t01=0x0028}
0x4e66…4e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0054}
0x4e70…4e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x005e}
0x4e7a…4eb2 Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x0032, t01=0x0068}
0x4eb2…4eca Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x0032, t01=0x00a0}
0x4eca…4efa Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x0032, t01=0x00b8}
0x4efa…4f22 Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x0032, t01=0x00e8}
0x4f22…4f46 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0032, t01=0x0110}
0x4f46…4f6a Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0032, t01=0x0134}
0x4f6a…4f94 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x0032, t01=0x0158}
0x4f94…4fb4 Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x0032, t01=0x0182}
0x4fb4…4fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0012}
0x4fbe…4fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x001c}
0x4fc8…4fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0026}
0x4fd2…4fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0030}
0x4fdc…4fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x003a}
0x4fe6…4ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0044}
0x4ff0…4ffc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0033, t01=0x004e}
0x4ffc…5000 Head {h00=0x4004, h01=0x0000}
0x5000…5004 00 33 00 5a ┆ 3 Z┆
0x5004…500c (52, 1, 8) 20 04 00 00 00 34 00 04 ┆ 4 ┆