|
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: 4642 (0x1222)
Notes: pts_type(SC)
Names: »EBCDIC.SC«
└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
└─⟦this⟧ »LP100/EBCDIC.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »PTAID/EBCDIC.SC«
IDENT EBCDIC 9.2DK 2 79-11-16 870105040920 * ************************************************ * * PHILIPS TERMINAL SYSTEM PTS * * EBCDIC = EBCDIC/ASCII TABLE * * * * * * ************************************************* * ENTRY TASCII ENTRY TEBCDIC * * * CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) * X:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) CODE EQU X:A X:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) RCOM EQU X:B * * VERSION FOR SCAND. ALPHABET , #,$,@ CANNOT BE USED * CHANGES FROM STANDARD * E A * 4A 23 * 5B 5D * 7B 5B * 7C 5C * 00 7C * 5A 24 * 6A 40 * 2F 19 USM(2F) TIL EM(19 DK2 EJECT * * * TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII * * TASCII EQU * IFT CODE=1 DATA /7F01,/0203,/0009,/0000 00-07 DATA /0000,/0000,/0C00,/0000 08-0F DATA /1011,/1213,/000A,/0000 10-17 DATA /0019,/0000,/7B1D,/601F 18-1F DATA /0000,/0000,/0000,/171B 20-27 DATA /0000,/0000,/0005,/0000 28-2F DATA /0000,/1600,/0000,/0004 30-37 DATA /0000,/0000,/1415,/001A 38-3F DATA /2041,/4243,/4445,/4647 40-47 DATA /4849,/232E,/3C28,/2B21 48-4F DATA /264A,/4B4C,/4D4E,/4F50 50-57 DATA /5152,/245D,/2A29,/3B5E 58-5F DATA /2D2F,/5354,/5556,/5758 60-67 DATA /595A,/402C,/255F,/3E3F 68-6F DATA /1831,/3233,/3435,/3637 70-77 DATA /3839,/3A5B,/5C27,/3D22 78-7F DATA /2061,/6263,/6465,/6667 80-87 DATA /6869,/5B2E,/3C28,/2B21 88-8F DATA /266A,/6B6C,/6D6E,/6F70 90-97 DATA /7172,/5D24,/2A29,/3B5E 98-9F DATA /2D2F,/7374,/7576,/7778 A0-A7 DATA /797A,/7C2C,/255F,/3E3F A8-AF DATA /3031,/3233,/3435,/3637 B0-B7 DATA /3839,/3A23,/4027,/3D22 B8-BF DATA /2041,/4243,/4445,/4647 C0-C7 DATA /4849,/5B2E,/3C28,/2B21 C8-CF DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 DATA /5152,/5D24,/2A29,/3B5E D8-DF DATA /7F2F,/5354,/5556,/5758 E0-E7 DATA /595A,/7C2C,/255F,/3E3F E8-EF DATA /3031,/3233,/3435,/3637 F0-F7 DATA /3839,/3A23,/4027,/3DFF F8-FF XIF EJECT * * * TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC * * TEBCDIC EQU * IFF CODE+RCOM=0 DATA /0001,/0203,/372D,/0000 00-07 DATA /0005,/1500,/0C00,/0000 08-0F DATA /1011,/1213,/3C3D,/3226 10-17 DATA /7019,/3F27,/1C1D,/1E1F 18-1F DATA /404F,/7F4A,/5A6C,/507D 20-27 DATA /4D5D,/5C4E,/6B60,/4B61 28-2F DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57 DATA /E7E8,/E97B,/7C5B,/5F6D 58-5F DATA /1E81,/8283,/8485,/8687 60-67 DATA /8889,/9192,/9394,/9596 68-6F DATA /9798,/99A2,/A3A4,/A5A6 70-77 DATA /A7A8,/A91C,/0000,/00E0 78-7F DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 XIF END
0x0000…0034 (0, 0, 398) Head {h00=0x0030, h01=0x0050, text=» IDENT EBCDIC 9.2DK 2 79-11-16 870105040920«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0040}
0x0046…007e Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0000, t01=0x004a}
0x007e…0088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0082}
0x0088…00b0 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x008c}
0x00b0…00ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b4}
0x00ba…00e2 Head {h00=0x0024, h01=0x0050, text=»* EBCDIC = EBCDIC/ASCII TABLE «, t00=0x0000, t01=0x00be}
0x00e2…00ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x00ec…00f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0158 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x0122}
0x0158…0162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015c}
0x0162…0178 Head {h00=0x0012, h01=0x0050, text=» ENTRY TASCII «, t00=0x0000, t01=0x0166}
0x0178…018e Head {h00=0x0012, h01=0x0050, text=» ENTRY TEBCDIC«, t00=0x0000, t01=0x017c}
0x018e…0198 (1, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a2…01d4 Head {h00=0x002e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15)«, t00=0x0001, t01=0x0018}
0x01d4…01de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x01de…0214 Head {h00=0x0032, h01=0x0050, text=»X:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15)«, t00=0x0001, t01=0x0054}
0x0214…0228 Head {h00=0x0010, h01=0x0050, text=»CODE EQU X:A«, t00=0x0001, t01=0x008a}
0x0228…0260 Head {h00=0x0034, h01=0x0050, text=»X:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15)«, t00=0x0001, t01=0x009e}
0x0260…0274 Head {h00=0x0010, h01=0x0050, text=»RCOM EQU X:B«, t00=0x0001, t01=0x00d6}
0x0274…027e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x027e…02bc Head {h00=0x003a, h01=0x0050, text=»* VERSION FOR SCAND. ALPHABET , #,$,@ CANNOT BE USED «, t00=0x0001, t01=0x00f4}
0x02bc…02de Head {h00=0x001e, h01=0x0050, text=»* CHANGES FROM STANDARD «, t00=0x0001, t01=0x0132}
0x02de…02ec Head {h00=0x000a, h01=0x0050, text=»* E A «, t00=0x0001, t01=0x0154}
0x02ec…02fc Head {h00=0x000c, h01=0x0050, text=»* 4A 23 «, t00=0x0001, t01=0x0162}
0x02fc…030c Head {h00=0x000c, h01=0x0050, text=»* 5B 5D «, t00=0x0001, t01=0x0172}
0x030c…031c Head {h00=0x000c, h01=0x0050, text=»* 7B 5B «, t00=0x0001, t01=0x0182}
0x031c…032c (2, 0, 400) Head {h00=0x000c, h01=0x0050, text=»* 7C 5C «, t00=0x0002, t01=0x0004}
0x032c…033c Head {h00=0x000c, h01=0x0050, text=»* 00 7C «, t00=0x0002, t01=0x0014}
0x033c…034c Head {h00=0x000c, h01=0x0050, text=»* 5A 24 «, t00=0x0002, t01=0x0024}
0x034c…035c Head {h00=0x000c, h01=0x0050, text=»* 6A 40 «, t00=0x0002, t01=0x0034}
0x035c…039e Head {h00=0x003e, h01=0x0050, text=»* 2F 19 USM(2F) TIL EM(19 DK2 «, t00=0x0002, t01=0x0044}
0x039e…03ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0086}
0x03ac…03b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0094}
0x03b6…03c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009e}
0x03c0…03f6 Head {h00=0x0032, h01=0x0050, text=»* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII«, t00=0x0002, t01=0x00a8}
0x03f6…0400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00de}
0x0400…040a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e8}
0x040a…041e Head {h00=0x0010, h01=0x0050, text=»TASCII EQU *«, t00=0x0002, t01=0x00f2}
0x041e…0432 Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x0002, t01=0x0106}
0x0432…045e Head {h00=0x0028, h01=0x0050, text=» DATA /7F01,/0203,/0009,/0000 00-07 «, t00=0x0002, t01=0x011a}
0x045e…048a Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/0000,/0C00,/0000 08-0F «, t00=0x0002, t01=0x0146}
0x048a…04b6 Head {h00=0x0028, h01=0x0050, text=» DATA /1011,/1213,/000A,/0000 10-17 «, t00=0x0002, t01=0x0172}
0x04b6…04e2 Head {h00=0x0028, h01=0x0050, text=» DATA /0019,/0000,/7B1D,/601F 18-1F«, t00=0x0003, t01=0x000e}
0x04e2…050e Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/0000,/0000,/171B 20-27 «, t00=0x0003, t01=0x003a}
0x050e…053a Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/0000,/0005,/0000 28-2F «, t00=0x0003, t01=0x0066}
0x053a…0566 Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/1600,/0000,/0004 30-37 «, t00=0x0003, t01=0x0092}
0x0566…0592 Head {h00=0x0028, h01=0x0050, text=» DATA /0000,/0000,/1415,/001A 38-3F «, t00=0x0003, t01=0x00be}
0x0592…05be Head {h00=0x0028, h01=0x0050, text=» DATA /2041,/4243,/4445,/4647 40-47 «, t00=0x0003, t01=0x00ea}
0x05be…05ea Head {h00=0x0028, h01=0x0050, text=» DATA /4849,/232E,/3C28,/2B21 48-4F «, t00=0x0003, t01=0x0116}
0x05ea…0616 Head {h00=0x0028, h01=0x0050, text=» DATA /264A,/4B4C,/4D4E,/4F50 50-57 «, t00=0x0003, t01=0x0142}
0x0616…0642 Head {h00=0x0028, h01=0x0050, text=» DATA /5152,/245D,/2A29,/3B5E 58-5F «, t00=0x0003, t01=0x016e}
0x0642…066e Head {h00=0x0028, h01=0x0050, text=» DATA /2D2F,/5354,/5556,/5758 60-67 «, t00=0x0004, t01=0x000a}
0x066e…069a Head {h00=0x0028, h01=0x0050, text=» DATA /595A,/402C,/255F,/3E3F 68-6F «, t00=0x0004, t01=0x0036}
0x069a…06c6 Head {h00=0x0028, h01=0x0050, text=» DATA /1831,/3233,/3435,/3637 70-77 «, t00=0x0004, t01=0x0062}
0x06c6…06f2 Head {h00=0x0028, h01=0x0050, text=» DATA /3839,/3A5B,/5C27,/3D22 78-7F «, t00=0x0004, t01=0x008e}
0x06f2…071e Head {h00=0x0028, h01=0x0050, text=» DATA /2061,/6263,/6465,/6667 80-87 «, t00=0x0004, t01=0x00ba}
0x071e…074a Head {h00=0x0028, h01=0x0050, text=» DATA /6869,/5B2E,/3C28,/2B21 88-8F «, t00=0x0004, t01=0x00e6}
0x074a…0776 Head {h00=0x0028, h01=0x0050, text=» DATA /266A,/6B6C,/6D6E,/6F70 90-97 «, t00=0x0004, t01=0x0112}
0x0776…07a2 Head {h00=0x0028, h01=0x0050, text=» DATA /7172,/5D24,/2A29,/3B5E 98-9F «, t00=0x0004, t01=0x013e}
0x07a2…07ce Head {h00=0x0028, h01=0x0050, text=» DATA /2D2F,/7374,/7576,/7778 A0-A7 «, t00=0x0004, t01=0x016a}
0x07ce…07fa Head {h00=0x0028, h01=0x0050, text=» DATA /797A,/7C2C,/255F,/3E3F A8-AF «, t00=0x0005, t01=0x0008}
0x07fa…0826 Head {h00=0x0028, h01=0x0050, text=» DATA /3031,/3233,/3435,/3637 B0-B7 «, t00=0x0005, t01=0x0034}
0x0826…0852 Head {h00=0x0028, h01=0x0050, text=» DATA /3839,/3A23,/4027,/3D22 B8-BF «, t00=0x0005, t01=0x0060}
0x0852…087e Head {h00=0x0028, h01=0x0050, text=» DATA /2041,/4243,/4445,/4647 C0-C7 «, t00=0x0005, t01=0x008c}
0x087e…08aa Head {h00=0x0028, h01=0x0050, text=» DATA /4849,/5B2E,/3C28,/2B21 C8-CF «, t00=0x0005, t01=0x00b8}
0x08aa…08d6 Head {h00=0x0028, h01=0x0050, text=» DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 «, t00=0x0005, t01=0x00e4}
0x08d6…0902 Head {h00=0x0028, h01=0x0050, text=» DATA /5152,/5D24,/2A29,/3B5E D8-DF «, t00=0x0005, t01=0x0110}
0x0902…092e Head {h00=0x0028, h01=0x0050, text=» DATA /7F2F,/5354,/5556,/5758 E0-E7 «, t00=0x0005, t01=0x013c}
0x092e…095a Head {h00=0x0028, h01=0x0050, text=» DATA /595A,/7C2C,/255F,/3E3F E8-EF «, t00=0x0005, t01=0x0168}
0x095a…0986 (6, 0, 400) Head {h00=0x0028, h01=0x0050, text=» DATA /3031,/3233,/3435,/3637 F0-F7 «, t00=0x0006, t01=0x0004}
0x0986…09b2 Head {h00=0x0028, h01=0x0050, text=» DATA /3839,/3A23,/4027,/3DFF F8-FF «, t00=0x0006, t01=0x0030}
0x09b2…09be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x005c}
0x09be…09cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0068}
0x09cc…09d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0076}
0x09d6…09e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0080}
0x09e0…0a16 Head {h00=0x0032, h01=0x0050, text=»* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC«, t00=0x0006, t01=0x008a}
0x0a16…0a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c0}
0x0a20…0a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ca}
0x0a2a…0a40 Head {h00=0x0012, h01=0x0050, text=»TEBCDIC EQU * «, t00=0x0006, t01=0x00d4}
0x0a40…0a58 Head {h00=0x0014, h01=0x0050, text=» IFF CODE+RCOM=0«, t00=0x0006, t01=0x00ea}
0x0a58…0a84 Head {h00=0x0028, h01=0x0050, text=» DATA /0001,/0203,/372D,/0000 00-07 «, t00=0x0006, t01=0x0102}
0x0a84…0ab0 Head {h00=0x0028, h01=0x0050, text=» DATA /0005,/1500,/0C00,/0000 08-0F «, t00=0x0006, t01=0x012e}
0x0ab0…0adc Head {h00=0x0028, h01=0x0050, text=» DATA /1011,/1213,/3C3D,/3226 10-17 «, t00=0x0006, t01=0x015a}
0x0adc…0b08 Head {h00=0x0028, h01=0x0050, text=» DATA /7019,/3F27,/1C1D,/1E1F 18-1F «, t00=0x0006, t01=0x0186}
0x0b08…0b34 Head {h00=0x0028, h01=0x0050, text=» DATA /404F,/7F4A,/5A6C,/507D 20-27 «, t00=0x0007, t01=0x0022}
0x0b34…0b60 Head {h00=0x0028, h01=0x0050, text=» DATA /4D5D,/5C4E,/6B60,/4B61 28-2F «, t00=0x0007, t01=0x004e}
0x0b60…0b8c Head {h00=0x0028, h01=0x0050, text=» DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 «, t00=0x0007, t01=0x007a}
0x0b8c…0bb8 Head {h00=0x0028, h01=0x0050, text=» DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F «, t00=0x0007, t01=0x00a6}
0x0bb8…0be4 Head {h00=0x0028, h01=0x0050, text=» DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 «, t00=0x0007, t01=0x00d2}
0x0be4…0c10 Head {h00=0x0028, h01=0x0050, text=» DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F «, t00=0x0007, t01=0x00fe}
0x0c10…0c3c Head {h00=0x0028, h01=0x0050, text=» DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57 «, t00=0x0007, t01=0x012a}
0x0c3c…0c68 Head {h00=0x0028, h01=0x0050, text=» DATA /E7E8,/E97B,/7C5B,/5F6D 58-5F «, t00=0x0007, t01=0x0156}
0x0c68…0c94 Head {h00=0x0028, h01=0x0050, text=» DATA /1E81,/8283,/8485,/8687 60-67 «, t00=0x0007, t01=0x0182}
0x0c94…0cc0 Head {h00=0x0028, h01=0x0050, text=» DATA /8889,/9192,/9394,/9596 68-6F «, t00=0x0008, t01=0x001e}
0x0cc0…0cec Head {h00=0x0028, h01=0x0050, text=» DATA /9798,/99A2,/A3A4,/A5A6 70-77 «, t00=0x0008, t01=0x004a}
0x0cec…0d18 Head {h00=0x0028, h01=0x0050, text=» DATA /A7A8,/A91C,/0000,/00E0 78-7F «, t00=0x0008, t01=0x0076}
0x0d18…0d50 Head {h00=0x0034, h01=0x0050, text=» DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84«, t00=0x0008, t01=0x00a2}
0x0d50…0d5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00da}
0x0d5c…0d68 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0008, t01=0x00e6}
0x0d68…0d6c Head {h00=0x4004, h01=0x0000}
0x0d6c…0d70 00 08 00 f2 ┆ ┆
0x0d70…0d78 (9, 1, 8) 20 04 00 00 00 09 00 04 ┆ ┆
0x0d78…0dc8 (10, 0, 398) 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 42 00 04 00 06 00 50 5c 20 00 42 00 14 00 06 00 50 2a 20 00 42 00 1e 00 06 00 50 2a 20 00 42 00 28 00 22 00 50 2a 20 54 49 4d 45 20 4f 55 54 20 52 4f 55 54 49 4e 45 20 46 55 45 52 20 4c 50 20 31 30 30 ┆ P RTN A5 B P B P* B P* B ( " P* TIME OUT ROUTINE FUER LP 100┆
0x0dc8…0e18 00 42 00 32 00 06 00 50 2a 20 00 42 00 58 00 06 00 50 2a 20 00 42 00 62 00 0e 00 50 5a 41 55 53 5c 45 51 55 5c 2a 00 42 00 6c 00 06 00 50 2a 20 00 42 00 7e 00 22 00 50 5c 4c 44 52 5c 41 36 2c 41 31 5c 41 36 20 57 49 45 44 45 52 48 45 52 53 ┆ B 2 P* B X P* B b PZAUS EQU * B l P* B ~ " P LDR A6,A1 A6 WIEDERHERS┆
0x0e18…0e68 54 45 4c 4c 45 4e 00 42 00 88 00 10 00 50 5c 43 4d 5c 44 57 54 54 50 2c 41 36 00 42 00 ae 00 14 00 50 5c 4c 44 4b 4c 5c 41 35 2c 44 57 54 53 42 31 20 00 42 00 c2 00 0e 00 50 5c 41 44 52 5c 41 35 2c 41 36 00 42 00 da 00 32 00 50 5c 52 42 5c ┆TELLEN B P CM DWTTP,A6 B P LDKL A5,DWTSB1 B P ADR A5,A6 B 2 P RB ┆
0x0e68…0eb8 47 54 53 54 41 54 5c 4d 49 54 20 56 49 45 4c 20 42 41 55 43 48 57 45 48 20 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 00 42 00 ec 00 06 00 50 2a 20 00 42 01 22 00 06 00 50 2a 20 00 42 01 2c 00 06 00 50 2a 20 00 42 01 36 00 06 00 50 ┆GTSTAT MIT VIEL BAUCHWEH !!!!!!!!!!!!!!!!! B P* B " P* B , P* B 6 P┆
0x0eb8…0f06 5c 20 00 42 01 40 00 06 00 50 2a 20 00 42 01 4a 00 3a 00 50 2a 20 20 20 54 48 49 53 20 52 4f 55 54 49 4e 45 20 43 4f 4e 56 45 52 54 53 20 41 20 42 49 4e 41 52 59 20 56 41 4c 55 45 20 54 4f 20 41 53 43 49 49 20 43 4f 44 45 00 42 01 54 ┆ B @ P* B J : P* THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE B T┆
0x0f06…0f56 (11, 0, 398) 00 06 00 50 2a 20 00 43 00 04 00 12 00 50 2a 5c 52 45 47 49 53 54 45 52 53 20 3a 20 00 43 00 0e 00 1a 00 50 2a 20 20 20 41 31 3d 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 20 00 43 00 24 00 18 00 50 2a 20 20 20 41 34 3d 20 42 49 4e 41 52 59 ┆ P* C P* REGISTERS : C P* A1= WORK REGISTER C $ P* A4= BINARY┆
0x0f56…0fa6 20 49 4e 50 55 54 00 43 00 42 00 1c 00 50 2a 20 20 20 41 32 2c 41 34 3d 20 41 53 43 49 49 20 4f 55 54 50 55 54 20 00 43 00 5e 00 06 00 50 2a 20 00 43 00 7e 00 06 00 50 2a 20 00 43 00 88 00 10 00 50 4b 4f 4e 56 45 52 5c 45 51 55 5c 2a 00 43 ┆ INPUT C B P* A2,A4= ASCII OUTPUT C ^ P* C ~ P* C PKONVER EQU * C┆
0x0fa6…0ff6 00 92 00 14 00 50 2a 5c 42 49 4e 41 52 59 20 54 4f 20 44 45 43 2e 00 43 00 a6 00 16 00 50 5c 4c 44 4b 5c 41 32 2c 30 5c 43 4c 45 41 52 20 41 32 00 43 00 be 00 1e 00 50 5c 43 57 4b 5c 41 34 2c 31 30 30 5c 56 41 4c 55 45 20 3e 20 31 30 30 20 ┆ P* BINARY TO DEC. C P LDK A2,0 CLEAR A2 C P CWK A4,100 VALUE > 100 ┆
0x0ff6…1046 3f 20 00 43 00 d8 00 14 00 50 5c 52 46 28 4c 29 5c 4b 4f 4e 56 30 35 5c 4e 4f 00 43 00 fa 00 10 00 50 5c 53 55 4b 4c 5c 41 34 2c 31 30 30 00 43 01 12 00 26 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 31 30 30 5c 4c 45 46 54 20 42 59 54 45 20 4f 46 ┆? C P RF(L) KONV05 NO C P SUKL A4,100 C & P LDKL A2,/100 LEFT BYTE OF┆
0x1046…1094 20 41 32 3d 58 3d 31 20 00 43 01 26 00 2a 00 50 4b 4f 4e 56 30 35 5c 43 57 4b 5c 41 34 2c 31 30 5c 41 52 45 20 54 48 45 52 45 20 41 4e 59 20 54 45 4e 53 20 3f 20 00 43 01 50 00 14 00 50 5c 52 46 28 4c 29 5c 4b 4f 4e 56 30 34 5c 4e 4f ┆ A2=X=1 C & * PKONV05 CWK A4,10 ARE THERE ANY TENS ? C P P RF(L) KONV04 NO┆
0x1094…10e4 (12, 0, 398) 00 43 01 7e 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 31 30 00 44 00 08 00 32 00 50 5c 41 44 4b 5c 41 32 2c 2f 31 5c 4e 55 4d 42 45 52 20 4f 46 20 54 45 4e 53 20 49 4e 20 52 49 47 48 54 20 42 2e 20 4f 46 20 41 32 3d 59 20 00 44 00 1a 00 14 00 50 ┆ C ~ P SUK A4,10 D 2 P ADK A2,/1 NUMBER OF TENS IN RIGHT B. OF A2=Y D P┆
0x10e4…1134 5c 52 42 5c 4b 4f 4e 56 30 35 5c 4e 45 58 54 20 00 44 00 50 00 22 00 50 4b 4f 4e 56 30 34 5c 4f 52 4b 4c 5c 41 32 2c 2f 33 30 33 30 5c 58 59 20 49 4e 20 41 32 20 00 44 00 68 00 18 00 50 5c 4f 52 4b 5c 41 34 2c 2f 33 30 5c 5a 20 49 4e 20 41 ┆ RB KONV05 NEXT D P " PKONV04 ORKL A2,/3030 XY IN A2 D h P ORK A4,/30 Z IN A┆
0x1134…1184 34 20 00 44 00 8e 00 16 00 50 5c 53 52 43 5c 41 32 2c 38 5c 59 58 20 49 4e 20 41 32 00 44 00 aa 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 32 00 44 00 c4 00 20 00 50 5c 41 4e 4b 4c 5c 41 31 2c 2f 46 46 30 30 5c 4b 45 45 50 20 59 20 49 4e 20 41 ┆4 D P SRC A2,8 YX IN A2 D P LDR A1,A2 D P ANKL A1,/FF00 KEEP Y IN A┆
0x1184…11d4 31 20 00 44 00 d6 00 2e 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 46 5c 4b 45 45 50 20 58 20 49 4e 20 52 2e 20 42 59 54 45 20 4f 46 20 41 32 2e 20 41 53 43 49 49 00 44 00 fa 00 1e 00 50 5c 4f 52 52 5c 41 34 2c 41 31 5c 59 5a 20 49 4e 20 41 31 2e ┆1 D . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII D P ORR A4,A1 YZ IN A1.┆
0x11d4…1222 20 41 53 43 49 49 00 44 01 2c 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 44 01 4e 00 06 00 50 5c 20 00 44 01 5e 00 06 00 50 2a 20 00 44 01 68 00 16 00 50 2a 5c 52 45 53 45 54 20 52 45 43 4f 52 56 45 52 59 20 00 44 01 72 00 06 00 50 2a 20 ┆ ASCII D , P RTN A5 D N P D ^ P* D h P* RESET RECORVERY D r P* ┆