|
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: 4728 (0x1278)
Notes: pts_type(UF)
Names: »JOSKB1.UF«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/JOSKB1.UF«
LED DRKB03 !!RE 0,$$78-04-21$$78-09-07$$ !!IL 1 ADAPTED TO KEYBOARD PTS 6271/72 REL 8.1 78-04-21 !!IL 89 * -----NUMERIC SHIFT-FUNCTION * -----KEYBOARD LOCK IF NO KEYLOCK ON !!RE 138,$$10$$X:F$$ !!IL 208 * BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72 X:H EQU 0 * * * BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. X:I EQU 0 KBLOCK EQU X:I NSHIFT EQU X:H !!IL 463 SUK A4,/5F CHARACTER > /7F RF(P) AKB364 YES !!DL 466 ADK A4,/4F !!IL 473 ANK A2,/7F !!IL 588 IFT NSHIFT=0 CWK A4,1 INDICATE SKIP CHARACTER RF(E) EXIT YESD XIF !!IL 593 IFT KBLOCK=1 !!IL 596 XIF !!RE 597,$$IHKB10$$IHKB10 NO READ REQUEST PENDING$$ !!IL 703 IFT NSHIFT=0 SUK A4,/7C CODE > /7B RF(NN) KON500 YES LDR A4,A2 RESTORE CHARACTER XIF !!RE 710,$$10$$10 FUNCTION$$ !!RE 711,$$110$$110 NO$$ !!RE 712,$$40$$40 YES$$ !!DL 713 KON105 EQU * ANK A5,/10 SRL A5,3 !!RE 717,$$140$$140 SHIFT ON$$ !!RE 719,$$160$$160 SHIFT OFF$$ !!DL 720 RF(Z) KON170 CONTROL ON IFT NSHIFT=1 SUK A4,2 RF(N) KON125 CONTROL OFF RF(E) KON140 NUMERICAL SHIFT ON RF KON160 NUMERICAL SHIFT OFF XIF KON125 EQU * !!RE 736,$$2$$4$$ !!IL 747 IFT NSHIFT=0 KON500 EQU * LDR A4,A4 KEY CODE /7C RF(Z) KON600 YES LDK A4,1 INDICATE SKIP CHARACTER RTN A15 KON600 EQU * SUR A2,A2 RB KONVER DO START AGAIN XIF !!DL 764 !!EN ASM /S,NL KPF /O ASG /E0,TY10
0x0000…0012 (0, 0, 398) Head {h00=0x000e, h01=0x000a, text=»LED DRKB03«, t00=0x0000, t01=0x0004}
0x0012…0038 Head {h00=0x0022, h01=0x0050, text=»!!RE 0,$$78-04-21$$78-09-07$$ «, t00=0x0000, t01=0x0016}
0x0038…0046 Head {h00=0x000a, h01=0x0006, text=»!!IL 1«, t00=0x0000, t01=0x003c}
0x0046…0070 Head {h00=0x0026, h01=0x0022, text=» ADAPTED TO KEYBOARD PTS 6271/72«, t00=0x0000, t01=0x004a}
0x0070…008c Head {h00=0x0018, h01=0x0013, text=» REL 8.1 78-04-21 «, t00=0x0000, t01=0x0074}
0x008c…009c Head {h00=0x000c, h01=0x0007, text=»!!IL 89 «, t00=0x0000, t01=0x0090}
0x009c…00c4 Head {h00=0x0024, h01=0x0020, text=»* -----NUMERIC SHIFT-FUNCTION«, t00=0x0000, t01=0x00a0}
0x00c4…00f4 Head {h00=0x002c, h01=0x0050, text=»* -----KEYBOARD LOCK IF NO KEYLOCK ON«, t00=0x0000, t01=0x00c8}
0x00f4…0110 Head {h00=0x0018, h01=0x0014, text=»!!RE 138,$$10$$X:F$$«, t00=0x0000, t01=0x00f8}
0x0110…0120 Head {h00=0x000c, h01=0x0008, text=»!!IL 208«, t00=0x0000, t01=0x0114}
0x0120…0172 Head {h00=0x004e, h01=0x0050, text=»* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72«, t00=0x0000, t01=0x0124}
0x0172…0184 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x0000, t01=0x0176}
0x0184…018e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x018e…0198 (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01de Head {h00=0x0042, h01=0x0050, text=»* BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. «, t00=0x0001, t01=0x000e}
0x01de…01f0 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 0 «, t00=0x0001, t01=0x0054}
0x01f0…0206 Head {h00=0x0012, h01=0x0050, text=»KBLOCK EQU X:I«, t00=0x0001, t01=0x0066}
0x0206…021c Head {h00=0x0012, h01=0x0050, text=»NSHIFT EQU X:H«, t00=0x0001, t01=0x007c}
0x021c…022c Head {h00=0x000c, h01=0x0050, text=»!!IL 463«, t00=0x0001, t01=0x0092}
0x022c…0250 Head {h00=0x0020, h01=0x0050, text=» SUK A4,/5F CHARACTER > /7F «, t00=0x0001, t01=0x00a2}
0x0250…026a Head {h00=0x0016, h01=0x0050, text=» RF(P) AKB364 YES «, t00=0x0001, t01=0x00c6}
0x026a…027a Head {h00=0x000c, h01=0x0050, text=»!!DL 466«, t00=0x0001, t01=0x00e0}
0x027a…028e Head {h00=0x0010, h01=0x0050, text=» ADK A4,/4F «, t00=0x0001, t01=0x00f0}
0x028e…029e Head {h00=0x000c, h01=0x0050, text=»!!IL 473«, t00=0x0001, t01=0x0104}
0x029e…02b2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0001, t01=0x0114}
0x02b2…02c2 Head {h00=0x000c, h01=0x0008, text=»!!IL 588«, t00=0x0001, t01=0x0128}
0x02c2…02d8 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0«, t00=0x0001, t01=0x0138}
0x02d8…0302 Head {h00=0x0026, h01=0x0021, text=» CWK A4,1 INDICATE SKIP CHARACTER «, t00=0x0001, t01=0x014e}
0x0302…031a Head {h00=0x0014, h01=0x0010, text=» RF(E) EXIT YESD«, t00=0x0001, t01=0x0178}
0x031a…0326 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0001, t01=0x0190}
0x0326…0336 Head {h00=0x000c, h01=0x0050, text=»!!IL 593«, t00=0x0002, t01=0x000c}
0x0336…034c Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x0002, t01=0x001c}
0x034c…035c Head {h00=0x000c, h01=0x0050, text=»!!IL 596«, t00=0x0002, t01=0x0032}
0x035c…0368 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x0042}
0x0368…03a4 Head {h00=0x0038, h01=0x0050, text=»!!RE 597,$$IHKB10$$IHKB10 NO READ REQUEST PENDING$$ «, t00=0x0002, t01=0x004e}
0x03a4…03b4 Head {h00=0x000c, h01=0x0008, text=»!!IL 703«, t00=0x0002, t01=0x008a}
0x03b4…03ca Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0002, t01=0x009a}
0x03ca…03e8 Head {h00=0x001a, h01=0x0016, text=» SUK A4,/7C CODE > /7B«, t00=0x0002, t01=0x00b0}
0x03e8…0402 Head {h00=0x0016, h01=0x0012, text=» RF(NN) KON500 YES«, t00=0x0002, t01=0x00ce}
0x0402…0426 Head {h00=0x0020, h01=0x001c, text=» LDR A4,A2 RESTORE CHARACTER«, t00=0x0002, t01=0x00e8}
0x0426…0432 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0002, t01=0x010c}
0x0432…0456 Head {h00=0x0020, h01=0x001c, text=»!!RE 710,$$10$$10 FUNCTION$$«, t00=0x0002, t01=0x0118}
0x0456…0476 Head {h00=0x001c, h01=0x0018, text=»!!RE 711,$$110$$110 NO$$«, t00=0x0002, t01=0x013c}
0x0476…0496 Head {h00=0x001c, h01=0x0017, text=»!!RE 712,$$40$$40 YES$$ «, t00=0x0002, t01=0x015c}
0x0496…04a6 Head {h00=0x000c, h01=0x0008, text=»!!DL 713«, t00=0x0002, t01=0x017c}
0x04a6…04ba Head {h00=0x0010, h01=0x000c, text=»KON105 EQU *«, t00=0x0002, t01=0x018c}
0x04ba…04ce Head {h00=0x0010, h01=0x000b, text=» ANK A5,/10 «, t00=0x0003, t01=0x0010}
0x04ce…04e0 Head {h00=0x000e, h01=0x0009, text=» SRL A5,3 «, t00=0x0003, t01=0x0024}
0x04e0…0506 Head {h00=0x0022, h01=0x001e, text=»!!RE 717,$$140$$140 SHIFT ON$$«, t00=0x0003, t01=0x0036}
0x0506…052e Head {h00=0x0024, h01=0x001f, text=»!!RE 719,$$160$$160 SHIFT OFF$$ «, t00=0x0003, t01=0x005c}
0x052e…053e Head {h00=0x000c, h01=0x0008, text=»!!DL 720«, t00=0x0003, t01=0x0084}
0x053e…055e Head {h00=0x001c, h01=0x0018, text=» RF(Z) KON170 CONTROL ON«, t00=0x0003, t01=0x0094}
0x055e…0574 Head {h00=0x0012, h01=0x000d, text=» IFT NSHIFT=1 «, t00=0x0003, t01=0x00b4}
0x0574…0586 Head {h00=0x000e, h01=0x0009, text=» SUK A4,2 «, t00=0x0003, t01=0x00ca}
0x0586…05a8 Head {h00=0x001e, h01=0x0019, text=» RF(N) KON125 CONTROL OFF «, t00=0x0003, t01=0x00dc}
0x05a8…05d0 Head {h00=0x0024, h01=0x0020, text=» RF(E) KON140 NUMERICAL SHIFT ON«, t00=0x0003, t01=0x00fe}
0x05d0…05f6 Head {h00=0x0022, h01=0x001e, text=» RF KON160 NUMERICAL SHIFT OFF«, t00=0x0003, t01=0x0126}
0x05f6…0602 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0003, t01=0x014c}
0x0602…0616 Head {h00=0x0010, h01=0x000c, text=»KON125 EQU *«, t00=0x0003, t01=0x0158}
0x0616…0630 Head {h00=0x0016, h01=0x0011, text=»!!RE 736,$$2$$4$$ «, t00=0x0003, t01=0x016c}
0x0630…0640 Head {h00=0x000c, h01=0x0008, text=»!!IL 747«, t00=0x0003, t01=0x0186}
0x0640…0656 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0004, t01=0x0008}
0x0656…066a Head {h00=0x0010, h01=0x000c, text=»KON500 EQU *«, t00=0x0004, t01=0x001e}
0x066a…068a Head {h00=0x001c, h01=0x0017, text=» LDR A4,A4 KEY CODE /7C «, t00=0x0004, t01=0x0032}
0x068a…06a4 Head {h00=0x0016, h01=0x0011, text=» RF(Z) KON600 YES «, t00=0x0004, t01=0x0052}
0x06a4…06ce Head {h00=0x0026, h01=0x0021, text=» LDK A4,1 INDICATE SKIP CHARACTER «, t00=0x0004, t01=0x006c}
0x06ce…06de Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0004, t01=0x0096}
0x06de…06f2 Head {h00=0x0010, h01=0x0050, text=»KON600 EQU *«, t00=0x0004, t01=0x00a6}
0x06f2…0704 Head {h00=0x000e, h01=0x000a, text=» SUR A2,A2«, t00=0x0004, t01=0x00ba}
0x0704…0726 Head {h00=0x001e, h01=0x0019, text=» RB KONVER DO START AGAIN «, t00=0x0004, t01=0x00cc}
0x0726…0732 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x00ee}
0x0732…0742 Head {h00=0x000c, h01=0x0050, text=»!!DL 764«, t00=0x0004, t01=0x00fa}
0x0742…074e Head {h00=0x0008, h01=0x0004, text=»!!EN«, t00=0x0004, t01=0x010a}
0x074e…0760 Head {h00=0x000e, h01=0x0050, text=»ASM /S,NL «, t00=0x0004, t01=0x0116}
0x0760…076e Head {h00=0x000a, h01=0x0006, text=»KPF /O«, t00=0x0004, t01=0x0128}
0x076e…0782 Head {h00=0x0010, h01=0x000c, text=»ASG /E0,TY10«, t00=0x0004, t01=0x0136}
0x0782…0786 (5, 1, 8) Head {h00=0x2004, h01=0x0000}
0x0786…078a 00 05 00 04 ┆ ┆
0x078a…07da (6, 0, 398) 00 0d 01 7e 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0e 00 08 00 06 00 50 2a 20 00 0e 00 20 00 14 00 50 46 44 3a 30 31 30 5c 43 46 5c 41 35 2c 42 49 4f 00 0e 00 2a 00 0e 00 50 5c 4f 52 4b 5c 41 32 2c 31 20 00 0e 00 42 ┆ ~ P*************** P* PFD:010 CF A5,BIO * P ORK A2,1 B┆
0x07da…082a 00 10 00 50 46 44 3a 30 31 35 5c 45 51 55 5c 2a 00 0e 00 54 00 14 00 50 5c 49 46 54 5c 44 41 4d 41 2b 49 42 4d 3d 32 20 00 0e 00 68 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 4c 41 42 2c 41 36 00 0e 00 80 00 14 00 50 5c 41 4e 5c 41 31 2c 44 ┆ PFD:015 EQU * T P IFT DAMA+IBM=2 h P LD A1,DWTLAB,A6 P AN A1,D┆
0x082a…087a 57 54 41 33 2c 41 36 20 00 0e 00 98 00 1a 00 50 5c 52 46 28 5a 29 5c 46 44 3a 30 31 38 5c 4e 4f 54 20 49 42 4d 20 00 0e 00 b0 00 08 00 50 5c 58 49 46 00 0e 00 ce 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 0e 00 da 00 2c 00 50 5c 4c 44 52 ┆WTA3,A6 P RF(Z) FD:018 NOT IBM P XIF P IFT IBM=1 , P LDR┆
0x087a…08ca 5c 41 37 2c 41 33 5c 4e 4f 20 4f 46 20 43 48 41 52 2e 20 54 4f 20 42 45 20 54 52 41 4e 53 46 4f 52 4d 45 44 00 0e 00 ec 00 12 00 50 5c 43 46 5c 41 35 2c 45 42 43 44 49 43 20 00 0e 01 1c 00 10 00 50 46 44 3a 30 31 38 5c 45 51 55 5c 2a 00 0e ┆ A7,A3 NO OF CHAR. TO BE TRANSFORMED P CF A5,EBCDIC PFD:018 EQU * ┆
0x08ca…0918 01 32 00 08 00 50 5c 58 49 46 00 0e 01 46 00 22 00 50 5c 43 46 5c 41 35 2c 46 44 3a 57 52 49 54 45 5c 50 45 52 46 4f 52 4d 45 20 57 52 49 54 45 00 0e 01 52 00 1a 00 50 5c 52 46 5c 46 44 3a 30 34 38 5c 47 4f 54 4f 20 46 44 3a 52 43 20 ┆ 2 P XIF F " P CF A5,FD:WRITE PERFORME WRITE R P RF FD:048 GOTO FD:RC ┆
0x0918…0968 (7, 0, 400) 00 0e 01 78 00 06 00 50 2a 20 00 0f 00 08 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0f 00 12 00 16 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 0f 00 2c 00 16 00 50 2a 20 50 48 59 53 49 43 41 4c ┆ x P* P****************** P* * , P* PHYSICAL┆
0x0968…09b8 20 57 52 49 54 45 20 2a 00 0f 00 46 00 16 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 0f 00 60 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0f 00 7a 00 06 00 50 2a 20 00 0f 00 94 00 14 00 50 46 44 ┆ WRITE * F P* * ` P****************** z P* PFD┆
0x09b8…0a08 3a 30 32 30 5c 43 46 5c 41 35 2c 42 49 4f 00 0f 00 9e 00 24 00 50 5c 4f 52 4b 5c 41 32 2c 35 5c 49 4e 53 45 52 54 20 42 49 4f 20 42 49 54 53 20 31 33 2d 31 35 20 00 0f 00 b6 00 0e 00 50 5c 52 42 5c 46 44 3a 30 31 35 00 0f 00 de 00 0a 00 50 ┆:020 CF A5,BIO $ P ORK A2,5 INSERT BIO BITS 13-15 P RB FD:015 P┆
0x0a08…0a58 5c 45 4a 45 43 54 00 0f 00 f0 00 06 00 50 2a 20 00 0f 00 fe 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0f 01 08 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 0f 01 26 ┆ EJECT P* P********************** P* * &┆
0x0a58…0aa8 00 1a 00 50 2a 20 57 52 49 54 45 20 44 45 4c 45 54 45 44 20 44 41 54 41 20 2a 00 0f 01 44 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 0f 01 62 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* WRITE DELETED DATA * D P* * b P****************┆
0x0aa8…0af8 (8, 0, 400) 2a 2a 2a 2a 2a 2a 00 0f 01 80 00 06 00 50 2a 20 00 10 00 0e 00 14 00 50 46 44 3a 30 33 30 5c 43 46 5c 41 35 2c 42 49 4f 00 10 00 18 00 0e 00 50 5c 4f 52 4b 5c 41 32 2c 36 20 00 10 00 30 00 0e 00 50 5c 52 42 5c 46 44 3a 30 31 35 00 10 00 42 ┆****** P* PFD:030 CF A5,BIO P ORK A2,6 0 P RB FD:015 B┆
0x0af8…0b48 00 06 00 50 2a 20 00 10 00 54 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 10 00 5e 00 16 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 10 00 78 00 16 00 50 2a 20 50 48 59 53 49 43 41 4c 20 52 45 41 ┆ P* T P***************** ^ P* * x P* PHYSICAL REA┆
0x0b48…0b98 44 20 2a 20 00 10 00 92 00 16 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 10 00 ac 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 10 00 c6 00 06 00 50 2a 20 00 10 00 e0 00 18 00 50 46 44 3a 30 34 30 ┆D * P* * P***************** P* PFD:040┆
0x0b98…0be8 5c 43 46 5c 41 35 2c 42 49 4f 3a 52 45 20 00 10 00 ea 00 14 00 50 5c 49 46 54 5c 44 41 4d 41 2b 49 42 4d 3d 32 20 00 10 01 06 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 4c 41 42 2c 41 36 00 10 01 1e 00 14 00 50 5c 41 4e 5c 41 31 2c 44 57 54 ┆ CF A5,BIO:RE P IFT DAMA+IBM=2 P LD A1,DWTLAB,A6 P AN A1,DWT┆
0x0be8…0c38 41 33 2c 41 36 20 00 10 01 36 00 1c 00 50 5c 52 46 28 5a 29 5c 46 44 3a 30 34 32 5c 54 4f 53 53 20 44 49 53 43 20 00 10 01 4e 00 08 00 50 5c 58 49 46 00 10 01 6e 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 10 01 7a 00 10 00 50 5c 4c 44 4b ┆A3,A6 6 P RF(Z) FD:042 TOSS DISC N P XIF n P IFT IBM=1 z P LDK┆
0x0c38…0c88 (9, 0, 400) 4c 5c 41 34 2c 42 55 46 00 10 01 8c 00 10 00 50 46 44 3a 30 34 32 5c 45 51 55 5c 2a 00 11 00 10 00 08 00 50 5c 58 49 46 00 11 00 24 00 24 00 50 46 44 3a 30 34 35 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 5c 50 45 52 46 4f 52 4d 20 52 45 41 44 ┆L A4,BUF PFD:042 EQU * P XIF $ $ PFD:045 CF A5,FD:REA PERFORM READ┆
0x0c88…0cd8 00 11 00 30 00 14 00 50 5c 49 46 54 5c 44 41 4d 41 2b 49 42 4d 3d 32 20 00 11 00 58 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 4c 41 42 2c 41 36 00 11 00 70 00 14 00 50 5c 41 4e 5c 41 31 2c 44 57 54 41 33 2c 41 36 20 00 11 00 88 00 1a 00 50 ┆ 0 P IFT DAMA+IBM=2 X P LD A1,DWTLAB,A6 p P AN A1,DWTA3,A6 P┆
0x0cd8…0d28 5c 52 46 28 5a 29 5c 46 44 3a 30 34 37 5c 4e 4f 54 20 49 42 4d 20 00 11 00 a0 00 08 00 50 5c 58 49 46 00 11 00 be 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 11 00 ca 00 18 00 50 5c 4c 44 5c 41 37 2c 34 2c 41 38 5c 52 45 51 20 4c 45 4e 20 ┆ RF(Z) FD:047 NOT IBM P XIF P IFT IBM=1 P LD A7,4,A8 REQ LEN ┆
0x0d28…0d78 00 11 00 dc 00 24 00 50 5c 4c 44 5c 41 34 2c 32 2c 41 38 5c 41 53 43 49 49 20 4f 55 54 50 55 54 20 41 44 44 52 45 53 53 00 11 00 f8 00 10 00 50 5c 43 46 5c 41 35 2c 41 53 43 49 49 00 11 01 20 00 10 00 50 46 44 3a 30 34 37 5c 45 51 55 5c 2a ┆ $ P LD A4,2,A8 ASCII OUTPUT ADDRESS P CF A5,ASCII PFD:047 EQU *┆
0x0d78…0dc8 00 11 01 34 00 08 00 50 5c 58 49 46 00 11 01 48 00 10 00 50 46 44 3a 30 34 38 5c 45 51 55 5c 2a 00 11 01 54 00 0e 00 50 5c 41 42 4c 5c 46 44 3a 52 43 00 11 01 68 00 0a 00 50 5c 45 4a 45 43 54 00 11 01 7a 00 14 00 50 5c 49 46 54 5c 44 41 4d ┆ 4 P XIF H PFD:048 EQU * T P ABL FD:RC h P EJECT z P IFT DAM┆
0x0dc8…0e18 (10, 0, 400) 41 2b 49 42 4d 3d 30 20 00 11 01 88 00 06 00 50 2a 20 00 12 00 10 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 12 00 1a 00 12 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 12 00 30 00 12 00 50 2a 20 53 45 41 52 43 48 20 4b ┆A+IBM=0 P* P************** P* * 0 P* SEARCH K┆
0x0e18…0e68 45 59 20 2a 00 12 00 46 00 12 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 12 00 5c 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 12 00 72 00 06 00 50 2a 20 00 12 00 88 00 10 00 50 46 44 3a 30 35 30 5c 45 51 55 5c 2a 00 12 ┆EY * F P* * P************** r P* PFD:050 EQU * ┆
0x0e68…0eb8 00 92 00 22 00 50 5c 4c 44 5c 41 34 2c 31 30 2c 41 38 5c 4b 45 59 20 41 52 45 41 20 41 44 44 52 45 53 53 20 00 12 00 a6 00 20 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 34 5c 4b 45 59 20 41 52 45 41 20 4c 45 4e 47 54 48 20 00 12 00 cc 00 0e 00 50 ┆ " P LD A4,10,A8 KEY AREA ADDRESS P LDR* A2,A4 KEY AREA LENGTH P┆
0x0eb8…0f08 5c 4c 44 52 5c 41 31 2c 41 32 00 12 00 f0 00 22 00 50 5c 41 42 4c 28 4e 50 29 5c 45 4e 44 3a 31 30 5c 49 4c 4c 45 47 41 4c 20 4c 45 4e 47 54 48 00 12 01 02 00 10 00 50 5c 53 55 4b 5c 41 31 2c 31 32 38 20 00 12 01 28 00 22 00 50 5c 41 42 4c ┆ LDR A1,A2 " P ABL(NP) END:10 ILLEGAL LENGTH P SUK A1,128 ( " P ABL┆
0x0f08…0f58 28 50 29 5c 45 4e 44 3a 31 30 5c 49 4c 4c 45 47 41 4c 20 4c 45 4e 47 54 48 20 00 12 01 3c 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 12 01 62 00 06 00 50 2a 20 00 12 01 74 00 2a 00 50 2a 20 20 20 49 46 20 4f 44 44 20 43 48 41 4e 47 45 20 ┆(P) END:10 ILLEGAL LENGTH < P LDR A3,A2 b P* t * P* IF ODD CHANGE ┆
0x0f58…0fa8 (11, 0, 400) 54 4f 20 45 56 45 4e 20 4e 4f 20 4f 46 20 42 59 54 45 53 20 00 12 01 7e 00 06 00 50 2a 20 00 13 00 1c 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 31 20 00 13 00 26 00 0e 00 50 5c 53 52 4c 5c 41 33 2c 31 20 00 13 00 38 00 0e 00 50 5c 53 4c 4c 5c 41 ┆TO EVEN NO OF BYTES ~ P* P ADK A3,1 & P SRL A3,1 8 P SLL A┆
0x0fa8…0ff8 33 2c 31 20 00 13 00 4a 00 06 00 50 2a 20 00 13 00 5c 00 0e 00 50 5c 53 4c 4c 5c 41 32 2c 33 20 00 13 00 66 00 12 00 50 5c 4f 52 4b 5c 41 32 2c 37 5c 42 49 4f 20 00 13 00 78 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 34 20 00 13 00 8e 00 1a 00 50 ┆3,1 J P* P SLL A2,3 f P ORK A2,7 BIO x P ADK A3,4 P┆
0x0ff8…1048 5c 41 44 4b 5c 41 34 2c 32 5c 4b 45 59 20 41 44 44 52 45 53 53 20 00 13 00 a0 00 1c 00 50 5c 43 46 5c 41 35 2c 46 44 3a 57 52 49 5c 53 45 41 52 43 48 20 4b 45 59 00 13 00 be 00 1a 00 50 5c 4c 44 52 5c 41 33 2c 41 33 5c 52 45 54 55 52 4e 20 ┆ ADK A4,2 KEY ADDRESS P CF A5,FD:WRI SEARCH KEY P LDR A3,A3 RETURN ┆
0x1048…1098 43 4f 44 45 00 13 00 de 00 12 00 50 5c 52 42 28 4e 5a 29 5c 46 44 3a 30 34 38 00 13 00 fc 00 06 00 50 2a 20 00 13 01 12 00 24 00 50 2a 20 20 52 45 41 44 20 52 45 43 4f 52 44 20 57 49 54 48 20 4b 45 59 20 43 4f 4d 4d 41 4e 44 20 00 13 01 1c ┆CODE P RB(NZ) FD:048 P* $ P* READ RECORD WITH KEY COMMAND ┆
0x1098…10e8 00 06 00 50 2a 20 00 13 01 44 00 10 00 50 46 44 3a 30 36 30 5c 45 51 55 5c 2a 00 13 01 4e 00 16 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 38 30 30 34 5c 42 49 4f 00 13 01 62 00 20 00 50 5c 4c 44 5c 41 33 2c 34 2c 41 38 5c 52 45 51 55 45 53 54 45 ┆ P* D PFD:060 EQU * N P LDKL A2,/8004 BIO b P LD A3,4,A8 REQUESTE┆
0x10e8…1138 (12, 0, 400) 44 20 4c 45 4e 47 54 48 00 13 01 7c 00 10 00 50 5c 43 57 4b 5c 41 33 2c 31 33 30 20 00 14 00 10 00 22 00 50 5c 41 42 4c 28 4e 45 29 5c 45 4e 44 3a 31 30 5c 49 4c 4c 45 47 41 4c 20 4c 45 4e 47 54 48 00 14 00 24 00 1e 00 50 5c 4c 44 5c 41 34 ┆D LENGTH | P CWK A3,130 " P ABL(NE) END:10 ILLEGAL LENGTH $ P LD A4┆
0x1138…1188 2c 32 2c 41 38 5c 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 14 00 4a 00 0e 00 50 5c 52 42 5c 46 44 3a 30 34 35 00 14 00 6c 00 08 00 50 5c 58 49 46 00 14 00 7e 00 06 00 50 2a 20 00 14 00 8a 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆,2,A8 BUFFER ADDRESS J P RB FD:045 l P XIF ~ P* P************┆
0x1188…11d8 2a 2a 2a 20 00 14 00 94 00 14 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 14 00 ac 00 14 00 50 2a 20 54 45 53 54 20 53 54 41 54 55 53 20 2a 20 00 14 00 c4 00 14 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 14 00 dc ┆*** P* * P* TEST STATUS * P* * ┆
0x11d8…1228 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 14 00 f4 00 06 00 50 2a 20 00 14 01 0c 00 10 00 50 46 44 3a 30 37 30 5c 45 51 55 5c 2a 00 14 01 16 00 1c 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 46 46 46 39 5c 42 49 4f 20 44 55 4d ┆ P*************** P* PFD:070 EQU * P LDKL A2,/FFF9 BIO DUM┆
0x1228…1278 4d 59 00 14 01 2a 00 12 00 50 5c 43 46 5c 41 35 2c 46 44 3a 57 52 49 20 00 14 01 4a 00 22 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 30 32 30 31 5c 57 52 49 54 45 20 50 52 4f 54 45 43 54 3f 20 00 14 01 60 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 33 ┆MY * P CF A5,FD:WRI J " P ANKL A3,/0201 WRITE PROTECT? ` P LDR A1,A3┆