|
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: 17544 (0x4488)
Notes: pts_type(SC)
Names: »DRCR01.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRCR01.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRCR01.SC«
IDENT DRCR01 REL 11.0 81-01-26 870105041100
*
*
************************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* DRCR01 = DRIVER CARD READER
*
*
*
*
*
************************************************************
*
*
* THIS DRIVER HANDLES ONE CARD READER PTS 6885 CONNECTED
* TO CPU VIA CHCD ON PROGRAMMED OR MULTIPLEX CHANNEL
*
*
************************************************************
EJECT DRCR01
*****************
* ENTRIES *
*****************
ENTRY CRADR ADDRESS TABLE
ENTRY ACCR ACTIVATION PART
ENTRY CRON RECOVERY ROUTINE
ENTRY IHCR INTERRUPT HANDLER
ENTRY DWCR01 DWT FOR CARD READER
**************************************
* EXTERNAL TOSS MODULE ENTRIES *
**************************************
EXTRN TDISP DISPATCHER
EXTRN SAVE8 SAVE 8 REGISTERS ON A15-STACK
EXTRN RETUR8 LOAD 8 REGISTErS FROM A15-STACK
EXTRN TENDIO END I/O
EXTRN DISIOE REQUEST ERROR
EXTRN INTSAV SAVE AREA, LAST INTERRUPT
EXTRN PFPOST PWF POST PROCESSING FLAG
EXTRN DWTST STATUS
EXTRN DWTECB ECB ADDRESS
EXTRN DWTA2 SAVE AREA A2
EXTRN DWTA4 SAVE AREA A4
EXTRN DWTA5 SAVE AREA A5
*******************
* CONSTANTS *
*******************
DEVICE EQU /0D
MUX EQU DEVICE+DEVICE
REQLEN EQU 4
BUFFER EQU 2
EFFLEN EQU 6
EJECT DRCR01
*
**************************
* CONDITIONAL ASSEMBLY *
**************************
* PROGRAMMED CHANNEL MAY BE USED INSTEAD
* OF MULTIPLEX CHANNEL BY SETTING X:A=1
*
X:A EQU 0
CHAN EQU X:A
*
*
* MMU BUFFER SIZE
*
X:B EQU 40
DVBLEN EQU X:B
*
*
* MMU DEVICE INDEX
*
DEVIND EQU 2 CARD READER DEVICE INDEX
*
*
* 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
*
EJECT DRCR01 DRCR01
STATUS
********************
-HARDWARE:
BIT 10: INPUT HOPPER EMPTY OR OUTPUT
STACKER FULL
14: THROUGHPUT ERROR
15: NOT OPERABLE
-SOFTWARE:
BIT 0: REQUEST ERROR
3: :EOF DETECTED
12: INCORRECT LENGTH
13: DATA FAULT
2: HW BIT 10 IS SHIFTED TO BIT 2 IN ECB RETURN CODE
ORDER
********************
/02 STANDARD READ
-THE CARDS ARE READ IN HOLLERITH CODE, ON 12 BITS,
CONVERTED INTO ASCII CODE ON 8 BITS, AND STORED
UNTIL REQUESTED LENGTH IS REACHED
EJECT DRCR01
***********************
*NORMAL REGISTER USAGE*
***********************
A1=RETURN CODE
A2=WORK REGISTER
A3=WORK REGISTER
A4=BUFFER ADDRESS
A5=STACK BASE
A6=DWT-ADDRESS
A7=ORDER
A8=ECB-ADDRESS
*****************************************************
* NOTE! IN COMMENTS, THE FOLLOWING NOTATION IS USED *
* CARD COLUMNES: 1,2,3,4.......80 *
* CARD ROWS : 12,11,0,1,2,3.....9 *
*****************************************************
* ADDRESS TABLE
* *************
DATA DVBLEN+DVBLEN MMU BUFFER LENGTH
DATA DEVIND MMU DEVICE INDEX
CRADR DATA ACCR
DATA 0 ABORT ROUTINE ADDRESS
IFT CHAN=0
*
**********
* BUFFER *
**********
MUXBUF EQU *
RES 80
XIF
EJECT DRCR01
*************************
* *
* ACTIVATION PART *
* *
*************************
ACCR EQU *
SUK A7,2 ORDER 2?
ABL(NZ) DISIOE REQUEST ERROR
ORDER2 LD A3,REQLEN,A8
CWK A3,80
RF(NG) AC.1
LDK A1,8 REQ. LENGTH IS TOO LONG!
RF ENDIO SET "INCORRECT LENGTH" BIT 12
AC.1 EQU *
CM STATUS,A6
CM FLAG RESET RECOVERY INDICATOR
CF A5,READ READ ONE CARD
ANKL A1,/FFF7 RESET "INCORRECT LENGTH" BIT 12
OR A1,STATUS,A6
LDR A2,A1 RETURN CODE
ANK A2,/20
RF(Z) ENDIO BIT 10 NOT SET
XRR A1,A2 RESET BIT 10
ECR A2,A2
ORR A1,A2 SET BIT 2 INSTEAD
ENDIO CF A15,TENDIO END REQUEST
EXIT ABL TDISP
EJECT DRCR01
******************************
* SUBROUTIN TO READ ONE CARD *
******************************
READ EQU *
ST A5,DWTA5,A6 SAVE A5
LD A4,BUFFER,A8
SUK A4,1
ST A4,DWTA4,A6 SAVE BUFFER ADDRESS - 1
LDK A2,1
ST A2,DWTA2,A6 SAVE "COLUMN TO BE EXAMINED"
IFT CHAN=0
LDKL A4,/8050 DEFINE CONDITIONS
WER A4,MUX
LDKL A4,MUXBUF DEFINE BUFFER ADDRESS
WER A4,MUX+1
XIF
LD A1,PFPOST
RB(NZ) EXIT PFINIT PENDING
CIO A3,1,DEVICE CIO START
RB(Z) EXIT ACCEPTED
LDK A1,1 ERROR
RB ENDIO
********************
* RECOVERY ROUTINE *
********************
CRON EQU *
IFT CPU852=1
CF A15,SAVE8 SAVE A1-A8 ON STACK
XIF
*
IFT CPU852=0
MSR 8,A15 SAVE A1-A8 ON STACK
XIF
*
LDKL A6,DWCR01 DWT ADDRESS
LD A3,DWTST,A6 REQUEST ON?
RB(N) EXIT NO!
LDK A1,2 SET "THROUGHPUT ERROR" BIT 14
IFT CHAN=0
IM FLAG INDICATE RECOVERY
XIF
RB ENDIO
EJECT DRCR01
*********************
* INTERRUPT HANDLER *
*********************
IHCR EQU *
ST P,INTSAVE SAVE LAST INTERRUPT
IFT CPU852=1
CF A15,SAVE8 SAVE A1-A8 ON STACK
XIF
*
IFT CPU852=0
MSR 8,A15 SAVE A1-A8 ON STACK
XIF
*
LDKL A6,DWCR01 DWT ADDRESS
LD A2,DWTA2,A6 CARD-COLUMN
LD A8,DWTECB,A6 ECB ADDRESS
IFT CHAN=1
INR A3,0,DEVICE LD A3 WITH CHARACTER FROM CARD READER
RF(A) CONV
XIF
IFT CHAN=0
LDKL A5,MUXBUF GET BUFFERADDRESS AND START CONVERSION
ENB
IHCR10 EQU *
LDR* A3,A5 GET WORD FROM BUFFER
ADK A5,2
RF CONV CONVERT
IHCR20 EQU *
* READY *
XIF
SST A1,DEVICE NOT ACCEPTED
LD A5,DWTA5,A6
RTN A5
EJECT DRCR01
*******************
* CODE CONVERSION *
*******************
A3=RECIEVED CHARACTER IN HOLERITH-CODE
A2=COLUMN TO BE EXAMINED
A4=BUFFER ADDRESS - 1
CONV LDK A1,0
SLL A3,4 SKIP INSIGNIFICANT BITS
RF(N) FIRST
RF(P) SCAN1
LDK A3,/20 CHARACTER IS A SPACE
CW A2,REQLEN,A8 BUFFER FILLED?
ABL(NG) PUTCHA NO!
ABL TEST
*
HOLE1 DATA 0
HOLE2 DATA 0
EJECT DRCR01
*=======================================================================
0NE HOLE
SCAN1 ADK A1,1 SCAN FOR THE FIRST HOLE
SLL A3,1
RB(P) SCAN1
FIRST CW A2,REQLEN,A8 BUFFER FILLED?
RF(NG) IH.1 NO!
LDK A3,8 YES! SET "INCORRECT LENGTH" BIT 12
ORS A3,STATUS,A6
ABL READY
IH.1 ST A2,EFFLEN,A8 STORE EFFECTIV LENGTH
ANKL A3,/7FFF
RF(NZ) SCAN2 THE ONLY HOLE IN THIS COLUMN?
SUK A1,1 YES!
CONVERSION IS MADE DIRECTLY
***************************
RF(P) *+12
RF(Z) *+6
LDK A3,/26 & (ROW 12)
RF PUTCHA
LDK A3,/2D - (ROW 11)
RF PUTCHA
LDR A3,A1
ADK A3,/2F DIGIT 0 - 9 (ROW 0 - 9)
RF PUTCHA
ONE HOLE
*=======================================================================
TWO HOLES
EJECT DRCR01
SCAN2 ST A1,HOLE1 SAVE FIRST HOLE POSITION
ADK A1,1 SCAN FOR SECOND HOLE
SLL A3,1
RB(P) *-4
ST A1,HOLE2 2:ND HOLE FOUND! SAVE POSITION
ANKL A3,/7FFF LAST HOLE IN THIS COLUMN?
RF(P) SCAN3 NO!
LD A1,HOLE1 YES!
CWK A1,3
RF(NL) SPEC SPECIAL CHARACTER?
ADR A1,A1 NO! LETTER OR /
LD A1,TABLE1,A1 CHOOSE TABLE
LD A3,HOLE2
SUK A3,3
RF(N) FAULT DATA FAULT?
ADR A1,A3 NO!
LCR A3,A1 CHOOSE LETTER IN TABLE
RF PUTCHA
EJECT DRCR01
* CONVERSION TABLE 1 ASCII /41 - 5A, 2F
*************************************
TABLE1 DATA TAB.1
DATA TAB.2
DATA TAB.3
ROWS ON CARD
------------
TAB.1 DATA 'ABCDEFGHI ' 12,1 - 12,9
TAB.2 DATA 'JKLMNOPQR ' 11,1 - 11,9
TAB.3 DATA '/STUVWXYZ ' 0,1 - 0,9
*************************************
EJECT DRCR01
SPEC RF(E) FAULT DATA FAULT?
-THE FIRST HOLE MUST NOT BE IN ROW 1!
SUK A1,4 NO!
CWK A1,5 A1=FIRST HOLE
RF(G) FAULT DATA FAULT?
-THE FIRST HOLE MUST NOT BE IN ROW 8!
LD A3,HOLE2
SUK A3,10
RF(NZ) FAULT DATA FAULT?
-THE SECOND HOLE MUST BE IN ROW 8!
LC A3,TABLE2,A1 CHOOSE CHARACTER IN TABLE2
RF PUTCHA
CONVERSION TABLE 2
*************************************
ROWS ON CARD
------------
TABLE2 DATA ':#' 2,8 3,8
DATA /4027 4,8 5,8
DATA '="' 6,8 7,8
*************************************
TWO HOLES
*=======================================================================
THREE HOLES
EJECT DRCR01
*
SCAN3 LD A1,HOLE1
SUK A1,2
RF(P) FAULT DATA FAULT?
-THE FIRST HOLE MUST BE WITHIN THE FIRST
THREE ROWS (12, 11, 0)
LD A1,HOLE2
SUK A1,4
RF(N) FAULT DATA FAULT?
SUK A1,5
RF(P) FAULT
-THE 2:ND HOLE MUST BE WITHIN ROW 2 TO 7!
ADK A1,9
ADK A1,1 SCAN FOR THE 3:RD HOLE
SLL A3,1
RB(P) *-4
SUK A1,10 3:RD HOLE FOUND!
RF(NZ) FAULT DATA FAULT?
-THE 3:RD HOLE MUST BE IN ROW 8
SLL A3,1
RF(NZ) FAULT DATA FAULT?
-NO MORE THEN 3 HOLES!
LD A3,HOLE1
ADR A3,A3
LD A3,TABLE3,A3 CHOOSE TABLE
AD A3,HOLE2
SUK A3,4
LCR A1,A3
LDR A3,A1
RF PUTCHA
EJECT DRCR01
*
*
CONVERSION TABLE 3
*************************************
TABLE3 DATA TAB.4
DATA TAB.5
DATA TAB.6
ROWS ON CARD
-------------------
TAB.4 DATA '[.' 12,2,8 12,3,8
DATA '<(' 12,4,8 12,5,8
DATA /2B5E 12,6,8 12,7,8
TAB.5 DATA '!$' 11,2,8 11,3,8
DATA '*)' 11,4,8 11,5,8
DATA ';]' 11,6,8 11,7,8
TAB.6 DATA /5C2C 0,2,8 0,3,8
DATA /255F 0,4,8 0,5,8
DATA '>?' 0,6,8 0,7,8
*************************************
THREE HOLES
*=======================================================================
EJECT DRCR01
SET DATA FAULT
**************
FAULT EQU *
LDK A1,4 SET DATA FAULT,BIT 13, IN STATUS
ST A1,STATUS,A6
LDK A3,/3F REPLACE CHARACTER BY "?"
PUT CHARACTER (ASCII) IN USER BUFFER
************************************
PUTCHA EQU *
IFT CHAN=0
LD A4,FLAG
RF(NZ) NEXT10 RECOVERY HAS BEEN PERFORMED!
XIF
LD A4,DWTA4,A6 A2=COLUMN TO BE EXAMINED
ADR A4,A2 A3=ASCII CHARACTER
SCR A3,A4 A4=BUFFER ADDRESS - 1
TEST CWK A2,80 THE WHOLE CARD SCANNED?
RF(L) NEXT NO!
IFT CHAN=1
READY CIO A3,0,DEVICE CIO HALT
XIF
IFT CHAN=0
READY EQU *
XIF
LDK A2,4 CHECK IF :EOF
CW A2,EFFLEN,A8
RF(NE) NEXT00 EFF.LENGTH #4
LD A4,DWTA4,A6 GET BUFFER-ADDRESS
ADK A4,1
LDR* A2,A4 GET FIRST WORD IN BUFFER
CWK A2,':E' A2 = :E ?
RF(NE) NEXT00 NO!
LD A2,2,A4 YES, GET NEXT WORD
CWK A2,'OF' A2 = OF ?
RF(NE) NEXT00 NO!
LDKL A2,/1000 YES! :EOF DETECTED
ORS A2,STATUS,A6 SET BIT 3 IN R.C.
EJECT DRCR01
NEXT00 EQU *
IFT CHAN=1
NEXT ADK A2,1
ST A2,DWTA2,A6 SAVE A2
XIF
IFT CHAN=0
ABL IHCR20 READY
NEXT EQU *
ADK A2,1
ST A2,DWTA2,A6
ABL IHCR10 TAKE NEXT CHARACTER
NEXT10 EQU *
XIF
ABL RETUR8 LOAD A1 - A8 AND RETURN A15
EJECT DRCR01
*************************************
* DEVICE WORK TABLE FOR CARD READER *
*************************************
DWCR01 EQU *
DATA 0 CHANNEL PARAMETER
DATA /8000 STATUS
DATA 0 ECB ADDRESS
DATA 0 LAST OUTPUT, ORDER
DATA CRADR POINTER TO DEVICE DRIVER
DATA 0 POINTER TO TTAB
DATA 0 WAIT/ACTIVATE INDICATOR
DATA 0 TERMINAL QUEUE
IFT MMUPAG=1
DATA 0 SAVE AREA USER ECB ADDRESS
DATA DEVECB MMU ECB ADDRESS
XIF
DATA 0 OUTPUT QUEUE LINK
DATA 0 SAVEAREA FOR A2
DATA 0 SAVEAREA FOR A4
DATA 0 SAVEAREA FOR A5
RES 4 DWT STACK
STATUS EQU *-DWCR01
DATA 0 SOFTWARE STATUS SAVEAREA
FLAG DATA 0 RECOVERY INDICATOR
*
IFT MMUPAG=1
DEVECB EQU *
DATA 0
DATA CR:BUF
DATA 0,0,0,0
CR:BUF RES DVBLEN+1
XIF
*
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRCR01 REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0046 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0042}
0x0046…0050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004a}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…009e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x005e}
0x009e…00a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a2}
0x00a8…00ce Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00ac}
0x00ce…00d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…00fe Head {h00=0x0022, h01=0x0050, text=»* DRCR01 = DRIVER CARD READER«, t00=0x0000, t01=0x00dc}
0x00fe…0108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…0130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…0174 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x0134}
0x0174…017e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0178}
0x017e…0188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0182}
0x0188…01cc Head {h00=0x0040, h01=0x0050, text=»* THIS DRIVER HANDLES ONE CARD READER PTS 6885 CONNECTED «, t00=0x0000, t01=0x018c}
0x01cc…020c Head {h00=0x003c, h01=0x0050, text=»* TO CPU VIA CHCD ON PROGRAMMED OR MULTIPLEX CHANNEL «, t00=0x0001, t01=0x0040}
0x020c…0216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0080}
0x0216…0220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008a}
0x0220…0264 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0001, t01=0x0094}
0x0264…027c Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0001, t01=0x00d8}
0x027c…0296 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x00f0}
0x0296…02b0 Head {h00=0x0016, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x010a}
0x02b0…02ca Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x0124}
0x02ca…02ec Head {h00=0x001e, h01=0x0050, text=» ENTRY CRADR ADDRESS TABLE«, t00=0x0001, t01=0x013e}
0x02ec…0310 Head {h00=0x0020, h01=0x0050, text=» ENTRY ACCR ACTIVATION PART «, t00=0x0001, t01=0x0160}
0x0310…0334 Head {h00=0x0020, h01=0x0050, text=» ENTRY CRON RECOVERY ROUTINE«, t00=0x0001, t01=0x0184}
0x0334…035a Head {h00=0x0022, h01=0x0050, text=» ENTRY IHCR INTERRUPT HANDLER «, t00=0x0002, t01=0x0018}
0x035a…0384 Head {h00=0x0026, h01=0x0050, text=» ENTRY DWCR01 DWT FOR CARD READER «, t00=0x0002, t01=0x003e}
0x0384…038e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0002, t01=0x0068}
0x038e…03bc Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0002, t01=0x0072}
0x03bc…03ea Head {h00=0x002a, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0002, t01=0x00a0}
0x03ea…0418 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0002, t01=0x00ce}
0x0418…0438 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x00fc}
0x0438…046a Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15-STACK«, t00=0x0002, t01=0x011c}
0x046a…04a0 Head {h00=0x0032, h01=0x0050, text=» EXTRN RETUR8 LOAD 8 REGISTErS FROM A15-STACK «, t00=0x0002, t01=0x014e}
0x04a0…04be Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0002, t01=0x0184}
0x04be…04e2 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0003, t01=0x0012}
0x04e2…0512 Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSAV SAVE AREA, LAST INTERRUPT «, t00=0x0003, t01=0x0036}
0x0512…0540 Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0003, t01=0x0066}
0x0540…054a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0003, t01=0x0094}
0x054a…0566 Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0003, t01=0x009e}
0x0566…0588 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0003, t01=0x00ba}
0x0588…05aa Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0003, t01=0x00dc}
0x05aa…05cc Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0003, t01=0x00fe}
0x05cc…05ee Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0003, t01=0x0120}
0x05ee…060a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0003, t01=0x0142}
0x060a…0626 Head {h00=0x0018, h01=0x0050, text=»* CONSTANTS * «, t00=0x0003, t01=0x015e}
0x0626…0642 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0003, t01=0x017a}
0x0642…0658 Head {h00=0x0012, h01=0x0050, text=»DEVICE EQU /0D«, t00=0x0004, t01=0x0008}
0x0658…0676 Head {h00=0x001a, h01=0x0050, text=»MUX EQU DEVICE+DEVICE «, t00=0x0004, t01=0x001e}
0x0676…068a Head {h00=0x0010, h01=0x0050, text=»REQLEN EQU 4«, t00=0x0004, t01=0x003c}
0x068a…069e Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU 2«, t00=0x0004, t01=0x0050}
0x069e…06b2 Head {h00=0x0010, h01=0x0050, text=»EFFLEN EQU 6«, t00=0x0004, t01=0x0064}
0x06b2…06ca Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0004, t01=0x0078}
0x06ca…06d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0090}
0x06d4…06f6 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0004, t01=0x009a}
0x06f6…0718 Head {h00=0x001e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0004, t01=0x00bc}
0x0718…073a Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0004, t01=0x00de}
0x073a…076c Head {h00=0x002e, h01=0x0050, text=»* PROGRAMMED CHANNEL MAY BE USED INSTEAD «, t00=0x0004, t01=0x0100}
0x076c…079c Head {h00=0x002c, h01=0x0050, text=»* OF MULTIPLEX CHANNEL BY SETTING X:A=1«, t00=0x0004, t01=0x0132}
0x079c…07a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0162}
0x07a6…07b8 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0004, t01=0x016c}
0x07b8…07cc Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0004, t01=0x017e}
0x07cc…07d6 (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07d6…07e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000e}
0x07e0…07fc Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x0005, t01=0x0018}
0x07fc…0806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0034}
0x0806…0818 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 40«, t00=0x0005, t01=0x003e}
0x0818…082e Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:B«, t00=0x0005, t01=0x0050}
0x082e…0838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0066}
0x0838…0842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0070}
0x0842…085e Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x0005, t01=0x007a}
0x085e…0868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0096}
0x0868…0896 Head {h00=0x002a, h01=0x0050, text=»DEVIND EQU 2 CARD READER DEVICE INDEX «, t00=0x0005, t01=0x00a0}
0x0896…08a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ce}
0x08a0…08aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d8}
0x08aa…08dc Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0005, t01=0x00e2}
0x08dc…090a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0005, t01=0x0114}
0x090a…0914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0142}
0x0914…0928 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0005, t01=0x014c}
0x0928…0932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0160}
0x0932…093c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016a}
0x093c…0976 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0005, t01=0x0174}
0x0976…09a8 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0006, t01=0x001e}
0x09a8…09b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0050}
0x09b2…09c6 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0006, t01=0x005a}
0x09c6…09d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006e}
0x09d0…09f0 Head {h00=0x001c, h01=0x0050, text=» EJECT DRCR01 DRCR01 «, t00=0x0006, t01=0x0078}
0x09f0…0a02 Head {h00=0x000e, h01=0x0050, text=» STATUS «, t00=0x0006, t01=0x0098}
0x0a02…0a22 Head {h00=0x001c, h01=0x0050, text=» ******************** «, t00=0x0006, t01=0x00aa}
0x0a22…0a38 Head {h00=0x0012, h01=0x0050, text=» -HARDWARE: «, t00=0x0006, t01=0x00ca}
0x0a38…0a6a Head {h00=0x002e, h01=0x0050, text=» BIT 10: INPUT HOPPER EMPTY OR OUTPUT«, t00=0x0006, t01=0x00e0}
0x0a6a…0a84 Head {h00=0x0016, h01=0x0050, text=» STACKER FULL«, t00=0x0006, t01=0x0112}
0x0a84…0aa2 Head {h00=0x001a, h01=0x0050, text=» 14: THROUGHPUT ERROR«, t00=0x0006, t01=0x012c}
0x0aa2…0abc Head {h00=0x0016, h01=0x0050, text=» 15: NOT OPERABLE«, t00=0x0006, t01=0x014a}
0x0abc…0ac6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0006, t01=0x0164}
0x0ac6…0adc Head {h00=0x0012, h01=0x0050, text=» -SOFTWARE: «, t00=0x0006, t01=0x016e}
0x0adc…0b00 Head {h00=0x0020, h01=0x0050, text=» BIT 0: REQUEST ERROR «, t00=0x0006, t01=0x0184}
0x0b00…0b24 Head {h00=0x0020, h01=0x0050, text=» 3: :EOF DETECTED «, t00=0x0007, t01=0x0018}
0x0b24…0b4a Head {h00=0x0022, h01=0x0050, text=» 12: INCORRECT LENGTH«, t00=0x0007, t01=0x003c}
0x0b4a…0b6a Head {h00=0x001c, h01=0x0050, text=» 13: DATA FAULT«, t00=0x0007, t01=0x0062}
0x0b6a…0ba8 Head {h00=0x003a, h01=0x0050, text=» 2: HW BIT 10 IS SHIFTED TO BIT 2 IN ECB RETURN CODE«, t00=0x0007, t01=0x0082}
0x0ba8…0bb2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x00c0}
0x0bb2…0bbc Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x00ca}
0x0bbc…0bcc Head {h00=0x000c, h01=0x0050, text=» ORDER«, t00=0x0007, t01=0x00d4}
0x0bcc…0bec Head {h00=0x001c, h01=0x0050, text=» ******************** «, t00=0x0007, t01=0x00e4}
0x0bec…0bf6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x0104}
0x0bf6…0c1a Head {h00=0x0020, h01=0x0050, text=» /02 STANDARD READ «, t00=0x0007, t01=0x010e}
0x0c1a…0c5a Head {h00=0x003c, h01=0x0050, text=» -THE CARDS ARE READ IN HOLLERITH CODE, ON 12 BITS,«, t00=0x0007, t01=0x0132}
0x0c5a…0c98 Head {h00=0x003a, h01=0x0050, text=» CONVERTED INTO ASCII CODE ON 8 BITS, AND STORED«, t00=0x0007, t01=0x0172}
0x0c98…0cc8 Head {h00=0x002c, h01=0x0050, text=» UNTIL REQUESTED LENGTH IS REACHED«, t00=0x0008, t01=0x0020}
0x0cc8…0ce0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0008, t01=0x0050}
0x0ce0…0d02 Head {h00=0x001e, h01=0x0050, text=» ***********************«, t00=0x0008, t01=0x0068}
0x0d02…0d24 Head {h00=0x001e, h01=0x0050, text=» *NORMAL REGISTER USAGE*«, t00=0x0008, t01=0x008a}
0x0d24…0d46 Head {h00=0x001e, h01=0x0050, text=» ***********************«, t00=0x0008, t01=0x00ac}
0x0d46…0d5e Head {h00=0x0014, h01=0x0050, text=» A1=RETURN CODE«, t00=0x0008, t01=0x00ce}
0x0d5e…0d78 Head {h00=0x0016, h01=0x0050, text=» A2=WORK REGISTER«, t00=0x0008, t01=0x00e6}
0x0d78…0d92 Head {h00=0x0016, h01=0x0050, text=» A3=WORK REGISTER«, t00=0x0008, t01=0x0100}
0x0d92…0dae Head {h00=0x0018, h01=0x0050, text=» A4=BUFFER ADDRESS «, t00=0x0008, t01=0x011a}
0x0dae…0dc6 Head {h00=0x0014, h01=0x0050, text=» A5=STACK BASE «, t00=0x0008, t01=0x0136}
0x0dc6…0dde Head {h00=0x0014, h01=0x0050, text=» A6=DWT-ADDRESS«, t00=0x0008, t01=0x014e}
0x0dde…0df0 Head {h00=0x000e, h01=0x0050, text=» A7=ORDER«, t00=0x0008, t01=0x0166}
0x0df0…0e08 Head {h00=0x0014, h01=0x0050, text=» A8=ECB-ADDRESS«, t00=0x0008, t01=0x0178}
0x0e08…0e12 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0008, t01=0x0190}
0x0e12…0e50 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0009, t01=0x000a}
0x0e50…0e8e Head {h00=0x003a, h01=0x0050, text=»* NOTE! IN COMMENTS, THE FOLLOWING NOTATION IS USED * «, t00=0x0009, t01=0x0048}
0x0e8e…0ecc Head {h00=0x003a, h01=0x0050, text=»* CARD COLUMNES: 1,2,3,4.......80 * «, t00=0x0009, t01=0x0086}
0x0ecc…0f0a Head {h00=0x003a, h01=0x0050, text=»* CARD ROWS : 12,11,0,1,2,3.....9 * «, t00=0x0009, t01=0x00c4}
0x0f0a…0f48 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0009, t01=0x0102}
0x0f48…0f52 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x0140}
0x0f52…0f5c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x014a}
0x0f5c…0f66 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x0154}
0x0f66…0f8a Head {h00=0x0020, h01=0x0050, text=»* ADDRESS TABLE «, t00=0x0009, t01=0x015e}
0x0f8a…0fae Head {h00=0x0020, h01=0x0050, text=»* ************* «, t00=0x0009, t01=0x0182}
0x0fae…0fb8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000a, t01=0x0016}
0x0fb8…0fe6 Head {h00=0x002a, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER LENGTH «, t00=0x000a, t01=0x0020}
0x0fe6…100c Head {h00=0x0022, h01=0x0050, text=» DATA DEVIND MMU DEVICE INDEX «, t00=0x000a, t01=0x004e}
0x100c…1024 Head {h00=0x0014, h01=0x0050, text=»CRADR DATA ACCR «, t00=0x000a, t01=0x0074}
0x1024…104a Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000a, t01=0x008c}
0x104a…105e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000a, t01=0x00b2}
0x105e…1068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c6}
0x1068…107a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x00d0}
0x107a…108c Head {h00=0x000e, h01=0x0050, text=»* BUFFER *«, t00=0x000a, t01=0x00e2}
0x108c…109e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x00f4}
0x109e…10b2 Head {h00=0x0010, h01=0x0050, text=»MUXBUF EQU *«, t00=0x000a, t01=0x0106}
0x10b2…10c2 Head {h00=0x000c, h01=0x0050, text=» RES 80 «, t00=0x000a, t01=0x011a}
0x10c2…10ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x012a}
0x10ce…10e6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x000a, t01=0x0136}
0x10e6…1108 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000a, t01=0x014e}
0x1108…112a Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0170}
0x112a…114c (11, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* ACTIVATION PART * «, t00=0x000b, t01=0x0004}
0x114c…116e Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0026}
0x116e…1190 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000b, t01=0x0048}
0x1190…119a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000b, t01=0x006a}
0x119a…11ac Head {h00=0x000e, h01=0x0050, text=»ACCR EQU *«, t00=0x000b, t01=0x0074}
0x11ac…11c6 Head {h00=0x0016, h01=0x0050, text=» SUK A7,2 ORDER 2?«, t00=0x000b, t01=0x0086}
0x11c6…11ec Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DISIOE REQUEST ERROR «, t00=0x000b, t01=0x00a0}
0x11ec…120a Head {h00=0x001a, h01=0x0050, text=»ORDER2 LD A3,REQLEN,A8«, t00=0x000b, t01=0x00c6}
0x120a…121c Head {h00=0x000e, h01=0x0050, text=» CWK A3,80«, t00=0x000b, t01=0x00e4}
0x121c…1230 Head {h00=0x0010, h01=0x0050, text=» RF(NG) AC.1«, t00=0x000b, t01=0x00f6}
0x1230…125a Head {h00=0x0026, h01=0x0050, text=» LDK A1,8 REQ. LENGTH IS TOO LONG!«, t00=0x000b, t01=0x010a}
0x125a…128a Head {h00=0x002c, h01=0x0050, text=» RF ENDIO SET "INCORRECT LENGTH" BIT 12 «, t00=0x000b, t01=0x0134}
0x128a…129c Head {h00=0x000e, h01=0x0050, text=»AC.1 EQU *«, t00=0x000b, t01=0x0164}
0x129c…12b2 Head {h00=0x0012, h01=0x0050, text=» CM STATUS,A6 «, t00=0x000b, t01=0x0176}
0x12b2…12dc Head {h00=0x0026, h01=0x0050, text=» CM FLAG RESET RECOVERY INDICATOR «, t00=0x000b, t01=0x018c}
0x12dc…12fe Head {h00=0x001e, h01=0x0050, text=» CF A5,READ READ ONE CARD «, t00=0x000c, t01=0x0026}
0x12fe…1334 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/FFF7 RESET "INCORRECT LENGTH" BIT 12«, t00=0x000c, t01=0x0048}
0x1334…134c Head {h00=0x0014, h01=0x0050, text=» OR A1,STATUS,A6«, t00=0x000c, t01=0x007e}
0x134c…136a Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 RETURN CODE«, t00=0x000c, t01=0x0096}
0x136a…137e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/20 «, t00=0x000c, t01=0x00b4}
0x137e…13a2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) ENDIO BIT 10 NOT SET «, t00=0x000c, t01=0x00c8}
0x13a2…13c2 Head {h00=0x001c, h01=0x0050, text=» XRR A1,A2 RESET BIT 10 «, t00=0x000c, t01=0x00ec}
0x13c2…13d4 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x000c, t01=0x010c}
0x13d4…13f8 Head {h00=0x0020, h01=0x0050, text=» ORR A1,A2 SET BIT 2 INSTEAD«, t00=0x000c, t01=0x011e}
0x13f8…1420 Head {h00=0x0024, h01=0x0050, text=»ENDIO CF A15,TENDIO END REQUEST «, t00=0x000c, t01=0x0142}
0x1420…1436 Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x000c, t01=0x016a}
0x1436…144e Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x000c, t01=0x0180}
0x144e…1474 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x0008}
0x1474…149a Head {h00=0x0022, h01=0x0050, text=»* SUBROUTIN TO READ ONE CARD *«, t00=0x000d, t01=0x002e}
0x149a…14c0 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x0054}
0x14c0…14d2 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x000d, t01=0x007a}
0x14d2…14f2 Head {h00=0x001c, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE A5 «, t00=0x000d, t01=0x008c}
0x14f2…150a Head {h00=0x0014, h01=0x0050, text=» LD A4,BUFFER,A8«, t00=0x000d, t01=0x00ac}
0x150a…151c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000d, t01=0x00c4}
0x151c…154c Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE BUFFER ADDRESS - 1 «, t00=0x000d, t01=0x00d6}
0x154c…155e Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x000d, t01=0x0106}
0x155e…1592 Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTA2,A6 SAVE "COLUMN TO BE EXAMINED"«, t00=0x000d, t01=0x0118}
0x1592…15a6 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000d, t01=0x014c}
0x15a6…15ce Head {h00=0x0024, h01=0x0050, text=» LDKL A4,/8050 DEFINE CONDITIONS«, t00=0x000d, t01=0x0160}
0x15ce…15e2 Head {h00=0x0010, h01=0x0050, text=» WER A4,MUX «, t00=0x000d, t01=0x0188}
0x15e2…1610 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,MUXBUF DEFINE BUFFER ADDRESS «, t00=0x000e, t01=0x000c}
0x1610…1626 Head {h00=0x0012, h01=0x0050, text=» WER A4,MUX+1 «, t00=0x000e, t01=0x003a}
0x1626…1632 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0050}
0x1632…1648 Head {h00=0x0012, h01=0x0050, text=» LD A1,PFPOST «, t00=0x000e, t01=0x005c}
0x1648…166c Head {h00=0x0020, h01=0x0050, text=» RB(NZ) EXIT PFINIT PENDING «, t00=0x000e, t01=0x0072}
0x166c…168e Head {h00=0x001e, h01=0x0050, text=» CIO A3,1,DEVICE CIO START«, t00=0x000e, t01=0x0096}
0x168e…16aa Head {h00=0x0018, h01=0x0050, text=» RB(Z) EXIT ACCEPTED«, t00=0x000e, t01=0x00b8}
0x16aa…16c2 Head {h00=0x0014, h01=0x0050, text=» LDK A1,1 ERROR «, t00=0x000e, t01=0x00d4}
0x16c2…16d4 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x000e, t01=0x00ec}
0x16d4…16de Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000e, t01=0x00fe}
0x16de…16fa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x0108}
0x16fa…1716 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x000e, t01=0x0124}
0x1716…1732 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x0140}
0x1732…1744 Head {h00=0x000e, h01=0x0050, text=»CRON EQU *«, t00=0x000e, t01=0x015c}
0x1744…175a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000e, t01=0x016e}
0x175a…1784 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x000e, t01=0x0184}
0x1784…1790 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x001e}
0x1790…179a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002a}
0x179a…17b0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000f, t01=0x0034}
0x17b0…17d6 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x000f, t01=0x004a}
0x17d6…17e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0070}
0x17e2…17ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007c}
0x17ec…1810 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWCR01 DWT ADDRESS «, t00=0x000f, t01=0x0086}
0x1810…1834 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 REQUEST ON? «, t00=0x000f, t01=0x00aa}
0x1834…184c Head {h00=0x0014, h01=0x0050, text=» RB(N) EXIT NO! «, t00=0x000f, t01=0x00ce}
0x184c…187c Head {h00=0x002c, h01=0x0050, text=» LDK A1,2 SET "THROUGHPUT ERROR" BIT 14 «, t00=0x000f, t01=0x00e6}
0x187c…1890 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000f, t01=0x0116}
0x1890…18b2 Head {h00=0x001e, h01=0x0050, text=» IM FLAG INDICATE RECOVERY«, t00=0x000f, t01=0x012a}
0x18b2…18be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x014c}
0x18be…18d0 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x000f, t01=0x0158}
0x18d0…18e8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x000f, t01=0x016a}
0x18e8…18f2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x0182}
0x18f2…18fc Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x018c}
0x18fc…1906 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0010, t01=0x0008}
0x1906…1924 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x0012}
0x1924…1942 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0010, t01=0x0030}
0x1942…1960 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x004e}
0x1960…1972 Head {h00=0x000e, h01=0x0050, text=»IHCR EQU *«, t00=0x0010, t01=0x006c}
0x1972…199c Head {h00=0x0026, h01=0x0050, text=» ST P,INTSAVE SAVE LAST INTERRUPT «, t00=0x0010, t01=0x007e}
0x199c…19b2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0010, t01=0x00a8}
0x19b2…19dc Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0010, t01=0x00be}
0x19dc…19e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00e8}
0x19e8…19f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f4}
0x19f2…1a08 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0010, t01=0x00fe}
0x1a08…1a2e Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0010, t01=0x0114}
0x1a2e…1a3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x013a}
0x1a3a…1a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0146}
0x1a44…1a68 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWCR01 DWT ADDRESS «, t00=0x0010, t01=0x0150}
0x1a68…1a8c Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTA2,A6 CARD-COLUMN «, t00=0x0010, t01=0x0174}
0x1a8c…1ab0 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0011, t01=0x0008}
0x1ab0…1ac4 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0011, t01=0x002c}
0x1ac4…1b02 Head {h00=0x003a, h01=0x0050, text=» INR A3,0,DEVICE LD A3 WITH CHARACTER FROM CARD READER«, t00=0x0011, t01=0x0040}
0x1b02…1b16 Head {h00=0x0010, h01=0x0050, text=» RF(A) CONV «, t00=0x0011, t01=0x007e}
0x1b16…1b22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0092}
0x1b22…1b36 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0011, t01=0x009e}
0x1b36…1b74 Head {h00=0x003a, h01=0x0050, text=» LDKL A5,MUXBUF GET BUFFERADDRESS AND START CONVERSION«, t00=0x0011, t01=0x00b2}
0x1b74…1b80 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0011, t01=0x00f0}
0x1b80…1b94 Head {h00=0x0010, h01=0x0050, text=»IHCR10 EQU *«, t00=0x0011, t01=0x00fc}
0x1b94…1bbc Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A5 GET WORD FROM BUFFER«, t00=0x0011, t01=0x0110}
0x1bbc…1bce Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0011, t01=0x0138}
0x1bce…1be6 Head {h00=0x0014, h01=0x0050, text=» RF CONV CONVERT«, t00=0x0011, t01=0x014a}
0x1be6…1bfa Head {h00=0x0010, h01=0x0050, text=»IHCR20 EQU *«, t00=0x0011, t01=0x0162}
0x1bfa…1c10 Head {h00=0x0012, h01=0x0050, text=»* READY * «, t00=0x0011, t01=0x0176}
0x1c10…1c1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x018c}
0x1c1c…1c40 Head {h00=0x0020, h01=0x0050, text=» SST A1,DEVICE NOT ACCEPTED «, t00=0x0012, t01=0x0008}
0x1c40…1c58 Head {h00=0x0014, h01=0x0050, text=» LD A5,DWTA5,A6 «, t00=0x0012, t01=0x002c}
0x1c58…1c68 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0012, t01=0x0044}
0x1c68…1c80 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0012, t01=0x0054}
0x1c80…1c8a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x006c}
0x1c8a…1ca6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0012, t01=0x0076}
0x1ca6…1cc2 Head {h00=0x0018, h01=0x0050, text=»* CODE CONVERSION * «, t00=0x0012, t01=0x0092}
0x1cc2…1cde Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0012, t01=0x00ae}
0x1cde…1ce8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x00ca}
0x1ce8…1d1a Head {h00=0x002e, h01=0x0050, text=» A3=RECIEVED CHARACTER IN HOLERITH-CODE «, t00=0x0012, t01=0x00d4}
0x1d1a…1d3e Head {h00=0x0020, h01=0x0050, text=» A2=COLUMN TO BE EXAMINED «, t00=0x0012, t01=0x0106}
0x1d3e…1d5e Head {h00=0x001c, h01=0x0050, text=» A4=BUFFER ADDRESS - 1«, t00=0x0012, t01=0x012a}
0x1d5e…1d68 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x014a}
0x1d68…1d72 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x0154}
0x1d72…1d7c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x015e}
0x1d7c…1d92 Head {h00=0x0012, h01=0x0050, text=»CONV LDK A1,0 «, t00=0x0012, t01=0x0168}
0x1d92…1dbc Head {h00=0x0026, h01=0x0050, text=» SLL A3,4 SKIP INSIGNIFICANT BITS «, t00=0x0012, t01=0x017e}
0x1dbc…1dd0 Head {h00=0x0010, h01=0x0050, text=» RF(N) FIRST«, t00=0x0013, t01=0x0018}
0x1dd0…1de4 Head {h00=0x0010, h01=0x0050, text=» RF(P) SCAN1«, t00=0x0013, t01=0x002c}
0x1de4…1e0c Head {h00=0x0024, h01=0x0050, text=» LDK A3,/20 CHARACTER IS A SPACE«, t00=0x0013, t01=0x0040}
0x1e0c…1e34 Head {h00=0x0024, h01=0x0050, text=» CW A2,REQLEN,A8 BUFFER FILLED? «, t00=0x0013, t01=0x0068}
0x1e34…1e50 Head {h00=0x0018, h01=0x0050, text=» ABL(NG) PUTCHA NO! «, t00=0x0013, t01=0x0090}
0x1e50…1e62 Head {h00=0x000e, h01=0x0050, text=» ABL TEST «, t00=0x0013, t01=0x00ac}
0x1e62…1e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00be}
0x1e6c…1e80 Head {h00=0x0010, h01=0x0050, text=»HOLE1 DATA 0«, t00=0x0013, t01=0x00c8}
0x1e80…1e94 Head {h00=0x0010, h01=0x0050, text=»HOLE2 DATA 0«, t00=0x0013, t01=0x00dc}
0x1e94…1eac Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0013, t01=0x00f0}
0x1eac…1efc Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x0013, t01=0x0108}
0x1efc…1f44 Head {h00=0x0044, h01=0x0050, text=» 0NE HOLE «, t00=0x0013, t01=0x0158}
0x1f44…1f72 Head {h00=0x002a, h01=0x0050, text=»SCAN1 ADK A1,1 SCAN FOR THE FIRST HOLE«, t00=0x0014, t01=0x0010}
0x1f72…1f84 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0014, t01=0x003e}
0x1f84…1f98 Head {h00=0x0010, h01=0x0050, text=» RB(P) SCAN1«, t00=0x0014, t01=0x0050}
0x1f98…1fc4 Head {h00=0x0028, h01=0x0050, text=»FIRST CW A2,REQLEN,A8 BUFFER FILLED?«, t00=0x0014, t01=0x0064}
0x1fc4…1fdc Head {h00=0x0014, h01=0x0050, text=» RF(NG) IH.1 NO!«, t00=0x0014, t01=0x0090}
0x1fdc…2010 Head {h00=0x0030, h01=0x0050, text=» LDK A3,8 YES! SET "INCORRECT LENGTH" BIT 12«, t00=0x0014, t01=0x00a8}
0x2010…202a Head {h00=0x0016, h01=0x0050, text=» ORS A3,STATUS,A6 «, t00=0x0014, t01=0x00dc}
0x202a…203c Head {h00=0x000e, h01=0x0050, text=» ABL READY«, t00=0x0014, t01=0x00f6}
0x203c…206e Head {h00=0x002e, h01=0x0050, text=»IH.1 ST A2,EFFLEN,A8 STORE EFFECTIV LENGTH«, t00=0x0014, t01=0x0108}
0x206e…2084 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/7FFF«, t00=0x0014, t01=0x013a}
0x2084…20b8 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) SCAN2 THE ONLY HOLE IN THIS COLUMN? «, t00=0x0014, t01=0x0150}
0x20b8…20ce Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 YES!«, t00=0x0014, t01=0x0184}
0x20ce…20f4 Head {h00=0x0022, h01=0x0050, text=» CONVERSION IS MADE DIRECTLY«, t00=0x0015, t01=0x000a}
0x20f4…211a Head {h00=0x0022, h01=0x0050, text=» ***************************«, t00=0x0015, t01=0x0030}
0x211a…212e Head {h00=0x0010, h01=0x0050, text=» RF(P) *+12 «, t00=0x0015, t01=0x0056}
0x212e…2140 Head {h00=0x000e, h01=0x0050, text=» RF(Z) *+6«, t00=0x0015, t01=0x006a}
0x2140…215e Head {h00=0x001a, h01=0x0050, text=» LDK A3,/26 & (ROW 12)«, t00=0x0015, t01=0x007c}
0x215e…2170 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0015, t01=0x009a}
0x2170…218e Head {h00=0x001a, h01=0x0050, text=» LDK A3,/2D - (ROW 11)«, t00=0x0015, t01=0x00ac}
0x218e…21a0 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0015, t01=0x00ca}
0x21a0…21b2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0015, t01=0x00dc}
0x21b2…21de Head {h00=0x0028, h01=0x0050, text=» ADK A3,/2F DIGIT 0 - 9 (ROW 0 - 9) «, t00=0x0015, t01=0x00ee}
0x21de…21f0 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0015, t01=0x011a}
0x21f0…221a Head {h00=0x0026, h01=0x0050, text=» ONE HOLE«, t00=0x0015, t01=0x012c}
0x221a…226a Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x0015, t01=0x0156}
0x226a…22b2 Head {h00=0x0044, h01=0x0050, text=» TWO HOLES«, t00=0x0016, t01=0x0016}
0x22b2…22ca Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0016, t01=0x005e}
0x22ca…22fc Head {h00=0x002e, h01=0x0050, text=»SCAN2 ST A1,HOLE1 SAVE FIRST HOLE POSITION«, t00=0x0016, t01=0x0076}
0x22fc…2322 Head {h00=0x0022, h01=0x0050, text=» ADK A1,1 SCAN FOR SECOND HOLE«, t00=0x0016, t01=0x00a8}
0x2322…2334 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0016, t01=0x00ce}
0x2334…2346 Head {h00=0x000e, h01=0x0050, text=» RB(P) *-4«, t00=0x0016, t01=0x00e0}
0x2346…237a Head {h00=0x0030, h01=0x0050, text=» ST A1,HOLE2 2:ND HOLE FOUND! SAVE POSITION «, t00=0x0016, t01=0x00f2}
0x237a…23aa Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/7FFF LAST HOLE IN THIS COLUMN?«, t00=0x0016, t01=0x0126}
0x23aa…23c2 Head {h00=0x0014, h01=0x0050, text=» RF(P) SCAN3 NO!«, t00=0x0016, t01=0x0156}
0x23c2…23dc Head {h00=0x0016, h01=0x0050, text=» LD A1,HOLE1 YES! «, t00=0x0016, t01=0x016e}
0x23dc…23ee Head {h00=0x000e, h01=0x0050, text=» CWK A1,3 «, t00=0x0016, t01=0x0188}
0x23ee…2416 Head {h00=0x0024, h01=0x0050, text=» RF(NL) SPEC SPECIAL CHARACTER? «, t00=0x0017, t01=0x000a}
0x2416…2438 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A1 NO! LETTER OR /«, t00=0x0017, t01=0x0032}
0x2438…245e Head {h00=0x0022, h01=0x0050, text=» LD A1,TABLE1,A1 CHOOSE TABLE «, t00=0x0017, t01=0x0054}
0x245e…2472 Head {h00=0x0010, h01=0x0050, text=» LD A3,HOLE2«, t00=0x0017, t01=0x007a}
0x2472…2484 Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0017, t01=0x008e}
0x2484…24a4 Head {h00=0x001c, h01=0x0050, text=» RF(N) FAULT DATA FAULT?«, t00=0x0017, t01=0x00a0}
0x24a4…24ba Head {h00=0x0012, h01=0x0050, text=» ADR A1,A3 NO!«, t00=0x0017, t01=0x00c0}
0x24ba…24e4 Head {h00=0x0026, h01=0x0050, text=» LCR A3,A1 CHOOSE LETTER IN TABLE «, t00=0x0017, t01=0x00d6}
0x24e4…24f6 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0017, t01=0x0100}
0x24f6…250e Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0017, t01=0x0112}
0x250e…2518 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0017, t01=0x012a}
0x2518…2522 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0017, t01=0x0134}
0x2522…255c Head {h00=0x0036, h01=0x0050, text=»* CONVERSION TABLE 1 ASCII /41 - 5A, 2F «, t00=0x0017, t01=0x013e}
0x255c…2596 Head {h00=0x0036, h01=0x0050, text=» ************************************* «, t00=0x0017, t01=0x0178}
0x2596…25b0 Head {h00=0x0016, h01=0x0050, text=»TABLE1 DATA TAB.1 «, t00=0x0018, t01=0x0022}
0x25b0…25c4 Head {h00=0x0010, h01=0x0050, text=» DATA TAB.2 «, t00=0x0018, t01=0x003c}
0x25c4…25d8 Head {h00=0x0010, h01=0x0050, text=» DATA TAB.3 «, t00=0x0018, t01=0x0050}
0x25d8…25f0 Head {h00=0x0014, h01=0x0050, text=» ROWS ON CARD «, t00=0x0018, t01=0x0064}
0x25f0…2608 Head {h00=0x0014, h01=0x0050, text=» ------------ «, t00=0x0018, t01=0x007c}
0x2608…2634 Head {h00=0x0028, h01=0x0050, text=»TAB.1 DATA 'ABCDEFGHI ' 12,1 - 12,9 «, t00=0x0018, t01=0x0094}
0x2634…2660 Head {h00=0x0028, h01=0x0050, text=»TAB.2 DATA 'JKLMNOPQR ' 11,1 - 11,9 «, t00=0x0018, t01=0x00c0}
0x2660…268a Head {h00=0x0026, h01=0x0050, text=»TAB.3 DATA '/STUVWXYZ ' 0,1 - 0,9 «, t00=0x0018, t01=0x00ec}
0x268a…26c4 Head {h00=0x0036, h01=0x0050, text=» ************************************* «, t00=0x0018, t01=0x0116}
0x26c4…26dc Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0018, t01=0x0150}
0x26dc…26e6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0018, t01=0x0168}
0x26e6…26f0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0018, t01=0x0172}
0x26f0…2714 Head {h00=0x0020, h01=0x0050, text=»SPEC RF(E) FAULT DATA FAULT?«, t00=0x0018, t01=0x017c}
0x2714…2744 Head {h00=0x002c, h01=0x0050, text=» -THE FIRST HOLE MUST NOT BE IN ROW 1!«, t00=0x0019, t01=0x0010}
0x2744…275a Head {h00=0x0012, h01=0x0050, text=» SUK A1,4 NO! «, t00=0x0019, t01=0x0040}
0x275a…277a Head {h00=0x001c, h01=0x0050, text=» CWK A1,5 A1=FIRST HOLE «, t00=0x0019, t01=0x0056}
0x277a…279a Head {h00=0x001c, h01=0x0050, text=» RF(G) FAULT DATA FAULT?«, t00=0x0019, t01=0x0076}
0x279a…27ca Head {h00=0x002c, h01=0x0050, text=» -THE FIRST HOLE MUST NOT BE IN ROW 8!«, t00=0x0019, t01=0x0096}
0x27ca…27de Head {h00=0x0010, h01=0x0050, text=» LD A3,HOLE2«, t00=0x0019, t01=0x00c6}
0x27de…27f0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,10«, t00=0x0019, t01=0x00da}
0x27f0…2812 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FAULT DATA FAULT? «, t00=0x0019, t01=0x00ec}
0x2812…2840 Head {h00=0x002a, h01=0x0050, text=» -THE SECOND HOLE MUST BE IN ROW 8! «, t00=0x0019, t01=0x010e}
0x2840…2874 Head {h00=0x0030, h01=0x0050, text=» LC A3,TABLE2,A1 CHOOSE CHARACTER IN TABLE2 «, t00=0x0019, t01=0x013c}
0x2874…2886 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0019, t01=0x0170}
0x2886…2890 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x0182}
0x2890…289a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x018c}
0x289a…28c0 Head {h00=0x0022, h01=0x0050, text=» CONVERSION TABLE 2«, t00=0x001a, t01=0x0008}
0x28c0…28f0 Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x001a, t01=0x002e}
0x28f0…2908 Head {h00=0x0014, h01=0x0050, text=» ROWS ON CARD «, t00=0x001a, t01=0x005e}
0x2908…2920 Head {h00=0x0014, h01=0x0050, text=» ------------ «, t00=0x001a, t01=0x0076}
0x2920…2942 Head {h00=0x001e, h01=0x0050, text=»TABLE2 DATA ':#' 2,8 3,8 «, t00=0x001a, t01=0x008e}
0x2942…295e Head {h00=0x0018, h01=0x0050, text=» DATA /4027 4,8 5,8«, t00=0x001a, t01=0x00b0}
0x295e…297a Head {h00=0x0018, h01=0x0050, text=» DATA '="' 6,8 7,8 «, t00=0x001a, t01=0x00cc}
0x297a…29aa Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x001a, t01=0x00e8}
0x29aa…29f2 Head {h00=0x0044, h01=0x0050, text=» TWO HOLES«, t00=0x001a, t01=0x0118}
0x29f2…2a42 Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x001a, t01=0x0160}
0x2a42…2a8c Head {h00=0x0046, h01=0x0050, text=» THREE HOLES«, t00=0x001b, t01=0x0020}
0x2a8c…2aa4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x001b, t01=0x006a}
0x2aa4…2aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0082}
0x2aae…2ac8 Head {h00=0x0016, h01=0x0050, text=»SCAN3 LD A1,HOLE1 «, t00=0x001b, t01=0x008c}
0x2ac8…2ada Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x001b, t01=0x00a6}
0x2ada…2afa Head {h00=0x001c, h01=0x0050, text=» RF(P) FAULT DATA FAULT?«, t00=0x001b, t01=0x00b8}
0x2afa…2b2e Head {h00=0x0030, h01=0x0050, text=» -THE FIRST HOLE MUST BE WITHIN THE FIRST «, t00=0x001b, t01=0x00d8}
0x2b2e…2b50 Head {h00=0x001e, h01=0x0050, text=» THREE ROWS (12, 11, 0)«, t00=0x001b, t01=0x010c}
0x2b50…2b64 Head {h00=0x0010, h01=0x0050, text=» LD A1,HOLE2«, t00=0x001b, t01=0x012e}
0x2b64…2b76 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x001b, t01=0x0142}
0x2b76…2b96 Head {h00=0x001c, h01=0x0050, text=» RF(N) FAULT DATA FAULT?«, t00=0x001b, t01=0x0154}
0x2b96…2ba8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,5 «, t00=0x001b, t01=0x0174}
0x2ba8…2bbc Head {h00=0x0010, h01=0x0050, text=» RF(P) FAULT«, t00=0x001b, t01=0x0186}
0x2bbc…2bf0 Head {h00=0x0030, h01=0x0050, text=» -THE 2:ND HOLE MUST BE WITHIN ROW 2 TO 7!«, t00=0x001c, t01=0x000a}
0x2bf0…2c02 Head {h00=0x000e, h01=0x0050, text=» ADK A1,9 «, t00=0x001c, t01=0x003e}
0x2c02…2c2a Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 SCAN FOR THE 3:RD HOLE«, t00=0x001c, t01=0x0050}
0x2c2a…2c3c Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x001c, t01=0x0078}
0x2c3c…2c4e Head {h00=0x000e, h01=0x0050, text=» RB(P) *-4«, t00=0x001c, t01=0x008a}
0x2c4e…2c72 Head {h00=0x0020, h01=0x0050, text=» SUK A1,10 3:RD HOLE FOUND! «, t00=0x001c, t01=0x009c}
0x2c72…2c94 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FAULT DATA FAULT? «, t00=0x001c, t01=0x00c0}
0x2c94…2cbe Head {h00=0x0026, h01=0x0050, text=» -THE 3:RD HOLE MUST BE IN ROW 8«, t00=0x001c, t01=0x00e2}
0x2cbe…2cd0 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x001c, t01=0x010c}
0x2cd0…2cf2 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FAULT DATA FAULT? «, t00=0x001c, t01=0x011e}
0x2cf2…2d14 Head {h00=0x001e, h01=0x0050, text=» -NO MORE THEN 3 HOLES! «, t00=0x001c, t01=0x0140}
0x2d14…2d28 Head {h00=0x0010, h01=0x0050, text=» LD A3,HOLE1«, t00=0x001c, t01=0x0162}
0x2d28…2d3a Head {h00=0x000e, h01=0x0050, text=» ADR A3,A3«, t00=0x001c, t01=0x0176}
0x2d3a…2d60 Head {h00=0x0022, h01=0x0050, text=» LD A3,TABLE3,A3 CHOOSE TABLE «, t00=0x001c, t01=0x0188}
0x2d60…2d74 Head {h00=0x0010, h01=0x0050, text=» AD A3,HOLE2«, t00=0x001d, t01=0x001e}
0x2d74…2d86 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x001d, t01=0x0032}
0x2d86…2d98 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x001d, t01=0x0044}
0x2d98…2daa Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x001d, t01=0x0056}
0x2daa…2dbc Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x001d, t01=0x0068}
0x2dbc…2dd4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x001d, t01=0x007a}
0x2dd4…2dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0092}
0x2dde…2de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x009c}
0x2de8…2e0e Head {h00=0x0022, h01=0x0050, text=» CONVERSION TABLE 3«, t00=0x001d, t01=0x00a6}
0x2e0e…2e3e Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x001d, t01=0x00cc}
0x2e3e…2e58 Head {h00=0x0016, h01=0x0050, text=»TABLE3 DATA TAB.4 «, t00=0x001d, t01=0x00fc}
0x2e58…2e6c Head {h00=0x0010, h01=0x0050, text=» DATA TAB.5 «, t00=0x001d, t01=0x0116}
0x2e6c…2e80 Head {h00=0x0010, h01=0x0050, text=» DATA TAB.6 «, t00=0x001d, t01=0x012a}
0x2e80…2eb6 Head {h00=0x0032, h01=0x0050, text=» ROWS ON CARD «, t00=0x001d, t01=0x013e}
0x2eb6…2ef2 Head {h00=0x0038, h01=0x0050, text=» ------------------- «, t00=0x001d, t01=0x0174}
0x2ef2…2f18 Head {h00=0x0022, h01=0x0050, text=»TAB.4 DATA '[.' 12,2,8 12,3,8«, t00=0x001e, t01=0x0020}
0x2f18…2f3a Head {h00=0x001e, h01=0x0050, text=» DATA '<(' 12,4,8 12,5,8 «, t00=0x001e, t01=0x0046}
0x2f3a…2f5c Head {h00=0x001e, h01=0x0050, text=» DATA /2B5E 12,6,8 12,7,8«, t00=0x001e, t01=0x0068}
0x2f5c…2f82 Head {h00=0x0022, h01=0x0050, text=»TAB.5 DATA '!$' 11,2,8 11,3,8«, t00=0x001e, t01=0x008a}
0x2f82…2fa4 Head {h00=0x001e, h01=0x0050, text=» DATA '*)' 11,4,8 11,5,8 «, t00=0x001e, t01=0x00b0}
0x2fa4…2fc6 Head {h00=0x001e, h01=0x0050, text=» DATA ';]' 11,6,8 11,7,8 «, t00=0x001e, t01=0x00d2}
0x2fc6…2fec Head {h00=0x0022, h01=0x0050, text=»TAB.6 DATA /5C2C 0,2,8 0,3,8«, t00=0x001e, t01=0x00f4}
0x2fec…300e Head {h00=0x001e, h01=0x0050, text=» DATA /255F 0,4,8 0,5,8 «, t00=0x001e, t01=0x011a}
0x300e…302e Head {h00=0x001c, h01=0x0050, text=» DATA '>?' 0,6,8 0,7,8«, t00=0x001e, t01=0x013c}
0x302e…305e Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x001e, t01=0x015c}
0x305e…30a8 Head {h00=0x0046, h01=0x0050, text=» THREE HOLES «, t00=0x001e, t01=0x018c}
0x30a8…30f8 Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x001f, t01=0x0046}
0x30f8…3110 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x001f, t01=0x0096}
0x3110…311a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001f, t01=0x00ae}
0x311a…3136 Head {h00=0x0018, h01=0x0050, text=» SET DATA FAULT«, t00=0x001f, t01=0x00b8}
0x3136…3152 Head {h00=0x0018, h01=0x0050, text=» **************«, t00=0x001f, t01=0x00d4}
0x3152…3166 Head {h00=0x0010, h01=0x0050, text=»FAULT EQU * «, t00=0x001f, t01=0x00f0}
0x3166…3198 Head {h00=0x002e, h01=0x0050, text=» LDK A1,4 SET DATA FAULT,BIT 13, IN STATUS«, t00=0x001f, t01=0x0104}
0x3198…31b0 Head {h00=0x0014, h01=0x0050, text=» ST A1,STATUS,A6«, t00=0x001f, t01=0x0136}
0x31b0…31dc Head {h00=0x0028, h01=0x0050, text=» LDK A3,/3F REPLACE CHARACTER BY "?"«, t00=0x001f, t01=0x014e}
0x31dc…31e6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001f, t01=0x017a}
0x31e6…31f0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001f, t01=0x0184}
0x31f0…3222 Head {h00=0x002e, h01=0x0050, text=» PUT CHARACTER (ASCII) IN USER BUFFER«, t00=0x001f, t01=0x018e}
0x3222…3254 Head {h00=0x002e, h01=0x0050, text=» ************************************«, t00=0x0020, t01=0x0030}
0x3254…3268 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x0020, t01=0x0062}
0x3268…327c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0020, t01=0x0076}
0x327c…3290 Head {h00=0x0010, h01=0x0050, text=» LD A4,FLAG «, t00=0x0020, t01=0x008a}
0x3290…32c4 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) NEXT10 RECOVERY HAS BEEN PERFORMED! «, t00=0x0020, t01=0x009e}
0x32c4…32d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00d2}
0x32d0…3300 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTA4,A6 A2=COLUMN TO BE EXAMINED«, t00=0x0020, t01=0x00de}
0x3300…3326 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A2 A3=ASCII CHARACTER «, t00=0x0020, t01=0x010e}
0x3326…334e Head {h00=0x0024, h01=0x0050, text=» SCR A3,A4 A4=BUFFER ADDRESS - 1«, t00=0x0020, t01=0x0134}
0x334e…337c Head {h00=0x002a, h01=0x0050, text=»TEST CWK A2,80 THE WHOLE CARD SCANNED?«, t00=0x0020, t01=0x015c}
0x337c…3394 Head {h00=0x0014, h01=0x0050, text=» RF(L) NEXT NO! «, t00=0x0020, t01=0x018a}
0x3394…33a8 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0021, t01=0x0012}
0x33a8…33ce Head {h00=0x0022, h01=0x0050, text=»READY CIO A3,0,DEVICE CIO HALT«, t00=0x0021, t01=0x0026}
0x33ce…33da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x004c}
0x33da…33ee Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0021, t01=0x0058}
0x33ee…3402 Head {h00=0x0010, h01=0x0050, text=»READY EQU * «, t00=0x0021, t01=0x006c}
0x3402…340e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0080}
0x340e…342e Head {h00=0x001c, h01=0x0050, text=» LDK A2,4 CHECK IF :EOF «, t00=0x0021, t01=0x008c}
0x342e…3446 Head {h00=0x0014, h01=0x0050, text=» CW A2,EFFLEN,A8«, t00=0x0021, t01=0x00ac}
0x3446…346a Head {h00=0x0020, h01=0x0050, text=» RF(NE) NEXT00 EFF.LENGTH #4«, t00=0x0021, t01=0x00c4}
0x346a…3494 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 GET BUFFER-ADDRESS«, t00=0x0021, t01=0x00e8}
0x3494…34a6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x0112}
0x34a6…34d2 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A4 GET FIRST WORD IN BUFFER«, t00=0x0021, t01=0x0124}
0x34d2…34f0 Head {h00=0x001a, h01=0x0050, text=» CWK A2,':E' A2 = :E ?«, t00=0x0021, t01=0x0150}
0x34f0…350a Head {h00=0x0016, h01=0x0050, text=» RF(NE) NEXT00 NO!«, t00=0x0021, t01=0x016e}
0x350a…3530 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A4 YES, GET NEXT WORD«, t00=0x0021, t01=0x0188}
0x3530…354e Head {h00=0x001a, h01=0x0050, text=» CWK A2,'OF' A2 = OF ?«, t00=0x0022, t01=0x001e}
0x354e…3568 Head {h00=0x0016, h01=0x0050, text=» RF(NE) NEXT00 NO!«, t00=0x0022, t01=0x003c}
0x3568…3592 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/1000 YES! :EOF DETECTED «, t00=0x0022, t01=0x0056}
0x3592…35be Head {h00=0x0028, h01=0x0050, text=» ORS A2,STATUS,A6 SET BIT 3 IN R.C. «, t00=0x0022, t01=0x0080}
0x35be…35d6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0022, t01=0x00ac}
0x35d6…35ea Head {h00=0x0010, h01=0x0050, text=»NEXT00 EQU *«, t00=0x0022, t01=0x00c4}
0x35ea…35fe Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0022, t01=0x00d8}
0x35fe…3614 Head {h00=0x0012, h01=0x0050, text=»NEXT ADK A2,1 «, t00=0x0022, t01=0x00ec}
0x3614…3634 Head {h00=0x001c, h01=0x0050, text=» ST A2,DWTA2,A6 SAVE A2 «, t00=0x0022, t01=0x0102}
0x3634…3640 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0122}
0x3640…3654 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0022, t01=0x012e}
0x3654…366e Head {h00=0x0016, h01=0x0050, text=» ABL IHCR20 READY «, t00=0x0022, t01=0x0142}
0x366e…3680 Head {h00=0x000e, h01=0x0050, text=»NEXT EQU *«, t00=0x0022, t01=0x015c}
0x3680…3692 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0022, t01=0x016e}
0x3692…36aa Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTA2,A6 «, t00=0x0022, t01=0x0180}
0x36aa…36d2 Head {h00=0x0024, h01=0x0050, text=» ABL IHCR10 TAKE NEXT CHARACTER «, t00=0x0023, t01=0x0008}
0x36d2…36e6 Head {h00=0x0010, h01=0x0050, text=»NEXT10 EQU *«, t00=0x0023, t01=0x0030}
0x36e6…36f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0044}
0x36f2…3722 Head {h00=0x002c, h01=0x0050, text=» ABL RETUR8 LOAD A1 - A8 AND RETURN A15 «, t00=0x0023, t01=0x0050}
0x3722…373a Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0023, t01=0x0080}
0x373a…3744 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0023, t01=0x0098}
0x3744…3772 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0023, t01=0x00a2}
0x3772…37a0 Head {h00=0x002a, h01=0x0050, text=»* DEVICE WORK TABLE FOR CARD READER * «, t00=0x0023, t01=0x00d0}
0x37a0…37ce Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0023, t01=0x00fe}
0x37ce…37d8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0023, t01=0x012c}
0x37d8…37ec Head {h00=0x0010, h01=0x0050, text=»DWCR01 EQU *«, t00=0x0023, t01=0x0136}
0x37ec…380e Head {h00=0x001e, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER «, t00=0x0023, t01=0x014a}
0x380e…3828 Head {h00=0x0016, h01=0x0050, text=» DATA /8000 STATUS«, t00=0x0023, t01=0x016c}
0x3828…3844 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0023, t01=0x0186}
0x3844…3866 Head {h00=0x001e, h01=0x0050, text=» DATA 0 LAST OUTPUT, ORDER«, t00=0x0024, t01=0x0012}
0x3866…3892 Head {h00=0x0028, h01=0x0050, text=» DATA CRADR POINTER TO DEVICE DRIVER«, t00=0x0024, t01=0x0034}
0x3892…38b2 Head {h00=0x001c, h01=0x0050, text=» DATA 0 POINTER TO TTAB «, t00=0x0024, t01=0x0060}
0x38b2…38da Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0024, t01=0x0080}
0x38da…38f8 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0024, t01=0x00a8}
0x38f8…390e Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0024, t01=0x00c6}
0x390e…3938 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0024, t01=0x00dc}
0x3938…395c Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0024, t01=0x0106}
0x395c…3968 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0024, t01=0x012a}
0x3968…398a Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x0024, t01=0x0136}
0x398a…39aa Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVEAREA FOR A2 «, t00=0x0024, t01=0x0158}
0x39aa…39ca Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVEAREA FOR A4 «, t00=0x0024, t01=0x0178}
0x39ca…39ea Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVEAREA FOR A5 «, t00=0x0025, t01=0x0008}
0x39ea…3a02 Head {h00=0x0014, h01=0x0050, text=» RES 4 DWT STACK«, t00=0x0025, t01=0x0028}
0x3a02…3a1e Head {h00=0x0018, h01=0x0050, text=»STATUS EQU *-DWCR01 «, t00=0x0025, t01=0x0040}
0x3a1e…3a46 Head {h00=0x0024, h01=0x0050, text=» DATA 0 SOFTWARE STATUS SAVEAREA«, t00=0x0025, t01=0x005c}
0x3a46…3a6c Head {h00=0x0022, h01=0x0050, text=»FLAG DATA 0 RECOVERY INDICATOR«, t00=0x0025, t01=0x0084}
0x3a6c…3a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00aa}
0x3a76…3a8c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x00b4}
0x3a8c…3aa0 Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0025, t01=0x00ca}
0x3aa0…3ab0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0025, t01=0x00de}
0x3ab0…3ac4 Head {h00=0x0010, h01=0x0050, text=» DATA CR:BUF«, t00=0x0025, t01=0x00ee}
0x3ac4…3ada Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0025, t01=0x0102}
0x3ada…3af6 Head {h00=0x0018, h01=0x0050, text=»CR:BUF RES DVBLEN+1 «, t00=0x0025, t01=0x0118}
0x3af6…3b02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0134}
0x3b02…3b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0140}
0x3b0c…3b18 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0025, t01=0x014a}
0x3b18…3b1c Head {h00=0x4004, h01=0x0000}
0x3b1c…3b20 00 25 01 56 ┆ % V┆
0x3b20…3b28 (38, 1, 8) 20 04 00 00 00 26 00 04 ┆ & ┆
0x3b28…3b78 (39, 0, 400) 31 5c 44 45 43 52 45 4d 45 4e 54 20 4e 55 4d 42 45 52 20 4f 46 20 4d 4f 4e 49 54 4f 52 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 53 00 2e 01 82 00 1a 00 50 5c 52 46 28 4e 29 5c 42 54 43 54 32 30 5c 4e 4f 20 4d 4f 52 45 21 00 2f 00 34 00 28 ┆1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES . P RF(N) BTCT20 NO MORE! / 4 (┆
0x3b78…3bc8 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 20 49 44 3a 53 20 00 2f 00 52 00 20 00 50 42 54 43 54 30 38 5c 41 44 4b 5c 41 31 2c 32 5c 4e 45 58 54 20 54 41 53 4b 20 49 44 00 2f 00 7e 00 2c ┆ P LDR* A4,A1 GET NUMBER OF TASK ID:S / R PBTCT08 ADK A1,2 NEXT TASK ID / ~ ,┆
0x3bc8…3c18 00 50 5c 53 55 4b 5c 41 34 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 20 49 44 3a 53 20 00 2f 00 a2 00 1a 00 50 5c 52 42 28 4e 29 5c 42 54 43 54 30 36 5c 4e 4f 20 4d 4f 52 45 20 00 2f 00 d2 00 1c 00 50 ┆ P SUK A4,1 DECREMENT NUMBER OF TASK ID:S / P RB(N) BTCT06 NO MORE / P┆
0x3c18…3c68 5c 4c 44 52 2a 5c 41 32 2c 41 31 5c 47 45 54 20 54 41 53 4b 20 49 44 20 00 2f 00 f0 00 24 00 50 5c 43 41 4c 4c 5c 52 45 53 54 43 54 5c 52 45 53 45 52 56 45 20 45 4e 54 52 59 20 54 43 54 41 42 00 2f 01 10 00 0e 00 50 5c 52 42 5c 42 54 43 54 ┆ LDR* A2,A1 GET TASK ID / $ P CALL RESTCT RESERVE ENTRY TCTAB / P RB BTCT┆
0x3c68…3cb8 30 38 00 2f 01 38 00 08 00 50 5c 58 49 46 00 2f 01 4a 00 0a 00 50 5c 45 4a 45 43 54 00 2f 01 56 00 06 00 50 2a 20 00 2f 01 64 00 2e 00 50 2a 20 20 52 45 53 45 52 56 45 20 45 4e 54 52 49 45 53 20 49 4e 20 54 43 54 41 42 20 46 4f 52 20 55 53 ┆08 / 8 P XIF / J P EJECT / V P* / d . P* RESERVE ENTRIES IN TCTAB FOR US┆
0x3cb8…3d08 (40, 0, 400) 45 52 20 54 41 53 4b 53 00 2f 01 6e 00 06 00 03 2a 20 00 30 00 10 00 10 00 50 42 54 43 54 32 30 5c 45 51 55 5c 2a 00 30 00 1a 00 36 00 50 5c 53 54 5c 41 31 32 2c 53 54 4b 45 4e 44 2b 43 55 54 45 4e 54 5c 53 41 56 45 20 43 55 52 52 45 4e 54 ┆ER TASKS / n * 0 PBTCT20 EQU * 0 6 P ST A12,STKEND+CUTENT SAVE CURRENT┆
0x3d08…3d58 20 55 53 45 52 20 54 41 53 4b 20 45 4e 54 52 59 00 30 00 2e 00 2c 00 50 5c 4c 44 5c 41 37 2c 53 59 53 4c 4f 44 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 41 50 50 4c 49 43 41 54 49 4f 4e 53 00 30 00 68 00 36 00 50 5c 4c 44 4b 4c 5c 41 34 ┆ USER TASK ENTRY 0 . , P LD A7,SYSLOD GET NUMBER OF APPLICATIONS 0 h 6 P LDKL A4┆
0x3d58…3da8 2c 53 59 53 4c 4f 44 2b 32 5c 46 49 52 53 54 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 00 30 00 98 00 26 00 50 42 54 43 54 33 30 5c 53 55 4b 5c 41 37 2c 31 5c 4d 4f 52 45 20 41 50 50 4c 49 43 41 54 49 ┆,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK 0 & PBTCT30 SUK A7,1 MORE APPLICATI┆
0x3da8…3df8 4f 4e 53 3f 00 30 00 d2 00 16 00 50 5c 52 46 28 4e 29 5c 42 54 43 54 37 30 5c 4e 4f 21 20 00 30 00 fc 00 36 00 50 5c 4c 44 5c 41 31 31 2c 41 50 4c 4d 4d 43 2c 41 34 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 49 47 55 52 41 54 49 ┆ONS? 0 P RF(N) BTCT70 NO! 0 6 P LD A11,APLMMC,A4 GET START OF CONFIGURATI┆
0x3df8…3e48 4f 4e 20 44 41 54 41 20 00 30 01 16 00 2a 00 50 5c 41 44 5c 41 31 31 2c 53 54 4b 43 4f 4d 2b 43 4f 4e 53 54 41 5c 52 45 4c 4f 43 41 54 45 20 50 4f 49 4e 54 45 52 00 30 01 50 00 32 00 50 5c 53 54 5c 41 31 32 2c 41 50 4c 4d 4d 43 2c 41 34 5c ┆ON DATA 0 * P AD A11,STKCOM+CONSTA RELOCATE POINTER 0 P 2 P ST A12,APLMMC,A4 ┆
0x3e48…3e98 (41, 0, 400) 53 54 4f 52 45 20 46 49 52 53 54 20 55 53 45 52 20 54 41 53 4b 20 45 4e 54 52 59 20 00 30 01 7e 00 1e 00 1a 5c 4c 43 52 5c 41 32 2c 41 31 31 5c 47 45 54 20 42 4c 4f 43 4b 20 54 59 50 45 00 31 00 24 00 28 00 23 5c 43 43 4b 5c 41 32 2c 27 54 ┆STORE FIRST USER TASK ENTRY 0 ~ LCR A2,A11 GET BLOCK TYPE 1 $ ( # CCK A2,'T┆
0x3e98…3ee8 54 27 5c 54 41 53 4b 20 44 45 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 3f 20 00 31 00 46 00 16 00 11 5c 52 46 28 45 29 5c 42 54 43 54 33 35 5c 59 45 53 20 00 31 00 72 00 1e 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 34 5c 46 4f 52 4d 41 54 ┆T' TASK DEFINITION BLOCK? 1 F RF(E) BTCT35 YES 1 r P LDKL A1,LMP4 FORMAT┆
0x3ee8…3f38 20 45 52 52 4f 52 00 31 00 8c 00 14 00 10 5c 43 41 4c 4c 5c 45 52 52 4f 52 5c 48 41 4c 54 00 31 00 ae 00 0a 00 50 5c 45 4a 45 43 54 00 31 00 c6 00 10 00 50 42 54 43 54 33 35 5c 45 51 55 5c 2a 00 31 00 d4 00 06 00 03 2a 20 00 31 00 e8 00 30 ┆ ERROR 1 CALL ERROR HALT 1 P EJECT 1 PBTCT35 EQU * 1 * 1 0┆
0x3f38…3f88 00 2c 2a 20 20 43 4f 4d 50 55 54 45 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 20 49 4e 20 45 41 43 48 20 54 41 53 4b 20 43 4c 41 53 53 00 31 00 f2 00 06 00 03 2a 20 00 31 01 26 00 10 00 50 42 54 43 54 34 30 5c 45 51 55 5c 2a 00 31 01 30 ┆ ,* COMPUTE NUMBER OF TASK IN EACH TASK CLASS 1 * 1 & PBTCT40 EQU * 1 0┆
0x3f88…3fd8 00 24 00 20 5c 43 41 4c 4c 5c 47 45 54 54 53 4b 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 53 00 31 01 44 00 10 00 50 42 54 43 54 35 30 5c 45 51 55 5c 2a 00 31 01 6c 00 2e 00 50 5c 41 44 4b 4c 5c 41 31 32 2c 32 5c 52 45 53 45 ┆ $ CALL GETTSK GET NUMBER OF TASKS 1 D PBTCT50 EQU * 1 l . P ADKL A12,2 RESE┆
0x3fd8…4028 (42, 0, 400) 52 56 20 41 4e 4f 54 48 45 52 20 45 4e 54 52 59 20 49 4e 20 54 43 3a 54 41 42 00 31 01 80 00 28 00 24 5c 53 55 4b 5c 41 31 2c 31 5c 4d 4f 4f 52 45 20 54 41 53 4b 53 20 49 4e 20 54 48 49 53 20 43 4c 41 53 53 3f 00 32 00 22 00 16 00 11 5c 52 ┆RV ANOTHER ENTRY IN TC:TAB 1 ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? 2 " R┆
0x4028…4078 42 28 50 29 5c 42 54 43 54 35 30 5c 59 45 53 20 00 32 00 4e 00 24 00 1f 5c 43 41 4c 4c 5c 4e 58 54 42 4c 4b 5c 53 4b 49 50 20 54 4f 20 4e 45 58 54 20 42 4c 4f 43 4b 20 00 32 00 68 00 28 00 23 5c 43 43 4b 5c 41 32 2c 27 54 54 27 5c 54 41 53 ┆B(P) BTCT50 YES 2 N $ CALL NXTBLK SKIP TO NEXT BLOCK 2 h ( # CCK A2,'TT' TAS┆
0x4078…40c8 4b 20 44 45 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 3f 20 00 32 00 90 00 16 00 11 5c 52 42 28 45 29 5c 42 54 43 54 34 30 5c 59 45 53 20 00 32 00 bc 00 10 00 50 42 54 43 54 36 30 5c 45 51 55 5c 2a 00 32 00 d6 00 2c 00 50 5c 41 44 4b 5c 41 ┆K DEFINITION BLOCK? 2 RB(E) BTCT40 YES 2 PBTCT60 EQU * 2 , P ADK A┆
0x40c8…4118 34 2c 41 43 42 4c 45 4e 5c 4e 45 58 54 20 41 50 50 4c 2e 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 00 32 00 ea 00 0e 00 50 5c 52 42 5c 42 54 43 54 33 30 00 32 01 1a 00 06 00 03 2a 20 00 32 01 2c 00 34 00 30 2a 20 20 45 4e 54 52 49 45 53 ┆4,ACBLEN NEXT APPL. CONTROL BLOCK 2 P RB BTCT30 2 * 2 , 4 0* ENTRIES┆
0x4118…4168 20 46 4f 52 20 41 4c 4c 20 55 53 45 52 20 54 41 53 4b 53 20 52 45 53 45 52 56 45 44 20 49 4e 20 54 43 3a 54 41 42 00 32 01 36 00 06 00 03 2a 20 00 32 01 6e 00 30 00 50 42 54 43 54 37 30 5c 53 54 5c 41 31 32 2c 53 43 54 53 46 41 5c 55 50 44 ┆ FOR ALL USER TASKS RESERVED IN TC:TAB 2 6 * 2 n 0 PBTCT70 ST A12,SCTSFA UPD┆
0x4168…41b8 (43, 0, 400) 41 54 45 20 45 4e 44 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 32 01 78 00 22 00 50 5c 53 55 5c 41 31 32 2c 53 43 54 54 43 54 5c 43 4f 4d 50 55 54 45 20 4c 45 4e 47 54 48 20 00 33 00 1c 00 1a 00 50 5c 53 54 2a 5c 41 31 32 2c 53 43 54 54 43 ┆ATE END OF FREE AREA 2 x " P SU A12,SCTTCT COMPUTE LENGTH 3 P ST* A12,SCTTC┆
0x41b8…4208 54 5c 53 54 4f 52 45 20 00 33 00 42 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 33 00 60 00 0e 00 50 5c 49 46 46 5c 45 44 4d 3d 30 00 33 00 70 00 0a 00 50 5c 45 4a 45 43 54 00 33 00 82 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆T STORE 3 B RTN A14 3 ` P IFF EDM=0 3 p P EJECT 3 : P****************┆
0x4208…4258 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 33 00 90 00 3a 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 ┆************************************* 3 : P* ┆
0x4258…42a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 33 00 ce 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 52 45 53 54 43 54 20 2d 20 52 45 53 45 52 56 45 20 45 4e 54 52 59 20 49 4e 20 54 43 54 41 42 20 20 20 20 20 20 20 20 20 20 ┆ * 3 : P* RESTCT - RESERVE ENTRY IN TCTAB ┆
0x42a8…42f8 2a 20 00 33 01 0c 00 3a 00 50 2a 20 20 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 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 2a 20 00 33 01 4a 00 3a 00 50 2a 20 20 20 20 20 20 20 ┆* 3 : P* =============================== * 3 J : P* ┆
0x42f8…4348 (44, 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 20 20 20 20 20 20 20 20 20 20 2a 20 00 33 01 88 00 3a 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 42 3a 54 43 54 20 20 20 ┆ * 3 : P* REFERENCED IN: B:TCT ┆
0x4348…4398 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 34 00 36 00 3a 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 ┆ * 4 6 : P* ┆
0x4398…43e8 20 20 20 20 20 20 20 20 2a 20 00 34 00 74 00 3a 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 32 20 2d 20 43 55 52 52 45 4e 54 20 54 41 53 4b 20 49 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 34 00 b2 00 3a 00 50 ┆ * 4 t : P* ENTRY: A2 - CURRENT TASK ID * 4 : P┆
0x43e8…4438 2a 20 20 20 20 20 20 20 20 20 41 31 32 20 2d 20 4e 45 58 54 20 46 52 45 45 20 45 4e 54 52 59 20 49 4e 20 54 43 54 41 42 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 34 00 f0 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* A12 - NEXT FREE ENTRY IN TCTAB * 4 : P* ┆
0x4438…4488 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 34 01 2e 00 3a 00 50 2a 20 20 45 58 49 54 3a 20 20 41 31 32 20 2d 20 4e 45 58 54 20 46 52 45 45 20 45 4e 54 52 59 20 49 4e 20 54 ┆ * 4 . : P* EXIT: A12 - NEXT FREE ENTRY IN T┆