|
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: 4634 (0x121a)
Notes: pts_type(SC)
Names: »INPRET.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/INPRET.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/INPRET.SC«
IDENT INPRET REL=7.2 DATE=77-09-09
UPDATE #0 77-09-09
*
**************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* INPRET = SUBROUTINE INTERPRETER
*
*
* LEVEL #2 77-09-09
*
* RELEASE #7 77-09-09
*
**************************************************
*
*
* THIS IS A SUBROUTINE INTERPRETER TO HANDLE SUBROUTINE
* CALLS USING THE A14 STACK. THE INTERPRETER IS CALLED
* WITH INSTRUCTION CODES /C001 - /C0FF WHERE /1 - /FF IS A
* INDEX. INDEX VAULES ARE 1,2,3,4......
* THE INDEX IS USED TO GET ABSOLUTE ADDRESS TO THE CALLED
* SUBROUTINE FROM A ADDRESS TABLE. START ADDRESS OF THIS TABLE
* IS STORED IN COMMUNICATION VECTOR TABLE. ('CVTINP')
*
* THE INTERPRETER MAY ALSO EXECUTE THE FOLLOWING TWO INSTRUCTIONS:
*
* LD R1,DISPL,A13 CALLING CODE: CXYY
*
* ST R1,DISPL,A13 CALLING CODE: DXYY
*
* X = R1 = REGISTERS A1 -A14
* YY = DISPL (DISPLACMENT)
*
*
*
EJECT
*
*
*********
* ENTRY *
*********
*
*
ENTRY IHINPT TRAP INTERRUPT ADDRESS
*
*
*
*************
* EXTERNALS *
*************
*
*
EXTRN CVTINP FUNCTION TABLE ADDRESS
EXTRN RETUR3
EJECT
*
*
* I H I N P T
*
* INTERPRETER TRAP HANDLER
*
IHINPT EQU *
STR A1,A15 SAVE A1-A3 ON STACK
STR A2,A15
STR A3,A15 SAVE A3 ON STACK
LD A1,10,A15 LOAD TRAP ADDRESS
LDR* A2,A1 LOAD TRAP CODE
ADK A1,2
ST A1,10,A15 SAVE RETURN ADDRESS
LDR A3,A2 SAVE CODE IN A3
ANKL A3,/F00 MASK OUT REGISTER CODE
RF(Z) INT200 BRANCH IF SUBROUTINE CALL
*
*
* EXECUTE LOAD/STORE INSTRUCTION
*
SC A2,DISPL+1 STORE DISPLACMENT
SRL A3,1 SHIFT TO FIT INSTRUCTION CODE
SLL A2,3
RF(NN) INT100 BRANCH IF LOAD INSTRUCTION
ADK A3,1 INDICATE STORE INSTRUCTION
INT100 ADKL A3,/8056 GET COMPLETE INSTRUCTION CODE
ST A3,INSTR STORE INSTRUCTION TO BE EXECUTED
LDR* A3,A15 RESORE A3
LDR* A2,A15 RESTORE A1-A2
LDR* A1,A15
INSTR DATA 0 LOAD/STORE INSTRUCTION
DISPL DATA 0 DISPLACMENT
STR A1,A15 SAVE A1
CF A15,IHSTAK SAVE CONDITION REGISTER
IHSTAK LDR* A1,A15 GET COND. REG
ST A1,6,A15 STORE IN RETURN PSW
LDR* A1,A15 DUMMY TO ADJUST STACK
LDR* A1,A15 RELOAD A1
RTN A15 RETURN TO USER PROGRAM
EJECT
*
*
* EXECUTE SUBROUTINE CALL
*
INT200 EQU *
STR A1,A14 STORE CONTINUATION ADDRESS ON A14 STACK
LD A3,8,A15
ST A3,-2,A14 STORE PSW ON A14 STACK
SUKL A14,4 ADJUST STACK POINTER
ANKL A2,/1FFF GET INDEX AND
ADR A2,A2 DOUBLE IT
AD A2,CVTINP ADD FUNCTION TABLE START ADDRESS
LDR* A2,A2 GET SUBROUTINE START ADDRESS AND
ST A2,10,A15 STORE IT ON A15 STACK
ABL RETUR3 RESTORE A1-A3 AND GO TO CALLED SUBROUTINE
*
*
END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT INPRET REL=7.2 DATE=77-09-09«, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…0094 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x005e}
0x0094…009e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0098}
0x009e…00c6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a2}
0x00c6…00d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ca}
0x00d0…00fc Head {h00=0x0028, h01=0x0050, text=»* INPRET = SUBROUTINE INTERPRETER «, t00=0x0000, t01=0x00d4}
0x00fc…0106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x0110…0132 Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0114}
0x0132…013c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…015e Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x0140}
0x015e…0168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0162}
0x0168…01a2 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x016c}
0x01a2…01ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0016}
0x01ac…01b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0020}
0x01b6…01f8 Head {h00=0x003e, h01=0x0050, text=»* THIS IS A SUBROUTINE INTERPRETER TO HANDLE SUBROUTINE «, t00=0x0001, t01=0x002a}
0x01f8…0238 Head {h00=0x003c, h01=0x0050, text=»* CALLS USING THE A14 STACK. THE INTERPRETER IS CALLED«, t00=0x0001, t01=0x006c}
0x0238…027c Head {h00=0x0040, h01=0x0050, text=»* WITH INSTRUCTION CODES /C001 - /C0FF WHERE /1 - /FF IS A«, t00=0x0001, t01=0x00ac}
0x027c…02ae Head {h00=0x002e, h01=0x0050, text=»* INDEX. INDEX VAULES ARE 1,2,3,4...... «, t00=0x0001, t01=0x00f0}
0x02ae…02f2 Head {h00=0x0040, h01=0x0050, text=»* THE INDEX IS USED TO GET ABSOLUTE ADDRESS TO THE CALLED «, t00=0x0001, t01=0x0122}
0x02f2…033a Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINE FROM A ADDRESS TABLE. START ADDRESS OF THIS TABLE«, t00=0x0001, t01=0x0166}
0x033a…037a Head {h00=0x003c, h01=0x0050, text=»* IS STORED IN COMMUNICATION VECTOR TABLE. ('CVTINP') «, t00=0x0002, t01=0x001e}
0x037a…0384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005e}
0x0384…03d0 Head {h00=0x0048, h01=0x0050, text=»* THE INTERPRETER MAY ALSO EXECUTE THE FOLLOWING TWO INSTRUCTIONS:«, t00=0x0002, t01=0x0068}
0x03d0…03da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…040c Head {h00=0x002e, h01=0x0050, text=»* LD R1,DISPL,A13 CALLING CODE: CXYY «, t00=0x0002, t01=0x00be}
0x040c…0416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f0}
0x0416…0448 Head {h00=0x002e, h01=0x0050, text=»* ST R1,DISPL,A13 CALLING CODE: DXYY «, t00=0x0002, t01=0x00fa}
0x0448…0452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012c}
0x0452…047a Head {h00=0x0024, h01=0x0050, text=»* X = R1 = REGISTERS A1 -A14 «, t00=0x0002, t01=0x0136}
0x047a…049e Head {h00=0x0020, h01=0x0050, text=»* YY = DISPL (DISPLACMENT)«, t00=0x0002, t01=0x015e}
0x049e…04a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0182}
0x04a8…04b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018c}
0x04b2…04bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0008}
0x04bc…04ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0012}
0x04ca…04d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d4…04de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04de…04f0 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0003, t01=0x0034}
0x04f0…0502 Head {h00=0x000e, h01=0x0050, text=»* ENTRY * «, t00=0x0003, t01=0x0046}
0x0502…0514 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0003, t01=0x0058}
0x0514…051e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006a}
0x051e…0528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0074}
0x0528…0554 Head {h00=0x0028, h01=0x0050, text=» ENTRY IHINPT TRAP INTERRUPT ADDRESS«, t00=0x0003, t01=0x007e}
0x0554…055e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00aa}
0x055e…0568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b4}
0x0568…0572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00be}
0x0572…0588 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x00c8}
0x0588…059e Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x00de}
0x059e…05b4 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x00f4}
0x05b4…05be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010a}
0x05be…05c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0114}
0x05c8…05f4 Head {h00=0x0028, h01=0x0050, text=» EXTRN CVTINP FUNCTION TABLE ADDRESS«, t00=0x0003, t01=0x011e}
0x05f4…060a Head {h00=0x0012, h01=0x0050, text=» EXTRN RETUR3 «, t00=0x0003, t01=0x014a}
0x060a…0618 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0160}
0x0618…0622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016e}
0x0622…062c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0178}
0x062c…0644 Head {h00=0x0014, h01=0x0050, text=»* I H I N P T «, t00=0x0003, t01=0x0182}
0x0644…064e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000a}
0x064e…0672 Head {h00=0x0020, h01=0x0050, text=»* INTERPRETER TRAP HANDLER«, t00=0x0004, t01=0x0014}
0x0672…067c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0038}
0x067c…0690 Head {h00=0x0010, h01=0x0050, text=»IHINPT EQU *«, t00=0x0004, t01=0x0042}
0x0690…06b8 Head {h00=0x0024, h01=0x0050, text=» STR A1,A15 SAVE A1-A3 ON STACK «, t00=0x0004, t01=0x0056}
0x06b8…06cc Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0004, t01=0x007e}
0x06cc…06f0 Head {h00=0x0020, h01=0x0050, text=» STR A3,A15 SAVE A3 ON STACK«, t00=0x0004, t01=0x0092}
0x06f0…0718 Head {h00=0x0024, h01=0x0050, text=» LD A1,10,A15 LOAD TRAP ADDRESS «, t00=0x0004, t01=0x00b6}
0x0718…073a Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A1 LOAD TRAP CODE«, t00=0x0004, t01=0x00de}
0x073a…074c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0004, t01=0x0100}
0x074c…0776 Head {h00=0x0026, h01=0x0050, text=» ST A1,10,A15 SAVE RETURN ADDRESS «, t00=0x0004, t01=0x0112}
0x0776…0798 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CODE IN A3«, t00=0x0004, t01=0x013c}
0x0798…07c4 Head {h00=0x0028, h01=0x0050, text=» ANKL A3,/F00 MASK OUT REGISTER CODE«, t00=0x0004, t01=0x015e}
0x07c4…07f4 Head {h00=0x002c, h01=0x0050, text=» RF(Z) INT200 BRANCH IF SUBROUTINE CALL «, t00=0x0004, t01=0x018a}
0x07f4…07fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002a}
0x07fe…0808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0034}
0x0808…0832 Head {h00=0x0026, h01=0x0050, text=»* EXECUTE LOAD/STORE INSTRUCTION«, t00=0x0005, t01=0x003e}
0x0832…083c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0068}
0x083c…0864 Head {h00=0x0024, h01=0x0050, text=» SC A2,DISPL+1 STORE DISPLACMENT«, t00=0x0005, t01=0x0072}
0x0864…0894 Head {h00=0x002c, h01=0x0050, text=» SRL A3,1 SHIFT TO FIT INSTRUCTION CODE «, t00=0x0005, t01=0x009a}
0x0894…08a6 Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0005, t01=0x00ca}
0x08a6…08d8 Head {h00=0x002e, h01=0x0050, text=» RF(NN) INT100 BRANCH IF LOAD INSTRUCTION «, t00=0x0005, t01=0x00dc}
0x08d8…0904 Head {h00=0x0028, h01=0x0050, text=» ADK A3,1 INDICATE STORE INSTRUCTION«, t00=0x0005, t01=0x010e}
0x0904…093e Head {h00=0x0036, h01=0x0050, text=»INT100 ADKL A3,/8056 GET COMPLETE INSTRUCTION CODE«, t00=0x0005, t01=0x013a}
0x093e…0974 Head {h00=0x0032, h01=0x0050, text=» ST A3,INSTR STORE INSTRUCTION TO BE EXECUTED «, t00=0x0005, t01=0x0174}
0x0974…0992 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A15 RESORE A3«, t00=0x0006, t01=0x001a}
0x0992…09b4 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A15 RESTORE A1-A2«, t00=0x0006, t01=0x0038}
0x09b4…09c8 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0006, t01=0x005a}
0x09c8…09f4 Head {h00=0x0028, h01=0x0050, text=»INSTR DATA 0 LOAD/STORE INSTRUCTION «, t00=0x0006, t01=0x006e}
0x09f4…0a14 Head {h00=0x001c, h01=0x0050, text=»DISPL DATA 0 DISPLACMENT«, t00=0x0006, t01=0x009a}
0x0a14…0a30 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0006, t01=0x00ba}
0x0a30…0a5e Head {h00=0x002a, h01=0x0050, text=» CF A15,IHSTAK SAVE CONDITION REGISTER«, t00=0x0006, t01=0x00d6}
0x0a5e…0a86 Head {h00=0x0024, h01=0x0050, text=»IHSTAK LDR* A1,A15 GET COND. REG«, t00=0x0006, t01=0x0104}
0x0a86…0aae Head {h00=0x0024, h01=0x0050, text=» ST A1,6,A15 STORE IN RETURN PSW«, t00=0x0006, t01=0x012c}
0x0aae…0ad8 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A15 DUMMY TO ADJUST STACK«, t00=0x0006, t01=0x0154}
0x0ad8…0af6 Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A15 RELOAD A1«, t00=0x0006, t01=0x017e}
0x0af6…0b1e Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO USER PROGRAM «, t00=0x0007, t01=0x000c}
0x0b1e…0b2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0034}
0x0b2c…0b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0042}
0x0b36…0b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004c}
0x0b40…0b64 Head {h00=0x0020, h01=0x0050, text=»* EXECUTE SUBROUTINE CALL «, t00=0x0007, t01=0x0056}
0x0b64…0b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007a}
0x0b6e…0b82 Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x0007, t01=0x0084}
0x0b82…0bbe Head {h00=0x0038, h01=0x0050, text=» STR A1,A14 STORE CONTINUATION ADDRESS ON A14 STACK «, t00=0x0007, t01=0x0098}
0x0bbe…0bd2 Head {h00=0x0010, h01=0x0050, text=» LD A3,8,A15«, t00=0x0007, t01=0x00d4}
0x0bd2…0bfe Head {h00=0x0028, h01=0x0050, text=» ST A3,-2,A14 STORE PSW ON A14 STACK«, t00=0x0007, t01=0x00e8}
0x0bfe…0c26 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 ADJUST STACK POINTER«, t00=0x0007, t01=0x0114}
0x0c26…0c4a Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/1FFF GET INDEX AND«, t00=0x0007, t01=0x013c}
0x0c4a…0c66 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A2 DOUBLE IT«, t00=0x0007, t01=0x0160}
0x0c66…0c9c Head {h00=0x0032, h01=0x0050, text=» AD A2,CVTINP ADD FUNCTION TABLE START ADDRESS«, t00=0x0007, t01=0x017c}
0x0c9c…0cd0 Head {h00=0x0030, h01=0x0050, text=» LDR* A2,A2 GET SUBROUTINE START ADDRESS AND«, t00=0x0008, t01=0x0022}
0x0cd0…0cfc Head {h00=0x0028, h01=0x0050, text=» ST A2,10,A15 STORE IT ON A15 STACK «, t00=0x0008, t01=0x0056}
0x0cfc…0d3a Head {h00=0x003a, h01=0x0050, text=» ABL RETUR3 RESTORE A1-A3 AND GO TO CALLED SUBROUTINE «, t00=0x0008, t01=0x0082}
0x0d3a…0d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d44…0d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ca}
0x0d4e…0d5a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0008, t01=0x00d4}
0x0d5a…0d5e Head {h00=0x4004, h01=0x0000}
0x0d5e…0d62 00 08 00 e0 ┆ ┆
0x0d62…0d6a (9, 1, 8) 20 04 00 00 00 09 00 04 ┆ ┆
0x0d6a…0dba (10, 0, 400) 00 21 01 6a 00 1e 00 50 5c 52 46 28 5a 29 5c 41 4b 42 33 35 39 5c 4e 4f 20 4b 45 59 54 41 42 4c 45 20 00 22 00 08 00 22 00 50 5c 4c 43 52 5c 41 34 2c 41 31 5c 54 41 42 4c 45 20 4c 45 4e 47 54 48 20 49 4e 20 41 34 20 00 22 00 2a 00 10 00 50 ┆ ! j P RF(Z) AKB359 NO KEYTABLE " " P LCR A4,A1 TABLE LENGTH IN A4 " * P┆
0x0dba…0e0a 5c 41 4e 4b 5c 41 34 2c 2f 46 46 20 00 22 00 50 00 26 00 50 5c 41 44 52 5c 41 31 2c 41 34 5c 4c 41 53 54 20 50 4c 41 43 45 20 49 4e 20 4b 45 59 2d 54 41 42 4c 45 00 22 00 64 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 22 00 8e 00 14 00 50 ┆ ANK A4,/FF " P & P ADR A1,A4 LAST PLACE IN KEY-TABLE " d P ADK A1,1 " P┆
0x0e0a…0e5a 41 4b 42 33 35 35 5c 53 55 4b 5c 41 34 2c 31 20 00 22 00 a0 00 2c 00 50 5c 52 46 28 4e 29 5c 41 4b 42 33 36 30 5c 4b 45 59 20 4e 4f 54 20 46 4f 55 4e 44 20 49 4e 20 4b 45 59 2d 54 41 42 4c 45 00 22 00 b8 00 16 00 50 5c 53 55 4b 5c 41 31 2c ┆AKB355 SUK A4,1 " , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE " P SUK A1,┆
0x0e5a…0eaa 31 5c 4e 45 58 54 20 4b 45 59 00 22 00 e8 00 1e 00 50 5c 43 43 52 5c 41 32 2c 41 31 5c 45 4f 52 2d 43 48 41 52 41 43 54 45 52 3f 20 00 22 01 02 00 16 00 50 5c 52 42 28 4e 45 29 5c 41 4b 42 33 35 35 5c 4e 4f 20 00 22 01 24 00 12 00 50 5c 49 ┆1 NEXT KEY " P CCR A2,A1 EOR-CHARACTER? " P RB(NE) AKB355 NO " $ P I┆
0x0eaa…0efa 46 54 5c 43 52 45 44 49 54 3d 30 20 00 22 01 3e 00 20 00 50 5c 41 44 52 5c 41 34 2c 41 34 5c 59 45 53 20 44 4f 55 42 4c 45 20 49 4e 44 45 58 20 00 22 01 54 00 08 00 50 5c 58 49 46 00 22 01 78 00 12 00 50 5c 49 46 54 5c 43 52 45 44 49 54 3d ┆FT CREDIT=0 " > P ADR A4,A4 YES DOUBLE INDEX " T P XIF " x P IFT CREDIT=┆
0x0efa…0f4a (11, 0, 400) 31 20 00 22 01 84 00 28 00 50 5c 41 44 4b 5c 41 34 2c 31 5c 49 4e 44 45 58 20 53 54 41 52 54 53 20 41 54 20 4f 4e 45 2c 49 4e 43 52 3d 31 00 23 00 0a 00 08 00 50 5c 58 49 46 00 23 00 36 00 2c 00 50 5c 53 54 5c 41 34 2c 31 30 2c 41 38 5c 53 ┆1 " ( P ADK A4,1 INDEX STARTS AT ONE,INCR=1 # P XIF # 6 , P ST A4,10,A8 S┆
0x0f4a…0f9a 54 4f 52 45 20 49 4e 44 45 58 20 49 4e 20 43 4f 4e 54 52 4f 4c 57 4f 52 44 20 00 23 00 42 00 28 00 50 41 4b 42 33 35 38 5c 43 46 5c 41 31 35 2c 53 54 4f 52 45 5c 53 54 4f 52 45 20 43 48 41 52 41 43 54 45 52 20 00 23 00 72 00 0e 00 50 5c 52 ┆TORE INDEX IN CONTROLWORD # B ( PAKB358 CF A15,STORE STORE CHARACTER # r P R┆
0x0f9a…0fea 46 5c 41 4b 42 33 37 30 00 23 00 9e 00 06 00 50 2a 20 00 23 00 b0 00 06 00 50 2a 20 00 23 00 ba 00 34 00 50 41 4b 42 33 35 39 5c 43 43 5c 41 32 2c 4b 42 45 4f 46 2c 41 36 5c 53 54 41 4e 44 41 52 44 20 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 ┆F AKB370 # P* # P* # 4 PAKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD┆
0x0fea…103a 20 4b 45 59 00 23 00 c4 00 16 00 50 5c 52 42 28 45 29 5c 41 4b 42 33 35 38 5c 59 45 53 20 00 23 00 fc 00 0a 00 50 5c 45 4a 45 43 54 00 23 01 16 00 06 00 50 2a 20 00 23 01 24 00 2a 00 50 2a 20 20 20 20 43 48 41 52 41 43 54 45 52 20 4e 4f 54 ┆ KEY # P RB(E) AKB358 YES # P EJECT # P* # $ * P* CHARACTER NOT┆
0x103a…108a 20 46 4f 55 4e 44 20 49 4e 20 4b 45 59 2d 54 41 42 4c 45 2e 00 23 01 2e 00 1e 00 50 2a 20 20 20 20 43 48 45 43 4b 20 43 48 41 52 41 43 54 45 52 20 43 4f 44 45 2e 00 23 01 5c 00 06 00 50 2a 20 00 23 01 7e 00 10 00 50 41 4b 42 33 36 30 5c 45 ┆ FOUND IN KEY-TABLE. # . P* CHECK CHARACTER CODE. # P* # ~ PAKB360 E┆
0x108a…10da (12, 0, 400) 51 55 5c 2a 00 23 01 88 00 20 00 50 5c 43 46 5c 41 35 2c 43 48 45 4b 5c 43 48 45 43 4b 20 43 48 41 52 41 43 54 45 52 20 00 24 00 0c 00 26 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 36 5c 47 45 54 20 43 48 41 4e 4e 45 4c 20 50 41 52 41 4d 45 54 45 ┆QU * # P CF A5,CHEK CHECK CHARACTER $ & P LDR* A4,A6 GET CHANNEL PARAMETE┆
0x10da…112a 52 20 00 24 00 30 00 1e 00 50 5c 41 4e 4b 5c 41 34 2c 2f 32 30 5c 53 48 49 46 54 20 42 49 54 20 39 20 3f 20 00 24 00 5a 00 16 00 50 5c 52 46 28 45 29 5c 41 4b 42 33 36 31 5c 59 45 53 20 00 24 00 7c 00 18 00 50 5c 4c 44 52 5c 41 34 2c 41 32 ┆R $ 0 P ANK A4,/20 SHIFT BIT 9 ? $ Z P RF(E) AKB361 YES $ | P LDR A4,A2┆
0x112a…117a 5c 43 48 41 52 41 43 54 45 52 00 24 00 96 00 0e 00 50 5c 52 46 5c 41 4b 42 33 36 33 00 24 00 b2 00 10 00 50 41 4b 42 33 36 31 5c 45 51 55 5c 2a 00 24 00 c4 00 10 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 36 20 00 24 00 d8 00 1a 00 50 5c 41 4e 4b ┆ CHARACTER $ P RF AKB363 $ PAKB361 EQU * $ P LDR* A4,A6 $ P ANK┆
0x117a…11ca 5c 41 34 2c 2f 31 30 5c 50 54 53 20 36 32 33 34 20 3f 00 24 00 ec 00 12 00 50 5c 52 46 28 45 29 5c 41 4b 42 33 36 32 20 00 24 01 0a 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 24 01 20 00 10 00 50 5c 41 4e 4b 5c 41 34 2c 2f 38 30 20 00 24 ┆ A4,/10 PTS 6234 ? $ P RF(E) AKB362 $ P LDR A4,A2 $ P ANK A4,/80 $┆
0x11ca…121a 01 32 00 12 00 50 5c 52 46 28 4e 45 29 5c 41 4b 42 33 36 32 00 24 01 46 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 24 01 5c 00 0e 00 50 5c 52 46 5c 41 4b 42 33 36 33 00 24 01 6e 00 10 00 50 41 4b 42 33 36 32 5c 45 51 55 5c 2a 00 24 01 80 ┆ 2 P RF(NE) AKB362 $ F P LDR A4,A2 $ P RF AKB363 $ n PAKB362 EQU * $ ┆