|
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: 23750 (0x5cc6)
Notes: pts_type(SC)
Names: »DRTP01.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DRTP01.SC«
IDENT DRTP01 REL 9.2 79-11-16 870105040920 * * ******************************************************* * * 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 EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS EXTRN DWTOR ORDER EXTRN DWTSB2 STACK BASE 2 IN DWT 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 * 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 * EJECT * * * 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 * * 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:I EQU 20 DVBLEN EQU X:I * EJECT * * ********************* * 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 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 * ********** * * 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 EJECT * * 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 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 * * * 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 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 * 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 9.2 79-11-16 870105040920 «, 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…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0092 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0056}
0x0092…009c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0096}
0x009c…00c4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a0}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…0102 Head {h00=0x0030, h01=0x0050, text=»* DRTP01 = DRIVER TELLER TERMINAL PRINTER «, t00=0x0000, t01=0x00d2}
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…013e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…017e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0142}
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…0250 Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0001, t01=0x008e}
0x0250…025a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c6}
0x025a…0282 Head {h00=0x0024, h01=0x0050, text=»* A C T P : ACTIVATION PART «, t00=0x0001, t01=0x00d0}
0x0282…028c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028c…02b6 Head {h00=0x0026, h01=0x0050, text=»* I H T P : INTERRUPT HANDLER «, t00=0x0001, t01=0x0102}
0x02b6…02c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c0…02e8 Head {h00=0x0024, h01=0x0050, text=»* R C T P : RECOVERY ROUTINE«, t00=0x0001, t01=0x0136}
0x02e8…02f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015e}
0x02f2…02fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0168}
0x02fc…0336 Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES:«, t00=0x0001, t01=0x0172}
0x0336…0340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0340…0386 Head {h00=0x0042, h01=0x0050, text=»* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM«, t00=0x0002, t01=0x0026}
0x0386…0390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0390…03ca Head {h00=0x0036, h01=0x0050, text=»* B C D T B Y : CONVERT FROM BINARY TO DECIMAL«, t00=0x0002, t01=0x0076}
0x03ca…03d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b0}
0x03d4…041c Head {h00=0x0044, h01=0x0050, text=»* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST«, t00=0x0002, t01=0x00ba}
0x041c…0444 Head {h00=0x0024, h01=0x0050, text=»* CHARACTER IN OUTPUT BUFFER «, t00=0x0002, t01=0x0102}
0x0444…0452 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x012a}
0x0452…045c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0138}
0x045c…048a Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x0142}
0x048a…0494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0170}
0x0494…04b8 Head {h00=0x0020, h01=0x0050, text=»* ORDER 00 : TEST STATUS«, t00=0x0002, t01=0x017a}
0x04b8…04de Head {h00=0x0022, h01=0x0050, text=»* ORDER 06 : WRITE JOURNAL«, t00=0x0003, t01=0x000e}
0x04de…0508 Head {h00=0x0026, h01=0x0050, text=»* ORDER 07 : WRITE TALLY ROLL «, t00=0x0003, t01=0x0034}
0x0508…0538 Head {h00=0x002c, h01=0x0050, text=»* ORDER 08 : WRITE VOUCHER/PASSBOOK «, t00=0x0003, t01=0x005e}
0x0538…0542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008e}
0x0542…054c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0098}
0x054c…056e Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0003, t01=0x00a2}
0x056e…0578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c4}
0x0578…059e Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1: WORK REGISTER«, t00=0x0003, t01=0x00ce}
0x059e…05c4 Head {h00=0x0022, h01=0x0050, text=»* A2: INPUT/OUTPUT «, t00=0x0003, t01=0x00f4}
0x05c4…05ec Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER POINTER «, t00=0x0003, t01=0x011a}
0x05ec…0614 Head {h00=0x0024, h01=0x0050, text=»* A4: OUTPUT COUNTER «, t00=0x0003, t01=0x0142}
0x0614…063a Head {h00=0x0022, h01=0x0050, text=»* A5: STACK POINTER«, t00=0x0003, t01=0x016a}
0x063a…065e Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0003, t01=0x0190}
0x065e…067c Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0004, t01=0x0024}
0x067c…06a0 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0004, t01=0x0042}
0x06a0…06aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0066}
0x06aa…06b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0070}
0x06b4…06d2 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0004, t01=0x007a}
0x06d2…06dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0098}
0x06dc…0724 Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN«, t00=0x0004, t01=0x00a2}
0x0724…073c Head {h00=0x0014, h01=0x0050, text=»* BE EXCLUDED:«, t00=0x0004, t01=0x00ea}
0x073c…0746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0102}
0x0746…0766 Head {h00=0x001c, h01=0x0050, text=»* ORDER 07 (PTS 6223)«, t00=0x0004, t01=0x010c}
0x0766…079e Head {h00=0x0034, h01=0x0050, text=»* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) «, t00=0x0004, t01=0x012c}
0x079e…07d2 Head {h00=0x0030, h01=0x0050, text=»* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 «, t00=0x0004, t01=0x0164}
0x07d2…07dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07dc…07e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0012}
0x07e6…082a Head {h00=0x0040, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED«, t00=0x0005, t01=0x001c}
0x082a…086c Head {h00=0x003e, h01=0x0050, text=»* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET «, t00=0x0005, t01=0x0060}
0x086c…0876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a2}
0x0876…0880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ac}
0x0880…088e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00b6}
0x088e…0898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c4}
0x0898…08ac Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x00ce}
0x08ac…08c0 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x00e2}
0x08c0…08d4 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x00f6}
0x08d4…08de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010a}
0x08de…0900 Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD ADDRESS BLOCK «, t00=0x0005, t01=0x0114}
0x0900…090a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0136}
0x090a…0920 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0140}
0x0920…0936 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x0156}
0x0936…094c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x016c}
0x094c…0956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x0956…0986 Head {h00=0x002c, h01=0x0050, text=» EXTRN TDISP DISPATCHING FROM INTERRUPT «, t00=0x0005, t01=0x018c}
0x0986…09ae Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE DISPATCH I/O ERROR«, t00=0x0006, t01=0x002c}
0x09ae…09d8 Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x0006, t01=0x0054}
0x09d8…09f6 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0006, t01=0x007e}
0x09f6…0a20 Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0006, t01=0x009c}
0x0a20…0a46 Head {h00=0x0022, h01=0x0050, text=» EXTRN LDREG RESTORE REGISTERS«, t00=0x0006, t01=0x00c6}
0x0a46…0a82 Head {h00=0x0038, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT «, t00=0x0006, t01=0x00ec}
0x0a82…0aa6 Head {h00=0x0020, h01=0x0050, text=» EXTRN SAVE8 SAVE REG. A1-A8«, t00=0x0006, t01=0x0128}
0x0aa6…0ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0ab0…0ae2 Head {h00=0x002e, h01=0x0050, text=»* DISPLACMENT IN DEVICE WORK TABLE DWT«, t00=0x0006, t01=0x0156}
0x0ae2…0aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aec…0b08 (7, 0, 400) Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0007, t01=0x0004}
0x0b08…0b2a Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0007, t01=0x0020}
0x0b2a…0b4c Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0007, t01=0x0042}
0x0b4c…0b66 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0007, t01=0x0064}
0x0b66…0b90 Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0007, t01=0x007e}
0x0b90…0b9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00a8}
0x0b9e…0ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b6}
0x0ba8…0bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb2…0bc8 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00ca}
0x0bc8…0bde Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0007, t01=0x00e0}
0x0bde…0bf4 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00f6}
0x0bf4…0bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010c}
0x0bfe…0c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0116}
0x0c08…0c3a Head {h00=0x002e, h01=0x0050, text=»CCERR EQU /4 RETURN CODE. CODE CHECK ERROR«, t00=0x0007, t01=0x0120}
0x0c3a…0c70 Head {h00=0x0032, h01=0x0050, text=»PROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE«, t00=0x0007, t01=0x0152}
0x0c70…0ca0 Head {h00=0x002c, h01=0x0050, text=»VOCHIN EQU /200 RETURN CODE. VOUCHER IN «, t00=0x0007, t01=0x0188}
0x0ca0…0cc6 Head {h00=0x0022, h01=0x0050, text=»THRPUT EQU /2 THROUGHPUT ERROR«, t00=0x0008, t01=0x0028}
0x0cc6…0cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cd0…0cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0058}
0x0cda…0d0c Head {h00=0x002e, h01=0x0050, text=»VOIN EQU /8 VOUCHER IN BIT IN DATA-REQUEST«, t00=0x0008, t01=0x0062}
0x0d0c…0d44 Head {h00=0x0034, h01=0x0050, text=»EOJT EQU /4 END OF JOURNALTAPE BIT IN DATA-REQ. «, t00=0x0008, t01=0x0094}
0x0d44…0d6c Head {h00=0x0024, h01=0x0050, text=»STX EQU /82 START OF TEXT BLOCK «, t00=0x0008, t01=0x00cc}
0x0d6c…0d92 Head {h00=0x0022, h01=0x0050, text=»ETB EQU /97 END OF TEXT BLOCK «, t00=0x0008, t01=0x00f4}
0x0d92…0db0 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x0008, t01=0x011a}
0x0db0…0dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0138}
0x0dba…0dc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0142}
0x0dc8…0dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0150}
0x0dd2…0ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015a}
0x0ddc…0dfc Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0164}
0x0dfc…0e1c Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0008, t01=0x0184}
0x0e1c…0e3c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0014}
0x0e3c…0e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0034}
0x0e46…0e8a Head {h00=0x0040, h01=0x0050, text=»* ORDER 07, PRINT TALLY ROLL, MAY BE EXCLUDED FOR PTS 6223«, t00=0x0009, t01=0x003e}
0x0e8a…0ea6 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:A=0«, t00=0x0009, t01=0x0082}
0x0ea6…0eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb0…0ec2 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0009, t01=0x00a8}
0x0ec2…0ed6 Head {h00=0x0010, h01=0x0050, text=»ORD7 EQU X:A«, t00=0x0009, t01=0x00ba}
0x0ed6…0ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ee0…0f1e Head {h00=0x003a, h01=0x0050, text=»* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY«, t00=0x0009, t01=0x00d8}
0x0f1e…0f38 Head {h00=0x0016, h01=0x0050, text=»* SETTING X:B=1 «, t00=0x0009, t01=0x0116}
0x0f38…0f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0130}
0x0f42…0f54 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x013a}
0x0f54…0f6a Head {h00=0x0012, h01=0x0050, text=»CUTPER EQU X:B«, t00=0x0009, t01=0x014c}
0x0f6a…0f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0162}
0x0f74…0fb8 Head {h00=0x0040, h01=0x0050, text=»* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C=1 «, t00=0x0009, t01=0x016c}
0x0fb8…0fda Head {h00=0x001e, h01=0x0050, text=»* AND X:D=1 RESPECTIVLY «, t00=0x000a, t01=0x0020}
0x0fda…0fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0042}
0x0fe4…0ff6 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000a, t01=0x004c}
0x0ff6…100c Head {h00=0x0012, h01=0x0050, text=»TRETON EQU X:C«, t00=0x000a, t01=0x005e}
0x100c…1016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0074}
0x1016…1028 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x007e}
0x1028…103e Head {h00=0x0012, h01=0x0050, text=»FJOTON EQU X:D«, t00=0x000a, t01=0x0090}
0x103e…1048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a6}
0x1048…1084 Head {h00=0x0038, h01=0x0050, text=»* ORDER 08,PRINT VOUCHER/PASSBOOK,IS COMPLETED IF «, t00=0x000a, t01=0x00b0}
0x1084…10c2 Head {h00=0x003a, h01=0x0050, text=»* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 «, t00=0x000a, t01=0x00ec}
0x10c2…10cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012a}
0x10cc…10de Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000a, t01=0x0134}
0x10de…10f4 Head {h00=0x0012, h01=0x0050, text=»COMPL EQU X:E «, t00=0x000a, t01=0x0146}
0x10f4…10fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015c}
0x10fe…110c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0166}
0x110c…1116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0174}
0x1116…1120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017e}
0x1120…115a Head {h00=0x0036, h01=0x0050, text=»* INDICATION OF RECOVERY EXECUTED ON REQUEST CAN«, t00=0x000a, t01=0x0188}
0x115a…1192 Head {h00=0x0034, h01=0x0050, text=»* BE INCLUDED IN THE DRIVER BY SETTING X:F = 1«, t00=0x000b, t01=0x0032}
0x1192…119c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006a}
0x119c…11ae Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000b, t01=0x0074}
0x11ae…11c4 Head {h00=0x0012, h01=0x0050, text=»RECOVY EQU X:F«, t00=0x000b, t01=0x0086}
0x11c4…11ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009c}
0x11ce…1214 Head {h00=0x0042, h01=0x0050, text=»* IN SITUATIONS WHERE THE SELECTOR UNIT OR PRINTER HARDWARE«, t00=0x000b, t01=0x00a6}
0x1214…125a Head {h00=0x0042, h01=0x0050, text=»* IS INACTIVE, END OF REQUEST WITH RETURN CODE NOT OPERABLE«, t00=0x000b, t01=0x00ec}
0x125a…1298 Head {h00=0x003a, h01=0x0050, text=»* CAN BE CHOSEN BY SETTING THE CONSTANT RECEND = 1 «, t00=0x000b, t01=0x0132}
0x1298…12aa Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000b, t01=0x0170}
0x12aa…12c0 Head {h00=0x0012, h01=0x0050, text=»RECEND EQU X:G«, t00=0x000b, t01=0x0182}
0x12c0…12ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0008}
0x12ca…12fc Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000c, t01=0x0012}
0x12fc…132a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000c, t01=0x0044}
0x132a…1334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0072}
0x1334…1348 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000c, t01=0x007c}
0x1348…1352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0090}
0x1352…135c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009a}
0x135c…1396 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000c, t01=0x00a4}
0x1396…13c8 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000c, t01=0x00de}
0x13c8…13d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0110}
0x13d2…13e6 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000c, t01=0x011a}
0x13e6…13f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012e}
0x13f0…140c Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000c, t01=0x0138}
0x140c…1416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0154}
0x1416…1428 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 20«, t00=0x000c, t01=0x015e}
0x1428…143e Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:I«, t00=0x000c, t01=0x0170}
0x143e…1448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0186}
0x1448…1456 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0190}
0x1456…1460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000e}
0x1460…146a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0018}
0x146a…1488 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000d, t01=0x0022}
0x1488…14a6 Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x000d, t01=0x0040}
0x14a6…14c4 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000d, t01=0x005e}
0x14c4…14ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007c}
0x14ce…14d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0086}
0x14d8…150c Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000d, t01=0x0090}
0x150c…1516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x1516…152c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000d, t01=0x00ce}
0x152c…1544 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000d, t01=0x00e4}
0x1544…1550 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00fc}
0x1550…155a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0108}
0x155a…1570 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x0112}
0x1570…158a Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000d, t01=0x0128}
0x158a…1596 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0142}
0x1596…15a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014e}
0x15a0…15d2 Head {h00=0x002e, h01=0x0050, text=»DWTRLN EQU START+/12 REQUESTED LINE NUMBER«, t00=0x000d, t01=0x0158}
0x15d2…1602 Head {h00=0x002c, h01=0x0050, text=»DWTALN EQU START+/13 ACTUAL LINE NUMBER «, t00=0x000d, t01=0x018a}
0x1602…160c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002a}
0x160c…161a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0034}
0x161a…1624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0042}
0x1624…1638 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x000e, t01=0x004c}
0x1638…164c Head {h00=0x0010, h01=0x0050, text=»* BUFFERS * «, t00=0x000e, t01=0x0060}
0x164c…1660 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x000e, t01=0x0074}
0x1660…166a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0088}
0x166a…1674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0092}
0x1674…16a8 Head {h00=0x0030, h01=0x0050, text=»BUF1 DATA /0382,/0D1D CR1, ATTACH PRINT HEAD«, t00=0x000e, t01=0x009c}
0x16a8…16dc Head {h00=0x0030, h01=0x0050, text=»BUF3 DATA /0382,/091D CR2, ATTACH PRINT HEAD«, t00=0x000e, t01=0x00d0}
0x16dc…16e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0104}
0x16e6…1712 Head {h00=0x0028, h01=0x0050, text=»* BUF4 CONTAINS FOLLOWING ORDERS: «, t00=0x000e, t01=0x010e}
0x1712…1740 Head {h00=0x002a, h01=0x0050, text=»* CR2,LIFT TO TOP,GRASP,LIFT TO TOP «, t00=0x000e, t01=0x013a}
0x1740…174a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0168}
0x174a…1754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0172}
0x1754…177e Head {h00=0x0026, h01=0x0050, text=»BUF4 DATA /0700,/2009,/0C1A,/830C «, t00=0x000e, t01=0x017c}
0x177e…17b2 Head {h00=0x0030, h01=0x0050, text=»BUF5 DATA /030C,/1B83 LIFT TO TOP AND RELASE«, t00=0x000f, t01=0x0016}
0x17b2…17bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x004a}
0x17bc…17c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0054}
0x17c6…17d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17d0…17e2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x0068}
0x17e2…17f4 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000f, t01=0x007a}
0x17f4…1806 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x008c}
0x1806…1810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009e}
0x1810…181a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a8}
0x181a…183e Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x000f, t01=0x00b2}
0x183e…185a Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x000f, t01=0x00d6}
0x185a…187a Head {h00=0x001c, h01=0x0050, text=»TPAD EQU * ADDRESS BLOCK«, t00=0x000f, t01=0x00f2}
0x187a…189e Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATIONDRIVER «, t00=0x000f, t01=0x0112}
0x189e…18c4 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000f, t01=0x0136}
0x18c4…18e8 Head {h00=0x0020, h01=0x0050, text=» DATA IHTP INTERRUPTHANDLER «, t00=0x000f, t01=0x015c}
0x18e8…190c Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x000f, t01=0x0180}
0x190c…191a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0014}
0x191a…1924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0022}
0x1924…194c Head {h00=0x0024, h01=0x0050, text=»* TABLE TO GET ROOMLESS POINT«, t00=0x0010, t01=0x002c}
0x194c…1956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0054}
0x1956…196a Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0010, t01=0x005e}
0x196a…1996 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0010, t01=0x0072}
0x1996…19a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009e}
0x19a0…19cc Head {h00=0x0028, h01=0x0050, text=»* TABLE TO GET ACTUAL LF-CHARACTER«, t00=0x0010, t01=0x00a8}
0x19cc…19d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d4}
0x19d6…19e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00de}
0x19e0…19f4 Head {h00=0x0010, h01=0x0050, text=»LFTAB EQU * «, t00=0x0010, t01=0x00e8}
0x19f4…1a24 Head {h00=0x002c, h01=0x0050, text=» DATA /1819 LINE FEED JOURNAL/TALLY ROLL«, t00=0x0010, t01=0x00fc}
0x1a24…1a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012c}
0x1a2e…1a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0136}
0x1a38…1a86 Head {h00=0x004a, h01=0x0050, text=»* TABLE TO GET ACTUAL CR-CHARACTER FOR JOURNAL AND VOUCHER/PASSBOOK «, t00=0x0010, t01=0x0140}
0x1a86…1a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018e}
0x1a90…1a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a9a…1aae Head {h00=0x0010, h01=0x0050, text=»HPTAB EQU * «, t00=0x0011, t01=0x0012}
0x1aae…1ac2 Head {h00=0x0010, h01=0x0050, text=» DATA /0D09 «, t00=0x0011, t01=0x0026}
0x1ac2…1ad6 Head {h00=0x0010, h01=0x0050, text=» DATA /0009 «, t00=0x0011, t01=0x003a}
0x1ad6…1aea Head {h00=0x0010, h01=0x0050, text=» DATA /0D00 «, t00=0x0011, t01=0x004e}
0x1aea…1af4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0062}
0x1af4…1afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006c}
0x1afe…1b14 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0011, t01=0x0076}
0x1b14…1b52 Head {h00=0x003a, h01=0x0050, text=»CPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE «, t00=0x0011, t01=0x008c}
0x1b52…1b5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00ca}
0x1b5e…1b6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00d6}
0x1b6c…1b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e4}
0x1b76…1b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ee}
0x1b80…1b94 Head {h00=0x0010, h01=0x0050, text=»* A C T P «, t00=0x0011, t01=0x00f8}
0x1b94…1b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1b9e…1bd4 Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0011, t01=0x0116}
0x1bd4…1c16 Head {h00=0x003e, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0011, t01=0x014c}
0x1c16…1c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018e}
0x1c20…1c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c2a…1c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0012}
0x1c34…1c58 Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0012, t01=0x001c}
0x1c58…1c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0040}
0x1c62…1c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x004a}
0x1c6c…1c8a Head {h00=0x001a, h01=0x0050, text=» LDR A7,A7 ORDER /00 ?«, t00=0x0012, t01=0x0054}
0x1c8a…1ca4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TPDUMY YES «, t00=0x0012, t01=0x0072}
0x1ca4…1cc6 Head {h00=0x001e, h01=0x0050, text=»ACTP01 LDR A4,A7 GET ORDER«, t00=0x0012, t01=0x008c}
0x1cc6…1ce4 Head {h00=0x001a, h01=0x0050, text=» SUK A4,8 CHECK ORDER «, t00=0x0012, t01=0x00ae}
0x1ce4…1d08 Head {h00=0x0020, h01=0x0050, text=» RF(P) ACT020 ILLEGAL ORDER «, t00=0x0012, t01=0x00cc}
0x1d08…1d26 Head {h00=0x001a, h01=0x0050, text=» RF(E) ACT010 ORDER 08«, t00=0x0012, t01=0x00f0}
0x1d26…1d48 Head {h00=0x001e, h01=0x0050, text=» ADK A4,2 ILLEGAL ORDER ? «, t00=0x0012, t01=0x010e}
0x1d48…1d5c Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0012, t01=0x0130}
0x1d5c…1d74 Head {h00=0x0014, h01=0x0050, text=» RF(NN) TP100 NO«, t00=0x0012, t01=0x0144}
0x1d74…1d80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x015c}
0x1d80…1d94 Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=0 «, t00=0x0012, t01=0x0168}
0x1d94…1da8 Head {h00=0x0010, h01=0x0050, text=» RF(Z) TP100«, t00=0x0012, t01=0x017c}
0x1da8…1db4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0190}
0x1db4…1ddc Head {h00=0x0024, h01=0x0050, text=»ACT020 ABL DISIOE ILLEGAL ORDER «, t00=0x0013, t01=0x000c}
0x1ddc…1de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0034}
0x1de6…1df4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x003e}
0x1df4…1dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004c}
0x1dfe…1e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0056}
0x1e08…1e36 Head {h00=0x002a, h01=0x0050, text=»* ORDER 08 : WRITE VOUCHER/PASSBOOK «, t00=0x0013, t01=0x0060}
0x1e36…1e76 Head {h00=0x003c, h01=0x0050, text=»* GET REQUESTED LINE NUMBER AND SAVE IN DWT«, t00=0x0013, t01=0x008e}
0x1e76…1e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e80…1ea8 Head {h00=0x0024, h01=0x0050, text=»ACT010 LD A1,2,A8 BUFFER ADDRESS«, t00=0x0013, t01=0x00d8}
0x1ea8…1ece Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 GET FIRST CHARACTER«, t00=0x0013, t01=0x0100}
0x1ece…1ef6 Head {h00=0x0024, h01=0x0050, text=» LC A1,1,A1 GET SECOND CHARACTER«, t00=0x0013, t01=0x0126}
0x1ef6…1f12 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F LINE UNIT«, t00=0x0013, t01=0x014e}
0x1f12…1f24 Head {h00=0x000e, h01=0x0050, text=» SLL A4,4 «, t00=0x0013, t01=0x016a}
0x1f24…1f44 Head {h00=0x001c, h01=0x0050, text=» ANK A4,/F0 LINE DECADE «, t00=0x0013, t01=0x017c}
0x1f44…1f6a Head {h00=0x0022, h01=0x0050, text=» ORR A1,A4 DECIMAL LINE NUMBER«, t00=0x0014, t01=0x000c}
0x1f6a…1f92 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x0014, t01=0x0032}
0x1f92…1fa4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0014, t01=0x005a}
0x1fa4…1fca Head {h00=0x0022, h01=0x0050, text=» LD A2,10,A8 GET CONTROL WORD «, t00=0x0014, t01=0x006c}
0x1fca…1ffe Head {h00=0x0030, h01=0x0050, text=» SLL A2,3 LINE NUMBER RELATIVE OR ABSOLUTE ?«, t00=0x0014, t01=0x0092}
0x1ffe…201e Head {h00=0x001c, h01=0x0050, text=» RF(NN) ACT018 ABSOLUTE «, t00=0x0014, t01=0x00c6}
0x201e…2046 Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTRLN,A6 GET LINE NUMBER«, t00=0x0014, t01=0x00e6}
0x2046…2050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x010e}
0x2050…207e Head {h00=0x002a, h01=0x0050, text=» SLL A2,1 RELATIVE. LIFT UP OR DOWN ? «, t00=0x0014, t01=0x0118}
0x207e…209e Head {h00=0x001c, h01=0x0050, text=» RF(NN) ACT015 LIFT DOWN«, t00=0x0014, t01=0x0146}
0x209e…20b8 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A1 LIFT UP«, t00=0x0014, t01=0x0166}
0x20b8…20ce Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACT018«, t00=0x0014, t01=0x0180}
0x20ce…20e0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0015, t01=0x0008}
0x20e0…20f2 Head {h00=0x000e, h01=0x0050, text=» RF ACT018«, t00=0x0015, t01=0x001a}
0x20f2…20fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002c}
0x20fc…211e Head {h00=0x001e, h01=0x0050, text=»ACT015 ADR A3,A1 LIFT DOWN«, t00=0x0015, t01=0x0036}
0x211e…2128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0058}
0x2128…2132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0062}
0x2132…2172 Head {h00=0x003c, h01=0x0050, text=»ACT018 SC A3,DWTRLN,A6 SAVE REQUESTED LINE NUMBER IN DWT«, t00=0x0015, t01=0x006c}
0x2172…2180 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00ac}
0x2180…218a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ba}
0x218a…2194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c4}
0x2194…21a8 Head {h00=0x0010, h01=0x0050, text=»TP100 EQU * «, t00=0x0015, t01=0x00ce}
0x21a8…21ba Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0015, t01=0x00e2}
0x21ba…21e4 Head {h00=0x0026, h01=0x0050, text=» SC A2,DWTBC,A6 RESET BYTE COUNTER«, t00=0x0015, t01=0x00f4}
0x21e4…2204 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0015, t01=0x011e}
0x2204…220e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013e}
0x220e…2218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0148}
0x2218…2252 Head {h00=0x0036, h01=0x0050, text=»* CHECK IF REQUESTED LENGTH IS EQUAL TO TWO FOR «, t00=0x0015, t01=0x0152}
0x2252…2270 Head {h00=0x001a, h01=0x0050, text=»* ORDERS 06 AND 07. «, t00=0x0015, t01=0x018c}
0x2270…227a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001a}
0x227a…228e Head {h00=0x0010, h01=0x0050, text=»TP110 EQU * «, t00=0x0016, t01=0x0024}
0x228e…22b6 Head {h00=0x0024, h01=0x0050, text=» LD A3,4,A8 GET REQUESTED LENGTH«, t00=0x0016, t01=0x0038}
0x22b6…22da Head {h00=0x0020, h01=0x0050, text=» LDR A4,A7 SAVE ORDER IN A4 «, t00=0x0016, t01=0x0060}
0x22da…22fa Head {h00=0x001c, h01=0x0050, text=» RF(Z) TPDUMY ORDER /00 «, t00=0x0016, t01=0x0084}
0x22fa…232e Head {h00=0x0030, h01=0x0050, text=» LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD«, t00=0x0016, t01=0x00a4}
0x232e…234a Head {h00=0x0018, h01=0x0050, text=» SUK A4,8 ORDER 08 ?«, t00=0x0016, t01=0x00d8}
0x234a…237a Head {h00=0x002c, h01=0x0050, text=» RF(Z) TP600 YES GO TO ORDER PROCESSING «, t00=0x0016, t01=0x00f4}
0x237a…238c Head {h00=0x000e, h01=0x0050, text=» ANK A1,/4«, t00=0x0016, t01=0x0124}
0x238c…23b8 Head {h00=0x0028, h01=0x0050, text=» RF(NE) TPHP TEXT MESSAGE WRITTEN ? «, t00=0x0016, t01=0x0136}
0x23b8…23da Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 REQ. LENGTH =2 ?«, t00=0x0016, t01=0x0162}
0x23da…2406 Head {h00=0x0028, h01=0x0050, text=» RF(NP) TPLF10 SEND LINE FEED DIRECT«, t00=0x0016, t01=0x0184}
0x2406…2410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0020}
0x2410…241a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002a}
0x241a…242e Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0017, t01=0x0034}
0x242e…2448 Head {h00=0x0016, h01=0x0050, text=» SUK A7,7 ORDER 07«, t00=0x0017, t01=0x0048}
0x2448…247c Head {h00=0x0030, h01=0x0050, text=» RF(Z) TP400 GO TO ORDER PROCESSING ORDER 07«, t00=0x0017, t01=0x0062}
0x247c…24a6 Head {h00=0x0026, h01=0x0050, text=» ELSE ORDER PROCESSING ORDER 06 «, t00=0x0017, t01=0x0096}
0x24a6…24b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00c0}
0x24b2…24c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00cc}
0x24c0…24ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00da}
0x24ca…24d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e4}
0x24d4…24de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ee}
0x24de…2502 Head {h00=0x0020, h01=0x0050, text=»* ORDER 06 : PRINT JOURNAL«, t00=0x0017, t01=0x00f8}
0x2502…250c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011c}
0x250c…2516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0126}
0x2516…2520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0130}
0x2520…254e Head {h00=0x002a, h01=0x0050, text=»TP200 LDKL A3,BUF1 SEND CR1 AND ATTACH«, t00=0x0017, t01=0x013a}
0x254e…2572 Head {h00=0x0020, h01=0x0050, text=»TP210 CF A5,BUFCHR -"-«, t00=0x0017, t01=0x0168}
0x2572…2598 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x0017, t01=0x018c}
0x2598…25a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0022}
0x25a6…25b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0030}
0x25b0…25ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x003a}
0x25ba…25e6 Head {h00=0x0028, h01=0x0050, text=»* SEND LINE FEED ORDERS 06 AND 07 «, t00=0x0018, t01=0x0044}
0x25e6…25f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0070}
0x25f0…2602 Head {h00=0x000e, h01=0x0050, text=»TPLF EQU *«, t00=0x0018, t01=0x007a}
0x2602…2628 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/1E DETACH PRINT HEAD «, t00=0x0018, t01=0x008c}
0x2628…263e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0018, t01=0x00b2}
0x263e…2652 Head {h00=0x0010, h01=0x0050, text=»TPLF10 EQU *«, t00=0x0018, t01=0x00c8}
0x2652…265c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00dc}
0x265c…2696 Head {h00=0x0036, h01=0x0050, text=»* POSITION PRINT HEAD ACCORDING TO HP-PARAMETER «, t00=0x0018, t01=0x00e6}
0x2696…26b2 Head {h00=0x0018, h01=0x0050, text=»* IN CONTROL WORD.«, t00=0x0018, t01=0x0120}
0x26b2…26bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013c}
0x26bc…26ce Head {h00=0x000e, h01=0x0050, text=»TPHP EQU *«, t00=0x0018, t01=0x0146}
0x26ce…26f6 Head {h00=0x0024, h01=0x0050, text=» LD A1,4,A8 GET REQUESTED LENGTH«, t00=0x0018, t01=0x0158}
0x26f6…2720 Head {h00=0x0026, h01=0x0050, text=» ST A1,6,A8 SAVE EFFECTIVE LENGTH «, t00=0x0018, t01=0x0180}
0x2720…2746 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x0019, t01=0x001a}
0x2746…276c Head {h00=0x0022, h01=0x0050, text=» SRL A1,14 HP-PARAMETER IN A1 «, t00=0x0019, t01=0x0040}
0x276c…2788 Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 06 ?«, t00=0x0019, t01=0x0066}
0x2788…27a2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TPHP10 YES «, t00=0x0019, t01=0x0082}
0x27a2…27c4 Head {h00=0x001e, h01=0x0050, text=» ADK A1,3 NO MODIFY INDEX «, t00=0x0019, t01=0x009c}
0x27c4…27f4 Head {h00=0x002c, h01=0x0050, text=»TPHP10 LC A2,HPTAB,A1 LOAD CR-CHARACTER «, t00=0x0019, t01=0x00be}
0x27f4…2816 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT AND SEND IT «, t00=0x0019, t01=0x00ee}
0x2816…2838 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0019, t01=0x0110}
0x2838…284c Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0019, t01=0x0132}
0x284c…2868 Head {h00=0x0018, h01=0x0050, text=» SUK A7,8 ORDER 8 ? «, t00=0x0019, t01=0x0146}
0x2868…287e Head {h00=0x0012, h01=0x0050, text=» RF(E) TPDUMY «, t00=0x0019, t01=0x0162}
0x287e…2890 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0019, t01=0x0178}
0x2890…28b8 Head {h00=0x0024, h01=0x0050, text=» LC A2,LFTAB,A7 GET LF CHARACTER«, t00=0x0019, t01=0x018a}
0x28b8…28da Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT AND SEND IT «, t00=0x001a, t01=0x0022}
0x28da…28ee Head {h00=0x0010, h01=0x0050, text=»TPHP20 EQU *«, t00=0x001a, t01=0x0044}
0x28ee…28f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x28f8…290e Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x001a, t01=0x0062}
0x290e…2934 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x001a, t01=0x0078}
0x2934…2946 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x001a, t01=0x009e}
0x2946…2968 Head {h00=0x001e, h01=0x0050, text=» ANK A1,3 CUT/PERFORATE ? «, t00=0x001a, t01=0x00b0}
0x2968…2992 Head {h00=0x0026, h01=0x0050, text=» RF(Z) TPDUMY POSITION PRINT HEAD «, t00=0x001a, t01=0x00d2}
0x2992…29c2 Head {h00=0x002c, h01=0x0050, text=» LC A2,CPTAB-1,A1 GET CUT/PERFORATE CODE«, t00=0x001a, t01=0x00fc}
0x29c2…29d8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001a, t01=0x012c}
0x29d8…29e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0142}
0x29e4…29ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x014e}
0x29ee…29f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0158}
0x29f8…2a18 Head {h00=0x001c, h01=0x0050, text=»* COMMON END OF PRINT «, t00=0x001a, t01=0x0162}
0x2a18…2a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0182}
0x2a22…2a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018c}
0x2a2c…2a52 Head {h00=0x0022, h01=0x0050, text=»* SEND LAST DUMMY CHARACTER «, t00=0x001b, t01=0x0008}
0x2a52…2a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002e}
0x2a5c…2a70 Head {h00=0x0010, h01=0x0050, text=»TPDUMY EQU *«, t00=0x001b, t01=0x0038}
0x2a70…2a98 Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETX END OF TEXT MESSAGE «, t00=0x001b, t01=0x004c}
0x2a98…2aae Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001b, t01=0x0074}
0x2aae…2abc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x008a}
0x2abc…2ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0098}
0x2ac6…2ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a2}
0x2ad0…2b04 Head {h00=0x0030, h01=0x0050, text=»* CHECK STATUS AFTER LAST DUMMY CHARACTER «, t00=0x001b, t01=0x00ac}
0x2b04…2b0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e0}
0x2b0e…2b22 Head {h00=0x0010, h01=0x0050, text=»TPTST EQU * «, t00=0x001b, t01=0x00ea}
0x2b22…2b40 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A7 ORDER 00 ? «, t00=0x001b, t01=0x00fe}
0x2b40…2b5a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TST010 NO «, t00=0x001b, t01=0x011c}
0x2b5a…2b72 Head {h00=0x0014, h01=0x0050, text=»TST005 LDR A3,A2«, t00=0x001b, t01=0x0136}
0x2b72…2b94 Head {h00=0x001e, h01=0x0050, text=» ANK A3,VOIN VOUCHER IN ? «, t00=0x001b, t01=0x014e}
0x2b94…2bac Head {h00=0x0014, h01=0x0050, text=» RF(Z) TST010 NO«, t00=0x001b, t01=0x0170}
0x2bac…2bd4 Head {h00=0x0024, h01=0x0050, text=» ORKL A1,VOCHIN SET RETURN CODE «, t00=0x001b, t01=0x0188}
0x2bd4…2c04 Head {h00=0x002c, h01=0x0050, text=»TST010 ANK A2,EOJT END OF JOURNAL TAPE ?«, t00=0x001c, t01=0x0020}
0x2c04…2c2a Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ENDIO NO PERFORM ENDIO«, t00=0x001c, t01=0x0050}
0x2c2a…2c5a Head {h00=0x002c, h01=0x0050, text=» ORK A1,PROUT SET RETURN CODE PAPER OUT «, t00=0x001c, t01=0x0076}
0x2c5a…2c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a6}
0x2c64…2c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b0}
0x2c6e…2c9e Head {h00=0x002c, h01=0x0050, text=»* PERFORM END I/O AND GO TO DISPATCHER«, t00=0x001c, t01=0x00ba}
0x2c9e…2ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ea}
0x2ca8…2cbc Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x001c, t01=0x00f4}
0x2cbc…2cf4 Head {h00=0x0034, h01=0x0050, text=» ABL DISEND PERFORM END I/O AND GO TO DISPATCHER«, t00=0x001c, t01=0x0108}
0x2cf4…2cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0140}
0x2cfe…2d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x014a}
0x2d08…2d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0154}
0x2d12…2d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x015e}
0x2d1c…2d30 Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x001c, t01=0x0168}
0x2d30…2d3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x017c}
0x2d3e…2d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x018a}
0x2d48…2d52 (29, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0004}
0x2d52…2d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x000e}
0x2d5c…2d84 Head {h00=0x0024, h01=0x0050, text=»* ORDER 07 : PRINT TALLY ROLL «, t00=0x001d, t01=0x0018}
0x2d84…2d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0040}
0x2d8e…2d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004a}
0x2d98…2da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0054}
0x2da2…2dc8 Head {h00=0x0022, h01=0x0050, text=»TP400 ANK A2,VOIN VOUCHER IN ?«, t00=0x001d, t01=0x005e}
0x2dc8…2de0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TP410 NO «, t00=0x001d, t01=0x0084}
0x2de0…2e0c Head {h00=0x0028, h01=0x0050, text=»TP405 CF A5,RELEAS ERROR. VOUCHER IN«, t00=0x001d, t01=0x009c}
0x2e0c…2e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c8}
0x2e16…2e2a Head {h00=0x0010, h01=0x0050, text=»TP410 EQU * «, t00=0x001d, t01=0x00d2}
0x2e2a…2e40 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x001d, t01=0x00e6}
0x2e40…2e84 Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x001d, t01=0x00fc}
0x2e84…2ebc Head {h00=0x0034, h01=0x0050, text=» LDKL A3,BUF3 SEND CR2, ATTACH AND PRINT BUFFER «, t00=0x001d, t01=0x0140}
0x2ebc…2ece Head {h00=0x000e, h01=0x0050, text=» RB TP210 «, t00=0x001d, t01=0x0178}
0x2ece…2ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x018a}
0x2ed8…2ee2 (30, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0004}
0x2ee2…2eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000e}
0x2eec…2ef8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0018}
0x2ef8…2f06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0024}
0x2f06…2f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0032}
0x2f10…2f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003c}
0x2f1a…2f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0046}
0x2f24…2f52 Head {h00=0x002a, h01=0x0050, text=»* ORDER 08 : PRINT VOUCHER PASSBOOK «, t00=0x001e, t01=0x0050}
0x2f52…2f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007e}
0x2f5c…2f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0088}
0x2f66…2f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0092}
0x2f70…2f84 Head {h00=0x0010, h01=0x0050, text=»TP600 EQU * «, t00=0x001e, t01=0x009c}
0x2f84…2f96 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/4«, t00=0x001e, t01=0x00b0}
0x2f96…2fc0 Head {h00=0x0026, h01=0x0050, text=» RF(NE) TP700 TEXT ALREADY PRINTED«, t00=0x001e, t01=0x00c2}
0x2fc0…2fd8 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/09 CR2 «, t00=0x001e, t01=0x00ec}
0x2fd8…2ffc Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001e, t01=0x0104}
0x2ffc…3022 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x001e, t01=0x0128}
0x3022…303e Head {h00=0x0018, h01=0x0050, text=» SLL A1,2 RELEASE ? «, t00=0x001e, t01=0x014e}
0x303e…3056 Head {h00=0x0014, h01=0x0050, text=» RF(NN) TP602 NO«, t00=0x001e, t01=0x016a}
0x3056…307e Head {h00=0x0024, h01=0x0050, text=» SUK A3,2 REQUESTED LENGTH = 2 ?«, t00=0x001e, t01=0x0182}
0x307e…309e Head {h00=0x001c, h01=0x0050, text=» RF(Z) TP710 YES RELEASE«, t00=0x001f, t01=0x001a}
0x309e…30b2 Head {h00=0x0010, h01=0x0050, text=»TP602 EQU * «, t00=0x001f, t01=0x003a}
0x30b2…30d4 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x001f, t01=0x004e}
0x30d4…30ec Head {h00=0x0014, h01=0x0050, text=» RF(Z) TP605 NO «, t00=0x001f, t01=0x0070}
0x30ec…310a Head {h00=0x001a, h01=0x0050, text=» SLL A1,1 DISPLACEMENT«, t00=0x001f, t01=0x0088}
0x310a…3122 Head {h00=0x0014, h01=0x0050, text=» RF(N) TP610 YES«, t00=0x001f, t01=0x00a6}
0x3122…313c Head {h00=0x0016, h01=0x0050, text=»TP605 LDKL A3,BUF4«, t00=0x001f, t01=0x00be}
0x313c…3156 Head {h00=0x0016, h01=0x0050, text=» CF A5,BUFCHR SEND«, t00=0x001f, t01=0x00d8}
0x3156…3168 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001f, t01=0x00f2}
0x3168…317a Head {h00=0x000e, h01=0x0050, text=» RF TP620 «, t00=0x001f, t01=0x0104}
0x317a…3188 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0116}
0x3188…3192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0124}
0x3192…31d6 Head {h00=0x0040, h01=0x0050, text=»* SEND ELEVATOR UP/DOWN UNTIL ACTUAL LINE NUMBER IS EQUEAL«, t00=0x001f, t01=0x012e}
0x31d6…31ee Head {h00=0x0014, h01=0x0050, text=»* TO REQUESTED«, t00=0x001f, t01=0x0172}
0x31ee…31f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x018a}
0x31f8…322c (32, 0, 400) Head {h00=0x0030, h01=0x0050, text=»TP610 LC A3,DWTALN,A6 GET ACTUAL LINE NUMBER«, t00=0x0020, t01=0x0004}
0x322c…3252 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/FF ACTUAL LINE NUMBER«, t00=0x0020, t01=0x0038}
0x3252…3284 Head {h00=0x002e, h01=0x0050, text=»TP620 CC A3,DWTRLN,A6 COMPARE LINE NUMBERS«, t00=0x0020, t01=0x005e}
0x3284…32a0 Head {h00=0x0018, h01=0x0050, text=» RF(E) TP650 EQUEAL «, t00=0x0020, t01=0x0090}
0x32a0…32c6 Head {h00=0x0022, h01=0x0050, text=» RF(G) TP630 SEND ELEVATOR UP «, t00=0x0020, t01=0x00ac}
0x32c6…32d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d2}
0x32d0…32f6 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/0B SEND ELEVATOR DOWN«, t00=0x0020, t01=0x00dc}
0x32f6…3324 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0020, t01=0x0102}
0x3324…3346 Head {h00=0x001e, h01=0x0050, text=» RF TP640 SEND LIFT CHAR. «, t00=0x0020, t01=0x0130}
0x3346…3350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0152}
0x3350…3376 Head {h00=0x0022, h01=0x0050, text=»TP630 LDK A2,/0A SEND LIFT UP «, t00=0x0020, t01=0x015c}
0x3376…33a4 Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 DECREMENT ACTUAL LUNE NUMBER«, t00=0x0020, t01=0x0182}
0x33a4…33ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0020}
0x33ae…33b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x002a}
0x33b8…33e2 Head {h00=0x0026, h01=0x0050, text=»TP640 CF A5,OUTPUT SEND LIFT CHAR.«, t00=0x0021, t01=0x0034}
0x33e2…3412 Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER«, t00=0x0021, t01=0x005e}
0x3412…3434 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0021, t01=0x008e}
0x3434…3448 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0021, t01=0x00b0}
0x3448…346e Head {h00=0x0022, h01=0x0050, text=» ABL(Z) RCTP01 ERROR. RECOVERY«, t00=0x0021, t01=0x00c4}
0x346e…3498 Head {h00=0x0026, h01=0x0050, text=» RB TP620 CHECK IF LIFT POSITIONED«, t00=0x0021, t01=0x00ea}
0x3498…34a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0114}
0x34a4…34b8 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0021, t01=0x0120}
0x34b8…34ea Head {h00=0x002e, h01=0x0050, text=» RB(NZ) TP620 CHECK IF LIFT IS POSITIONED «, t00=0x0021, t01=0x0134}
0x34ea…351e Head {h00=0x0030, h01=0x0050, text=»TP645 LDK A1,THRPUT VOUCHER OUT/SHOULD BE IN«, t00=0x0021, t01=0x0166}
0x351e…354a Head {h00=0x0028, h01=0x0050, text=» ORS A1,8,A8 INDICATE IN RETURN CODE«, t00=0x0022, t01=0x000a}
0x354a…355c Head {h00=0x000e, h01=0x0050, text=» RB TPDUMY«, t00=0x0022, t01=0x0036}
0x355c…3568 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0048}
0x3568…3576 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0054}
0x3576…3580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0062}
0x3580…35a6 Head {h00=0x0022, h01=0x0050, text=»* ORDER 08: ATTACH AND PRINT«, t00=0x0022, t01=0x006c}
0x35a6…35ba Head {h00=0x0010, h01=0x0050, text=»TP650 EQU * «, t00=0x0022, t01=0x0092}
0x35ba…35e2 Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 SEND DUMMY TO LET THE «, t00=0x0022, t01=0x00a6}
0x35e2…3604 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT LIFT SETTLE «, t00=0x0022, t01=0x00ce}
0x3604…362c Head {h00=0x0024, h01=0x0050, text=» LD A3,4,A8 GET REQUESTED LENGTH«, t00=0x0022, t01=0x00f0}
0x362c…3652 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 GET NUMBER OF CHAR. «, t00=0x0022, t01=0x0118}
0x3652…366a Head {h00=0x0014, h01=0x0050, text=» RF(Z) TP700 ALL«, t00=0x0022, t01=0x013e}
0x366a…367e Head {h00=0x0010, h01=0x0050, text=» LDK A2,STX «, t00=0x0022, t01=0x0156}
0x367e…36a4 Head {h00=0x0022, h01=0x0050, text=» CF A5,OUTPUT START OF MESSAGE«, t00=0x0022, t01=0x016a}
0x36a4…36ca Head {h00=0x0022, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0022, t01=0x0190}
0x36ca…36dc Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0023, t01=0x0026}
0x36dc…3702 Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 GET FIRST CHARACTER«, t00=0x0023, t01=0x0038}
0x3702…3724 Head {h00=0x001e, h01=0x0050, text=» CCK A1,/1111 TABULATION ?«, t00=0x0023, t01=0x005e}
0x3724…3738 Head {h00=0x0010, h01=0x0050, text=» RF(E) TP690«, t00=0x0023, t01=0x0080}
0x3738…3752 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/1D ATTACH«, t00=0x0023, t01=0x0094}
0x3752…376c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0023, t01=0x00ae}
0x376c…3780 Head {h00=0x0010, h01=0x0050, text=»TP690 EQU * «, t00=0x0023, t01=0x00c8}
0x3780…3796 Head {h00=0x0012, h01=0x0050, text=» IFT CUTPER=1 «, t00=0x0023, t01=0x00dc}
0x3796…37aa Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x0023, t01=0x00f2}
0x37aa…37d8 Head {h00=0x002a, h01=0x0050, text=» CF A5,OUTPUT SEND SPACE BEFORE PRINT «, t00=0x0023, t01=0x0106}
0x37d8…37e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0134}
0x37e4…37fa Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0023, t01=0x0140}
0x37fa…383e Head {h00=0x0040, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED «, t00=0x0023, t01=0x0156}
0x383e…3864 Head {h00=0x0022, h01=0x0050, text=» CF A5,PRBUF PRINT ECB-BUFFER «, t00=0x0024, t01=0x000a}
0x3864…3872 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0030}
0x3872…387c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x003e}
0x387c…38a4 Head {h00=0x0024, h01=0x0050, text=»* ORDER 08: RETURN AFTER PRINT«, t00=0x0024, t01=0x0048}
0x38a4…38ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0070}
0x38ae…38c2 Head {h00=0x0010, h01=0x0050, text=»TP700 EQU * «, t00=0x0024, t01=0x007a}
0x38c2…38e8 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x0024, t01=0x008e}
0x38e8…3904 Head {h00=0x0018, h01=0x0050, text=» SLL A1,2 RELEASE ? «, t00=0x0024, t01=0x00b4}
0x3904…391a Head {h00=0x0012, h01=0x0050, text=» RF(NN) TP715 «, t00=0x0024, t01=0x00d0}
0x391a…392e Head {h00=0x0010, h01=0x0050, text=»TP710 EQU * «, t00=0x0024, t01=0x00e6}
0x392e…394c Head {h00=0x001a, h01=0x0050, text=» CF A5,RELEAS RELEASE «, t00=0x0024, t01=0x00fa}
0x394c…3962 Head {h00=0x0012, h01=0x0050, text=»TP715 ABL TPLF«, t00=0x0024, t01=0x0118}
0x3962…3970 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x012e}
0x3970…397a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x013c}
0x397a…3990 Head {h00=0x0012, h01=0x0050, text=»* P R B U F «, t00=0x0024, t01=0x0146}
0x3990…399a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015c}
0x399a…39e4 Head {h00=0x0046, h01=0x0050, text=»* SUBROUTINE TO SEND CHARACTERS FROM ECB-BUFFER UNTIL REQUESTED «, t00=0x0024, t01=0x0166}
0x39e4…3a02 Head {h00=0x001a, h01=0x0050, text=»* LENGTH IS REACHED «, t00=0x0025, t01=0x0020}
0x3a02…3a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003e}
0x3a0c…3a3a Head {h00=0x002a, h01=0x0050, text=»PRBUF LD A4,4,A8 GET REQUESTED LENGTH «, t00=0x0025, t01=0x0048}
0x3a3a…3a64 Head {h00=0x0026, h01=0x0050, text=» SUK A4,2 ADJUST REQUESTED LENGTH «, t00=0x0025, t01=0x0076}
0x3a64…3a86 Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A8 BUFFER ADDRESS«, t00=0x0025, t01=0x00a0}
0x3a86…3a98 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0025, t01=0x00c2}
0x3a98…3abe Head {h00=0x0022, h01=0x0050, text=»PRB010 LCR A1,A3 GET CHARACTER«, t00=0x0025, t01=0x00d4}
0x3abe…3ad4 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2020 «, t00=0x0025, t01=0x00fa}
0x3ad4…3af4 Head {h00=0x001c, h01=0x0050, text=» RF(NE) PRB100 NOT BLANK«, t00=0x0025, t01=0x0110}
0x3af4…3b0c Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 BLANK «, t00=0x0025, t01=0x0130}
0x3b0c…3b1e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0025, t01=0x0148}
0x3b1e…3b44 Head {h00=0x0022, h01=0x0050, text=» RB PRB010 GET NEXT CHARACTER «, t00=0x0025, t01=0x015a}
0x3b44…3b76 Head {h00=0x002e, h01=0x0050, text=»PRB100 SUK A4,1 DECREMENT REQUESTED LENGTH«, t00=0x0025, t01=0x0180}
0x3b76…3b9a Head {h00=0x0020, h01=0x0050, text=» RF(NN) PRB105 PRINT BUFFER «, t00=0x0026, t01=0x0022}
0x3b9a…3bae Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETB «, t00=0x0026, t01=0x0046}
0x3bae…3bd8 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT SEND END OF MESSAGE «, t00=0x0026, t01=0x005a}
0x3bd8…3bec Head {h00=0x0010, h01=0x0050, text=» LDK A2,ETX «, t00=0x0026, t01=0x0084}
0x3bec…3c26 Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT WAIT FOR WHOLE BUFFER TO BE PRINTED «, t00=0x0026, t01=0x0098}
0x3c26…3c54 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/400 INDICATE MESSAGE PRINTED«, t00=0x0026, t01=0x00d2}
0x3c54…3c6c Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTST,A6«, t00=0x0026, t01=0x0100}
0x3c6c…3ca0 Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/FDFF VOUCHER STATUS CHANGE ALLOWED«, t00=0x0026, t01=0x0118}
0x3ca0…3cb8 Head {h00=0x0014, h01=0x0050, text=» ANS A1,DWTST,A6«, t00=0x0026, t01=0x014c}
0x3cb8…3cce Head {h00=0x0012, h01=0x0050, text=»PRB102 RTN A5 «, t00=0x0026, t01=0x0164}
0x3cce…3cdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x017a}
0x3cdc…3ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0188}
0x3ce6…3cf0 (39, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0004}
0x3cf0…3cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x000e}
0x3cfa…3d12 Head {h00=0x0014, h01=0x0050, text=»* PRINT BUFFER«, t00=0x0027, t01=0x0018}
0x3d12…3d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0030}
0x3d1c…3d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003a}
0x3d26…3d3a Head {h00=0x0010, h01=0x0050, text=»PRB105 EQU *«, t00=0x0027, t01=0x0044}
0x3d3a…3d70 Head {h00=0x0032, h01=0x0050, text=» ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED «, t00=0x0027, t01=0x0058}
0x3d70…3d8e Head {h00=0x001a, h01=0x0050, text=» SUK A7,7 CHECK ORDER «, t00=0x0027, t01=0x008e}
0x3d8e…3db2 Head {h00=0x0020, h01=0x0050, text=» RF(L) PRB200 PRINT JOURNAL «, t00=0x0027, t01=0x00ac}
0x3db2…3dd6 Head {h00=0x0020, h01=0x0050, text=» RF(G) PRB110 PRINT VOUCHER «, t00=0x0027, t01=0x00d0}
0x3dd6…3de4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00f4}
0x3de4…3df8 Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0027, t01=0x0102}
0x3df8…3e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0116}
0x3e02…3e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0120}
0x3e0c…3e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x012a}
0x3e16…3e32 Head {h00=0x0018, h01=0x0050, text=»* PRINT TALLY ROLL«, t00=0x0027, t01=0x0134}
0x3e32…3e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0150}
0x3e3c…3e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x015a}
0x3e46…3e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0164}
0x3e50…3e72 Head {h00=0x001e, h01=0x0050, text=» ANK A2,VOIN VOUCHER IN ? «, t00=0x0027, t01=0x016e}
0x3e72…3e98 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRB200 NO. GO AND PRINT«, t00=0x0027, t01=0x0190}
0x3e98…3ebe Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 RESET STACK POINTER «, t00=0x0028, t01=0x0026}
0x3ebe…3eec Head {h00=0x002a, h01=0x0050, text=» ABL TP400 SEND LIFT TO TOP AND RELEAS«, t00=0x0028, t01=0x004c}
0x3eec…3ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x007a}
0x3ef6…3f02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0084}
0x3f02…3f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0090}
0x3f0c…3f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009a}
0x3f16…3f38 Head {h00=0x001e, h01=0x0050, text=»* PRINT VOUCHER/PASSBOOK«, t00=0x0028, t01=0x00a4}
0x3f38…3f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c6}
0x3f42…3f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00d0}
0x3f4c…3f74 Head {h00=0x0024, h01=0x0050, text=»PRB110 ANK A2,VOIN VOUCHER IN ? «, t00=0x0028, t01=0x00da}
0x3f74…3f88 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=0«, t00=0x0028, t01=0x0102}
0x3f88…3fb4 Head {h00=0x0028, h01=0x0050, text=» RF(Z) RCTP01 ERROR .VOUCHER NOT IN «, t00=0x0028, t01=0x0116}
0x3fb4…3fc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0142}
0x3fc0…3fd4 Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0028, t01=0x014e}
0x3fd4…3fe8 Head {h00=0x0010, h01=0x0050, text=» RB(Z) TP645«, t00=0x0028, t01=0x0162}
0x3fe8…3ff4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0176}
0x3ff4…4008 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/11 «, t00=0x0028, t01=0x0182}
0x4008…4026 Head {h00=0x001a, h01=0x0050, text=» CCR A1,A3 TABULATION?«, t00=0x0029, t01=0x0008}
0x4026…4040 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB200 NO «, t00=0x0029, t01=0x0026}
0x4040…404a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0040}
0x404a…4058 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x004a}
0x4058…4062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0058}
0x4062…406c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0062}
0x406c…40a4 Head {h00=0x0034, h01=0x0050, text=»* IF TABULATION CHARACTER: DETACH PRINT HEAD, «, t00=0x0029, t01=0x006c}
0x40a4…40e4 Head {h00=0x003c, h01=0x0050, text=»* SEND CHARACTERS UNTIL TABULATION POSITION IS REACHED«, t00=0x0029, t01=0x00a4}
0x40e4…4106 Head {h00=0x001e, h01=0x0050, text=»* AND ATTACH PRINT HEAD «, t00=0x0029, t01=0x00e4}
0x4106…4110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0106}
0x4110…411a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0110}
0x411a…4146 Head {h00=0x0028, h01=0x0050, text=»PRB115 LDK A2,/1E DETACH PRINT HEAD «, t00=0x0029, t01=0x011a}
0x4146…4168 Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND DETACH «, t00=0x0029, t01=0x0146}
0x4168…4194 Head {h00=0x0028, h01=0x0050, text=»PRB117 LD A1,10,A8 GET CONTROL WORD «, t00=0x0029, t01=0x0168}
0x4194…41a8 (42, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x002a, t01=0x0004}
0x41a8…41d0 Head {h00=0x0024, h01=0x0050, text=» CF A5,BCDTBY CONVERT TO BINARY «, t00=0x002a, t01=0x0018}
0x41d0…4202 Head {h00=0x002e, h01=0x0050, text=»PRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x002a, t01=0x0040}
0x4202…4238 Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. «, t00=0x002a, t01=0x0072}
0x4238…4254 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PRB125 PRINT«, t00=0x002a, t01=0x00a8}
0x4254…425e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c4}
0x425e…4268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ce}
0x4268…4272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d8}
0x4272…4290 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD BLANK«, t00=0x002a, t01=0x00e2}
0x4290…42bc Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND BLANKS OR DETACH «, t00=0x002a, t01=0x0100}
0x42bc…42ce Head {h00=0x000e, h01=0x0050, text=» RB PRB117«, t00=0x002a, t01=0x012c}
0x42ce…42d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x013e}
0x42d8…42e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0148}
0x42e2…42ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0152}
0x42ec…430c Head {h00=0x001c, h01=0x0050, text=»PRB125 LDK A2,/1D ATTACH«, t00=0x002a, t01=0x015c}
0x430c…432a Head {h00=0x001a, h01=0x0050, text=» RF PRB240 SEND ATTACH«, t00=0x002a, t01=0x017c}
0x432a…4338 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x000a}
0x4338…4342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0018}
0x4342…434c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0022}
0x434c…4356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x002c}
0x4356…438c Head {h00=0x0032, h01=0x0050, text=»* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF«, t00=0x002b, t01=0x0036}
0x438c…43bc Head {h00=0x002c, h01=0x0050, text=»* ILLEGAL CHARACTER OR ROOMLESS POINT «, t00=0x002b, t01=0x006c}
0x43bc…43c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009c}
0x43c6…43d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a6}
0x43d0…43da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b0}
0x43da…43ee Head {h00=0x0010, h01=0x0050, text=»PRB200 EQU *«, t00=0x002b, t01=0x00ba}
0x43ee…441c Head {h00=0x002a, h01=0x0050, text=»PRB205 LCR A7,A3 LOAD OUTPUT CHARACTER«, t00=0x002b, t01=0x00ce}
0x441c…4442 Head {h00=0x0022, h01=0x0050, text=» CCK A7,/AEAE ROOMLESS POINT ?«, t00=0x002b, t01=0x00fc}
0x4442…445c Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRB210 NO «, t00=0x002b, t01=0x0122}
0x445c…4486 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 INCREMENT BUFFER POINTER«, t00=0x002b, t01=0x013c}
0x4486…4498 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002b, t01=0x0166}
0x4498…44c0 Head {h00=0x0024, h01=0x0050, text=» LCR A7,A3 GET OUTPUT CHARACTER «, t00=0x002b, t01=0x0178}
0x44c0…44d8 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/F MASK «, t00=0x002c, t01=0x0010}
0x44d8…4502 Head {h00=0x0026, h01=0x0050, text=» LC A7,ROMTAB,A7 GET CODE IN TABLE«, t00=0x002c, t01=0x0028}
0x4502…450c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0052}
0x450c…4516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x005c}
0x4516…4520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0066}
0x4520…4550 Head {h00=0x002c, h01=0x0050, text=»PRB210 CCK A7,/2020 ILLEGAL CHARACTER ? «, t00=0x002c, t01=0x0070}
0x4550…456a Head {h00=0x0016, h01=0x0050, text=» RF(L) PRB220 YES «, t00=0x002c, t01=0x00a0}
0x456a…459a Head {h00=0x002c, h01=0x0050, text=»PRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? «, t00=0x002c, t01=0x00ba}
0x459a…45b4 Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRB230 NO «, t00=0x002c, t01=0x00ea}
0x45b4…45be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0104}
0x45be…45c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x010e}
0x45c8…45dc Head {h00=0x0010, h01=0x0050, text=»PRB220 EQU *«, t00=0x002c, t01=0x0118}
0x45dc…45f2 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x002c, t01=0x012c}
0x45f2…461c Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1313 SPECIAL CHARACTER ? «, t00=0x002c, t01=0x0142}
0x461c…4636 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x002c, t01=0x016c}
0x4636…4642 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0186}
0x4642…4658 (45, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x002d, t01=0x0004}
0x4658…4682 Head {h00=0x0026, h01=0x0050, text=» CCK A7,/1414 SPECIAL CHARACTER ? «, t00=0x002d, t01=0x001a}
0x4682…469c Head {h00=0x0016, h01=0x0050, text=» RF(E) PRB230 YES «, t00=0x002d, t01=0x0044}
0x469c…46a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x005e}
0x46a8…46ce Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x002d, t01=0x006a}
0x46ce…46f8 Head {h00=0x0026, h01=0x0050, text=» ORS A1,8,A8 STORE IN RETURN CODE «, t00=0x002d, t01=0x0090}
0x46f8…471a Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x002d, t01=0x00ba}
0x471a…472e Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x002d, t01=0x00dc}
0x472e…4740 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x002d, t01=0x00f0}
0x4740…4752 Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x002d, t01=0x0102}
0x4752…475c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0114}
0x475c…4766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011e}
0x4766…4770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0128}
0x4770…47a2 Head {h00=0x002e, h01=0x0050, text=»PRB230 IM DWTBC,A6 INCREMENT BYTE COUNTER «, t00=0x002d, t01=0x0132}
0x47a2…47ca Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 GET OUTPUT CHARACTER «, t00=0x002d, t01=0x0164}
0x47ca…47f4 Head {h00=0x0026, h01=0x0050, text=»PRB240 CF A5,OUTPUT SEND CHARACTER«, t00=0x002d, t01=0x018c}
0x47f4…481e Head {h00=0x0026, h01=0x0050, text=» SUR A3,A4 START OF BUFFER ADDRESS«, t00=0x002e, t01=0x0026}
0x481e…4830 Head {h00=0x000e, h01=0x0050, text=» RB PRB100«, t00=0x002e, t01=0x0050}
0x4830…483a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0062}
0x483a…4844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x006c}
0x4844…484e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0076}
0x484e…485c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0080}
0x485c…4866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x008e}
0x4866…487a Head {h00=0x0010, h01=0x0050, text=»* I H T P «, t00=0x002e, t01=0x0098}
0x487a…4884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ac}
0x4884…48b8 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x002e, t01=0x00b6}
0x48b8…48c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ea}
0x48c2…48cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f4}
0x48cc…48d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fe}
0x48d6…48e8 Head {h00=0x000e, h01=0x0050, text=»IHTP EQU *«, t00=0x002e, t01=0x0108}
0x48e8…490a Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x002e, t01=0x011a}
0x490a…4924 Head {h00=0x0016, h01=0x0050, text=» RF(N) RCTP10 BUSY«, t00=0x002e, t01=0x013c}
0x4924…4940 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x002e, t01=0x0156}
0x4940…4956 Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHTP20 «, t00=0x002e, t01=0x0172}
0x4956…4986 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT«, t00=0x002e, t01=0x0188}
0x4986…49c2 Head {h00=0x0038, h01=0x0050, text=»IHTP10 ABL(Z) LDREG NO RETURN CODE RESTORE REGISTERS«, t00=0x002f, t01=0x0028}
0x49c2…49d8 Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=0 «, t00=0x002f, t01=0x0064}
0x49d8…4a00 Head {h00=0x0024, h01=0x0050, text=» RF RCTP10 ELSE GO TO DISPATCHER«, t00=0x002f, t01=0x007a}
0x4a00…4a0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00a2}
0x4a0c…4a22 Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=1 «, t00=0x002f, t01=0x00ae}
0x4a22…4a34 Head {h00=0x000e, h01=0x0050, text=» RF IHTP30«, t00=0x002f, t01=0x00c4}
0x4a34…4a40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00d6}
0x4a40…4a60 Head {h00=0x001c, h01=0x0050, text=»IHTP20 LDR A1,A1 ERROR ?«, t00=0x002f, t01=0x00e2}
0x4a60…4a76 Head {h00=0x0012, h01=0x0050, text=» ABL(Z) TST005«, t00=0x002f, t01=0x0102}
0x4a76…4a8e Head {h00=0x0014, h01=0x0050, text=»IHTP30 ABL ENDIO«, t00=0x002f, t01=0x0118}
0x4a8e…4a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0130}
0x4a98…4aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x013a}
0x4aa2…4aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0144}
0x4aac…4aba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x014e}
0x4aba…4ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x015c}
0x4ac4…4ad8 Head {h00=0x0010, h01=0x0050, text=»* R C T P «, t00=0x002f, t01=0x0166}
0x4ad8…4ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x017a}
0x4ae2…4b1c Head {h00=0x0036, h01=0x0050, text=»* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT «, t00=0x002f, t01=0x0184}
0x4b1c…4b42 Head {h00=0x0022, h01=0x0050, text=»* POWER UP«, t00=0x0030, t01=0x002e}
0x4b42…4b54 Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x0030, t01=0x0054}
0x4b54…4b6a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0030, t01=0x0066}
0x4b6a…4b94 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0030, t01=0x007c}
0x4b94…4ba0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00a6}
0x4ba0…4baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b2}
0x4baa…4bc0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0030, t01=0x00bc}
0x4bc0…4be6 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0030, t01=0x00d2}
0x4be6…4bf2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00f8}
0x4bf2…4bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0104}
0x4bfc…4c1e Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 GET STATUS«, t00=0x0030, t01=0x010e}
0x4c1e…4c3c Head {h00=0x001a, h01=0x0050, text=» RF(N) RCTP05 NOT BUSY«, t00=0x0030, t01=0x0130}
0x4c3c…4c50 Head {h00=0x0010, h01=0x0050, text=»RCTP01 EQU *«, t00=0x0030, t01=0x014e}
0x4c50…4c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0162}
0x4c5a…4c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x016c}
0x4c64…4c86 Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x0030, t01=0x0176}
0x4c86…4c98 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0031, t01=0x0008}
0x4c98…4cd6 Head {h00=0x003a, h01=0x0050, text=» LDK A2,/01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x0031, t01=0x001a}
0x4cd6…4cf6 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0031, t01=0x0058}
0x4cf6…4d0a Head {h00=0x0010, h01=0x0050, text=»RCTP05 EQU *«, t00=0x0031, t01=0x0078}
0x4d0a…4d1c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0031, t01=0x008c}
0x4d1c…4d52 Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER«, t00=0x0031, t01=0x009e}
0x4d52…4d72 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/0C LIFT TO TOP «, t00=0x0031, t01=0x00d4}
0x4d72…4d88 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0031, t01=0x00f4}
0x4d88…4d9c Head {h00=0x0010, h01=0x0050, text=» IFT COMPL=1«, t00=0x0031, t01=0x010a}
0x4d9c…4da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x011e}
0x4da6…4dc8 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 STATUS CHANGE ?«, t00=0x0031, t01=0x0128}
0x4dc8…4dde Head {h00=0x0012, h01=0x0050, text=» ABL(NE) TP645«, t00=0x0031, t01=0x014a}
0x4dde…4dea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0160}
0x4dea…4e00 Head {h00=0x0012, h01=0x0050, text=» IFT RECOVY=1 «, t00=0x0031, t01=0x016c}
0x4e00…4e26 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/80 INDICATE POWER OFF«, t00=0x0031, t01=0x0182}
0x4e26…4e4a Head {h00=0x0020, h01=0x0050, text=» ORS A2,8,A8 SET RETURN CODE«, t00=0x0032, t01=0x0018}
0x4e4a…4e56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x003c}
0x4e56…4e84 Head {h00=0x002a, h01=0x0050, text=» ABL TP100 SEND FIRST DUMMY CHARACTER «, t00=0x0032, t01=0x0048}
0x4e84…4eae Head {h00=0x0026, h01=0x0050, text=»RCTP10 ABL TDISP GO TO DISPATCHER «, t00=0x0032, t01=0x0076}
0x4eae…4ebc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00a0}
0x4ebc…4ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ae}
0x4ec6…4ede Head {h00=0x0014, h01=0x0050, text=»* B C D T B Y «, t00=0x0032, t01=0x00b8}
0x4ede…4ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00d0}
0x4ee8…4f20 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL«, t00=0x0032, t01=0x00da}
0x4f20…4f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0112}
0x4f2a…4f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x011c}
0x4f34…4f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0126}
0x4f3e…4f70 Head {h00=0x002e, h01=0x0050, text=»BCDTBY LDR A2,A1 PUT DECIMAL NUMBER IJ A2 «, t00=0x0032, t01=0x0130}
0x4f70…4f8a Head {h00=0x0016, h01=0x0050, text=»BCDTB1 SUK A2,/10 «, t00=0x0032, t01=0x0162}
0x4f8a…4fa4 Head {h00=0x0016, h01=0x0050, text=» RF(N) BCDTB2 END «, t00=0x0032, t01=0x017c}
0x4fa4…4fc4 Head {h00=0x001c, h01=0x0050, text=» SUK A1,6 DECREMENT BY 6«, t00=0x0033, t01=0x0008}
0x4fc4…4fd8 Head {h00=0x0010, h01=0x0050, text=» RB BCDTB1 «, t00=0x0033, t01=0x0028}
0x4fd8…4ffe Head {h00=0x0022, h01=0x0050, text=»BCDTB2 RTN A5 RETURN TO CALLER«, t00=0x0033, t01=0x003c}
0x4ffe…5008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0062}
0x5008…5012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x006c}
0x5012…501c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0076}
0x501c…502a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0080}
0x502a…5034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x008e}
0x5034…503e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0098}
0x503e…5056 Head {h00=0x0014, h01=0x0050, text=»* R E L E A S «, t00=0x0033, t01=0x00a2}
0x5056…5060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ba}
0x5060…5096 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE«, t00=0x0033, t01=0x00c4}
0x5096…50a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00fa}
0x50a0…50aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0104}
0x50aa…50b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x010e}
0x50b4…50c8 Head {h00=0x0010, h01=0x0050, text=»RELEAS EQU *«, t00=0x0033, t01=0x0118}
0x50c8…50da Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0033, t01=0x012c}
0x50da…511a Head {h00=0x003c, h01=0x0050, text=» ST A1,DWTRLN,A6 SET ACTUAL AND REQ. LINE NUMBER TO ZERO«, t00=0x0033, t01=0x013e}
0x511a…5146 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,BUF5 LIFT TO TOP AND RELEAS«, t00=0x0033, t01=0x017e}
0x5146…5150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x001a}
0x5150…5168 Head {h00=0x0014, h01=0x0050, text=»* B U F C H R «, t00=0x0034, t01=0x0024}
0x5168…5172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x003c}
0x5172…51b2 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN«, t00=0x0034, t01=0x0046}
0x51b2…51de Head {h00=0x0028, h01=0x0050, text=»* FIRST CHARACTER IN OUTPUT BUFFER«, t00=0x0034, t01=0x0086}
0x51de…51e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b2}
0x51e8…51f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00bc}
0x51f2…522a Head {h00=0x0034, h01=0x0050, text=»BUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS«, t00=0x0034, t01=0x00c6}
0x522a…5242 Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x0034, t01=0x00fe}
0x5242…5272 Head {h00=0x002c, h01=0x0050, text=»BUFC10 ADK A3,1 INCREMENT BUFFER POINTER«, t00=0x0034, t01=0x0116}
0x5272…529a Head {h00=0x0024, h01=0x0050, text=» LCR A2,A3 GET OUTPUT CHARACTER «, t00=0x0034, t01=0x0146}
0x529a…52be Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0034, t01=0x016e}
0x52be…52e2 (53, 2, 160) Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0035, t01=0x0004}
0x52e2…530c Head {h00=0x0026, h01=0x0050, text=» RB(NZ) BUFC10 NOT LAST CHARACTER «, t00=0x0035, t01=0x0028}
0x530c…532c Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x0035, t01=0x0052}
0x532c…5336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0072}
0x5336…5340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x007c}
0x5340…534a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0086}
0x534a…5356 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0035, t01=0x0090}
0x5356…535a Head {h00=0x4004, h01=0x0000}
0x535a…535e 00 35 00 9c ┆ 5 ┆
0x535e…5366 (54, 1, 8) 20 04 00 00 00 36 00 04 ┆ 6 ┆
0x5366…53b6 (55, 0, 400) 59 53 54 45 4d 3f 00 7e 01 7e 00 16 00 50 5c 52 46 28 5a 29 5c 4c 4f 44 3a 36 30 5c 4e 4f 21 20 00 7f 00 0e 00 24 00 50 5c 4d 56 53 55 5c 41 33 5c 4d 4f 56 45 20 54 41 42 4c 45 20 46 52 4f 4d 20 53 59 53 54 45 4d 20 00 7f 00 28 00 0e 00 50 ┆YSTEM? ~ ~ P RF(Z) LOD:60 NO! $ P MVSU A3 MOVE TABLE FROM SYSTEM ( P┆
0x53b6…5406 5c 52 46 5c 4c 4f 44 3a 36 35 00 7f 00 50 00 10 00 50 4c 4f 44 3a 36 30 5c 45 51 55 5c 2a 00 7f 00 62 00 0e 00 50 5c 43 41 4c 4c 5c 4d 4f 56 45 00 7f 00 76 00 10 00 50 4c 4f 44 3a 36 35 5c 45 51 55 5c 2a 00 7f 00 88 00 20 00 50 5c 4c 44 52 ┆ RF LOD:65 P PLOD:60 EQU * b P CALL MOVE v PLOD:65 EQU * P LDR┆
0x5406…5456 5c 41 31 30 2c 41 31 30 5c 45 4e 44 20 4f 46 20 53 45 47 4d 45 4e 54 3f 00 7f 00 9c 00 12 00 50 5c 52 46 28 4e 5a 29 5c 4c 4f 44 3a 37 30 00 7f 00 c0 00 12 00 50 5c 52 54 4e 5c 41 31 34 5c 45 58 49 54 20 00 7f 00 d6 00 10 00 50 4c 4f 44 53 ┆ A10,A10 END OF SEGMENT? P RF(NZ) LOD:70 P RTN A14 EXIT PLODS┆
0x5456…54a6 45 47 5c 45 51 55 5c 2a 00 7f 00 ec 00 28 00 50 5c 4c 44 4b 4c 5c 41 31 2c 34 30 30 5c 4e 55 4d 42 45 52 20 4f 46 20 57 4f 52 44 53 2f 53 45 43 54 4f 52 20 00 7f 01 00 00 24 00 50 5c 53 54 5c 41 31 2c 4c 4f 44 3a 31 30 5c 4d 4f 44 49 46 59 ┆EG EQU * ( P LDKL A1,400 NUMBER OF WORDS/SECTOR $ P ST A1,LOD:10 MODIFY┆
0x54a6…54f6 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 7f 01 2c 00 10 00 50 4c 4f 44 3a 37 30 5c 45 51 55 5c 2a 00 7f 01 54 00 10 00 50 5c 43 46 5c 41 31 34 2c 52 45 41 44 00 7f 01 68 00 10 00 50 52 45 41 44 5c 45 51 55 5c 2a 2d 32 00 7f 01 7c 00 0e 00 50 ┆ INSTRUCTION , PLOD:70 EQU * T P CF A14,READ h PREAD EQU *-2 | P┆
0x54f6…5546 (56, 0, 400) 5c 52 42 5c 4c 4f 44 43 4f 4d 00 7f 01 90 00 0a 00 50 5c 45 4a 45 43 54 00 80 00 12 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RB LODCOM P EJECT 6 P************************************************┆
0x5546…5596 2a 20 00 80 00 20 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 80 00 5a 00 36 00 50 2a 20 20 20 20 20 20 20 20 52 45 42 ┆* 6 P* * Z 6 P* REB┆
0x5596…55e6 55 46 20 2d 20 52 45 4c 4f 43 41 54 45 20 42 55 46 46 45 52 20 52 4f 55 54 49 4e 45 20 20 20 20 20 20 20 20 2a 20 00 80 00 94 00 36 00 50 2a 20 20 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆UF - RELOCATE BUFFER ROUTINE * 6 P* =========================┆
0x55e6…5636 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 2a 20 00 80 00 ce 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 80 01 08 00 36 ┆====== * 6 P* * 6┆
0x5636…5686 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 4c 4f 44 43 4f 4d 2f 4c 4f 44 53 45 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 80 01 42 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P* REFERENCED IN: LODCOM/LODSEG * B 6 P* ┆
0x5686…56d6 (57, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 80 01 7c 00 36 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 33 20 2d 20 53 41 56 45 30 39 20 4f 46 20 42 55 46 46 45 52 20 20 20 20 20 20 20 20 20 20 ┆ * | 6 P* ENTRY: A3 - SAVE09 OF BUFFER ┆
0x56d6…5726 20 20 20 20 20 20 20 2a 00 81 00 26 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 32 20 2d 20 53 41 56 45 30 39 20 4f 46 20 52 45 4c 4f 43 41 54 49 4f 4e 20 54 41 42 4c 45 20 20 20 20 20 20 20 2a 00 81 00 60 00 36 00 50 2a 20 20 20 20 20 ┆ * & 6 P* A2 - SAVE09 OF RELOCATION TABLE * ` 6 P* ┆
0x5726…5776 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 81 00 9a 00 36 00 50 2a 20 20 45 58 49 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 6 P* EXIT: ┆
0x5776…57c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 81 00 d4 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 ┆ * 6 P* * ┆
0x57c6…5816 00 81 01 0e 00 36 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2c 41 34 2c 41 35 2c 41 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 81 01 48 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 6 P* WORK REGISTERS: A1,A4,A5,A6 * H 6 P* ┆
0x5816…5866 (58, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 81 01 82 00 36 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 6 P* SUBROUTINES: ┆
0x5866…58b6 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 82 00 2c 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 82 00 66 00 36 00 50 ┆ * , 6 P* * f 6 P┆
0x58b6…5906 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 82 00 a0 00 10 00 50 52 45 42 55 46 5c 45 51 55 5c 2a 20 00 82 00 da 00 2e 00 50 5c 4c ┆************************************************* PREBUF EQU * . P L┆
0x5906…5956 44 52 5c 41 34 2c 41 32 5c 47 45 54 20 53 41 56 45 30 39 20 4f 50 46 20 52 45 4c 4f 43 41 54 49 4f 4e 20 54 41 42 4c 45 00 82 00 ee 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 32 20 00 82 01 20 00 10 00 50 52 45 42 3a 31 30 5c 45 51 55 5c 2a 00 82 ┆DR A4,A2 GET SAVE09 OPF RELOCATION TABLE P SUK A4,2 PREB:10 EQU * ┆
0x5956…59a6 01 32 00 22 00 50 5c 41 44 4b 5c 41 34 2c 32 5c 4e 45 58 54 20 52 45 4c 4f 43 41 54 49 4f 4e 20 57 4f 52 44 00 82 01 46 00 28 00 50 5c 4c 44 4b 5c 41 36 2c 31 36 5c 4e 55 4d 42 45 52 20 4f 46 20 52 45 4c 4f 43 41 54 49 4f 4e 20 42 49 54 53 ┆ 2 " P ADK A4,2 NEXT RELOCATION WORD F ( P LDK A6,16 NUMBER OF RELOCATION BITS┆
0x59a6…59f6 (59, 0, 400) 00 82 01 6c 00 24 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 34 5c 47 45 54 20 52 45 4c 4f 43 41 54 49 4f 4e 20 57 4f 52 44 20 00 83 00 08 00 10 00 50 52 45 42 3a 32 30 5c 45 51 55 5c 2a 00 83 00 30 00 2c 00 50 5c 52 46 28 4e 4e 29 5c 52 45 42 3a ┆ l $ P LDR* A1,A4 GET RELOCATION WORD PREB:20 EQU * 0 , P RF(NN) REB:┆
0x59f6…5a46 33 30 5c 44 4f 4e 27 54 20 52 45 4c 4f 43 41 54 45 20 54 48 49 53 20 57 4f 52 44 21 00 83 00 44 00 1e 00 50 5c 4c 44 52 2a 5c 41 35 2c 41 33 5c 47 45 54 20 43 4f 44 45 20 57 4f 52 44 20 00 83 00 74 00 18 00 50 5c 41 44 52 5c 41 35 2c 41 31 ┆30 DON'T RELOCATE THIS WORD! D P LDR* A5,A3 GET CODE WORD t P ADR A5,A1┆
0x5a46…5a96 32 5c 52 45 4c 4f 43 41 54 45 00 83 00 96 00 1c 00 50 5c 53 54 52 5c 41 35 2c 41 33 5c 53 54 4f 52 45 20 49 54 20 42 41 43 4b 00 83 00 b2 00 10 00 50 52 45 42 3a 33 30 5c 45 51 55 5c 2a 00 83 00 d2 00 1c 00 50 5c 41 44 4b 5c 41 33 2c 32 5c ┆2 RELOCATE P STR A5,A3 STORE IT BACK PREB:30 EQU * P ADK A3,2 ┆
0x5a96…5ae6 4e 45 58 54 20 43 4f 44 45 20 57 4f 52 44 00 83 00 e6 00 26 00 50 5c 43 57 52 5c 41 33 2c 41 32 5c 45 4e 44 20 4f 46 20 43 4f 44 45 20 57 4f 52 44 20 50 41 52 54 3f 20 00 83 01 06 00 16 00 50 5c 52 46 28 45 29 5c 45 58 52 45 4c 5c 59 45 53 ┆NEXT CODE WORD & P CWR A3,A2 END OF CODE WORD PART? P RF(E) EXREL YES┆
0x5ae6…5b36 21 20 00 83 01 30 00 24 00 50 5c 53 55 4b 5c 41 36 2c 31 5c 4d 4f 4f 52 45 20 52 45 4c 4f 43 41 54 49 4f 4e 20 42 49 54 53 3f 00 83 01 4a 00 16 00 50 5c 52 42 28 5a 29 5c 52 45 42 3a 31 30 5c 4e 4f 21 20 00 83 01 72 00 22 00 50 5c 53 4c 4c ┆! 0 $ P SUK A6,1 MOORE RELOCATION BITS? J P RB(Z) REB:10 NO! r " P SLL┆
0x5b36…5b86 (60, 0, 400) 5c 41 31 2c 31 5c 4e 45 58 54 20 52 45 4c 4f 43 41 54 49 4f 4e 20 42 49 54 20 00 83 01 8c 00 0e 00 50 5c 52 42 5c 52 45 42 3a 32 30 00 84 00 22 00 10 00 50 45 58 52 45 4c 5c 45 51 55 5c 2a 20 00 84 00 34 00 0c 00 50 5c 52 54 4e 5c 41 31 34 ┆ A1,1 NEXT RELOCATION BIT P RB REB:20 " PEXREL EQU * 4 P RTN A14┆
0x5b86…5bd6 00 84 00 48 00 0a 00 50 5c 45 4a 45 43 54 00 84 00 58 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 84 00 66 00 2e 00 29 2a 20 20 47 45 54 43 4f ┆ H P EJECT X . )***************************************** f . )* GETCO┆
0x5bd6…5c26 4e 20 2d 20 47 45 54 20 43 4f 4e 54 45 4e 54 20 49 4e 20 4d 45 4d 4f 52 59 20 57 4f 52 44 20 20 2a 20 00 84 00 98 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆N - GET CONTENT IN MEMORY WORD * . )**************************************┆
0x5c26…5c76 2a 2a 2a 20 00 84 00 ca 00 06 00 03 2a 20 00 84 00 fc 00 1e 00 19 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 53 45 47 47 45 4e 20 00 84 01 06 00 06 00 03 2a 20 00 84 01 28 00 22 00 1e 2a 20 20 45 4e 54 52 59 3a 20 20 41 32 20 ┆*** * * REFERENCED IN: SEGGEN * ( " * ENTRY: A2 ┆
0x5c76…5cc6 2d 20 4d 45 4d 4f 52 59 20 41 44 44 52 45 53 53 00 84 01 32 00 2e 00 29 2a 20 20 20 20 20 20 20 20 20 20 4d 4d 55 4f 50 54 20 2d 20 4d 4d 55 20 4f 50 54 49 4f 4e 20 53 57 49 54 43 48 20 28 58 29 20 00 84 01 58 00 06 00 03 2a 20 00 84 01 8a ┆- MEMORY ADDRESS 2 . )* MMUOPT - MMU OPTION SWITCH (X) X * ┆