TMS7000 Assembler Version 3.0 RUN Chip PAGE 1 ; ; Version 3.0 RUN Chip ; IDT 'Version 3.0 RUN Chip' ; C000 ORG >C000 ; C000 8C C2 17 LC000 BR @LC217 ; ; C003 8C C6 41 LC003 BR @LC641 ; ; ; DES 'S' Boxes ; C006 0E 00 04 0F LC006 BYTE >0E,>00,>04,>0F,>0D,>07,>01,>04 C00E 02 0E 0F 02 BYTE >02,>0E,>0F,>02,>0B,>0D,>08,>01 C016 03 0A 0A 06 BYTE >03,>0A,>0A,>06,>06,>0C,>0C,>0B C01E 05 09 09 05 BYTE >05,>09,>09,>05,>00,>03,>07,>08 C026 04 0F 01 0C BYTE >04,>0F,>01,>0C,>0E,>08,>08,>02 C02E 0D 04 06 09 BYTE >0D,>04,>06,>09,>02,>01,>0B,>07 C036 0F 05 0C 0B BYTE >0F,>05,>0C,>0B,>09,>03,>07,>0E C03E 03 0A 0A 00 BYTE >03,>0A,>0A,>00,>05,>06,>00,>0D ; C046 0F 03 01 0D LC046 BYTE >0F,>03,>01,>0D,>08,>04,>0E,>07 C04E 06 0F 0B 02 BYTE >06,>0F,>0B,>02,>03,>08,>04,>0E C056 09 0C 07 00 BYTE >09,>0C,>07,>00,>02,>01,>0D,>0A C05E 0C 06 00 09 BYTE >0C,>06,>00,>09,>05,>0B,>0A,>05 C066 00 0D 0E 08 BYTE >00,>0D,>0E,>08,>07,>0A,>0B,>01 C06E 0A 03 04 0F BYTE >0A,>03,>04,>0F,>0D,>04,>01,>02 C076 05 0B 08 06 BYTE >05,>0B,>08,>06,>0C,>07,>06,>0C C07E 09 00 03 05 BYTE >09,>00,>03,>05,>02,>0E,>0F,>09 ; C086 0A 0D 00 07 LC086 BYTE >0A,>0D,>00,>07,>09,>00,>0E,>09 C08E 06 03 03 04 BYTE >06,>03,>03,>04,>0F,>06,>05,>0A C096 01 02 0D 08 BYTE >01,>02,>0D,>08,>0C,>05,>07,>0E C09E 0B 0C 04 0B BYTE >0B,>0C,>04,>0B,>02,>0F,>08,>01 C0A6 0D 01 06 0A BYTE >0D,>01,>06,>0A,>04,>0D,>09,>00 C0AE 08 06 0F 09 BYTE >08,>06,>0F,>09,>03,>08,>00,>07 C0B6 0B 04 01 0F BYTE >0B,>04,>01,>0F,>02,>0E,>0C,>03 C0BE 05 0B 0A 05 BYTE >05,>0B,>0A,>05,>0E,>02,>07,>0C ; C0C6 07 0D 0D 08 LC0C6 BYTE >07,>0D,>0D,>08,>0E,>0B,>03,>05 C0CE 00 06 06 0F BYTE >00,>06,>06,>0F,>09,>00,>0A,>03 C0D6 01 04 02 07 BYTE >01,>04,>02,>07,>08,>02,>05,>0C C0DE 0B 01 0C 0A BYTE >0B,>01,>0C,>0A,>04,>0E,>0F,>09 C0E6 0A 03 06 0F BYTE >0A,>03,>06,>0F,>09,>00,>00,>06 C0EE 0C 0A 0B 01 BYTE >0C,>0A,>0B,>01,>07,>0D,>0D,>08 C0F6 0F 09 01 04 BYTE >0F,>09,>01,>04,>03,>05,>0E,>0B C0FE 05 0C 02 07 BYTE >05,>0C,>02,>07,>08,>02,>04,>0E ; C106 02 0E 0C 0B LC106 BYTE >02,>0E,>0C,>0B,>04,>02,>01,>0C C10E 07 04 0A 07 BYTE >07,>04,>0A,>07,>0B,>0D,>06,>01 C116 08 05 05 00 BYTE >08,>05,>05,>00,>03,>0F,>0F,>0A C11E 0D 03 00 09 BYTE >0D,>03,>00,>09,>0E,>08,>09,>06 C126 04 0B 02 08 BYTE >04,>0B,>02,>08,>01,>0C,>0B,>07 C12E 0A 01 0D 0E BYTE >0A,>01,>0D,>0E,>07,>02,>08,>0D C136 0F 06 09 0F BYTE >0F,>06,>09,>0F,>0C,>00,>05,>09 C13E 06 0A 03 04 BYTE >06,>0A,>03,>04,>00,>05,>0E,>03 TMS7000 Assembler Version 3.0 RUN Chip PAGE 2 ; C146 0C 0A 01 0F LC146 BYTE >0C,>0A,>01,>0F,>0A,>04,>0F,>02 C14E 09 07 02 0C BYTE >09,>07,>02,>0C,>06,>09,>08,>05 C156 00 06 0D 01 BYTE >00,>06,>0D,>01,>03,>0D,>04,>0E C15E 0E 00 07 0B BYTE >0E,>00,>07,>0B,>05,>03,>0B,>08 C166 09 04 0E 03 BYTE >09,>04,>0E,>03,>0F,>02,>05,>0C C16E 02 09 08 05 BYTE >02,>09,>08,>05,>0C,>0F,>03,>0A C176 07 0B 00 0E BYTE >07,>0B,>00,>0E,>04,>01,>0A,>07 C17E 01 06 0D 00 BYTE >01,>06,>0D,>00,>0B,>08,>06,>0D ; C186 04 0D 0B 00 LC186 BYTE >04,>0D,>0B,>00,>02,>0B,>0E,>07 C18E 0F 04 00 09 BYTE >0F,>04,>00,>09,>08,>01,>0D,>0A C196 03 0E 0C 03 BYTE >03,>0E,>0C,>03,>09,>05,>07,>0C C19E 05 02 0A 0F BYTE >05,>02,>0A,>0F,>06,>08,>01,>06 C1A6 01 06 04 0B BYTE >01,>06,>04,>0B,>0B,>0D,>0D,>08 C1AE 0C 01 03 04 BYTE >0C,>01,>03,>04,>07,>0A,>0E,>07 C1B6 0A 09 0F 05 BYTE >0A,>09,>0F,>05,>06,>00,>08,>0F C1BE 00 0E 05 02 BYTE >00,>0E,>05,>02,>09,>03,>02,>0C ; C1C6 0D 01 02 0F LC1C6 BYTE >0D,>01,>02,>0F,>08,>0D,>04,>08 C1CE 06 0A 0F 03 BYTE >06,>0A,>0F,>03,>0B,>07,>01,>04 C1D6 0A 0C 09 05 BYTE >0A,>0C,>09,>05,>03,>06,>0E,>0B C1DE 05 00 00 0E BYTE >05,>00,>00,>0E,>0C,>09,>07,>02 C1E6 07 02 0B 01 BYTE >07,>02,>0B,>01,>04,>0E,>01,>07 C1EE 09 04 0C 0A BYTE >09,>04,>0C,>0A,>0E,>08,>02,>0D C1F6 00 0F 06 0C BYTE >00,>0F,>06,>0C,>0A,>09,>0D,>00 C1FE 0F 03 03 05 BYTE >0F,>03,>03,>05,>05,>06,>08,>0B ; ; ; DES Left-Shift Table ; C206 00 LC206 BYTE >00 C207 01 01 02 02 BYTE >01,>01,>02,>02,>02,>02,>02,>02 C20F 01 02 02 02 BYTE >01,>02,>02,>02,>02,>02,>02,>01 ; ; ; C217 12 03 LC217 MOV R3,A C219 8B 62 4A STA @L624A C21C 88 00 5E 7D MOVD %L005E,R125 C220 88 66 00 7F MOVD %L6600,R127 C224 52 1E MOV %>1E,B C226 9A 7D LC226 LDA *R125 C228 9B 7F STA *R127 C22A D3 7D INC R125 C22C D3 7F INC R127 C22E CA F6 DJNZ B,LC226 C230 88 66 40 7D MOVD %L6640,R125 C234 88 00 5F 7F MOVD %L005F,R127 C238 52 07 MOV %>07,B C23A 9A 7D LC23A LDA *R125 C23C 9B 7F STA *R127 C23E D3 7D INC R125 C240 D3 7F INC R127 C242 CA F6 DJNZ B,LC23A C244 D5 66 CLR R102 C246 88 66 50 7D MOVD %L6650,R125 TMS7000 Assembler Version 3.0 RUN Chip PAGE 3 C24A 88 00 67 7F MOVD %L0067,R127 C24E 52 08 MOV %>08,B C250 9A 7D LC250 LDA *R125 C252 9B 7F STA *R127 C254 D3 7D INC R125 C256 D3 7F INC R127 C258 CA F6 DJNZ B,LC250 C25A 88 C2 AD 70 MOVD %LC2AD,R112 C25E 88 00 00 78 MOVD %>0000,R120 ; C262 88 00 00 7A MOVD %>0000,R122 ; C266 88 00 00 7C MOVD %>0000,R124 ; C26A 88 00 00 7E MOVD %>0000,R126 ; C26E 72 00 73 MOV %>00,R115 C271 72 80 72 LC271 MOV %>80,R114 C274 9A 70 LC274 LDA *R112 C276 E2 20 JZ LC298 C278 C0 MOV A,B C279 C7 SWAP B C27A 23 0F AND %>0F,A C27C 53 0F AND %>0F,B C27E D0 71 MOV A,R113 C280 B5 CLR A C281 07 SETC C282 BF LC282 RLC A C283 DA 71 FC DJNZ R113,LC282 C286 D0 71 MOV A,R113 C288 AA 00 5F LDA @L005F(B) C28B 17 71 0A BTJZ R113,A,LC298 C28E 32 73 MOV R115,B C290 AA 00 77 LDA @L0077(B) C293 14 72 OR R114,A C295 AB 00 77 STA @L0077(B) C298 D3 70 LC298 INC R112 C29A 79 00 6F ADC %>00,R111 C29D DC 72 RR R114 C29F 7D 80 72 CMP %>80,R114 C2A2 E6 D0 JNZ LC274 C2A4 D3 73 INC R115 C2A6 7D 08 73 CMP %>08,R115 C2A9 E6 C6 JNZ LC271 C2AB E0 40 JMP LC2ED ; C2AD 12 21 28 37 LC2AD BYTE >12,>21,>28,>37,>46,>55,>64,>38 C2B5 11 18 27 36 BYTE >11,>18,>27,>36,>45,>54,>63,>03 C2BD 08 17 26 35 BYTE >08,>17,>26,>35,>44,>53,>62,>02 C2C5 00 00 00 00 BYTE >00,>00,>00,>00,>47,>56,>65,>01 C2CD 14 23 32 41 BYTE >14,>23,>32,>41,>48,>57,>66,>04 C2D5 15 24 33 42 BYTE >15,>24,>33,>42,>51,>58,>67,>05 C2DD 16 25 34 43 BYTE >16,>25,>34,>43,>52,>61,>68,>06 C2E5 00 00 00 00 BYTE >00,>00,>00,>00,>13,>22,>31,>07 ; ; ; C2ED 72 10 7F LC2ED MOV %>10,R127 C2F0 52 08 MOV %>08,B C2F2 72 40 03 MOV %>40,R3 C2F5 B5 LC2F5 CLR A TMS7000 Assembler Version 3.0 RUN Chip PAGE 4 C2F6 47 03 67 02 BTJZ R3,R103,LC2FC C2FA 24 80 OR %>80,A C2FC 47 03 68 02 LC2FC BTJZ R3,R104,LC302 C300 24 40 OR %>40,A C302 47 03 69 02 LC302 BTJZ R3,R105,LC308 C306 24 20 OR %>20,A C308 47 03 6A 02 LC308 BTJZ R3,R106,LC30E C30C 24 10 OR %>10,A C30E 47 03 6B 02 LC30E BTJZ R3,R107,LC314 C312 24 08 OR %>08,A C314 47 03 6C 02 LC314 BTJZ R3,R108,LC31A C318 24 04 OR %>04,A C31A 47 03 6D 02 LC31A BTJZ R3,R109,LC320 C31E 24 02 OR %>02,A C320 47 03 6E 02 LC320 BTJZ R3,R110,LC326 C324 24 01 OR %>01,A C326 AB 00 6E LC326 STA @L006E(B) C329 DD 03 RRC R3 C32B DD 03 RRC R3 C32D CA C6 DJNZ B,LC2F5 C32F B5 LC32F CLR A C330 77 04 7C 02 BTJZ %>04,R124,LC336 C334 24 20 OR %>20,A C336 77 80 7B 02 LC336 BTJZ %>80,R123,LC33C C33A 24 10 OR %>10,A C33C 77 20 7C 02 LC33C BTJZ %>20,R124,LC342 C340 24 08 OR %>08,A C342 77 01 7B 02 LC342 BTJZ %>01,R123,LC348 C346 24 04 OR %>04,A C348 77 80 7D 02 LC348 BTJZ %>80,R125,LC34E C34C 24 02 OR %>02,A C34E 77 08 7D 02 LC34E BTJZ %>08,R125,LC354 C352 24 01 OR %>01,A C354 D0 66 LC354 MOV A,R102 C356 B5 CLR A C357 77 20 7D 02 BTJZ %>20,R125,LC35D C35B 24 20 OR %>20,A C35D 77 01 7E 02 LC35D BTJZ %>01,R126,LC363 C361 24 10 OR %>10,A C363 77 02 7C 02 LC363 BTJZ %>02,R124,LC369 C367 24 08 OR %>08,A C369 77 04 7D 02 LC369 BTJZ %>04,R125,LC36F C36D 24 04 OR %>04,A C36F 77 08 7B 02 LC36F BTJZ %>08,R123,LC375 C373 24 02 OR %>02,A C375 77 40 7C 02 LC375 BTJZ %>40,R124,LC37B C379 24 01 OR %>01,A C37B D0 65 LC37B MOV A,R101 C37D B5 CLR A C37E 77 02 7B 02 BTJZ %>02,R123,LC384 C382 24 20 OR %>20,A C384 77 20 7B 02 LC384 BTJZ %>20,R123,LC38A C388 24 10 OR %>10,A C38A 77 10 7C 02 LC38A BTJZ %>10,R124,LC390 C38E 24 08 OR %>08,A C390 77 10 7D 02 LC390 BTJZ %>10,R125,LC396 C394 24 04 OR %>04,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 5 C396 77 04 7E 02 LC396 BTJZ %>04,R126,LC39C C39A 24 02 OR %>02,A C39C 77 01 7D 02 LC39C BTJZ %>01,R125,LC3A2 C3A0 24 01 OR %>01,A C3A2 D0 64 LC3A2 MOV A,R100 C3A4 B5 CLR A C3A5 77 01 7C 02 BTJZ %>01,R124,LC3AB C3A9 24 20 OR %>20,A C3AB 77 02 7D 02 LC3AB BTJZ %>02,R125,LC3B1 C3AF 24 10 OR %>10,A C3B1 77 02 7E 02 LC3B1 BTJZ %>02,R126,LC3B7 C3B5 24 08 OR %>08,A C3B7 77 10 7B 02 LC3B7 BTJZ %>10,R123,LC3BD C3BB 24 04 OR %>04,A C3BD 77 08 7C 02 LC3BD BTJZ %>08,R124,LC3C3 C3C1 24 02 OR %>02,A C3C3 77 40 7D 02 LC3C3 BTJZ %>40,R125,LC3C9 C3C7 24 01 OR %>01,A C3C9 D0 63 LC3C9 MOV A,R99 C3CB B5 CLR A C3CC 77 08 78 02 BTJZ %>08,R120,LC3D2 C3D0 24 20 OR %>20,A C3D2 77 01 77 02 LC3D2 BTJZ %>01,R119,LC3D8 C3D6 24 10 OR %>10,A C3D8 77 20 79 02 LC3D8 BTJZ %>20,R121,LC3DE C3DC 24 08 OR %>08,A C3DE 77 80 78 02 LC3DE BTJZ %>80,R120,LC3E4 C3E2 24 04 OR %>04,A C3E4 77 20 77 02 LC3E4 BTJZ %>20,R119,LC3EA C3E8 24 02 OR %>02,A C3EA 77 02 7A 02 LC3EA BTJZ %>02,R122,LC3F0 C3EE 24 01 OR %>01,A C3F0 D0 62 LC3F0 MOV A,R98 C3F2 B5 CLR A C3F3 77 40 79 02 BTJZ %>40,R121,LC3F9 C3F7 24 20 OR %>20,A C3F9 77 10 78 02 LC3F9 BTJZ %>10,R120,LC3FF C3FD 24 10 OR %>10,A C3FF 77 02 77 02 LC3FF BTJZ %>02,R119,LC405 C403 24 08 OR %>08,A C405 77 80 77 02 LC405 BTJZ %>80,R119,LC40B C409 24 04 OR %>04,A C40B 77 08 79 02 LC40B BTJZ %>08,R121,LC411 C40F 24 02 OR %>02,A C411 77 10 77 02 LC411 BTJZ %>10,R119,LC417 C415 24 01 OR %>01,A C417 D0 61 LC417 MOV A,R97 C419 B5 CLR A C41A 77 01 78 02 BTJZ %>01,R120,LC420 C41E 24 20 OR %>20,A C420 77 08 77 02 LC420 BTJZ %>08,R119,LC426 C424 24 10 OR %>10,A C426 77 20 78 02 LC426 BTJZ %>20,R120,LC42C C42A 24 08 OR %>08,A C42C 77 01 7A 02 LC42C BTJZ %>01,R122,LC432 C430 24 04 OR %>04,A C432 77 04 79 02 LC432 BTJZ %>04,R121,LC438 TMS7000 Assembler Version 3.0 RUN Chip PAGE 6 C436 24 02 OR %>02,A C438 77 08 7A 02 LC438 BTJZ %>08,R122,LC43E C43C 24 01 OR %>01,A C43E D0 60 LC43E MOV A,R96 C440 B5 CLR A C441 77 40 77 02 BTJZ %>40,R119,LC447 C445 24 20 OR %>20,A C447 77 04 78 02 LC447 BTJZ %>04,R120,LC44D C44B 24 10 OR %>10,A C44D 77 04 77 02 LC44D BTJZ %>04,R119,LC453 C451 24 08 OR %>08,A C453 77 01 79 02 LC453 BTJZ %>01,R121,LC459 C457 24 04 OR %>04,A C459 77 80 79 02 LC459 BTJZ %>80,R121,LC45F C45D 24 02 OR %>02,A C45F 77 10 79 02 LC45F BTJZ %>10,R121,LC465 C463 24 01 OR %>01,A C465 D0 5F LC465 MOV A,R95 C467 32 7F MOV R127,B C469 AA C2 06 LDA @LC206(B) C46C 73 0F 7E LC46C AND %>0F,R126 C46F DF 7B RLC R123 C471 DF 7C RLC R124 C473 DF 7D RLC R125 C475 DF 7E RLC R126 C477 77 10 7E 06 BTJZ %>10,R126,LC481 C47B 73 0F 7E AND %>0F,R126 C47E 74 01 7B OR %>01,R123 C481 73 0F 7A LC481 AND %>0F,R122 C484 DF 77 RLC R119 C486 DF 78 RLC R120 C488 DF 79 RLC R121 C48A DF 7A RLC R122 C48C 77 10 7A 06 BTJZ %>10,R122,LC496 C490 73 0F 7A AND %>0F,R122 C493 74 01 77 OR %>01,R119 C496 BA D4 LC496 DJNZ A,LC46C C498 98 70 6C MOVD R112,R108 C49B 98 72 6E MOVD R114,R110 C49E 32 6E MOV R110,B C4A0 12 6B MOV R107,A C4A2 BD RRC A C4A3 CD RRC B C4A4 CC RR B C4A5 CC RR B C4A6 35 66 XOR R102,B C4A8 53 3F AND %>3F,B C4AA AA C0 06 LDA @LC006(B) C4AD 27 08 03 BTJZ %>08,A,LC4B3 C4B0 75 80 75 XOR %>80,R117 C4B3 27 04 03 LC4B3 BTJZ %>04,A,LC4B9 C4B6 75 80 74 XOR %>80,R116 C4B9 27 02 03 LC4B9 BTJZ %>02,A,LC4BF C4BC 75 02 74 XOR %>02,R116 C4BF 27 01 03 LC4BF BTJZ %>01,A,LC4C5 C4C2 75 02 73 XOR %>02,R115 C4C5 32 6E LC4C5 MOV R110,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 7 C4C7 12 6D MOV R109,A C4C9 BF RLC A C4CA CF RLC B C4CB 35 65 XOR R101,B C4CD 53 3F AND %>3F,B C4CF AA C0 46 LDA @LC046(B) C4D2 27 08 03 BTJZ %>08,A,LC4D8 C4D5 75 08 75 XOR %>08,R117 C4D8 27 04 03 LC4D8 BTJZ %>04,A,LC4DE C4DB 75 10 73 XOR %>10,R115 C4DE 27 02 03 LC4DE BTJZ %>02,A,LC4E4 C4E1 75 40 76 XOR %>40,R118 C4E4 27 01 03 LC4E4 BTJZ %>01,A,LC4EA C4E7 75 40 74 XOR %>40,R116 C4EA 32 6D LC4EA MOV R109,B C4EC 12 6E MOV R110,A C4EE BD RRC A C4EF CD RRC B C4F0 CC RR B C4F1 CC RR B C4F2 35 64 XOR R100,B C4F4 53 3F AND %>3F,B C4F6 AA C0 86 LDA @LC086(B) C4F9 27 08 03 BTJZ %>08,A,LC4FF C4FC 75 01 74 XOR %>01,R116 C4FF 27 04 03 LC4FF BTJZ %>04,A,LC505 C502 75 01 75 XOR %>01,R117 C505 27 02 03 LC505 BTJZ %>02,A,LC50B C508 75 04 73 XOR %>04,R115 C50B 27 01 03 LC50B BTJZ %>01,A,LC511 C50E 75 04 76 XOR %>04,R118 C511 32 6D LC511 MOV R109,B C513 12 6C MOV R108,A C515 BF RLC A C516 CF RLC B C517 35 63 XOR R99,B C519 53 3F AND %>3F,B C51B AA C0 C6 LDA @LC0C6(B) C51E 27 08 03 BTJZ %>08,A,LC524 C521 75 40 73 XOR %>40,R115 C524 27 04 03 LC524 BTJZ %>04,A,LC52A C527 75 10 74 XOR %>10,R116 C52A 27 02 03 LC52A BTJZ %>02,A,LC530 C52D 75 40 75 XOR %>40,R117 C530 27 01 03 LC530 BTJZ %>01,A,LC536 C533 75 80 76 XOR %>80,R118 C536 32 6C LC536 MOV R108,B C538 12 6D MOV R109,A C53A BD RRC A C53B CD RRC B C53C CC RR B C53D CC RR B C53E 35 62 XOR R98,B C540 53 3F AND %>3F,B C542 AA C1 06 LDA @LC106(B) C545 27 08 03 BTJZ %>08,A,LC54B C548 75 01 76 XOR %>01,R118 TMS7000 Assembler Version 3.0 RUN Chip PAGE 8 C54B 27 04 03 LC54B BTJZ %>04,A,LC551 C54E 75 04 75 XOR %>04,R117 C551 27 02 03 LC551 BTJZ %>02,A,LC557 C554 75 80 73 XOR %>80,R115 C557 27 01 03 LC557 BTJZ %>01,A,LC55D C55A 75 20 76 XOR %>20,R118 C55D 32 6C LC55D MOV R108,B C55F 12 6B MOV R107,A C561 BF RLC A C562 CF RLC B C563 35 61 XOR R97,B C565 53 3F AND %>3F,B C567 AA C1 46 LDA @LC146(B) C56A 27 08 03 BTJZ %>08,A,LC570 C56D 75 10 76 XOR %>10,R118 C570 27 04 03 LC570 BTJZ %>04,A,LC576 C573 75 08 73 XOR %>08,R115 C576 27 02 03 LC576 BTJZ %>02,A,LC57C C579 75 20 75 XOR %>20,R117 C57C 27 01 03 LC57C BTJZ %>01,A,LC582 C57F 75 20 74 XOR %>20,R116 C582 32 6B LC582 MOV R107,B C584 12 6C MOV R108,A C586 BD RRC A C587 CD RRC B C588 CC RR B C589 CC RR B C58A 35 60 XOR R96,B C58C 53 3F AND %>3F,B C58E AA C1 86 LDA @LC186(B) C591 27 08 03 BTJZ %>08,A,LC597 C594 75 01 73 XOR %>01,R115 C597 27 04 03 LC597 BTJZ %>04,A,LC59D C59A 75 10 75 XOR %>10,R117 C59D 27 02 03 LC59D BTJZ %>02,A,LC5A3 C5A0 75 04 74 XOR %>04,R116 C5A3 27 01 03 LC5A3 BTJZ %>01,A,LC5A9 C5A6 75 02 76 XOR %>02,R118 C5A9 32 6B LC5A9 MOV R107,B C5AB 12 6E MOV R110,A C5AD BF RLC A C5AE CF RLC B C5AF 35 5F XOR R95,B C5B1 53 3F AND %>3F,B C5B3 AA C1 C6 LDA @LC1C6(B) C5B6 27 08 03 BTJZ %>08,A,LC5BC C5B9 75 08 76 XOR %>08,R118 C5BC 27 04 03 LC5BC BTJZ %>04,A,LC5C2 C5BF 75 20 73 XOR %>20,R115 C5C2 27 02 03 LC5C2 BTJZ %>02,A,LC5C8 C5C5 75 02 75 XOR %>02,R117 C5C8 27 01 03 LC5C8 BTJZ %>01,A,LC5CE C5CB 75 08 74 XOR %>08,R116 C5CE 7D 01 7F LC5CE CMP %>01,R127 C5D1 E2 17 JZ LC5EA C5D3 98 70 60 MOVD R112,R96 C5D6 98 72 62 MOVD R114,R98 TMS7000 Assembler Version 3.0 RUN Chip PAGE 9 C5D9 98 74 70 MOVD R116,R112 C5DC 98 76 72 MOVD R118,R114 C5DF 98 60 74 MOVD R96,R116 C5E2 98 62 76 MOVD R98,R118 C5E5 D2 7F DEC R127 C5E7 8C C3 2F BR @LC32F C5EA 52 08 LC5EA MOV %>08,B C5EC 72 01 03 MOV %>01,R3 C5EF B5 LC5EF CLR A C5F0 47 03 72 02 BTJZ R3,R114,LC5F6 C5F4 24 80 OR %>80,A C5F6 47 03 76 02 LC5F6 BTJZ R3,R118,LC5FC C5FA 24 40 OR %>40,A C5FC 47 03 71 02 LC5FC BTJZ R3,R113,LC602 C600 24 20 OR %>20,A C602 47 03 75 02 LC602 BTJZ R3,R117,LC608 C606 24 10 OR %>10,A C608 47 03 70 02 LC608 BTJZ R3,R112,LC60E C60C 24 08 OR %>08,A C60E 47 03 74 02 LC60E BTJZ R3,R116,LC614 C612 24 04 OR %>04,A C614 47 03 6F 02 LC614 BTJZ R3,R111,LC61A C618 24 02 OR %>02,A C61A 47 03 73 02 LC61A BTJZ R3,R115,LC620 C61E 24 01 OR %>01,A C620 AB 66 4F LC620 STA @L664F(B) C623 DE 03 RL R3 C625 CA C8 DJNZ B,LC5EF C627 88 66 00 7D MOVD %L6600,R125 C62B 88 00 5E 7F MOVD %L005E,R127 C62F 52 1E MOV %>1E,B C631 9A 7D LC631 LDA *R125 C633 9B 7F STA *R127 C635 D3 7D INC R125 C637 D3 7F INC R127 C639 CA F6 DJNZ B,LC631 C63B 8A 62 4A LDA @L624A C63E D0 03 MOV A,R3 C640 0A RETS ; ; ; C641 12 03 LC641 MOV R3,A C643 8B 62 4A STA @L624A C646 88 00 5E 7D MOVD %L005E,R125 C64A 88 66 00 7F MOVD %L6600,R127 C64E 52 1E MOV %>1E,B C650 9A 7D LC650 LDA *R125 C652 9B 7F STA *R127 C654 D3 7D INC R125 C656 D3 7F INC R127 C658 CA F6 DJNZ B,LC650 C65A 88 66 40 7D MOVD %L6640,R125 C65E 88 00 5F 7F MOVD %L005F,R127 C662 52 07 MOV %>07,B C664 9A 7D LC664 LDA *R125 C666 9B 7F STA *R127 TMS7000 Assembler Version 3.0 RUN Chip PAGE 10 C668 D3 7D INC R125 C66A D3 7F INC R127 C66C CA F6 DJNZ B,LC664 C66E D5 66 CLR R102 C670 88 66 50 7D MOVD %L6650,R125 C674 88 00 67 7F MOVD %L0067,R127 C678 52 08 MOV %>08,B C67A 9A 7D LC67A LDA *R125 C67C 9B 7F STA *R127 C67E D3 7D INC R125 C680 D3 7F INC R127 C682 CA F6 DJNZ B,LC67A C684 72 10 7F MOV %>10,R127 C687 DE 65 RL R101 C689 DD 7D RRC R125 C68B DE 65 RL R101 C68D DD 7C RRC R124 C68F DE 65 RL R101 C691 DD 7B RRC R123 C693 DE 65 RL R101 C695 DD 7A RRC R122 C697 DE 65 RL R101 C699 DD 77 RRC R119 C69B DE 65 RL R101 C69D DD 78 RRC R120 C69F DE 65 RL R101 C6A1 DD 79 RRC R121 C6A3 DE 65 RL R101 C6A5 DD 7D RRC R125 C6A7 DE 64 RL R100 C6A9 DD 7C RRC R124 C6AB DE 64 RL R100 C6AD DD 7B RRC R123 C6AF DE 64 RL R100 C6B1 DD 7A RRC R122 C6B3 DE 64 RL R100 C6B5 DD 77 RRC R119 C6B7 DE 64 RL R100 C6B9 DD 78 RRC R120 C6BB DE 64 RL R100 C6BD DD 79 RRC R121 C6BF DE 64 RL R100 C6C1 DD 7D RRC R125 C6C3 DE 64 RL R100 C6C5 DD 7C RRC R124 C6C7 DE 63 RL R99 C6C9 DD 7B RRC R123 C6CB DE 63 RL R99 C6CD DD 7A RRC R122 C6CF DE 63 RL R99 C6D1 DD 77 RRC R119 C6D3 DE 63 RL R99 C6D5 DD 78 RRC R120 C6D7 DE 63 RL R99 C6D9 DD 79 RRC R121 C6DB DE 63 RL R99 C6DD DD 7D RRC R125 TMS7000 Assembler Version 3.0 RUN Chip PAGE 11 C6DF DE 63 RL R99 C6E1 DD 7C RRC R124 C6E3 DE 63 RL R99 C6E5 DD 7B RRC R123 C6E7 DE 62 RL R98 C6E9 DD 7A RRC R122 C6EB DE 62 RL R98 C6ED DD 77 RRC R119 C6EF DE 62 RL R98 C6F1 DD 78 RRC R120 C6F3 DE 62 RL R98 C6F5 DD 79 RRC R121 C6F7 DE 62 RL R98 C6F9 DD 7D RRC R125 C6FB DE 62 RL R98 C6FD DD 7C RRC R124 C6FF DE 62 RL R98 C701 DD 7B RRC R123 C703 DE 62 RL R98 C705 DD 7A RRC R122 C707 DE 61 RL R97 C709 DD 77 RRC R119 C70B DE 61 RL R97 C70D DD 78 RRC R120 C70F DE 61 RL R97 C711 DD 79 RRC R121 C713 DE 61 RL R97 C715 DD 7D RRC R125 C717 DE 61 RL R97 C719 DD 7C RRC R124 C71B DE 61 RL R97 C71D DD 7B RRC R123 C71F DE 61 RL R97 C721 DD 7A RRC R122 C723 DE 61 RL R97 C725 DD 77 RRC R119 C727 DE 60 RL R96 C729 DD 78 RRC R120 C72B DE 60 RL R96 C72D DD 79 RRC R121 C72F DE 60 RL R96 C731 DD 7D RRC R125 C733 DE 60 RL R96 C735 DD 7C RRC R124 C737 DE 60 RL R96 C739 DD 7B RRC R123 C73B DE 60 RL R96 C73D DD 7A RRC R122 C73F DE 60 RL R96 C741 DD 77 RRC R119 C743 DE 60 RL R96 C745 DD 78 RRC R120 C747 DE 5F RL R95 C749 DD 79 RRC R121 C74B DE 5F RL R95 C74D DD 7D RRC R125 C74F DE 5F RL R95 TMS7000 Assembler Version 3.0 RUN Chip PAGE 12 C751 DD 7C RRC R124 C753 DE 5F RL R95 C755 DD 7B RRC R123 C757 DE 5F RL R95 C759 DD 7A RRC R122 C75B DE 5F RL R95 C75D DD 77 RRC R119 C75F DE 5F RL R95 C761 DD 78 RRC R120 C763 DE 5F RL R95 C765 DD 79 RRC R121 C767 42 7A 7E MOV R122,R126 C76A D7 7E SWAP R126 C76C 52 08 MOV %>08,B C76E 72 40 03 MOV %>40,R3 C771 B5 LC771 CLR A C772 47 03 67 02 BTJZ R3,R103,LC778 C776 24 80 OR %>80,A C778 47 03 68 02 LC778 BTJZ R3,R104,LC77E C77C 24 40 OR %>40,A C77E 47 03 69 02 LC77E BTJZ R3,R105,LC784 C782 24 20 OR %>20,A C784 47 03 6A 02 LC784 BTJZ R3,R106,LC78A C788 24 10 OR %>10,A C78A 47 03 6B 02 LC78A BTJZ R3,R107,LC790 C78E 24 08 OR %>08,A C790 47 03 6C 02 LC790 BTJZ R3,R108,LC796 C794 24 04 OR %>04,A C796 47 03 6D 02 LC796 BTJZ R3,R109,LC79C C79A 24 02 OR %>02,A C79C 47 03 6E 02 LC79C BTJZ R3,R110,LC7A2 C7A0 24 01 OR %>01,A C7A2 AB 00 6E LC7A2 STA @L006E(B) C7A5 DD 03 RRC R3 C7A7 DD 03 RRC R3 C7A9 CA C6 DJNZ B,LC771 C7AB B5 LC7AB CLR A C7AC 77 04 7C 02 BTJZ %>04,R124,LC7B2 C7B0 24 20 OR %>20,A C7B2 77 80 7B 02 LC7B2 BTJZ %>80,R123,LC7B8 C7B6 24 10 OR %>10,A C7B8 77 20 7C 02 LC7B8 BTJZ %>20,R124,LC7BE C7BC 24 08 OR %>08,A C7BE 77 01 7B 02 LC7BE BTJZ %>01,R123,LC7C4 C7C2 24 04 OR %>04,A C7C4 77 80 7D 02 LC7C4 BTJZ %>80,R125,LC7CA C7C8 24 02 OR %>02,A C7CA 77 08 7D 02 LC7CA BTJZ %>08,R125,LC7D0 C7CE 24 01 OR %>01,A C7D0 D0 66 LC7D0 MOV A,R102 C7D2 B5 CLR A C7D3 77 20 7D 02 BTJZ %>20,R125,LC7D9 C7D7 24 20 OR %>20,A C7D9 77 01 7E 02 LC7D9 BTJZ %>01,R126,LC7DF C7DD 24 10 OR %>10,A C7DF 77 02 7C 02 LC7DF BTJZ %>02,R124,LC7E5 C7E3 24 08 OR %>08,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 13 C7E5 77 04 7D 02 LC7E5 BTJZ %>04,R125,LC7EB C7E9 24 04 OR %>04,A C7EB 77 08 7B 02 LC7EB BTJZ %>08,R123,LC7F1 C7EF 24 02 OR %>02,A C7F1 77 40 7C 02 LC7F1 BTJZ %>40,R124,LC7F7 C7F5 24 01 OR %>01,A C7F7 D0 65 LC7F7 MOV A,R101 C7F9 B5 CLR A C7FA 77 02 7B 02 BTJZ %>02,R123,LC800 C7FE 24 20 OR %>20,A C800 77 20 7B 02 LC800 BTJZ %>20,R123,LC806 C804 24 10 OR %>10,A C806 77 10 7C 02 LC806 BTJZ %>10,R124,LC80C C80A 24 08 OR %>08,A C80C 77 10 7D 02 LC80C BTJZ %>10,R125,LC812 C810 24 04 OR %>04,A C812 77 04 7E 02 LC812 BTJZ %>04,R126,LC818 C816 24 02 OR %>02,A C818 77 01 7D 02 LC818 BTJZ %>01,R125,LC81E C81C 24 01 OR %>01,A C81E D0 64 LC81E MOV A,R100 C820 B5 CLR A C821 77 01 7C 02 BTJZ %>01,R124,LC827 C825 24 20 OR %>20,A C827 77 02 7D 02 LC827 BTJZ %>02,R125,LC82D C82B 24 10 OR %>10,A C82D 77 02 7E 02 LC82D BTJZ %>02,R126,LC833 C831 24 08 OR %>08,A C833 77 10 7B 02 LC833 BTJZ %>10,R123,LC839 C837 24 04 OR %>04,A C839 77 08 7C 02 LC839 BTJZ %>08,R124,LC83F C83D 24 02 OR %>02,A C83F 77 40 7D 02 LC83F BTJZ %>40,R125,LC845 C843 24 01 OR %>01,A C845 D0 63 LC845 MOV A,R99 C847 B5 CLR A C848 77 08 78 02 BTJZ %>08,R120,LC84E C84C 24 20 OR %>20,A C84E 77 01 77 02 LC84E BTJZ %>01,R119,LC854 C852 24 10 OR %>10,A C854 77 20 79 02 LC854 BTJZ %>20,R121,LC85A C858 24 08 OR %>08,A C85A 77 80 78 02 LC85A BTJZ %>80,R120,LC860 C85E 24 04 OR %>04,A C860 77 20 77 02 LC860 BTJZ %>20,R119,LC866 C864 24 02 OR %>02,A C866 77 02 7A 02 LC866 BTJZ %>02,R122,LC86C C86A 24 01 OR %>01,A C86C D0 62 LC86C MOV A,R98 C86E B5 CLR A C86F 77 40 79 02 BTJZ %>40,R121,LC875 C873 24 20 OR %>20,A C875 77 10 78 02 LC875 BTJZ %>10,R120,LC87B C879 24 10 OR %>10,A C87B 77 02 77 02 LC87B BTJZ %>02,R119,LC881 C87F 24 08 OR %>08,A C881 77 80 77 02 LC881 BTJZ %>80,R119,LC887 TMS7000 Assembler Version 3.0 RUN Chip PAGE 14 C885 24 04 OR %>04,A C887 77 08 79 02 LC887 BTJZ %>08,R121,LC88D C88B 24 02 OR %>02,A C88D 77 10 77 02 LC88D BTJZ %>10,R119,LC893 C891 24 01 OR %>01,A C893 D0 61 LC893 MOV A,R97 C895 B5 CLR A C896 77 01 78 02 BTJZ %>01,R120,LC89C C89A 24 20 OR %>20,A C89C 77 08 77 02 LC89C BTJZ %>08,R119,LC8A2 C8A0 24 10 OR %>10,A C8A2 77 20 78 02 LC8A2 BTJZ %>20,R120,LC8A8 C8A6 24 08 OR %>08,A C8A8 77 01 7A 02 LC8A8 BTJZ %>01,R122,LC8AE C8AC 24 04 OR %>04,A C8AE 77 04 79 02 LC8AE BTJZ %>04,R121,LC8B4 C8B2 24 02 OR %>02,A C8B4 77 08 7A 02 LC8B4 BTJZ %>08,R122,LC8BA C8B8 24 01 OR %>01,A C8BA D0 60 LC8BA MOV A,R96 C8BC B5 CLR A C8BD 77 40 77 02 BTJZ %>40,R119,LC8C3 C8C1 24 20 OR %>20,A C8C3 77 04 78 02 LC8C3 BTJZ %>04,R120,LC8C9 C8C7 24 10 OR %>10,A C8C9 77 04 77 02 LC8C9 BTJZ %>04,R119,LC8CF C8CD 24 08 OR %>08,A C8CF 77 01 79 02 LC8CF BTJZ %>01,R121,LC8D5 C8D3 24 04 OR %>04,A C8D5 77 80 79 02 LC8D5 BTJZ %>80,R121,LC8DB C8D9 24 02 OR %>02,A C8DB 77 10 79 02 LC8DB BTJZ %>10,R121,LC8E1 C8DF 24 01 OR %>01,A C8E1 D0 5F LC8E1 MOV A,R95 C8E3 32 7F MOV R127,B C8E5 AA C2 06 LDA @LC206(B) C8E8 73 0F 7E LC8E8 AND %>0F,R126 C8EB DD 7E RRC R126 C8ED DD 7D RRC R125 C8EF DD 7C RRC R124 C8F1 DD 7B RRC R123 C8F3 E7 03 JNC LC8F8 C8F5 74 08 7E OR %>08,R126 C8F8 73 0F 7A LC8F8 AND %>0F,R122 C8FB DD 7A RRC R122 C8FD DD 79 RRC R121 C8FF DD 78 RRC R120 C901 DD 77 RRC R119 C903 E7 03 JNC LC908 C905 74 08 7A OR %>08,R122 C908 BA DE LC908 DJNZ A,LC8E8 C90A 98 70 6C MOVD R112,R108 C90D 98 72 6E MOVD R114,R110 C910 32 6E MOV R110,B C912 12 6B MOV R107,A C914 BD RRC A C915 CD RRC B TMS7000 Assembler Version 3.0 RUN Chip PAGE 15 C916 CC RR B C917 CC RR B C918 35 66 XOR R102,B C91A 53 3F AND %>3F,B C91C AA C0 06 LDA @LC006(B) C91F 27 08 03 BTJZ %>08,A,LC925 C922 75 80 75 XOR %>80,R117 C925 27 04 03 LC925 BTJZ %>04,A,LC92B C928 75 80 74 XOR %>80,R116 C92B 27 02 03 LC92B BTJZ %>02,A,LC931 C92E 75 02 74 XOR %>02,R116 C931 27 01 03 LC931 BTJZ %>01,A,LC937 C934 75 02 73 XOR %>02,R115 C937 32 6E LC937 MOV R110,B C939 12 6D MOV R109,A C93B BF RLC A C93C CF RLC B C93D 35 65 XOR R101,B C93F 53 3F AND %>3F,B C941 AA C0 46 LDA @LC046(B) C944 27 08 03 BTJZ %>08,A,LC94A C947 75 08 75 XOR %>08,R117 C94A 27 04 03 LC94A BTJZ %>04,A,LC950 C94D 75 10 73 XOR %>10,R115 C950 27 02 03 LC950 BTJZ %>02,A,LC956 C953 75 40 76 XOR %>40,R118 C956 27 01 03 LC956 BTJZ %>01,A,LC95C C959 75 40 74 XOR %>40,R116 C95C 32 6D LC95C MOV R109,B C95E 12 6E MOV R110,A C960 BD RRC A C961 CD RRC B C962 CC RR B C963 CC RR B C964 35 64 XOR R100,B C966 53 3F AND %>3F,B C968 AA C0 86 LDA @LC086(B) C96B 27 08 03 BTJZ %>08,A,LC971 C96E 75 01 74 XOR %>01,R116 C971 27 04 03 LC971 BTJZ %>04,A,LC977 C974 75 01 75 XOR %>01,R117 C977 27 02 03 LC977 BTJZ %>02,A,LC97D C97A 75 04 73 XOR %>04,R115 C97D 27 01 03 LC97D BTJZ %>01,A,LC983 C980 75 04 76 XOR %>04,R118 C983 32 6D LC983 MOV R109,B C985 12 6C MOV R108,A C987 BF RLC A C988 CF RLC B C989 35 63 XOR R99,B C98B 53 3F AND %>3F,B C98D AA C0 C6 LDA @LC0C6(B) C990 27 08 03 BTJZ %>08,A,LC996 C993 75 40 73 XOR %>40,R115 C996 27 04 03 LC996 BTJZ %>04,A,LC99C C999 75 10 74 XOR %>10,R116 C99C 27 02 03 LC99C BTJZ %>02,A,LC9A2 TMS7000 Assembler Version 3.0 RUN Chip PAGE 16 C99F 75 40 75 XOR %>40,R117 C9A2 27 01 03 LC9A2 BTJZ %>01,A,LC9A8 C9A5 75 80 76 XOR %>80,R118 C9A8 32 6C LC9A8 MOV R108,B C9AA 12 6D MOV R109,A C9AC BD RRC A C9AD CD RRC B C9AE CC RR B C9AF CC RR B C9B0 35 62 XOR R98,B C9B2 53 3F AND %>3F,B C9B4 AA C1 06 LDA @LC106(B) C9B7 27 08 03 BTJZ %>08,A,LC9BD C9BA 75 01 76 XOR %>01,R118 C9BD 27 04 03 LC9BD BTJZ %>04,A,LC9C3 C9C0 75 04 75 XOR %>04,R117 C9C3 27 02 03 LC9C3 BTJZ %>02,A,LC9C9 C9C6 75 80 73 XOR %>80,R115 C9C9 27 01 03 LC9C9 BTJZ %>01,A,LC9CF C9CC 75 20 76 XOR %>20,R118 C9CF 32 6C LC9CF MOV R108,B C9D1 12 6B MOV R107,A C9D3 BF RLC A C9D4 CF RLC B C9D5 35 61 XOR R97,B C9D7 53 3F AND %>3F,B C9D9 AA C1 46 LDA @LC146(B) C9DC 27 08 03 BTJZ %>08,A,LC9E2 C9DF 75 10 76 XOR %>10,R118 C9E2 27 04 03 LC9E2 BTJZ %>04,A,LC9E8 C9E5 75 08 73 XOR %>08,R115 C9E8 27 02 03 LC9E8 BTJZ %>02,A,LC9EE C9EB 75 20 75 XOR %>20,R117 C9EE 27 01 03 LC9EE BTJZ %>01,A,LC9F4 C9F1 75 20 74 XOR %>20,R116 C9F4 32 6B LC9F4 MOV R107,B C9F6 12 6C MOV R108,A C9F8 BD RRC A C9F9 CD RRC B C9FA CC RR B C9FB CC RR B C9FC 35 60 XOR R96,B C9FE 53 3F AND %>3F,B CA00 AA C1 86 LDA @LC186(B) CA03 27 08 03 BTJZ %>08,A,LCA09 CA06 75 01 73 XOR %>01,R115 CA09 27 04 03 LCA09 BTJZ %>04,A,LCA0F CA0C 75 10 75 XOR %>10,R117 CA0F 27 02 03 LCA0F BTJZ %>02,A,LCA15 CA12 75 04 74 XOR %>04,R116 CA15 27 01 03 LCA15 BTJZ %>01,A,LCA1B CA18 75 02 76 XOR %>02,R118 CA1B 32 6B LCA1B MOV R107,B CA1D 12 6E MOV R110,A CA1F BF RLC A CA20 CF RLC B CA21 35 5F XOR R95,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 17 CA23 53 3F AND %>3F,B CA25 AA C1 C6 LDA @LC1C6(B) CA28 27 08 03 BTJZ %>08,A,LCA2E CA2B 75 08 76 XOR %>08,R118 CA2E 27 04 03 LCA2E BTJZ %>04,A,LCA34 CA31 75 20 73 XOR %>20,R115 CA34 27 02 03 LCA34 BTJZ %>02,A,LCA3A CA37 75 02 75 XOR %>02,R117 CA3A 27 01 03 LCA3A BTJZ %>01,A,LCA40 CA3D 75 08 74 XOR %>08,R116 CA40 7D 01 7F LCA40 CMP %>01,R127 CA43 E2 17 JZ LCA5C CA45 98 70 60 MOVD R112,R96 CA48 98 72 62 MOVD R114,R98 CA4B 98 74 70 MOVD R116,R112 CA4E 98 76 72 MOVD R118,R114 CA51 98 60 74 MOVD R96,R116 CA54 98 62 76 MOVD R98,R118 CA57 D2 7F DEC R127 CA59 8C C7 AB BR @LC7AB CA5C 52 08 LCA5C MOV %>08,B CA5E 72 01 03 MOV %>01,R3 CA61 B5 LCA61 CLR A CA62 47 03 72 02 BTJZ R3,R114,LCA68 CA66 24 80 OR %>80,A CA68 47 03 76 02 LCA68 BTJZ R3,R118,LCA6E CA6C 24 40 OR %>40,A CA6E 47 03 71 02 LCA6E BTJZ R3,R113,LCA74 CA72 24 20 OR %>20,A CA74 47 03 75 02 LCA74 BTJZ R3,R117,LCA7A CA78 24 10 OR %>10,A CA7A 47 03 70 02 LCA7A BTJZ R3,R112,LCA80 CA7E 24 08 OR %>08,A CA80 47 03 74 02 LCA80 BTJZ R3,R116,LCA86 CA84 24 04 OR %>04,A CA86 47 03 6F 02 LCA86 BTJZ R3,R111,LCA8C CA8A 24 02 OR %>02,A CA8C 47 03 73 02 LCA8C BTJZ R3,R115,LCA92 CA90 24 01 OR %>01,A CA92 AB 66 4F LCA92 STA @L664F(B) CA95 DE 03 RL R3 CA97 CA C8 DJNZ B,LCA61 CA99 88 66 00 7D MOVD %L6600,R125 CA9D 88 00 5E 7F MOVD %L005E,R127 CAA1 52 1E MOV %>1E,B CAA3 9A 7D LCAA3 LDA *R125 CAA5 9B 7F STA *R127 CAA7 D3 7D INC R125 CAA9 D3 7F INC R127 CAAB CA F6 DJNZ B,LCAA3 CAAD 8A 62 4A LDA @L624A CAB0 D0 03 MOV A,R3 CAB2 0A RETS ; ; ; D000 ORG >D000 TMS7000 Assembler Version 3.0 RUN Chip PAGE 18 ; ; ; D000 62 3B 60 LD000 VCTXT "V3.0" ;Version ; ; TRAP 6 ; D003 72 FF 03 LD003 MOV %>FF,R3 D006 A7 10 04 05 LD006 BTJZP %>10,P4,LD00F D00A DA 03 F9 DJNZ R3,LD006 D00D E0 F4 JMP LD003 D00F 8B 20 00 LD00F STA @L2000 D012 A4 01 06 ORP %>01,P6 D015 72 FF 03 LD015 MOV %>FF,R3 D018 A6 10 04 05 LD018 BTJOP %>10,P4,LD021 D01C DA 03 F9 DJNZ R3,LD018 D01F E0 F4 JMP LD015 D021 A3 FE 06 LD021 ANDP %>FE,P6 D024 0A RETS ; ; TRAP 11 ; D025 72 FF 03 LD025 MOV %>FF,R3 D028 A7 10 04 05 LD028 BTJZP %>10,P4,LD031 D02C DA 03 F9 DJNZ R3,LD028 D02F E0 F4 JMP LD025 D031 A4 01 06 LD031 ORP %>01,P6 D034 72 FF 03 LD034 MOV %>FF,R3 D037 A6 10 04 05 LD037 BTJOP %>10,P4,LD040 D03B DA 03 F9 DJNZ R3,LD037 D03E E0 F4 JMP LD034 D040 8A 40 00 LD040 LDA @L4000 D043 A3 FE 06 ANDP %>FE,P6 D046 0A RETS ; ; TRAP 7 ; D047 9A 47 LD047 LDA *R71 D049 8E D0 03 CALL @LD003 D04C D3 47 INC R71 D04E 79 00 46 ADC %>00,R70 D051 DA 10 F3 DJNZ R16,LD047 D054 0A RETS ; ; TRAP 12 ; D055 A3 7F 04 LD055 ANDP %>7F,P4 D058 B6 XCHB A D059 8B 20 00 STA @L2000 D05C B6 XCHB A D05D 8E D0 64 CALL @LD064 D060 A4 80 04 ORP %>80,P4 D063 0A RETS ; ; TRAP 13 ; D064 A4 02 06 LD064 ORP %>02,P6 TMS7000 Assembler Version 3.0 RUN Chip PAGE 19 D067 8B 20 00 STA @L2000 D06A A3 FD 06 ANDP %>FD,P6 D06D 0A RETS ; D06E 23 0F LD06E AND %>0F,A D070 28 20 ADD %>20,A D072 2D 2A CMP %>2A,A D074 E7 02 JNC LD078 D076 2A 2A SUB %>2A,A D078 0A LD078 RETS ; ; TRAP 15 ; D079 C0 LD079 MOV A,B D07A B7 SWAP A D07B 8E D0 6E CALL @LD06E D07E F2 TRAP 13 D07F 62 MOV B,A D080 8E D0 6E LD080 CALL @LD06E D083 F2 TRAP 13 D084 0A RETS ; ; TRAP 16 ; D085 B8 LD085 PUSH A D086 B7 SWAP A D087 8E D0 6E CALL @LD06E D08A F3 TRAP 12 D08B B9 POP A D08C E0 F2 JMP LD080 ; D08E D5 10 LD08E CLR R16 D090 B8 LD090 PUSH A D091 B7 SWAP A D092 8E D0 96 CALL @LD096 D095 B9 POP A D096 23 0F LD096 AND %>0F,A D098 E6 09 JNZ LD0A3 D09A 42 10 10 MOV R16,R16 D09D E6 07 JNZ LD0A6 D09F 22 2E MOV %>2E,A D0A1 E0 05 JMP LD0A8 D0A3 72 FF 10 LD0A3 MOV %>FF,R16 D0A6 28 20 LD0A6 ADD %>20,A D0A8 F3 LD0A8 TRAP 12 D0A9 C3 INC B D0AA 0A RETS ; D0AB D5 10 LD0AB CLR R16 D0AD B8 PUSH A D0AE B7 SWAP A D0AF 8E D0 96 CALL @LD096 D0B2 B9 POP A D0B3 23 0F AND %>0F,A D0B5 28 20 ADD %>20,A D0B7 F2 TRAP 13 D0B8 0A RETS TMS7000 Assembler Version 3.0 RUN Chip PAGE 20 ; D0B9 72 0A 10 LD0B9 MOV %>0A,R16 D0BC E0 0B JMP LD0C9 ; D0BE C5 CLR B D0BF 72 28 10 MOV %>28,R16 D0C2 E0 05 JMP LD0C9 ; D0C4 52 A0 LD0C4 MOV %>A0,B D0C6 72 05 10 LD0C6 MOV %>05,R16 D0C9 D6 4E LD0C9 XCHB R78 D0CB 9A 47 LDA *R71 D0CD C0 MOV A,B D0CE D3 47 INC R71 D0D0 79 00 46 ADC %>00,R70 D0D3 9A 47 LDA *R71 D0D5 23 F0 AND %>F0,A D0D7 CD RRC B D0D8 BD RRC A D0D9 CD RRC B D0DA BD RRC A D0DB B6 XCHB A D0DC D6 4E XCHB R78 D0DE F3 TRAP 12 D0DF 12 4E MOV R78,A D0E1 E0 1B JMP LD0FE D0E3 9A 47 LD0E3 LDA *R71 D0E5 C0 MOV A,B D0E6 D3 47 INC R71 D0E8 79 00 46 ADC %>00,R70 D0EB 9A 47 LDA *R71 D0ED 23 F0 AND %>F0,A D0EF CD RRC B D0F0 BD RRC A D0F1 CD RRC B D0F2 BD RRC A D0F3 B6 XCHB A D0F4 A4 02 06 ORP %>02,P6 D0F7 8B 20 00 STA @L2000 D0FA A3 FD 06 ANDP %>FD,P6 D0FD 62 MOV B,A D0FE BC LD0FE RR A D0FF BC RR A D100 A4 02 06 ORP %>02,P6 D103 8B 20 00 STA @L2000 D106 A3 FD 06 ANDP %>FD,P6 D109 9A 47 LDA *R71 D10B C0 MOV A,B D10C 53 0F AND %>0F,B D10E D3 47 INC R71 D110 79 00 46 ADC %>00,R70 D113 9A 47 LDA *R71 D115 BE RL A D116 CF RLC B D117 BE RL A D118 CF RLC B D119 62 MOV B,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 21 D11A A4 02 06 ORP %>02,P6 D11D 8B 20 00 STA @L2000 D120 A3 FD 06 ANDP %>FD,P6 D123 9A 47 LDA *R71 D125 23 3F AND %>3F,A D127 A4 02 06 ORP %>02,P6 D12A 8B 20 00 STA @L2000 D12D A3 FD 06 ANDP %>FD,P6 D130 D3 47 INC R71 D132 79 00 46 ADC %>00,R70 D135 DA 10 AB DJNZ R16,LD0E3 D138 0A RETS ; D139 72 9F 4D LD139 MOV %>9F,R77 D13C E0 03 JMP LD141 ; ; TRAP 17 ; D13E 72 B3 4D LD13E MOV %>B3,R77 D141 C5 LD141 CLR B D142 F3 LD142 TRAP 12 D143 F2 LD143 TRAP 13 D144 DA 4D FC DJNZ R77,LD143 D147 52 B4 MOV %>B4,B D149 22 0A MOV %>0A,A D14B F3 TRAP 12 D14C 22 10 MOV %>10,A D14E F2 TRAP 13 D14F 22 70 MOV %>70,A D151 F2 TRAP 13 D152 0A RETS ; D153 98 58 47 LD153 MOVD R88,R71 D156 78 05 47 ADD %>05,R71 D159 79 00 46 ADC %>00,R70 D15C 9A 47 LDA *R71 D15E 23 03 AND %>03,A D160 B3 INC A D161 D0 4D MOV A,R77 D163 9A 47 LD163 LDA *R71 D165 23 70 AND %>70,A D167 C0 MOV A,B D168 BC RR A D169 BC RR A D16A 38 00 ADD R0,B D16C D3 47 INC R71 D16E 79 00 46 ADC %>00,R70 D171 5D 8C CMP %>8C,B D173 E2 07 JZ LD17C D175 8E D0 B9 CALL @LD0B9 D178 DA 4D E8 DJNZ R77,LD163 D17B 0A RETS D17C 8E D0 C6 LD17C CALL @LD0C6 D17F 0A RETS ; D180 72 08 4D MOV %>08,R77 D183 E0 03 JMP LD188 TMS7000 Assembler Version 3.0 RUN Chip PAGE 22 ; ; TRAP 18 ; D185 72 09 4D LD185 MOV %>09,R77 D188 72 00 4C LD188 MOV %>00,R76 D18B 9A 58 LD18B LDA *R88 D18D D0 46 MOV A,R70 D18F D3 58 INC R88 D191 79 00 57 ADC %>00,R87 D194 9A 58 LDA *R88 D196 D0 47 MOV A,R71 D198 D3 58 INC R88 D19A 79 00 57 ADC %>00,R87 D19D 32 4C MOV R76,B D19F 8E D0 C6 CALL @LD0C6 D1A2 78 14 4C ADD %>14,R76 D1A5 DA 4D E3 DJNZ R77,LD18B D1A8 0A RETS D1A9 09 LD1A9 STSP D1AA B6 XCHB A D1AB 8D 67 F2 CMPA @L67F2 D1AE E7 03 JNC LD1B3 D1B0 8B 67 F2 STA @L67F2 D1B3 32 08 LD1B3 MOV R8,B D1B5 06 DINT D1B6 D3 56 INC R86 D1B8 79 00 55 ADC %>00,R85 D1BB 05 EINT D1BC AA 60 00 LDA @L6000(B) D1BF E2 F2 JZ LD1B3 D1C1 8E D1 D9 CALL @LD1D9 D1C4 32 08 MOV R8,B D1C6 B5 CLR A D1C7 AB 60 00 STA @L6000(B) D1CA 8B 62 47 STA @L6247 D1CD 78 33 08 ADD %>33,R8 D1D0 7D CC 08 CMP %>CC,R8 D1D3 E6 02 JNZ LD1D7 D1D5 D5 08 CLR R8 D1D7 E0 D0 LD1D7 JMP LD1A9 D1D9 B3 LD1D9 INC A D1DA E6 0D JNZ LD1E9 D1DC AA 60 01 LDA @L6001(B) D1DF 2D C0 CMP %>C0,A D1E1 E3 06 JC LD1E9 D1E3 23 3F AND %>3F,A D1E5 2D 20 CMP %>20,A D1E7 E7 01 JNC LD1EA D1E9 0A LD1E9 RETS D1EA D0 09 LD1EA MOV A,R9 D1EC C0 MOV A,B D1ED AA F5 B1 LDA @LF5B1(B) D1F0 B8 PUSH A D1F1 AA F5 D1 LDA @LF5D1(B) D1F4 B8 PUSH A D1F5 0A RETS ; TMS7000 Assembler Version 3.0 RUN Chip PAGE 23 ; Command >00 + >01 ; D1F6 12 1B LD1F6 MOV R27,A D1F8 E6 1D JNZ LD217 D1FA AA D3 19 LDA @LD319(B) D1FD C0 MOV A,B D1FE AA 61 19 LDA @L6119(B) D201 D0 0A MOV A,R10 D203 AA 61 1A LDA @L611A(B) D206 32 08 MOV R8,B D208 AD 60 03 CMPA @L6003(B) D20B E6 0A JNZ LD217 D20D 12 0A MOV R10,A D20F AD 60 02 CMPA @L6002(B) D212 E6 03 JNZ LD217 D214 8E D2 DC CALL @LD2DC D217 0A LD217 RETS ; ; Command >02 + >03 ; D218 32 08 LD218 MOV R8,B D21A 8A 62 58 LDA @L6258 D21D AD 60 02 CMPA @L6002(B) D220 E6 F5 JNZ LD217 D222 8A 62 57 LDA @L6257 D225 AD 60 03 CMPA @L6003(B) D228 E6 ED JNZ LD217 D22A 8A 62 56 LDA @L6256 D22D AD 60 04 CMPA @L6004(B) D230 E6 E5 JNZ LD217 D232 8A 62 55 LDA @L6255 D235 AD 60 05 CMPA @L6005(B) D238 E6 DD JNZ LD217 D23A AA 60 18 LDA @L6018(B) D23D D0 0A MOV A,R10 D23F 8D 62 6A CMPA @L626A D242 E2 07 JZ LD24B D244 8A 62 45 LDA @L6245 D247 27 10 01 BTJZ %>10,A,LD24B D24A 0A RETS D24B 74 F0 05 LD24B OR %>F0,R5 D24E 12 0A MOV R10,A D250 8B 62 6A STA @L626A D253 AA 60 1B LDA @L601B(B) D256 8B 62 45 STA @L6245 D259 26 20 05 BTJO %>20,A,LD261 D25C 22 FF MOV %>FF,A D25E 8B 62 8A STA @L628A D261 AA 60 15 LD261 LDA @L6015(B) D264 8D 61 FD CMPA @L61FD D267 E2 06 JZ LD26F D269 8B 61 FD STA @L61FD D26C 74 08 3B OR %>08,R59 D26F AA 60 16 LD26F LDA @L6016(B) D272 8D 61 FE CMPA @L61FE D275 E2 06 JZ LD27D D277 8B 61 FE STA @L61FE TMS7000 Assembler Version 3.0 RUN Chip PAGE 24 D27A 74 08 3B OR %>08,R59 D27D AA 60 1A LD27D LDA @L601A(B) D280 8B 62 44 STA @L6244 D283 8A 62 3D LDA @L623D D286 2E 01 DAC %>01,A D288 8B 62 3D STA @L623D D28B E6 08 JNZ LD295 D28D 8A 62 3C LDA @L623C D290 2E 01 DAC %>01,A D292 8B 62 3C STA @L623C D295 4D 09 17 LD295 CMP R9,R23 D298 E6 03 JNZ LD29D D29A 72 FF 17 MOV %>FF,R23 D29D 8E D2 DC LD29D CALL @LD2DC D2A0 88 61 E2 5A MOVD %L61E2,R90 D2A4 8E E1 44 CALL @LE144 D2A7 0A RETS ; ; Command >04 + >05 ; D2A8 32 08 LD2A8 MOV R8,B D2AA AA 60 02 LDA @L6002(B) D2AD 8D 62 69 CMPA @L6269 D2B0 E6 22 JNZ LD2D4 D2B2 AA 60 03 LDA @L6003(B) D2B5 8D 62 68 CMPA @L6268 D2B8 E6 1A JNZ LD2D4 D2BA AA 60 1B LDA @L601B(B) D2BD 32 1B LD2BD MOV R27,B D2BF E6 13 JNZ LD2D4 D2C1 D0 0A MOV A,R10 D2C3 8A 62 53 LDA @L6253 D2C6 E2 09 JZ LD2D1 D2C8 1D 0A CMP R10,A D2CA E6 08 JNZ LD2D4 D2CC 8E D2 DC CALL @LD2DC D2CF E0 03 JMP LD2D4 D2D1 8E D2 DC LD2D1 CALL @LD2DC D2D4 0A LD2D4 RETS ; ; Command >06 + >08 ; D2D5 32 08 LD2D5 MOV R8,B D2D7 AA 60 25 LDA @L6025(B) D2DA E0 E1 JMP LD2BD ; D2DC 32 09 LD2DC MOV R9,B D2DE AA D3 27 LDA @LD327(B) D2E1 E6 01 JNZ LD2E4 D2E3 0A LD2E3 RETS ; D2E4 D0 09 LD2E4 MOV A,R9 D2E6 88 60 FF 5C MOVD %L60FF,R92 D2EA B2 DEC A D2EB 48 00 5C ADD R0,R92 D2EE 79 00 5B ADC %>00,R91 D2F1 AA D3 19 LDA @LD319(B) TMS7000 Assembler Version 3.0 RUN Chip PAGE 25 D2F4 48 00 5C ADD R0,R92 D2F7 79 00 5B ADC %>00,R91 D2FA AA D3 35 LDA @LD335(B) D2FD 32 08 MOV R8,B D2FF 38 00 ADD R0,B D301 A2 08 10 MOVP %>08,P16 D304 A2 89 00 MOVP %>89,P0 D307 AA 60 00 LD307 LDA @L6000(B) D30A 9B 5C STA *R92 D30C C2 DEC B D30D DB 5C DECD R92 D30F DA 09 F5 DJNZ R9,LD307 D312 A2 99 00 MOVP %>99,P0 D315 A2 09 10 MOVP %>09,P16 D318 0A RETS ; ; ; D319 00 LD319 BYTE >00 ;>00 D31A 62 BYTE >62 ;>01 D31B 07 BYTE >07 ;>02 D31C 69 BYTE >69 ;>03 D31D 1C BYTE >1C ;>04 D31E 7E BYTE >7E ;>05 D31F 39 BYTE >39 ;>06 D320 9B BYTE >9B ;>07 D321 00 BYTE >00 ; D322 00 BYTE >00 ; D323 E3 BYTE >E3 ;>0A D324 F7 BYTE >F7 ;>0B D325 00 BYTE >00 ; D326 C4 BYTE >C4 ;>0D ; D327 07 LD327 BYTE >07 ; D328 07 BYTE >07 ; D329 15 BYTE >15 ; D32A 15 BYTE >15 ; D32B 1D BYTE >1D ; D32C 1D BYTE >1D ; D32D 25 BYTE >25 ; D32E 25 BYTE >25 ; D32F 00 BYTE >00 ; D330 00 BYTE >00 ; D331 14 BYTE >14 ; D332 07 BYTE >07 ; D333 00 BYTE >00 ; D334 1F BYTE >1F ; ; D335 07 LD335 BYTE >07 ; D336 07 BYTE >07 ; D337 19 BYTE >19 ; D338 19 BYTE >19 ; D339 1D BYTE >1D ; D33A 1D BYTE >1D ; D33B 25 BYTE >25 ; D33C 25 BYTE >25 ; D33D 00 BYTE >00 ; TMS7000 Assembler Version 3.0 RUN Chip PAGE 26 D33E 00 BYTE >00 ; D33F 14 BYTE >14 ; D340 0B BYTE >0B ; D341 00 BYTE >00 ; D342 1F BYTE >1F ; ; ; TRAP 10 ; D343 AA D3 19 LD343 LDA @LD319(B) D346 C0 MOV A,B D347 0A RETS ; D348 88 07 FF 5C MOVD %L07FF,R92 D34C 88 67 FF 47 MOVD %L67FF,R71 D350 B5 CLR A D351 9B 47 LD351 STA *R71 D353 DB 47 DECD R71 D355 DB 5C DECD R92 D357 E3 F8 JC LD351 D359 0A RETS ; ; INT 1 - ; D35A B8 LD35A PUSH A D35B C8 PUSH B D35C 12 04 MOV R4,A D35E E6 49 JNZ LD3A9 D360 A6 01 1A 74 BTJOP %>01,P26,LD3D8 D364 91 18 MOVP P24,B D366 5D 90 CMP %>90,B D368 E6 0A JNZ LD374 D36A 88 64 CC 45 MOVD %L64CC,R69 D36E 9A 45 LDA *R69 D370 E6 73 JNZ LD3E5 D372 E0 2A JMP LD39E D374 98 3F 45 LD374 MOVD R63,R69 D377 9A 3F LDA *R63 D379 E2 23 JZ LD39E D37B 8A 62 3F LDA @L623F D37E 2E 01 DAC %>01,A D380 8B 62 3F STA @L623F D383 E6 08 JNZ LD38D D385 8A 62 3E LDA @L623E D388 2E 01 DAC %>01,A D38A 8B 62 3E STA @L623E D38D 57 40 55 LD38D BTJZ %>40,B,LD3E5 D390 7A 33 3F SUB %>33,R63 D393 E3 03 JC LD398 D395 72 99 3F MOV %>99,R63 D398 98 3F 45 LD398 MOVD R63,R69 D39B B5 CLR A D39C 9B 45 STA *R69 D39E 62 LD39E MOV B,A D39F D3 45 LD39F INC R69 D3A1 9B 45 STA *R69 D3A3 D3 04 INC R4 D3A5 A7 04 1A 33 BTJZP %>04,P26,LD3DC TMS7000 Assembler Version 3.0 RUN Chip PAGE 27 D3A9 A6 01 1A 09 LD3A9 BTJOP %>01,P26,LD3B6 D3AD 7D 32 04 CMP %>32,R4 D3B0 E3 33 JC LD3E5 D3B2 80 18 MOVP P24,A D3B4 E0 E9 JMP LD39F D3B6 A6 02 1A 1E LD3B6 BTJOP %>02,P26,LD3D8 D3BA 22 FF MOV %>FF,A D3BC 74 0F 05 OR %>0F,R5 D3BF 7D CC 45 CMP %>CC,R69 D3C2 E7 05 JNC LD3C9 D3C4 8B 64 CC STA @L64CC D3C7 E0 0F JMP LD3D8 D3C9 9B 3F LD3C9 STA *R63 D3CB 78 33 3F ADD %>33,R63 D3CE 7D CC 3F CMP %>CC,R63 D3D1 E6 05 JNZ LD3D8 D3D3 72 00 3F MOV %>00,R63 D3D6 E0 00 JMP LD3D8 D3D8 80 18 LD3D8 MOVP P24,A D3DA D5 04 LD3DA CLR R4 D3DC 91 00 LD3DC MOVP P0,B D3DE 53 D7 AND %>D7,B D3E0 92 00 MOVP B,P0 D3E2 C9 POP B D3E3 B9 POP A D3E4 0B RETI ; D3E5 32 06 LD3E5 MOV R6,B D3E7 53 7F AND %>7F,B D3E9 E0 EF JMP LD3DA ; ; INT 3 - ; D3EB A2 00 10 LD3EB MOVP %>00,P16 D3EE 05 EINT D3EF B8 PUSH A D3F0 C8 PUSH B D3F1 7D FF 26 CMP %>FF,R38 D3F4 E2 02 JZ LD3F8 D3F6 D3 26 INC R38 D3F8 77 01 38 05 LD3F8 BTJZ %>01,R56,LD401 D3FC 12 35 MOV R53,A D3FE 52 12 MOV %>12,B D400 EF TRAP 16 D401 8A 67 F8 LD401 LDA @L67F8 D404 B3 INC A D405 23 03 AND %>03,A D407 8B 67 F8 STA @L67F8 D40A E2 03 JZ LD40F D40C 8C FB D9 BR @LFBD9 D40F 77 04 37 03 LD40F BTJZ %>04,R55,LD416 D413 8C D4 81 BR @LD481 D416 77 02 37 08 LD416 BTJZ %>02,R55,LD422 D41A 73 FD 37 AND %>FD,R55 D41D 8E D8 1B CALL @LD81B D420 E0 30 JMP LD452 D422 77 01 37 30 LD422 BTJZ %>01,R55,LD456 TMS7000 Assembler Version 3.0 RUN Chip PAGE 28 D426 73 FE 37 AND %>FE,R55 D429 88 00 08 41 MOVD %L0008,R65 D42D 7D 21 34 CMP %>21,R52 D430 E6 08 JNZ LD43A D432 32 35 MOV R53,B D434 53 03 AND %>03,B D436 58 0D ADD %>0D,B D438 E0 0A JMP LD444 D43A 32 34 LD43A MOV R52,B D43C 53 3F AND %>3F,B D43E 5D 0A CMP %>0A,B D440 E7 02 JNC LD444 D442 5A 26 SUB %>26,B D444 AA F5 F4 LD444 LDA @LF5F4(B) D447 D0 39 MOV A,R57 D449 77 80 34 05 BTJZ %>80,R52,LD452 D44D D3 39 INC R57 D44F 73 3F 34 AND %>3F,R52 D452 12 34 LD452 MOV R52,A D454 82 17 MOVP A,P23 D456 DB 41 LD456 DECD R65 D458 E3 27 JC LD481 D45A 74 10 37 OR %>10,R55 D45D D3 36 INC R54 D45F 7D 03 36 CMP %>03,R54 D462 E7 0F JNC LD473 D464 7D 21 34 CMP %>21,R52 D467 E2 05 JZ LD46E D469 8E D8 12 CALL @LD812 D46C E0 13 JMP LD481 D46E 8E D8 1B LD46E CALL @LD81B D471 D5 36 CLR R54 D473 8A 67 F4 LD473 LDA @L67F4 D476 2D FF CMP %>FF,A D478 E2 04 JZ LD47E D47A B3 INC A D47B 8B 67 F4 STA @L67F4 D47E 74 01 37 LD47E OR %>01,R55 D481 8A 64 CC LD481 LDA @L64CC D484 D0 03 MOV A,R3 D486 72 FF 18 MOV %>FF,R24 D489 32 13 MOV R19,B D48B AA D4 A0 LDA @LD4A0(B) D48E B8 PUSH A D48F AA D4 A6 LDA @LD4A6(B) D492 B8 PUSH A D493 80 1C MOVP P28,A D495 27 01 07 BTJZ %>01,A,LD49F D498 7D 78 22 CMP %>78,R34 D49B E2 02 JZ LD49F D49D D3 22 INC R34 D49F 0A LD49F RETS ; ; ; D4A0 D4 LD4A0 BYTE LD4C8/256 ; D4A1 D4 BYTE LD4E0/256 ; TMS7000 Assembler Version 3.0 RUN Chip PAGE 29 D4A2 D4 BYTE LD4FA/256 ; D4A3 D5 BYTE LD51B/256 ; D4A4 D5 BYTE LD540/256 ; D4A5 D4 BYTE LD4EF/256 ; ; D4A6 C8 LD4A6 BYTE LD4C8 MOD 256 ; D4A7 E0 BYTE LD4E0 MOD 256 ; D4A8 FA BYTE LD4FA MOD 256 ; D4A9 1B BYTE LD51B MOD 256 ; D4AA 40 BYTE LD540 MOD 256 ; D4AB EF BYTE LD4EF MOD 256 ; ; ; ; D4AC 8E D7 DA LD4AC CALL @LD7DA D4AF 8E D7 9E CALL @LD79E D4B2 73 5F 06 AND %>5F,R6 D4B5 74 50 06 OR %>50,R6 D4B8 12 06 MOV R6,A D4BA 23 FC AND %>FC,A D4BC 24 01 OR %>01,A D4BE D0 06 MOV A,R6 D4C0 A4 04 04 ORP %>04,P4 D4C3 D5 12 CLR R18 D4C5 8C D5 6C BR @LD56C ; ; ; D4C8 BC LD4C8 RR A D4C9 E7 0C JNC LD4D7 D4CB A3 F7 04 ANDP %>F7,P4 D4CE D5 04 CLR R4 D4D0 D5 05 CLR R5 D4D2 72 01 13 MOV %>01,R19 D4D5 E0 2E JMP LD505 D4D7 A4 0A 04 LD4D7 ORP %>0A,P4 D4DA 74 40 06 OR %>40,R6 D4DD 8C D5 6C BR @LD56C ; ; ; D4E0 7D 00 05 LD4E0 CMP %>00,R5 D4E3 E6 1A JNZ LD4FF D4E5 BC RR A D4E6 E3 0E JC LD4F6 D4E8 D3 12 INC R18 D4EA 7D 10 12 CMP %>10,R18 D4ED E7 09 JNC LD4F8 ; ; ; D4EF A4 02 04 LD4EF ORP %>02,P4 D4F2 D5 13 CLR R19 D4F4 E0 B6 JMP LD4AC D4F6 D5 12 LD4F6 CLR R18 D4F8 E0 72 LD4F8 JMP LD56C ; TMS7000 Assembler Version 3.0 RUN Chip PAGE 30 ; ; D4FA BC LD4FA RR A D4FB E7 15 JNC LD512 D4FD D5 04 CLR R4 D4FF 72 03 13 LD4FF MOV %>03,R19 D502 A3 FD 04 ANDP %>FD,P4 D505 D5 12 LD505 CLR R18 D507 74 90 06 OR %>90,R6 D50A 73 BF 06 AND %>BF,R6 D50D A4 04 04 ORP %>04,P4 D510 E0 5A JMP LD56C D512 D3 12 LD512 INC R18 D514 7D 10 12 CMP %>10,R18 D517 E7 53 JNC LD56C D519 E0 D4 JMP LD4EF ; ; ; D51B 2D 47 LD51B CMP %>47,A D51D E3 0D JC LD52C D51F 32 1D MOV R29,B D521 53 7F AND %>7F,B D523 5D 04 CMP %>04,B D525 E6 05 JNZ LD52C D527 72 04 13 MOV %>04,R19 D52A E0 40 JMP LD56C D52C BC LD52C RR A D52D E7 04 JNC LD533 D52F D5 12 CLR R18 D531 E0 39 JMP LD56C D533 D3 12 LD533 INC R18 D535 7D 0B 12 CMP %>0B,R18 D538 E7 32 JNC LD56C D53A 72 02 13 MOV %>02,R19 D53D 8C D4 AC BR @LD4AC ; ; ; D540 A3 FB 06 LD540 ANDP %>FB,P6 D543 A4 04 06 ORP %>04,P6 D546 23 FE AND %>FE,A D548 2D 51 CMP %>51,A D54A E3 B3 JC LD4FF D54C 32 1D MOV R29,B D54E 53 7F AND %>7F,B D550 5D 04 CMP %>04,B D552 E6 AB JNZ LD4FF D554 76 20 20 05 BTJO %>20,R32,LD55D D558 A3 FB 04 ANDP %>FB,P4 D55B E0 03 JMP LD560 D55D A4 04 04 LD55D ORP %>04,P4 D560 76 40 20 05 LD560 BTJO %>40,R32,LD569 D564 73 EF 06 AND %>EF,R6 D567 E0 03 JMP LD56C D569 74 10 06 LD569 OR %>10,R6 D56C 7D 03 13 LD56C CMP %>03,R19 TMS7000 Assembler Version 3.0 RUN Chip PAGE 31 D56F E7 1C JNC LD58D D571 8A 62 42 LDA @L6242 D574 4D 00 55 CMP R0,R85 D577 E7 0A JNC LD583 D579 E6 12 JNZ LD58D D57B 8A 62 43 LDA @L6243 D57E 4D 00 56 CMP R0,R86 D581 E3 0A JC LD58D D583 12 55 LD583 MOV R85,A D585 8B 62 42 STA @L6242 D588 12 56 MOV R86,A D58A 8B 62 43 STA @L6243 D58D 88 00 00 56 LD58D MOVD %L0000,R86 D591 32 06 MOV R6,B D593 8A 62 3B LDA @L623B D596 E2 02 JZ LD59A D598 52 83 MOV %>83,B D59A 92 1C LD59A MOVP B,P28 D59C 32 03 MOV R3,B D59E E6 03 JNZ LD5A3 D5A0 8C D6 B9 BR @LD6B9 D5A3 D5 02 LD5A3 CLR R2 D5A5 8A 62 41 LDA @L6241 D5A8 2E 01 DAC %>01,A D5AA 8B 62 41 STA @L6241 D5AD E6 08 JNZ LD5B7 D5AF 8A 62 40 LDA @L6240 D5B2 2E 01 DAC %>01,A D5B4 8B 62 40 STA @L6240 D5B7 52 08 LD5B7 MOV %>08,B D5B9 AA 64 CC LD5B9 LDA @L64CC(B) D5BC AB 62 4B STA @L624B(B) D5BF CA F8 DJNZ B,LD5B9 D5C1 B5 CLR A D5C2 8B 64 CC STA @L64CC D5C5 8B 64 CD STA @L64CD D5C8 8A 62 4E LDA @L624E D5CB 23 23 AND %>23,A D5CD 25 20 XOR %>20,A D5CF 7D 04 13 CMP %>04,R19 D5D2 E2 02 JZ LD5D6 D5D4 23 DF AND %>DF,A D5D6 32 06 LD5D6 MOV R6,B D5D8 53 DC AND %>DC,B D5DA 34 00 OR R0,B D5DC D1 06 MOV B,R6 D5DE 8A 62 4E LDA @L624E D5E1 73 7B 07 AND %>7B,R7 D5E4 26 40 03 BTJO %>40,A,LD5EA D5E7 74 80 07 OR %>80,R7 D5EA 26 04 03 LD5EA BTJO %>04,A,LD5F0 D5ED 74 04 07 OR %>04,R7 D5F0 8A 62 4E LD5F0 LDA @L624E D5F3 26 18 02 BTJO %>18,A,LD5F8 D5F6 E0 3A JMP LD632 D5F8 D5 1B LD5F8 CLR R27 D5FA B5 CLR A TMS7000 Assembler Version 3.0 RUN Chip PAGE 32 D5FB 8B 62 7C STA @L627C D5FE 12 15 MOV R21,A D600 72 01 0E MOV %>01,R14 D603 BE RL A D604 DF 0E RLC R14 D606 32 06 MOV R6,B D608 53 F3 AND %>F3,B D60A 8A 62 4F LDA @L624F D60D 27 40 0A BTJZ %>40,A,LD61A D610 54 04 OR %>04,B D612 8A 62 A2 LDA @L62A2 D615 27 01 02 BTJZ %>01,A,LD61A D618 55 0C XOR %>0C,B D61A D1 06 LD61A MOV B,R6 D61C 72 84 1D MOV %>84,R29 D61F 8A 62 4F LDA @L624F D622 23 07 AND %>07,A D624 8B 62 7E STA @L627E D627 8A 62 7D LDA @L627D D62A 8D 62 7E CMPA @L627E D62D E3 03 JC LD632 D62F 72 83 1D MOV %>83,R29 D632 8A 62 4D LD632 LDA @L624D D635 C5 CLR B D636 27 20 02 BTJZ %>20,A,LD63B D639 52 62 MOV %>62,B D63B D5 1E LD63B CLR R30 D63D D5 46 CLR R70 D63F 8A 62 4D LDA @L624D D642 D0 10 MOV A,R16 D644 AA 61 30 LDA @L6130(B) D647 15 10 XOR R16,A D649 26 60 08 BTJO %>60,A,LD654 D64C 8A 62 53 LDA @L6253 D64F AD 61 35 CMPA @L6135(B) D652 E2 07 JZ LD65B D654 B5 LD654 CLR A D655 AB 61 35 STA @L6135(B) D658 72 FF 46 MOV %>FF,R70 D65B AA 61 39 LD65B LDA @L6139(B) D65E 15 10 XOR R16,A D660 26 60 08 BTJO %>60,A,LD66B D663 8A 62 53 LDA @L6253 D666 AD 61 5C CMPA @L615C(B) D669 E2 07 JZ LD672 D66B B5 LD66B CLR A D66C AB 61 5C STA @L615C(B) D66F 72 FF 46 MOV %>FF,R70 D672 76 01 46 0E LD672 BTJO %>01,R70,LD684 D676 72 FF 1E MOV %>FF,R30 D679 8A 62 4E LDA @L624E D67C 26 18 05 BTJO %>18,A,LD684 D67F AA 61 30 LDA @L6130(B) D682 E0 03 JMP LD687 D684 8A 62 4D LD684 LDA @L624D D687 C5 LD687 CLR B D688 B0 TSTA TMS7000 Assembler Version 3.0 RUN Chip PAGE 33 D689 E5 02 JPZ LD68D D68B 52 62 MOV %>62,B D68D AA 61 19 LD68D LDA @L6119(B) D690 8B 01 18 STA @L0118 D693 8B 62 69 STA @L6269 D696 AA 61 1A LDA @L611A(B) D699 8B 62 68 STA @L6268 D69C 8A 62 45 LDA @L6245 D69F 73 FC 07 AND %>FC,R7 D6A2 B0 TSTA D6A3 E1 03 JN LD6A8 D6A5 74 01 07 OR %>01,R7 D6A8 BE LD6A8 RL A D6A9 E5 03 JPZ LD6AE D6AB 74 02 07 OR %>02,R7 D6AE 7D 01 11 LD6AE CMP %>01,R17 D6B1 E2 4C JZ LD6FF D6B3 72 04 11 MOV %>04,R17 D6B6 8C D7 96 BR @LD796 D6B9 D2 11 LD6B9 DEC R17 D6BB E2 02 JZ LD6BF D6BD 9C 4B BR *R75 D6BF 8A 64 CD LD6BF LDA @L64CD D6C2 C0 MOV A,B D6C3 B5 CLR A D6C4 8B 64 CD STA @L64CD D6C7 5D 90 CMP %>90,B D6C9 E6 02 JNZ LD6CD D6CB D5 02 CLR R2 D6CD 91 1C LD6CD MOVP P28,B D6CF B0 TSTA D6D0 CD RRC B D6D1 C2 DEC B D6D2 CC RR B D6D3 CC RR B D6D4 CC RR B D6D5 C3 INC B D6D6 12 06 MOV R6,A D6D8 BC RR A D6D9 CF RLC B D6DA 53 07 AND %>07,B D6DC AA F5 41 LDA @LF541(B) D6DF 4D 00 02 CMP R0,R2 D6E2 E3 1B JC LD6FF D6E4 D3 02 INC R2 D6E6 8A 62 50 LDA @L6250 D6E9 B3 INC A D6EA 8B 62 50 STA @L6250 D6ED E6 10 JNZ LD6FF D6EF 8A 62 51 LDA @L6251 D6F2 B3 INC A D6F3 8B 62 51 STA @L6251 D6F6 E6 07 JNZ LD6FF D6F8 8A 62 52 LDA @L6252 D6FB B3 INC A D6FC 8B 62 52 STA @L6252 D6FF 72 04 11 LD6FF MOV %>04,R17 TMS7000 Assembler Version 3.0 RUN Chip PAGE 34 D702 8A 62 50 LDA @L6250 D705 23 1F AND %>1F,A D707 E6 03 JNZ LD70C D709 8E E8 F3 CALL @LE8F3 D70C 22 0E LD70C MOV %>0E,A D70E F9 TRAP 6 D70F 12 07 MOV R7,A D711 F9 TRAP 6 D712 8A 62 4B LDA @L624B D715 E2 02 JZ LD719 D717 9C 49 BR *R73 D719 8A 62 53 LD719 LDA @L6253 D71C 42 16 46 MOV R22,R70 D71F D0 16 MOV A,R22 D721 45 00 46 XOR R0,R70 D724 E2 0B JZ LD731 D726 4D 00 46 CMP R0,R70 D729 E2 06 JZ LD731 D72B 8E D7 DA CALL @LD7DA D72E 8E D7 A9 CALL @LD7A9 D731 42 15 10 LD731 MOV R21,R16 D734 8A 62 4D LDA @L624D D737 D0 15 MOV A,R21 D739 45 00 10 XOR R0,R16 D73C 73 E0 10 AND %>E0,R16 D73F 32 14 MOV R20,B D741 8A 62 4E LDA @L624E D744 23 18 AND %>18,A D746 D0 14 MOV A,R20 D748 E6 19 JNZ LD763 D74A 12 46 MOV R70,A D74C E6 0D JNZ LD75B D74E 12 10 MOV R16,A D750 E6 05 JNZ LD757 D752 C1 TSTB D753 E6 02 JNZ LD757 D755 9C 49 BR *R73 D757 22 FF LD757 MOV %>FF,A D759 D0 17 MOV A,R23 D75B 22 FF LD75B MOV %>FF,A D75D 8B 62 A3 STA @L62A3 D760 8C DA 6A BR @LDA6A D763 8A 62 7D LD763 LDA @L627D D766 8D 62 7E CMPA @L627E D769 E1 2B JN LD796 D76B 8A 62 4E LDA @L624E D76E 23 18 AND %>18,A D770 2D 18 CMP %>18,A D772 E6 05 JNZ LD779 D774 22 10 MOV %>10,A D776 F9 TRAP 6 D777 E0 1D JMP LD796 D779 26 10 05 LD779 BTJO %>10,A,LD781 D77C 22 08 MOV %>08,A D77E F9 TRAP 6 D77F E0 15 JMP LD796 D781 22 06 LD781 MOV %>06,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 35 D783 F9 TRAP 6 D784 88 62 50 47 MOVD %L6250,R71 D788 72 03 10 MOV %>03,R16 D78B F8 TRAP 7 D78C E0 08 JMP LD796 ; ; TRAP 9 ; D78E D9 4D LD78E POP R77 D790 D9 4C POP R76 D792 88 D7 FD 4B LD792 MOVD %LD7FD,R75 D796 C9 LD796 POP B D797 B9 POP A D798 A2 01 10 MOVP %>01,P16 D79B D5 18 CLR R24 D79D 0B RETI ; D79E B5 LD79E CLR A D79F 8B 62 53 STA @L6253 D7A2 8B 62 4D STA @L624D D7A5 D5 16 CLR R22 D7A7 D5 03 CLR R3 D7A9 B5 LD7A9 CLR A D7AA 8B 61 35 STA @L6135 D7AD 8B 61 5C STA @L615C D7B0 8B 61 97 STA @L6197 D7B3 8B 61 BE STA @L61BE D7B6 8B 61 5E STA @L615E D7B9 8B 61 C0 STA @L61C0 D7BC 8B 61 E5 STA @L61E5 D7BF 8B 62 3B STA @L623B D7C2 8B 62 49 STA @L6249 D7C5 D5 1D CLR R29 D7C7 D5 22 CLR R34 D7C9 D5 1E CLR R30 D7CB 22 20 MOV %>20,A D7CD 8B 61 30 STA @L6130 D7D0 8B 61 39 STA @L6139 D7D3 8B 61 92 STA @L6192 D7D6 8B 61 9B STA @L619B D7D9 0A RETS ; D7DA 22 0F LD7DA MOV %>0F,A D7DC D8 4D PUSH R77 D7DE EE TRAP 17 D7DF D9 4D POP R77 D7E1 D5 19 CLR R25 D7E3 B5 CLR A D7E4 8B 62 46 STA @L6246 D7E7 8B 62 7C STA @L627C D7EA 8B 62 49 STA @L6249 D7ED B4 INV A D7EE 8B 62 A3 STA @L62A3 D7F1 D5 1B CLR R27 D7F3 7D 80 35 CMP %>80,R53 D7F6 E2 04 JZ LD7FC D7F8 88 E9 B2 4D MOVD %LE9B2,R77 TMS7000 Assembler Version 3.0 RUN Chip PAGE 36 D7FC 0A LD7FC RETS ; D7FD 7D 80 35 LD7FD CMP %>80,R53 D800 E2 05 JZ LD807 D802 7D 03 13 CMP %>03,R19 D805 E7 8F JNC LD796 D807 9C 4D LD807 BR *R77 ; ; TRAP 8 ; D809 D9 49 LD809 POP R73 D80B D9 48 POP R72 D80D E0 87 JMP LD796 ; D80F F6 LD80F TRAP 9 D810 E0 FD JMP LD80F ; D812 D5 36 LD812 CLR R54 D814 72 FF 39 MOV %>FF,R57 D817 88 70 80 41 MOVD %>7080,R65 ; D81B 72 30 34 LD81B MOV %>30,R52 D81E 7D 83 35 CMP %>83,R53 D821 E6 07 JNZ LD82A D823 7D 03 13 CMP %>03,R19 D826 E7 02 JNC LD82A D828 D3 34 INC R52 D82A 0A LD82A RETS ; ; INT 4 - ; D82B A6 02 11 03 LD82B BTJOP %>02,P17,LD832 D82F 8C D9 73 BR @LD973 D832 05 LD832 EINT D833 B8 PUSH A D834 C8 PUSH B D835 42 35 24 MOV R53,R36 D838 91 16 MOVP P22,B D83A 5D 7D CMP %>7D,B D83C E2 04 JZ LD842 D83E 5D 7E CMP %>7E,B D840 E6 03 JNZ LD845 D842 8C D9 36 LD842 BR @LD936 D845 74 04 37 LD845 OR %>04,R55 D848 5D 1E CMP %>1E,B D84A E3 03 JC LD84F D84C 8C D8 D1 BR @LD8D1 D84F 5D 3F LD84F CMP %>3F,B D851 E7 3E JNC LD891 D853 5D 4A CMP %>4A,B D855 E3 3A JC LD891 D857 74 80 35 OR %>80,R53 D85A 5D 3F CMP %>3F,B D85C E6 06 JNZ LD864 D85E 88 EA E6 4B MOVD %LEAE6,R75 D862 E0 67 JMP LD8CB D864 5D 40 LD864 CMP %>40,B D866 E6 0A JNZ LD872 TMS7000 Assembler Version 3.0 RUN Chip PAGE 37 D868 74 02 37 OR %>02,R55 D86B E0 5E JMP LD8CB D86D 8E D8 12 LD86D CALL @LD812 D870 E0 56 JMP LD8C8 D872 4D 01 39 LD872 CMP R1,R57 D875 E6 1C JNZ LD893 D877 7D 21 34 CMP %>21,R52 D87A E2 F1 JZ LD86D D87C 8E D8 12 CALL @LD812 D87F 5D 43 CMP %>43,B D881 E7 48 JNC LD8CB D883 5D 46 CMP %>46,B D885 E3 44 JC LD8CB D887 5A 43 SUB %>43,B D889 AA F5 F1 LDA @LF5F1(B) D88C 44 00 37 OR R0,R55 D88F E0 3A JMP LD8CB D891 E0 38 LD891 JMP LD8CB D893 74 10 37 LD893 OR %>10,R55 D896 D3 36 INC R54 D898 7D 03 36 CMP %>03,R54 D89B E6 05 JNZ LD8A2 D89D 8E D8 12 CALL @LD812 D8A0 E0 29 JMP LD8CB D8A2 5D 46 LD8A2 CMP %>46,B D8A4 E7 22 JNC LD8C8 D8A6 7D 21 34 CMP %>21,R52 D8A9 E6 1A JNZ LD8C5 D8AB 5A 46 SUB %>46,B D8AD 53 03 AND %>03,B D8AF AA F6 05 LDA @LF605(B) D8B2 D0 35 MOV A,R53 D8B4 7D 82 35 CMP %>82,R53 D8B7 E3 04 JC LD8BD D8B9 52 0C MOV %>0C,B D8BB E0 06 JMP LD8C3 D8BD B5 LD8BD CLR A D8BE 8B 67 F1 STA @L67F1 D8C1 52 13 MOV %>13,B D8C3 E0 0C LD8C3 JMP LD8D1 D8C5 72 21 34 LD8C5 MOV %>21,R52 D8C8 74 01 37 LD8C8 OR %>01,R55 D8CB 73 FB 37 LD8CB AND %>FB,R55 D8CE 8C D9 36 BR @LD936 D8D1 8A 67 F7 LD8D1 LDA @L67F7 D8D4 E2 04 JZ LD8DA D8D6 5D 17 CMP %>17,B D8D8 E2 EB JZ LD8C5 D8DA 5D 0D LD8DA CMP %>0D,B D8DC E2 11 JZ LD8EF D8DE 5D 0E CMP %>0E,B D8E0 E6 10 JNZ LD8F2 D8E2 7D 80 35 CMP %>80,R53 D8E5 E6 08 JNZ LD8EF D8E7 B5 CLR A D8E8 8B 67 F1 STA @L67F1 D8EB 88 E9 B2 4B MOVD %LE9B2,R75 TMS7000 Assembler Version 3.0 RUN Chip PAGE 38 D8EF 74 80 35 LD8EF OR %>80,R53 D8F2 77 80 35 34 LD8F2 BTJZ %>80,R53,LD92A D8F6 74 10 37 OR %>10,R55 D8F9 D5 36 CLR R54 D8FB 5D 0A CMP %>0A,B D8FD E3 08 JC LD907 D8FF 7D 83 35 CMP %>83,R53 D902 E2 03 JZ LD907 D904 8C D8 6D BR @LD86D D907 C8 LD907 PUSH B D908 73 03 35 AND %>03,R53 D90B 7C 1E 35 MPY %>1E,R53 D90E B9 POP A D90F 38 00 ADD R0,B D911 B8 PUSH A D912 AA F6 09 LDA @LF609(B) D915 D0 35 MOV A,R53 D917 73 83 35 AND %>83,R53 D91A C9 POP B D91B 5D 17 CMP %>17,B D91D E6 0B JNZ LD92A D91F 77 10 1F 07 BTJZ %>10,R31,LD92A D923 7D 82 35 CMP %>82,R53 D926 E6 02 JNZ LD92A D928 D3 35 INC R53 D92A 8E D8 12 LD92A CALL @LD812 D92D 74 01 37 OR %>01,R55 D930 73 FB 37 AND %>FB,R55 D933 8C D9 36 BR @LD936 D936 7D 80 35 LD936 CMP %>80,R53 D939 E2 36 JZ LD971 D93B 5D 20 CMP %>20,B D93D E3 32 JC LD971 D93F 5D 0F CMP %>0F,B D941 E2 09 JZ LD94C D943 5D 0C CMP %>0C,B D945 E2 05 JZ LD94C D947 8A 67 F1 LDA @L67F1 D94A E6 25 JNZ LD971 D94C AA F5 51 LD94C LDA @LF551(B) D94F 27 02 02 BTJZ %>02,A,LD954 D952 D5 19 CLR R25 D954 73 DF 1F LD954 AND %>DF,R31 D957 26 01 05 BTJO %>01,A,LD95F D95A 7D 03 13 CMP %>03,R19 D95D E7 12 JNC LD971 D95F AA F5 51 LD95F LDA @LF551(B) D962 26 04 0C BTJO %>04,A,LD971 D965 06 DINT D966 AA F5 71 LDA @LF571(B) D969 D0 4A MOV A,R74 D96B AA F5 91 LDA @LF591(B) D96E D0 4B MOV A,R75 D970 05 EINT D971 C9 LD971 POP B D972 B9 POP A D973 0B LD973 RETI TMS7000 Assembler Version 3.0 RUN Chip PAGE 39 ; ; ; D974 22 00 LD974 MOV %>00,A ;'0' D976 E0 2F JMP LD9A7 ; D978 22 01 LD978 MOV %>01,A ;'1' D97A E0 2B JMP LD9A7 ; D97C 22 02 LD97C MOV %>02,A ;'2' D97E E0 27 JMP LD9A7 ; D980 22 03 LD980 MOV %>03,A ;'3' D982 E0 23 JMP LD9A7 ; D984 22 04 LD984 MOV %>04,A ;'4' D986 E0 1F JMP LD9A7 ; D988 22 05 LD988 MOV %>05,A ;'5' D98A E0 1B JMP LD9A7 ; D98C 22 06 LD98C MOV %>06,A ;'6' D98E E0 17 JMP LD9A7 ; D990 22 07 LD990 MOV %>07,A ;'7' D992 E0 13 JMP LD9A7 ; D994 22 08 LD994 MOV %>08,A ;'8' D996 E0 0F JMP LD9A7 ; D998 22 09 LD998 MOV %>09,A ;'9' D99A E0 0B JMP LD9A7 ; D99C 22 0A LD99C MOV %>0A,A ;'>' D99E E0 02 JMP LD9A2 ; D9A0 22 0B LD9A0 MOV %>0B,A ;'<' D9A2 7D 01 19 LD9A2 CMP %>01,R25 D9A5 E6 21 JNZ LD9C8 D9A7 32 19 LD9A7 MOV R25,B D9A9 E2 1D JZ LD9C8 D9AB 4D 1A 19 CMP R26,R25 D9AE E2 18 JZ LD9C8 D9B0 32 1A MOV R26,B D9B2 AB 62 7F STA @L627F(B) D9B5 D3 1A INC R26 D9B7 52 36 MOV %>36,B D9B9 8E DA 23 CALL @LDA23 D9BC 8A 62 A4 LDA @L62A4 D9BF B3 INC A D9C0 8B 62 A4 STA @L62A4 D9C3 7D 01 19 CMP %>01,R25 D9C6 E2 27 JZ LD9EF D9C8 8C D7 92 LD9C8 BR @LD792 ; ; CANCEL ; TMS7000 Assembler Version 3.0 RUN Chip PAGE 40 D9CB 12 19 LD9CB MOV R25,A D9CD E2 F9 JZ LD9C8 D9CF 22 0C MOV %>0C,A D9D1 32 51 MOV R81,B D9D3 E2 D2 JZ LD9A7 D9D5 32 1A MOV R26,B D9D7 E2 EF JZ LD9C8 D9D9 C2 DEC B D9DA 22 FF MOV %>FF,A D9DC AB 62 7F STA @L627F(B) D9DF D1 1A MOV B,R26 D9E1 52 2E MOV %>2E,B D9E3 8A 62 A4 LDA @L62A4 D9E6 B2 DEC A D9E7 8B 62 A4 STA @L62A4 D9EA 8E DA 23 CALL @LDA23 D9ED E0 D9 JMP LD9C8 ; ; ENTER ; D9EF 32 19 LD9EF MOV R25,B D9F1 E2 D5 JZ LD9C8 D9F3 D5 19 CLR R25 D9F5 32 51 MOV R81,B D9F7 E2 CF JZ LD9C8 D9F9 98 52 4D MOVD R82,R77 D9FC E0 CA JMP LD9C8 ; ; TV ; D9FE B5 LD9FE CLR A D9FF 8B 62 7C STA @L627C DA02 B4 INV A DA03 8B 67 F1 STA @L67F1 DA06 8C E9 BC LDA06 BR @LE9BC ; ; SAT ; DA09 B5 LDA09 CLR A DA0A 8B 67 F1 STA @L67F1 DA0D 12 1D MOV R29,A DA0F 23 7F AND %>7F,A DA11 2D 04 CMP %>04,A DA13 E2 F1 JZ LDA06 DA15 8C E9 B2 BR @LE9B2 ; ; Keyboard >18 + >19 ; DA18 72 05 13 LDA18 MOV %>05,R19 DA1B 22 0F LDA1B MOV %>0F,A DA1D EE TRAP 17 DA1E F6 LDA1E TRAP 9 DA1F E0 FD JMP LDA1E ; DA21 E0 F8 JMP LDA1B ; DA23 12 51 LDA23 MOV R81,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 41 DA25 E2 0A JZ LDA31 DA27 7D 01 19 CMP %>01,R25 DA2A E2 05 JZ LDA31 DA2C 8A 62 A4 LDA @L62A4 DA2F B6 XCHB A DA30 F3 TRAP 12 DA31 0A LDA31 RETS ; ; TRAP 20 ; DA32 B6 LDA32 XCHB A DA33 8B 62 A4 STA @L62A4 DA36 D1 19 MOV B,R25 DA38 D5 1A CLR R26 DA3A 8E DA 61 CALL @LDA61 DA3D D9 52 POP R82 DA3F D9 51 POP R81 DA41 B5 CLR A DA42 8B 62 89 LDA42 STA @L6289 DA45 88 1A 5E 54 MOVD %>1A5E,R84 DA49 F6 LDA49 TRAP 9 DA4A 12 1A MOV R26,A DA4C 8D 62 89 CMPA @L6289 DA4F E6 F1 JNZ LDA42 DA51 DB 54 DECD R84 DA53 E3 F4 JC LDA49 DA55 8C EA E6 BR @LEAE6 ; ; TRAP 19 ; DA58 22 01 LDA58 MOV %>01,A DA5A D0 19 MOV A,R25 DA5C D5 1A CLR R26 DA5E D5 51 CLR R81 DA60 C0 MOV A,B DA61 22 FF LDA61 MOV %>FF,A DA63 AB 62 7E LDA63 STA @L627E(B) DA66 CA FB DJNZ B,LDA63 DA68 0A RETS ; ; Keyboard >10 + >1F ; DA69 F7 LDA69 TRAP 8 DA6A B5 LDA6A CLR A DA6B 8B 62 46 STA @L6246 DA6E 8B 62 4B STA @L624B DA71 D5 1B CLR R27 DA73 D5 1D CLR R29 DA75 12 15 MOV R21,A DA77 72 01 0E MOV %>01,R14 DA7A BE RL A DA7B DF 0E RLC R14 DA7D 52 02 MOV %>02,B DA7F BE RL A DA80 BE RL A DA81 CF RLC B DA82 D1 0F MOV B,R15 TMS7000 Assembler Version 3.0 RUN Chip PAGE 42 DA84 8E DF 1D CALL @LDF1D DA87 8A 62 34 LDA @L6234 DA8A D0 49 MOV A,R73 DA8C 32 0F MOV R15,B DA8E F5 TRAP 10 DA8F AA 61 1B LDA @L611B(B) DA92 43 00 49 AND R0,R73 DA95 8A 61 FF LDA @L61FF DA98 13 49 AND R73,A DA9A 8B 62 6B STA @L626B DA9D AA 61 13 LDA @L6113(B) DAA0 23 07 AND %>07,A DAA2 8B 62 7E STA @L627E DAA5 AA 61 19 LDA @L6119(B) DAA8 8D 62 53 CMPA @L6253 DAAB E6 BC JNZ LDA69 DAAD AA 61 14 LDA @L6114(B) DAB0 D0 49 MOV A,R73 DAB2 12 15 MOV R21,A DAB4 15 49 XOR R73,A DAB6 26 60 B0 BTJO %>60,A,LDA69 DAB9 AA 61 00 LDA @L6100(B) DABC D0 49 MOV A,R73 DABE AA 61 01 LDA @L6101(B) DAC1 D0 48 MOV A,R72 DAC3 32 0E MOV R14,B DAC5 5A 02 SUB %>02,B DAC7 F5 TRAP 10 DAC8 AA 61 00 LDA @L6100(B) DACB 1D 49 CMP R73,A DACD E6 9A JNZ LDA69 DACF AA 61 01 LDA @L6101(B) DAD2 1D 48 CMP R72,A DAD4 E6 93 JNZ LDA69 DAD6 8A 62 35 LDA @L6235 DAD9 1D 49 CMP R73,A DADB E6 8C JNZ LDA69 DADD 8A 62 36 LDA @L6236 DAE0 1D 48 CMP R72,A DAE2 E6 85 JNZ LDA69 DAE4 32 0F MOV R15,B DAE6 F5 TRAP 10 DAE7 8A 62 75 LDA @L6275 DAEA 4D 00 16 CMP R0,R22 DAED E6 25 JNZ LDB14 DAEF AA 61 09 LDA @L6109(B) DAF2 8D 62 76 CMPA @L6276 DAF5 E6 19 JNZ LDB10 DAF7 AA 61 0A LDA @L610A(B) DAFA 8D 62 77 CMPA @L6277 DAFD E6 11 JNZ LDB10 DAFF AA 61 0B LDA @L610B(B) DB02 8D 62 78 CMPA @L6278 DB05 E6 09 JNZ LDB10 DB07 AA 61 0C LDA @L610C(B) DB0A 8D 62 79 CMPA @L6279 DB0D 8C DB 99 BR @LDB99 TMS7000 Assembler Version 3.0 RUN Chip PAGE 43 DB10 B5 LDB10 CLR A DB11 8B 62 75 STA @L6275 DB14 8A 62 7B LDB14 LDA @L627B DB17 15 15 XOR R21,A DB19 26 60 34 BTJO %>60,A,LDB50 DB1C 8A 62 7C LDA @L627C DB1F E2 2F JZ LDB50 DB21 8D 62 53 CMPA @L6253 DB24 E6 26 JNZ LDB4C DB26 12 16 MOV R22,A DB28 8B 62 75 STA @L6275 DB2B AA 61 09 LDA @L6109(B) DB2E 8B 62 76 STA @L6276 DB31 AA 61 0A LDA @L610A(B) DB34 8B 62 77 STA @L6277 DB37 AA 61 0B LDA @L610B(B) DB3A 8B 62 78 STA @L6278 DB3D AA 61 0C LDA @L610C(B) DB40 8B 62 79 STA @L6279 DB43 B5 CLR A DB44 8B 62 7C STA @L627C DB47 8B 62 7A STA @L627A DB4A E0 4D JMP LDB99 ; DB4C B5 LDB4C CLR A DB4D 8B 62 7C STA @L627C DB50 AA 61 13 LDB50 LDA @L6113(B) DB53 26 20 09 BTJO %>20,A,LDB5F DB56 B5 CLR A DB57 AB 61 42 STA @L6142(B) DB5A E0 27 JMP LDB83 ; DB5C 8C DA 69 LDB5C BR @LDA69 ; DB5F AA 61 19 LDB5F LDA @L6119(B) DB62 AD 61 42 CMPA @L6142(B) DB65 E6 F5 JNZ LDB5C DB67 AA 61 14 LDA @L6114(B) DB6A D0 10 MOV A,R16 DB6C AA 61 41 LDA @L6141(B) DB6F 15 10 XOR R16,A DB71 26 E0 E8 BTJO %>E0,A,LDB5C DB74 AA 61 43 LDA @L6143(B) DB77 B3 INC A DB78 E6 E2 JNZ LDB5C DB7A 72 01 1D MOV %>01,R29 DB7D AA 61 44 LDA @L6144(B) DB80 B3 INC A DB81 E6 D9 JNZ LDB5C DB83 D1 49 LDB83 MOV B,R73 DB85 52 07 MOV %>07,B DB87 D6 49 XCHB R73 DB89 AA 61 08 LDA @L6108(B) DB8C D0 48 MOV A,R72 DB8E C2 DEC B DB8F D6 49 XCHB R73 DB91 AA 62 22 LDA @L6222(B) TMS7000 Assembler Version 3.0 RUN Chip PAGE 44 DB94 E0 08 JMP LDB9E ; DB96 8C DA 69 LDB96 BR @LDA69 ; DB99 22 FF LDB99 MOV %>FF,A DB9B 8B 62 46 STA @L6246 DB9E 72 03 1D LDB9E MOV %>03,R29 DBA1 8A 62 7E LDA @L627E DBA4 8D 62 7D CMPA @L627D DBA7 E2 02 JZ LDBAB DBA9 E3 EB JC LDB96 DBAB 72 04 1D LDBAB MOV %>04,R29 DBAE 72 FF 1B MOV %>FF,R27 DBB1 72 FF 17 MOV %>FF,R23 DBB4 22 02 MOV %>02,A DBB6 F9 TRAP 6 DBB7 52 07 MOV %>07,B DBB9 22 FF MOV %>FF,A DBBB F9 LDBBB TRAP 6 DBBC CA FD DJNZ B,LDBBB DBBE 32 0E MOV R14,B DBC0 5A 02 SUB %>02,B DBC2 F5 TRAP 10 DBC3 58 03 ADD %>03,B DBC5 AA 60 FF LDA @L60FF(B) DBC8 23 0F AND %>0F,A DBCA 8B 67 FE STA @L67FE DBCD C0 MOV A,B DBCE 53 03 AND %>03,B DBD0 5C 08 MPY %>08,B DBD2 A8 60 D3 7D MOVD %L60D3(B),R125 DBD6 88 66 50 7F MOVD %L6650,R127 DBDA 52 08 MOV %>08,B DBDC 8E E0 24 CALL @LE024 DBDF 88 60 F3 7D MOVD %L60F3,R125 DBE3 88 66 40 7F MOVD %L6640,R127 DBE7 52 08 MOV %>08,B DBE9 8E E0 24 CALL @LE024 DBEC 06 DINT DBED 8E C0 03 CALL @LC003 DBF0 88 66 50 7D MOVD %L6650,R125 DBF4 88 67 20 7F MOVD %L6720,R127 DBF8 52 08 MOV %>08,B DBFA 8E E0 24 CALL @LE024 DBFD 05 EINT DBFE F7 TRAP 8 DBFF 88 67 20 7D MOVD %L6720,R125 DC03 88 66 40 7F MOVD %L6640,R127 DC07 52 08 MOV %>08,B DC09 8E E0 24 CALL @LE024 DC0C 88 62 58 7D MOVD %L6258,R125 DC10 88 66 50 7F MOVD %L6650,R127 DC14 52 04 MOV %>04,B DC16 8E E0 19 CALL @LE019 DC19 32 0E MOV R14,B DC1B 5A 02 SUB %>02,B DC1D F5 TRAP 10 TMS7000 Assembler Version 3.0 RUN Chip PAGE 45 DC1E 58 03 ADD %>03,B DC20 A8 60 FF 7D MOVD %L60FF(B),R125 DC24 52 04 MOV %>04,B DC26 8E E0 24 CALL @LE024 DC29 06 DINT DC2A 8E C0 03 CALL @LC003 DC2D 88 66 50 7D MOVD %L6650,R125 DC31 88 67 20 7F MOVD %L6720,R127 DC35 52 08 MOV %>08,B DC37 8E E0 24 CALL @LE024 DC3A 05 EINT DC3B F7 TRAP 8 DC3C 8A 67 FE LDA @L67FE DC3F C0 MOV A,B DC40 53 0C AND %>0C,B DC42 CC RR B DC43 CC RR B DC44 5C 08 MPY %>08,B DC46 A8 60 D3 7D MOVD %L60D3(B),R125 DC4A 88 66 50 7F MOVD %L6650,R127 DC4E 52 08 MOV %>08,B DC50 8E E0 24 CALL @LE024 DC53 88 60 F3 7D MOVD %L60F3,R125 DC57 88 66 40 7F MOVD %L6640,R127 DC5B 52 08 MOV %>08,B DC5D 8E E0 24 CALL @LE024 DC60 06 DINT DC61 8E C0 03 CALL @LC003 DC64 88 66 50 7D MOVD %L6650,R125 DC68 88 67 28 7F MOVD %L6728,R127 DC6C 52 08 MOV %>08,B DC6E 8E E0 24 CALL @LE024 DC71 05 EINT DC72 F7 TRAP 8 DC73 88 67 28 7D MOVD %L6728,R125 DC77 88 66 40 7F MOVD %L6640,R127 DC7B 52 08 MOV %>08,B DC7D 8E E0 24 CALL @LE024 DC80 88 67 20 7D MOVD %L6720,R125 DC84 88 66 50 7F MOVD %L6650,R127 DC88 52 08 MOV %>08,B DC8A 8E E0 24 CALL @LE024 DC8D 06 DINT DC8E 8E C0 03 CALL @LC003 DC91 88 66 50 7D MOVD %L6650,R125 DC95 88 67 28 7F MOVD %L6728,R127 DC99 52 08 MOV %>08,B DC9B 8E E0 24 CALL @LE024 DC9E 05 EINT DC9F F7 TRAP 8 DCA0 8A 67 FE LDA @L67FE DCA3 C0 MOV A,B DCA4 53 03 AND %>03,B DCA6 5C 08 MPY %>08,B DCA8 A8 60 D3 7D MOVD %L60D3(B),R125 DCAC 88 66 50 7F MOVD %L6650,R127 DCB0 52 08 MOV %>08,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 46 DCB2 8E E0 24 CALL @LE024 DCB5 88 60 F3 7D MOVD %L60F3,R125 DCB9 88 66 40 7F MOVD %L6640,R127 DCBD 52 08 MOV %>08,B DCBF 8E E0 24 CALL @LE024 DCC2 06 DINT DCC3 8E C0 03 CALL @LC003 DCC6 88 66 50 7D MOVD %L6650,R125 DCCA 88 67 20 7F MOVD %L6720,R127 DCCE 52 08 MOV %>08,B DCD0 8E E0 24 CALL @LE024 DCD3 05 EINT DCD4 F7 TRAP 8 DCD5 88 67 20 7D MOVD %L6720,R125 DCD9 88 66 40 7F MOVD %L6640,R127 DCDD 52 08 MOV %>08,B DCDF 8E E0 24 CALL @LE024 DCE2 88 67 28 7D MOVD %L6728,R125 DCE6 88 66 50 7F MOVD %L6650,R127 DCEA 52 08 MOV %>08,B DCEC 8E E0 24 CALL @LE024 DCEF 06 DINT DCF0 8E C0 03 CALL @LC003 DCF3 88 66 50 7D MOVD %L6650,R125 DCF7 88 67 20 7F MOVD %L6720,R127 DCFB 52 08 MOV %>08,B DCFD 8E E0 24 CALL @LE024 DD00 05 EINT DD01 F7 TRAP 8 DD02 88 62 23 7D MOVD %L6223,R125 DD06 88 67 20 7F MOVD %L6720,R127 DD0A 52 07 MOV %>07,B DD0C 9A 7D LDD0C LDA *R125 DD0E D0 7B MOV A,R123 DD10 9A 7F LDA *R127 DD12 15 7B XOR R123,A DD14 9B 7F STA *R127 DD16 D3 7D INC R125 DD18 D3 7F INC R127 DD1A CA F0 DJNZ B,LDD0C DD1C 88 62 2A 7D MOVD %L622A,R125 DD20 88 66 50 7F MOVD %L6650,R127 DD24 52 08 MOV %>08,B DD26 8E E0 24 CALL @LE024 DD29 88 67 20 7D MOVD %L6720,R125 DD2D 88 66 40 7F MOVD %L6640,R127 DD31 52 07 MOV %>07,B DD33 8E E0 24 CALL @LE024 DD36 06 DINT DD37 8E C0 03 CALL @LC003 DD3A 88 66 50 7D MOVD %L6650,R125 DD3E 88 67 20 7F MOVD %L6720,R127 DD42 52 08 MOV %>08,B DD44 8E E0 24 CALL @LE024 DD47 88 62 32 7D MOVD %L6232,R125 DD4B 88 67 24 7F MOVD %L6724,R127 DD4F 72 03 10 MOV %>03,R16 TMS7000 Assembler Version 3.0 RUN Chip PAGE 47 DD52 9A 7D LDD52 LDA *R125 DD54 C0 MOV A,B DD55 9A 7F LDA *R127 DD57 65 XOR B,A DD58 9B 7F STA *R127 DD5A D3 7D INC R125 DD5C D3 7F INC R127 DD5E DA 10 F1 DJNZ R16,LDD52 DD61 05 EINT DD62 F7 TRAP 8 DD63 32 0F MOV R15,B DD65 F5 TRAP 10 DD66 A8 61 02 7D MOVD %L6102(B),R125 DD6A 88 67 28 7F MOVD %L6728,R127 DD6E 52 07 MOV %>07,B DD70 8E E0 24 CALL @LE024 DD73 88 66 50 7F MOVD %L6650,R127 DD77 52 08 MOV %>08,B DD79 8E E0 24 CALL @LE024 DD7C 88 67 20 7F MOVD %L6720,R127 DD80 72 03 10 MOV %>03,R16 DD83 9A 7D LDD83 LDA *R125 DD85 C0 MOV A,B DD86 9A 7F LDA *R127 DD88 65 XOR B,A DD89 9B 7F STA *R127 DD8B D3 7D INC R125 DD8D D3 7F INC R127 DD8F DA 10 F1 DJNZ R16,LDD83 DD92 88 67 20 7D MOVD %L6720,R125 DD96 88 66 40 7F MOVD %L6640,R127 DD9A 52 07 MOV %>07,B DD9C 8E E0 24 CALL @LE024 DD9F 06 DINT DDA0 8E C0 03 CALL @LC003 DDA3 88 66 50 7D MOVD %L6650,R125 DDA7 88 67 20 7F MOVD %L6720,R127 DDAB 52 08 MOV %>08,B DDAD 8E E0 24 CALL @LE024 DDB0 88 67 28 7D MOVD %L6728,R125 DDB4 88 67 20 7F MOVD %L6720,R127 DDB8 72 07 10 MOV %>07,R16 DDBB 9A 7D LDDBB LDA *R125 DDBD C0 MOV A,B DDBE 9A 7F LDA *R127 DDC0 65 XOR B,A DDC1 9B 7F STA *R127 DDC3 D3 7D INC R125 DDC5 D3 7F INC R127 DDC7 DA 10 F1 DJNZ R16,LDDBB DDCA 88 67 28 7F MOVD %L6728,R127 DDCE 72 07 10 MOV %>07,R16 DDD1 22 80 MOV %>80,A DDD3 9B 7F LDDD3 STA *R127 DDD5 D3 7F INC R127 DDD7 DA 10 F9 DJNZ R16,LDDD3 DDDA 88 67 28 7D MOVD %L6728,R125 TMS7000 Assembler Version 3.0 RUN Chip PAGE 48 DDDE 88 67 20 7F MOVD %L6720,R127 DDE2 72 07 10 MOV %>07,R16 DDE5 9A 7D LDDE5 LDA *R125 DDE7 C0 MOV A,B DDE8 9A 7F LDA *R127 DDEA 65 XOR B,A DDEB 9B 7F STA *R127 DDED D3 7D INC R125 DDEF D3 7F INC R127 DDF1 DA 10 F1 DJNZ R16,LDDE5 DDF4 05 EINT DDF5 F7 TRAP 8 DDF6 88 67 20 7D MOVD %L6720,R125 DDFA 88 66 50 7F MOVD %L6650,R127 DDFE 52 08 MOV %>08,B DE00 8E E0 24 CALL @LE024 DE03 52 08 MOV %>08,B DE05 B5 CLR A DE06 AB 66 3F LDE06 STA @L663F(B) DE09 CA FB DJNZ B,LDE06 DE0B 06 DINT DE0C 8E C0 00 CALL @LC000 DE0F B5 CLR A DE10 8B 66 58 STA @L6658 DE13 8B 66 59 STA @L6659 DE16 8B 66 5A STA @L665A DE19 88 66 50 7D MOVD %L6650,R125 DE1D 88 67 2F 7F MOVD %L672F,R127 DE21 52 0B MOV %>0B,B DE23 8E E0 24 CALL @LE024 DE26 05 EINT DE27 F7 TRAP 8 DE28 22 04 MOV %>04,A DE2A F9 TRAP 6 DE2B 88 67 28 47 MOVD %L6728,R71 DE2F 72 12 10 MOV %>12,R16 DE32 F8 TRAP 7 DE33 F7 TRAP 8 DE34 D5 1B CLR R27 DE36 8A 62 46 LDA @L6246 DE39 E2 10 JZ LDE4B DE3B 8A 62 7A LDA @L627A DE3E E6 0B JNZ LDE4B DE40 8E F4 AF CALL @LF4AF DE43 74 0A 3B OR %>0A,R59 DE46 22 FF MOV %>FF,A DE48 8B 62 7A STA @L627A DE4B F7 LDE4B TRAP 8 DE4C 22 09 MOV %>09,A DE4E F9 TRAP 6 DE4F 8A 62 68 LDA @L6268 DE52 8B 62 66 STA @L6266 DE55 F9 TRAP 6 DE56 8A 62 69 LDA @L6269 DE59 8B 62 67 STA @L6267 DE5C F7 TRAP 8 DE5D 22 07 MOV %>07,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 49 DE5F F9 TRAP 6 DE60 C5 CLR B DE61 F4 LDE61 TRAP 11 DE62 AB 62 5A STA @L625A(B) DE65 C3 INC B DE66 5D 0C CMP %>0C,B DE68 E6 F7 JNZ LDE61 DE6A 4D 17 0E CMP R23,R14 DE6D E2 01 JZ LDE70 DE6F F7 TRAP 8 DE70 42 0E 17 LDE70 MOV R14,R23 DE73 E0 0E JMP LDE83 DE75 8E DF 35 LDE75 CALL @LDF35 DE78 7D 04 13 CMP %>04,R19 DE7B E2 06 JZ LDE83 DE7D D2 1C DEC R28 DE7F E2 3F JZ LDEC0 DE81 E0 03 JMP LDE86 DE83 72 05 1C LDE83 MOV %>05,R28 DE86 8A 62 7E LDE86 LDA @L627E DE89 8D 62 7D CMPA @L627D DE8C E2 02 JZ LDE90 DE8E E3 30 JC LDEC0 DE90 8A 62 46 LDE90 LDA @L6246 DE93 E6 2E JNZ LDEC3 DE95 12 1D MOV R29,A DE97 E2 27 JZ LDEC0 DE99 32 0F MOV R15,B DE9B F5 TRAP 10 DE9C AA 61 13 LDA @L6113(B) DE9F 27 20 06 BTJZ %>20,A,LDEA8 DEA2 AA 61 44 LDA @L6144(B) DEA5 B3 INC A DEA6 E6 18 JNZ LDEC0 DEA8 D1 49 LDEA8 MOV B,R73 DEAA 32 0E MOV R14,B DEAC F5 TRAP 10 DEAD 72 07 10 MOV %>07,R16 DEB0 AA 61 00 LDA @L6100(B) DEB3 D0 48 MOV A,R72 DEB5 C3 INC B DEB6 D6 49 XCHB R73 DEB8 AA 61 02 LDA @L6102(B) DEBB C3 INC B DEBC D6 49 XCHB R73 DEBE E0 03 JMP LDEC3 DEC0 8C DA 69 LDEC0 BR @LDA69 DEC3 32 0F LDEC3 MOV R15,B DEC5 F5 TRAP 10 DEC6 42 06 49 MOV R6,R73 DEC9 73 F3 49 AND %>F3,R73 DECC AA 61 13 LDA @L6113(B) DECF 27 40 0C BTJZ %>40,A,LDEDE DED2 74 04 49 OR %>04,R73 DED5 8A 62 A2 LDA @L62A2 DED8 27 01 03 BTJZ %>01,A,LDEDE DEDB 75 0C 49 XOR %>0C,R73 TMS7000 Assembler Version 3.0 RUN Chip PAGE 50 DEDE 42 49 06 LDEDE MOV R73,R6 DEE1 8A 62 52 LDA @L6252 DEE4 AD 61 18 CMPA @L6118(B) DEE7 E1 25 JN LDF0E DEE9 E6 12 JNZ LDEFD DEEB 8A 62 51 LDA @L6251 DEEE AD 61 17 CMPA @L6117(B) DEF1 E7 1B JNC LDF0E DEF3 E6 08 JNZ LDEFD DEF5 8A 62 50 LDA @L6250 DEF8 AD 61 16 CMPA @L6116(B) DEFB E7 11 JNC LDF0E DEFD AA 61 14 LDEFD LDA @L6114(B) DF00 BE RL A DF01 28 40 ADD %>40,A DF03 BC RR A DF04 8B 62 4D STA @L624D DF07 D0 15 MOV A,R21 DF09 D5 1E CLR R30 DF0B 8C D7 57 BR @LD757 DF0E 22 05 LDF0E MOV %>05,A DF10 F9 TRAP 6 DF11 88 62 50 47 MOVD %L6250,R71 DF15 72 03 10 MOV %>03,R16 DF18 F8 TRAP 7 DF19 F7 TRAP 8 DF1A 8C DE 75 BR @LDE75 ; DF1D 32 0E LDF1D MOV R14,B DF1F F5 TRAP 10 DF20 22 15 MOV %>15,A DF22 38 00 ADD R0,B DF24 D1 49 MOV B,R73 DF26 C0 MOV A,B DF27 D6 49 LDF27 XCHB R73 DF29 AA 60 FE LDA @L60FE(B) DF2C C2 DEC B DF2D D6 49 XCHB R73 DF2F AB 62 21 STA @L6221(B) DF32 CA F3 DJNZ B,LDF27 DF34 0A RETS ; DF35 32 0E LDF35 MOV R14,B DF37 F5 TRAP 10 DF38 AA 61 11 LDA @L6111(B) DF3B B8 PUSH A DF3C 32 0F MOV R15,B DF3E F5 TRAP 10 DF3F AA 61 1B LDA @L611B(B) DF42 C9 POP B DF43 33 00 AND R0,B DF45 8A 61 FF LDA @L61FF DF48 63 AND B,A DF49 8B 62 6B STA @L626B DF4C 0A RETS ; DF4D 52 06 LDF4D MOV %>06,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 51 DF4F 22 20 MOV %>20,A DF51 AB 62 7F LDF51 STA @L627F(B) DF54 CA FB DJNZ B,LDF51 DF56 32 0F MOV R15,B DF58 F5 TRAP 10 DF59 AA 61 16 LDA @L6116(B) DF5C D0 4D MOV A,R77 DF5E AA 61 17 LDA @L6117(B) DF61 D0 4C MOV A,R76 DF63 AA 61 18 LDA @L6118(B) DF66 D0 50 MOV A,R80 DF68 8A 62 52 LDA @L6252 DF6B D0 4F MOV A,R79 DF6D 8A 62 51 LDA @L6251 DF70 C0 MOV A,B DF71 8A 62 50 LDA @L6250 DF74 4A 00 4D SUB R0,R77 DF77 4B 01 4C SBB R1,R76 DF7A 4B 4F 50 SBB R79,R80 DF7D E3 01 JC LDF80 DF7F 0A RETS DF80 52 03 LDF80 MOV %>03,B DF82 22 1F MOV %>1F,A DF84 B3 LDF84 INC A DF85 7A B0 4D SUB %>B0,R77 DF88 7B 1E 4C SBB %>1E,R76 DF8B 7B 04 50 SBB %>04,R80 DF8E E7 05 JNC LDF95 DF90 CA F2 DJNZ B,LDF84 DF92 8C E0 00 BR @LE000 DF95 8B 62 80 LDF95 STA @L6280 DF98 78 B0 4D ADD %>B0,R77 DF9B 79 1E 4C ADC %>1E,R76 DF9E 79 04 50 ADC %>04,R80 DFA1 22 1F MOV %>1F,A DFA3 B3 LDFA3 INC A DFA4 7A 78 4D SUB %>78,R77 DFA7 7B 69 4C SBB %>69,R76 DFAA 7B 00 50 SBB %>00,R80 DFAD E3 F4 JC LDFA3 DFAF 8B 62 81 STA @L6281 DFB2 78 78 4D ADD %>78,R77 DFB5 79 69 4C ADC %>69,R76 DFB8 22 1F MOV %>1F,A DFBA B3 LDFBA INC A DFBB 7A 94 4D SUB %>94,R77 DFBE 7B 11 4C SBB %>11,R76 DFC1 E3 F7 JC LDFBA DFC3 8B 62 82 STA @L6282 DFC6 78 94 4D ADD %>94,R77 DFC9 79 11 4C ADC %>11,R76 DFCC 22 1F MOV %>1F,A DFCE B3 LDFCE INC A DFCF 7A C2 4D SUB %>C2,R77 DFD2 7B 01 4C SBB %>01,R76 DFD5 E3 F7 JC LDFCE DFD7 8B 62 83 STA @L6283 TMS7000 Assembler Version 3.0 RUN Chip PAGE 52 DFDA 78 C2 4D ADD %>C2,R77 DFDD 79 01 4C ADC %>01,R76 DFE0 22 1F MOV %>1F,A DFE2 B3 LDFE2 INC A DFE3 7A 4B 4D SUB %>4B,R77 DFE6 7B 00 4C SBB %>00,R76 DFE9 E3 F7 JC LDFE2 DFEB 8B 62 84 STA @L6284 DFEE 78 4B 4D ADD %>4B,R77 DFF1 48 4D 4D ADD R77,R77 DFF4 22 1F MOV %>1F,A DFF6 B3 LDFF6 INC A DFF7 7A 0F 4D SUB %>0F,R77 DFFA E3 FA JC LDFF6 DFFC 8B 62 85 STA @L6285 DFFF 0A RETS ; E000 22 22 LE000 MOV %>22,A E002 8B 62 80 STA @L6280 E005 22 29 MOV %>29,A E007 8B 62 81 STA @L6281 E00A 8B 62 83 STA @L6283 E00D 8B 62 85 STA @L6285 E010 22 25 MOV %>25,A E012 8B 62 82 STA @L6282 E015 8B 62 84 STA @L6284 E018 0A RETS ; E019 9A 7D LE019 LDA *R125 E01B 9B 7F STA *R127 E01D D2 7D DEC R125 E01F D3 7F INC R127 E021 CA F6 DJNZ B,LE019 E023 0A RETS ; E024 9A 7D LE024 LDA *R125 E026 9B 7F STA *R127 E028 D3 7D INC R125 E02A D3 7F INC R127 E02C CA F6 DJNZ B,LE024 E02E 0A RETS ; E02F C8 LE02F PUSH B E030 72 03 10 MOV %>03,R16 E033 88 FB 28 47 MOVD %LFB28,R71 E037 12 29 MOV R41,A E039 15 15 XOR R21,A E03B 26 60 04 BTJO %>60,A,LE042 E03E 88 FB 19 47 MOVD %LFB19,R71 E042 8E D0 C9 LE042 CALL @LD0C9 E045 C9 POP B E046 58 0C ADD %>0C,B E048 8A 62 80 LDA @L6280 E04B 2D 20 CMP %>20,A E04D E2 0A JZ LE059 E04F F3 TRAP 12 E050 8A 62 81 LDA @L6281 TMS7000 Assembler Version 3.0 RUN Chip PAGE 53 E053 F2 TRAP 13 E054 8A 62 82 LDA @L6282 E057 E0 17 JMP LE070 E059 8A 62 81 LE059 LDA @L6281 E05C 2D 20 CMP %>20,A E05E E6 0F JNZ LE06F E060 22 2E MOV %>2E,A E062 F3 TRAP 12 E063 F2 TRAP 13 E064 8A 62 82 LDA @L6282 E067 2D 20 CMP %>20,A E069 E6 0B JNZ LE076 E06B 22 2E MOV %>2E,A E06D E0 07 JMP LE076 E06F F3 LE06F TRAP 12 E070 22 1D LE070 MOV %>1D,A E072 F2 TRAP 13 E073 8A 62 82 LDA @L6282 E076 F2 LE076 TRAP 13 E077 8A 62 83 LDA @L6283 E07A F2 TRAP 13 E07B 22 1D MOV %>1D,A E07D F2 TRAP 13 E07E 8A 62 84 LDA @L6284 E081 F2 TRAP 13 E082 8A 62 85 LDA @L6285 E085 F2 TRAP 13 E086 8A 62 80 LDA @L6280 E089 2D 20 CMP %>20,A E08B E6 03 JNZ LE090 E08D 22 2E MOV %>2E,A E08F F2 TRAP 13 E090 0A LE090 RETS ; E091 78 02 5A LE091 ADD %>02,R90 E094 79 00 59 ADC %>00,R89 E097 9A 5A LDA *R90 E099 8B 62 AC LE099 STA @L62AC E09C 12 59 MOV R89,A E09E 8B 62 AD STA @L62AD E0A1 12 5A MOV R90,A E0A3 8B 62 AE STA @L62AE E0A6 0A RETS ; E0A7 9A 5A LE0A7 LDA *R90 E0A9 D1 0B MOV B,R11 E0AB AD 60 00 CMPA @L6000(B) E0AE E6 E1 JNZ LE091 E0B0 D3 5A INC R90 E0B2 79 00 59 ADC %>00,R89 E0B5 9A 5A LDA *R90 E0B7 D3 5A INC R90 E0B9 79 00 59 ADC %>00,R89 E0BC B0 TSTA E0BD E2 15 JZ LE0D4 E0BF AA 60 01 LDA @L6001(B) E0C2 23 03 AND %>03,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 54 E0C4 C0 MOV A,B E0C5 AA E1 C6 LDA @LE1C6(B) E0C8 9B 5A STA *R90 E0CA B5 CLR A E0CB DB 5A DECD R90 E0CD 9B 5A STA *R90 E0CF D3 5A INC R90 E0D1 79 00 59 ADC %>00,R89 E0D4 32 0B LE0D4 MOV R11,B E0D6 AA 60 01 LDA @L6001(B) E0D9 C0 MOV A,B E0DA CC RR B E0DB CC RR B E0DC 53 03 AND %>03,B E0DE D1 0A MOV B,R10 E0E0 AA E1 BE LDA @LE1BE(B) E0E3 C0 MOV A,B E0E4 9A 5A LDA *R90 E0E6 67 B1 BTJZ B,A,LE099 E0E8 55 FF XOR %>FF,B E0EA 63 AND B,A E0EB 8B 62 AC STA @L62AC E0EE 12 59 MOV R89,A E0F0 8B 62 AD STA @L62AD E0F3 12 5A MOV R90,A E0F5 8B 62 AE STA @L62AE E0F8 32 0B MOV R11,B E0FA AA 60 20 LDA @L6020(B) E0FD D3 5A INC R90 E0FF 79 00 59 ADC %>00,R89 E102 9B 5A STA *R90 E104 AA 60 21 LDA @L6021(B) E107 D3 5A INC R90 E109 79 00 59 ADC %>00,R89 E10C 9B 5A STA *R90 E10E D3 5A INC R90 E110 79 00 59 ADC %>00,R89 E113 12 0A MOV R10,A E115 C0 MOV A,B E116 CE RL B E117 C7 SWAP B E118 3A 00 SUB R0,B E11A 48 01 5A ADD R1,R90 E11D 79 00 59 ADC %>00,R89 E120 32 0B MOV R11,B E122 72 1F 0A MOV %>1F,R10 E125 AA 60 01 LE125 LDA @L6001(B) E128 9B 5A STA *R90 E12A C3 INC B E12B D3 5A INC R90 E12D 79 00 59 ADC %>00,R89 E130 DA 0A F2 DJNZ R10,LE125 E133 0A RETS ; E134 8A 62 AD LE134 LDA @L62AD E137 D0 59 MOV A,R89 E139 8A 62 AE LDA @L62AE TMS7000 Assembler Version 3.0 RUN Chip PAGE 55 E13C D0 5A MOV A,R90 E13E 8A 62 AC LDA @L62AC E141 9B 5A STA *R90 E143 0A RETS ; E144 72 62 59 LE144 MOV %>62,R89 E147 72 60 0A MOV %>60,R10 E14A 72 58 5A MOV %>58,R90 E14D 72 FB 0B MOV %>FB,R11 E150 9A 5A LDA *R90 E152 C0 MOV A,B E153 DB 5A DECD R90 E155 9A 5A LDA *R90 E157 35 00 XOR R0,B E159 9A 0B LDA *R11 E15B 3D 00 CMP R0,B E15D E2 0D JZ LE16C E15F B5 CLR A E160 72 67 59 MOV %>67,R89 E163 9B 5A LE163 STA *R90 E165 DB 5A DECD R90 E167 7D 5F 59 CMP %>5F,R89 E16A E6 F7 JNZ LE163 E16C 88 61 E2 5A LE16C MOVD %L61E2,R90 E170 C5 CLR B E171 D5 0A CLR R10 E173 78 0D 5A ADD %>0D,R90 E176 79 00 59 ADC %>00,R89 E179 9A 5A LDA *R90 E17B E5 02 JPZ LE17F E17D 52 62 MOV %>62,B E17F 72 07 09 LE17F MOV %>07,R9 E182 7A 09 5A SUB %>09,R90 E185 7B 00 59 SBB %>00,R89 E188 9A 5A LE188 LDA *R90 E18A D0 0B MOV A,R11 E18C AA 61 07 LDA @L6107(B) E18F 43 00 0B AND R0,R11 E192 44 0B 0A OR R11,R10 E195 C3 INC B E196 D3 5A INC R90 E198 79 00 59 ADC %>00,R89 E19B DA 09 EA DJNZ R9,LE188 E19E 12 0A MOV R10,A E1A0 E6 05 JNZ LE1A7 E1A2 D3 5A INC R90 E1A4 79 00 59 ADC %>00,R89 E1A7 9A 5A LE1A7 LDA *R90 E1A9 8D 62 B8 CMPA @L62B8 E1AC E6 01 JNZ LE1AF E1AE 0A RETS E1AF 52 FF LE1AF MOV %>FF,B E1B1 B6 XCHB A E1B2 8B 62 B9 STA @L62B9 E1B5 62 MOV B,A E1B6 8B 62 B8 STA @L62B8 E1B9 B5 CLR A TMS7000 Assembler Version 3.0 RUN Chip PAGE 56 E1BA 8B 62 B5 STA @L62B5 E1BD 0A RETS ; E1BE 01 02 04 08 LE1BE BYTE >01,>02,>04,>08,>10,>20,>40,>80 ; E1C6 01 03 07 0F LE1C6 BYTE >01,>03,>07,>0F,>1F,>3F,>7F,>FF ; ; ; Command >12 ; E1CE D5 09 LE1CE CLR R9 E1D0 E0 03 JMP LE1D5 ; ; Command >13 ; E1D2 72 62 09 LE1D2 MOV %>62,R9 E1D5 32 08 LE1D5 MOV R8,B E1D7 8A 62 53 LDA @L6253 E1DA E2 05 JZ LE1E1 E1DC AD 60 02 CMPA @L6002(B) E1DF E2 0A JZ LE1EB E1E1 B5 LE1E1 CLR A E1E2 8B 61 5E STA @L615E E1E5 8B 61 C0 STA @L61C0 E1E8 8C D2 E3 BR @LD2E3 E1EB D0 0A LE1EB MOV A,R10 E1ED AA 60 03 LDA @L6003(B) E1F0 D0 0B MOV A,R11 E1F2 32 09 MOV R9,B E1F4 AD 61 5D CMPA @L615D(B) E1F7 E6 07 JNZ LE200 E1F9 12 0A MOV R10,A E1FB AD 61 5E CMPA @L615E(B) E1FE E2 11 JZ LE211 E200 B5 LE200 CLR A E201 AB 61 5F STA @L615F(B) E204 AB 61 60 STA @L6160(B) E207 12 0A MOV R10,A E209 AB 61 5E STA @L615E(B) E20C 12 0B MOV R11,A E20E AB 61 5D STA @L615D(B) E211 52 05 LE211 MOV %>05,B E213 AA 61 F6 LE213 LDA @L61F6(B) E216 E6 05 JNZ LE21D E218 CA F9 DJNZ B,LE213 E21A 8C E2 C7 BR @LE2C7 E21D 42 08 0D LE21D MOV R8,R13 E220 78 05 0D ADD %>05,R13 E223 32 0D LE223 MOV R13,B E225 AA 60 05 LDA @L6005(B) E228 1C 00 MPY R0,A E22A 98 01 5C MOVD R1,R92 E22D 8A 61 FA LDA @L61FA E230 B7 SWAP A E231 23 0F AND %>0F,A E233 D0 0A MOV A,R10 E235 8A 61 F7 LDA @L61F7 TMS7000 Assembler Version 3.0 RUN Chip PAGE 57 E238 D0 0B MOV A,R11 E23A 32 0D MOV R13,B E23C AA 60 03 LDA @L6003(B) E23F B7 SWAP A E240 23 0F AND %>0F,A E242 D0 0C MOV A,R12 E244 AA 60 00 LDA @L6000(B) E247 1A 0B SUB R11,A E249 4B 0A 0C SBB R10,R12 E24C E5 07 JPZ LE255 E24E B4 INV A E24F D4 0C INV R12 E251 B3 INC A E252 79 00 0C ADC %>00,R12 E255 E6 74 LE255 JNZ LE2CB E257 1C 00 MPY R0,A E259 4A 01 5C SUB R1,R92 E25C 4B 00 5B SBB R0,R91 E25F E7 6A JNC LE2CB E261 8A 61 FA LDA @L61FA E264 23 0F AND %>0F,A E266 D0 0A MOV A,R10 E268 8A 61 F8 LDA @L61F8 E26B D0 0B MOV A,R11 E26D 32 0D MOV R13,B E26F AA 60 03 LDA @L6003(B) E272 23 0F AND %>0F,A E274 D0 0C MOV A,R12 E276 AA 60 01 LDA @L6001(B) E279 1A 0B SUB R11,A E27B 4B 0A 0C SBB R10,R12 E27E E5 07 JPZ LE287 E280 B4 INV A E281 D4 0C INV R12 E283 B3 INC A E284 79 00 0C ADC %>00,R12 E287 E6 42 LE287 JNZ LE2CB E289 1C 00 MPY R0,A E28B 4A 01 5C SUB R1,R92 E28E 4B 00 5B SBB R0,R91 E291 E7 38 JNC LE2CB E293 8A 61 FB LDA @L61FB E296 B7 SWAP A E297 23 0F AND %>0F,A E299 D0 0A MOV A,R10 E29B 8A 61 F9 LDA @L61F9 E29E D0 0B MOV A,R11 E2A0 32 0D MOV R13,B E2A2 AA 60 04 LDA @L6004(B) E2A5 B7 SWAP A E2A6 23 0F AND %>0F,A E2A8 D0 0C MOV A,R12 E2AA AA 60 02 LDA @L6002(B) E2AD 1A 0B SUB R11,A E2AF 4B 0A 0C SBB R10,R12 E2B2 E5 07 JPZ LE2BB E2B4 B4 INV A TMS7000 Assembler Version 3.0 RUN Chip PAGE 58 E2B5 D4 0C INV R12 E2B7 B3 INC A E2B8 79 00 0C ADC %>00,R12 E2BB E6 0E LE2BB JNZ LE2CB E2BD 1C 00 MPY R0,A E2BF 4A 01 5C SUB R1,R92 E2C2 4B 00 5B SBB R0,R91 E2C5 E7 04 JNC LE2CB E2C7 D5 0C LE2C7 CLR R12 E2C9 E0 12 JMP LE2DD E2CB 32 0D LE2CB MOV R13,B E2CD 58 06 ADD %>06,B E2CF D1 0D MOV B,R13 E2D1 3A 08 SUB R8,B E2D3 5D 23 CMP %>23,B E2D5 E2 03 JZ LE2DA E2D7 8C E2 23 BR @LE223 E2DA 72 FF 0C LE2DA MOV %>FF,R12 E2DD 32 08 LE2DD MOV R8,B E2DF AA 60 04 LDA @L6004(B) E2E2 D0 0B MOV A,R11 E2E4 32 09 MOV R9,B E2E6 AA 61 5F LDA @L615F(B) E2E9 14 0B OR R11,A E2EB AB 61 5F STA @L615F(B) E2EE AA 61 60 LDA @L6160(B) E2F1 42 0C 0C MOV R12,R12 E2F4 E6 06 JNZ LE2FC E2F6 D4 0B INV R11 E2F8 13 0B AND R11,A E2FA E0 02 JMP LE2FE E2FC 14 0B LE2FC OR R11,A E2FE AB 61 60 LE2FE STA @L6160(B) E301 8C D2 E3 BR @LD2E3 E304 72 FF 30 LE304 MOV %>FF,R48 E307 E0 0D JMP LE316 E309 72 00 30 LE309 MOV %>00,R48 E30C E0 08 JMP LE316 E30E 72 0F 30 LE30E MOV %>0F,R48 E311 E0 03 JMP LE316 E313 72 7F 30 LE313 MOV %>7F,R48 E316 B9 LE316 POP A E317 8B 62 37 STA @L6237 E31A B9 POP A E31B 8B 62 38 STA @L6238 E31E D1 33 MOV B,R51 E320 72 03 31 MOV %>03,R49 E323 42 21 32 MOV R33,R50 E326 EA LE326 TRAP 21 E327 72 0A 21 MOV %>0A,R33 E32A 73 07 33 AND %>07,R51 E32D 88 FB B5 58 MOVD %LFBB5,R88 E331 ED TRAP 18 E332 F6 TRAP 9 E333 8A 62 92 LDA @L6292 E336 E1 3D JN LE375 E338 12 31 MOV R49,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 59 E33A E1 39 JN LE375 E33C 72 04 21 MOV %>04,R33 E33F 88 F9 8D 47 LE33F MOVD %LF98D,R71 E343 52 8C MOV %>8C,B E345 8E D0 B9 CALL @LD0B9 E348 8E E4 A2 CALL @LE4A2 E34B 8E E4 95 CALL @LE495 E34E E6 05 JNZ LE355 E350 72 FF 31 MOV %>FF,R49 E353 E0 D1 JMP LE326 E355 52 8C LE355 MOV %>8C,B E357 88 FB 0A 47 MOVD %LFB0A,R71 E35B 8E D0 C6 CALL @LD0C6 E35E 88 F9 AB 47 MOVD %LF9AB,R71 E362 8E D0 C4 CALL @LD0C4 E365 72 2D 54 MOV %>2D,R84 E368 F6 LE368 TRAP 9 E369 DA 54 FC DJNZ R84,LE368 E36C DA 31 D0 DJNZ R49,LE33F E36F 72 03 31 MOV %>03,R49 E372 8C E9 B2 BR @LE9B2 E375 88 FB 0A 47 LE375 MOVD %LFB0A,R71 E379 52 8C MOV %>8C,B E37B 8E D0 C6 CALL @LD0C6 E37E 88 FA 6E 47 MOVD %LFA6E,R71 E382 8E D0 C4 CALL @LD0C4 E385 8A 62 7D LDA @L627D E388 8B 62 7D LE388 STA @L627D E38B EC LE38B TRAP 19 E38C 8E E3 CA LE38C CALL @LE3CA E38F F6 TRAP 9 E390 76 01 19 F8 BTJO %>01,R25,LE38C E394 77 01 1A 26 BTJZ %>01,R26,LE3BE E398 8A 62 7F LDA @L627F E39B 2D 0A CMP %>0A,A E39D E6 11 JNZ LE3B0 E39F 8A 62 7D LDA @L627D E3A2 B6 XCHB A E3A3 8A 61 C4 LDA @L61C4 E3A6 23 07 AND %>07,A E3A8 3D 00 CMP R0,B E3AA E3 DF JC LE38B E3AC B6 XCHB A E3AD B3 INC A E3AE E0 D8 JMP LE388 E3B0 2D 0B LE3B0 CMP %>0B,A E3B2 E6 D7 JNZ LE38B E3B4 8A 62 7D LDA @L627D E3B7 2D 01 CMP %>01,A E3B9 E2 D0 JZ LE38B E3BB B2 DEC A E3BC E0 CA JMP LE388 E3BE 42 32 21 LE3BE MOV R50,R33 E3C1 8A 62 38 LDA @L6238 E3C4 B8 PUSH A E3C5 8A 62 37 LDA @L6237 E3C8 B8 PUSH A TMS7000 Assembler Version 3.0 RUN Chip PAGE 60 E3C9 0A RETS E3CA 8A 62 4F LE3CA LDA @L624F E3CD D0 33 MOV A,R51 E3CF 8A 62 4E LDA @L624E E3D2 23 18 AND %>18,A E3D4 C0 MOV A,B E3D5 7D FF 30 CMP %>FF,R48 E3D8 E6 0A JNZ LE3E4 E3DA C1 TSTB E3DB E6 2E JNZ LE40B E3DD B9 POP A E3DE B9 POP A E3DF 00 NOP E3E0 00 NOP E3E1 8C E9 B2 BR @LE9B2 E3E4 7D 7F 30 LE3E4 CMP %>7F,R48 E3E7 E6 0D JNZ LE3F6 E3E9 C1 TSTB E3EA E6 1F JNZ LE40B E3EC 32 0F MOV R15,B E3EE F5 TRAP 10 E3EF AA 61 13 LDA @L6113(B) E3F2 D0 33 MOV A,R51 E3F4 E0 15 JMP LE40B E3F6 32 28 LE3F6 MOV R40,B E3F8 F5 TRAP 10 E3F9 AA 61 13 LDA @L6113(B) E3FC D0 33 MOV A,R51 E3FE 7D 00 30 CMP %>00,R48 E401 E6 05 JNZ LE408 E403 8E F0 E2 CALL @LF0E2 E406 E0 03 JMP LE40B E408 8E F1 03 LE408 CALL @LF103 E40B 73 07 33 LE40B AND %>07,R51 E40E 52 10 MOV %>10,B E410 8A 62 7D LDA @L627D E413 8E F1 32 CALL @LF132 E416 7D 00 1D CMP %>00,R29 E419 E2 53 JZ LE46E E41B 7D 00 33 CMP %>00,R51 E41E E2 4E JZ LE46E E420 52 28 MOV %>28,B E422 88 FA 32 47 MOVD %LFA32,R71 E426 8E D0 C6 CALL @LD0C6 E429 52 38 MOV %>38,B E42B 12 33 MOV R51,A E42D 8E F1 32 CALL @LF132 E430 52 3C MOV %>3C,B E432 88 FB 0A 47 MOVD %LFB0A,R71 E436 8E D0 C6 CALL @LD0C6 E439 88 FB 0A 47 MOVD %LFB0A,R71 E43D 88 FB 0A 58 MOVD %LFB0A,R88 E441 8A 62 7D LDA @L627D E444 1D 33 CMP R51,A E446 E3 08 JC LE450 E448 88 FA 50 47 MOVD %LFA50,R71 E44C 88 FA 5F 58 MOVD %LFA5F,R88 TMS7000 Assembler Version 3.0 RUN Chip PAGE 61 E450 73 DF 20 LE450 AND %>DF,R32 E453 B6 XCHB A E454 8A 62 4F LDA @L624F E457 23 07 AND %>07,A E459 3D 00 CMP R0,B E45B E3 03 JC LE460 E45D 74 20 20 OR %>20,R32 E460 52 50 LE460 MOV %>50,B E462 8E D0 C6 CALL @LD0C6 E465 52 64 MOV %>64,B E467 98 58 47 MOVD R88,R71 E46A 8E D0 C6 CALL @LD0C6 E46D 0A RETS ; E46E D5 33 LE46E CLR R51 E470 88 F7 17 47 MOVD %LF717,R71 E474 52 28 MOV %>28,B E476 8E D0 C6 CALL @LD0C6 E479 88 F7 44 47 MOVD %LF744,R71 E47D 52 3C MOV %>3C,B E47F 8E D0 C6 CALL @LD0C6 E482 88 FB 0A 47 MOVD %LFB0A,R71 E486 52 50 MOV %>50,B E488 8E D0 C6 CALL @LD0C6 E48B 88 FB 0A 47 MOVD %LFB0A,R71 E48F 52 50 MOV %>50,B E491 8E D0 C6 CALL @LD0C6 E494 0A RETS ; E495 52 08 LE495 MOV %>08,B E497 AA 62 7E LE497 LDA @L627E(B) E49A AD 62 91 CMPA @L6291(B) E49D E6 02 JNZ LE4A1 E49F CA F6 DJNZ B,LE497 E4A1 0A LE4A1 RETS ; E4A2 22 AB LE4A2 MOV %>AB,A E4A4 8B 62 A4 STA @L62A4 E4A7 72 08 19 MOV %>08,R25 E4AA D5 1A CLR R26 E4AC 52 08 MOV %>08,B E4AE 8E DA 61 CALL @LDA61 E4B1 D9 52 POP R82 E4B3 D9 51 POP R81 E4B5 B5 CLR A E4B6 8B 62 89 LE4B6 STA @L6289 E4B9 88 1A 5E 54 MOVD %>1A5E,R84 E4BD 8E E3 CA LE4BD CALL @LE3CA E4C0 F6 TRAP 9 E4C1 7D 7F 30 CMP %>7F,R48 E4C4 E2 0E JZ LE4D4 E4C6 12 1D MOV R29,A E4C8 E2 0A JZ LE4D4 E4CA 12 33 MOV R51,A E4CC 8E F1 C2 CALL @LF1C2 E4CF E5 03 JPZ LE4D4 E4D1 8C EC AD BR @LECAD TMS7000 Assembler Version 3.0 RUN Chip PAGE 62 E4D4 12 1A LE4D4 MOV R26,A E4D6 8D 62 89 CMPA @L6289 E4D9 E6 DB JNZ LE4B6 E4DB DB 54 DECD R84 E4DD E3 DE JC LE4BD E4DF D5 19 CLR R25 E4E1 8C EA E6 BR @LEAE6 ; E4E4 23 1F LE4E4 AND %>1F,A E4E6 B3 INC A E4E7 D0 31 MOV A,R49 E4E9 B9 POP A E4EA 8B 62 37 STA @L6237 E4ED B9 POP A E4EE 8B 62 38 STA @L6238 E4F1 72 31 34 MOV %>31,R52 E4F4 72 01 37 MOV %>01,R55 E4F7 88 00 18 54 MOVD %>0018,R84 ; E4FB F6 TRAP 9 E4FC F6 TRAP 9 E4FD F6 TRAP 9 E4FE F6 LE4FE TRAP 9 E4FF 7D FF 39 CMP %>FF,R57 E502 E2 07 JZ LE50B E504 DB 54 DECD R84 E506 E3 F6 JC LE4FE E508 8C E5 75 BR @LE575 E50B D5 50 LE50B CLR R80 E50D 42 31 4C MOV R49,R76 E510 8E F1 8F CALL @LF18F E513 42 4C 4E MOV R76,R78 E516 72 09 30 MOV %>09,R48 E519 DA 30 03 LE519 DJNZ R48,LE51F E51C 8C E5 75 BR @LE575 E51F 72 32 34 LE51F MOV %>32,R52 E522 72 01 37 MOV %>01,R55 E525 F6 LE525 TRAP 9 E526 8A 67 F3 LDA @L67F3 E529 E6 03 JNZ LE52E E52B 8E F0 E7 CALL @LF0E7 E52E 76 80 37 06 LE52E BTJO %>80,R55,LE538 E532 76 10 37 E3 BTJO %>10,R55,LE519 E536 E0 ED JMP LE525 E538 42 4E 34 LE538 MOV R78,R52 E53B 73 F0 34 AND %>F0,R52 E53E D7 34 SWAP R52 E540 74 01 37 OR %>01,R55 E543 F6 LE543 TRAP 9 E544 8A 67 F3 LDA @L67F3 E547 E6 03 JNZ LE54C E549 8E F0 E7 CALL @LF0E7 E54C 76 40 37 06 LE54C BTJO %>40,R55,LE556 E550 76 10 37 C5 BTJO %>10,R55,LE519 E554 E0 ED JMP LE543 E556 42 4E 34 LE556 MOV R78,R52 E559 73 0F 34 AND %>0F,R52 E55C 74 80 34 OR %>80,R52 TMS7000 Assembler Version 3.0 RUN Chip PAGE 63 E55F 74 01 37 OR %>01,R55 E562 F6 LE562 TRAP 9 E563 8A 67 F3 LDA @L67F3 E566 E6 03 JNZ LE56B E568 8E F0 E7 CALL @LF0E7 E56B 76 20 37 0A LE56B BTJO %>20,R55,LE579 E56F 76 10 37 A6 BTJO %>10,R55,LE519 E573 E0 ED JMP LE562 E575 52 FF LE575 MOV %>FF,B E577 E0 01 JMP LE57A E579 C5 LE579 CLR B E57A 8A 62 38 LE57A LDA @L6238 E57D B8 PUSH A E57E 8A 62 37 LDA @L6237 E581 B8 PUSH A E582 0A RETS ; ; SETUP ; E583 EA LE583 TRAP 21 E584 72 01 21 MOV %>01,R33 E587 72 C2 20 MOV %>C2,R32 E58A 22 0F MOV %>0F,A E58C EE TRAP 17 E58D F6 TRAP 9 E58E 88 F7 53 47 MOVD %LF753,R71 E592 C5 CLR B E593 8A 62 45 LDA @L6245 E596 72 14 10 MOV %>14,R16 E599 72 05 27 MOV %>05,R39 E59C 72 24 28 MOV %>24,R40 E59F 27 20 15 BTJZ %>20,A,LE5B7 E5A2 72 23 10 MOV %>23,R16 E5A5 72 08 27 MOV %>08,R39 E5A8 72 27 28 MOV %>27,R40 E5AB 27 08 09 BTJZ %>08,A,LE5B7 E5AE 72 28 10 MOV %>28,R16 E5B1 72 09 27 MOV %>09,R39 E5B4 72 28 28 MOV %>28,R40 E5B7 8E D0 C9 LE5B7 CALL @LD0C9 E5BA 88 F7 CB 47 MOVD %LF7CB,R71 E5BE 8E D0 C4 CALL @LD0C4 E5C1 12 28 MOV R40,A E5C3 52 AF MOV %>AF,B E5C5 F3 TRAP 12 E5C6 F6 TRAP 9 E5C7 22 01 MOV %>01,A E5C9 EB TRAP 20 E5CA 8A 62 7F LDA @L627F E5CD 1D 27 CMP R39,A E5CF E3 B2 JC LE583 E5D1 C0 MOV A,B E5D2 AA E5 DB LDA @LE5DB(B) E5D5 B8 PUSH A E5D6 AA E5 E5 LDA @LE5E5(B) E5D9 B8 PUSH A E5DA 0A RETS TMS7000 Assembler Version 3.0 RUN Chip PAGE 64 ; ; ; E5DB E5 LE5DB BYTE LE5EF/256 ; E5DC E7 BYTE LE7F9/256 ; E5DD E6 BYTE LE6B6/256 ; E5DE E7 BYTE LE73B/256 ; E5DF E7 BYTE LE745/256 ; E5E0 E7 BYTE LE745/256 ; E5E1 E5 BYTE LE583/256 ; E5E2 E5 BYTE LE583/256 ; E5E3 E5 BYTE LE583/256 ; E5E4 E9 BYTE LE9B2/256 ; ; E5E5 EF LE5E5 BYTE LE5EF MOD 256 ; E5E6 F9 BYTE LE7F9 MOD 256 ; E5E7 B6 BYTE LE6B6 MOD 256 ; E5E8 3B BYTE LE73B MOD 256 ; E5E9 45 BYTE LE745 MOD 256 ; E5EA 45 BYTE LE745 MOD 256 ; E5EB 83 BYTE LE583 MOD 256 ; E5EC 83 BYTE LE583 MOD 256 ; E5ED 83 BYTE LE583 MOD 256 ; E5EE B2 BYTE LE9B2 MOD 256 ; ; ; ; E5EF EA LE5EF TRAP 21 E5F0 72 08 21 MOV %>08,R33 E5F3 22 0F MOV %>0F,A E5F5 EE TRAP 17 E5F6 F6 LE5F6 TRAP 9 E5F7 52 14 MOV %>14,B E5F9 88 F6 81 47 MOVD %LF681,R71 E5FD 8E D0 C6 CALL @LD0C6 E600 22 2E MOV %>2E,A E602 52 50 MOV %>50,B E604 72 63 4D MOV %>63,R77 E607 8E D1 42 CALL @LD142 E60A 88 06 97 54 LE60A MOVD %L0697,R84 E60E EC TRAP 19 E60F F6 LE60F TRAP 9 E610 72 01 10 MOV %>01,R16 E613 88 D0 00 47 MOVD %LD000,R71 E617 52 3D MOV %>3D,B E619 8E D0 C9 CALL @LD0C9 E61C 8A 67 F2 LDA @L67F2 E61F 52 76 MOV %>76,B E621 EF TRAP 16 E622 F6 TRAP 9 E623 88 62 3C 47 MOVD %L623C,R71 E627 72 08 10 MOV %>08,R16 E62A 52 79 MOV %>79,B E62C 8E E9 65 CALL @LE965 E62F F6 TRAP 9 E630 12 15 MOV R21,A E632 52 8D MOV %>8D,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 65 E634 EF TRAP 16 E635 8A 62 53 LDA @L6253 E638 F0 TRAP 15 E639 8A 62 48 LDA @L6248 E63C 52 92 MOV %>92,B E63E EF TRAP 16 E63F 8A 62 68 LDA @L6268 E642 52 97 MOV %>97,B E644 EF TRAP 16 E645 8A 62 69 LDA @L6269 E648 F0 TRAP 15 E649 12 06 MOV R6,A E64B 52 9E MOV %>9E,B E64D EF TRAP 16 E64E F6 TRAP 9 E64F 80 1C MOVP P28,A E651 B8 PUSH A E652 23 01 AND %>01,A E654 52 A1 MOV %>A1,B E656 EF TRAP 16 E657 B9 POP A E658 BD RRC A E659 52 A6 MOV %>A6,B E65B EF TRAP 16 E65C 8A 62 4E LDA @L624E E65F C0 MOV A,B E660 CE RL B E661 C7 SWAP B E662 53 03 AND %>03,B E664 AA E6 AD LDA @LE6AD(B) E667 52 AB MOV %>AB,B E669 F3 TRAP 12 E66A 32 1D MOV R29,B E66C 53 7F AND %>7F,B E66E AA E6 B1 LDA @LE6B1(B) E671 F2 TRAP 13 E672 52 AE MOV %>AE,B E674 8A 62 52 LDA @L6252 E677 EF TRAP 16 E678 8A 62 51 LDA @L6251 E67B F0 TRAP 15 E67C 8A 62 50 LDA @L6250 E67F F0 TRAP 15 E680 DB 54 DECD R84 E682 E7 26 JNC LE6AA E684 12 19 MOV R25,A E686 E2 03 JZ LE68B E688 8C E6 0F BR @LE60F E68B 12 1A LE68B MOV R26,A E68D E2 03 JZ LE692 E68F 8C E6 0A BR @LE60A E692 88 62 41 47 LE692 MOVD %L6241,R71 E696 52 06 MOV %>06,B E698 B5 CLR A E699 9B 47 LE699 STA *R71 E69B DB 47 DECD R71 E69D CA FA DJNZ B,LE699 TMS7000 Assembler Version 3.0 RUN Chip PAGE 66 E69F 22 FF MOV %>FF,A E6A1 8B 62 42 STA @L6242 E6A4 8B 62 43 STA @L6243 E6A7 8C E5 F6 BR @LE5F6 E6AA 8C EA E6 LE6AA BR @LEAE6 ; ; ; E6AD 15 17 05 01 LE6AD BYTE >15,>17,>05,>01 ;"SUFB: ; E6B1 0C 04 01 0B LE6B1 BYTE >0C,>04,>01,>0B,>00 ;"MEBLA" ; ; ; E6B6 EA LE6B6 TRAP 21 E6B7 72 0B 21 MOV %>0B,R33 E6BA 88 FB 37 58 MOVD %LFB37,R88 E6BE ED TRAP 18 E6BF F6 TRAP 9 E6C0 88 F8 07 47 LE6C0 MOVD %LF807,R71 E6C4 52 14 MOV %>14,B E6C6 8A 62 A2 LDA @L62A2 E6C9 27 01 02 BTJZ %>01,A,LE6CE E6CC 52 3C MOV %>3C,B E6CE 8E D0 C6 LE6CE CALL @LD0C6 E6D1 52 3C MOV %>3C,B E6D3 88 F7 F8 47 MOVD %LF7F8,R71 E6D7 8A 62 A2 LDA @L62A2 E6DA 27 01 02 BTJZ %>01,A,LE6DF E6DD 52 14 MOV %>14,B E6DF 8E D0 C6 LE6DF CALL @LD0C6 E6E2 22 1F MOV %>1F,A E6E4 52 3C MOV %>3C,B E6E6 F3 TRAP 12 E6E7 22 2F MOV %>2F,A E6E9 52 4F MOV %>4F,B E6EB F3 TRAP 12 E6EC 8A 62 A2 LDA @L62A2 E6EF 27 02 0A BTJZ %>02,A,LE6FC E6F2 88 F8 43 47 MOVD %LF843,R71 E6F6 88 F8 52 58 MOVD %LF852,R88 E6FA E0 08 JMP LE704 E6FC 88 F8 34 47 LE6FC MOVD %LF834,R71 E700 88 F8 61 58 MOVD %LF861,R88 E704 52 78 LE704 MOV %>78,B E706 8E D0 C6 CALL @LD0C6 E709 98 58 47 MOVD R88,R71 E70C 52 A0 MOV %>A0,B E70E 8E D0 C6 CALL @LD0C6 E711 22 01 MOV %>01,A E713 EB TRAP 20 E714 F6 LE714 TRAP 9 E715 12 1A MOV R26,A E717 E6 03 JNZ LE71C E719 8C E5 83 BR @LE583 E71C 8A 62 7F LE71C LDA @L627F E71F B2 DEC A TMS7000 Assembler Version 3.0 RUN Chip PAGE 67 E720 E2 0B JZ LE72D E722 B2 DEC A E723 E2 02 JZ LE727 E725 E0 ED JMP LE714 E727 88 00 02 01 LE727 MOVD %>0002,R1 ; E72B E0 04 JMP LE731 E72D 88 00 01 01 LE72D MOVD %>0001,R1 ; E731 8A 62 A2 LE731 LDA @L62A2 E734 65 XOR B,A E735 8B 62 A2 STA @L62A2 E738 8C E6 C0 BR @LE6C0 ; E73B 8A 62 7E LE73B LDA @L627E E73E C0 MOV A,B E73F 8E E3 13 CALL @LE313 E742 8C E5 83 BR @LE583 ; E745 5A 05 LE745 SUB %>05,B E747 D1 2B MOV B,R43 E749 72 03 2A MOV %>03,R42 E74C EA LE74C TRAP 21 E74D 72 04 21 MOV %>04,R33 E750 88 FB 49 58 MOVD %LFB49,R88 E754 88 62 92 47 MOVD %L6292,R71 E758 9A 47 LDA *R71 E75A E1 2C JN LE788 E75C ED TRAP 18 E75D F6 TRAP 9 E75E 22 08 MOV %>08,A E760 52 AB MOV %>AB,B E762 EB TRAP 20 E763 12 2B MOV R43,A E765 E6 05 JNZ LE76C E767 8E F1 B5 CALL @LF1B5 E76A E0 03 JMP LE76F E76C 8E E4 95 LE76C CALL @LE495 E76F E2 17 LE76F JZ LE788 E771 72 21 54 MOV %>21,R84 E774 88 F9 AB 47 MOVD %LF9AB,R71 E778 8E D0 C4 CALL @LD0C4 E77B F6 LE77B TRAP 9 E77C DA 54 FC DJNZ R84,LE77B E77F DA 2A CA DJNZ R42,LE74C E782 72 03 2A MOV %>03,R42 E785 8C E9 B2 BR @LE9B2 E788 EA LE788 TRAP 21 E789 72 0E 21 MOV %>0E,R33 E78C 88 FB 5B 58 MOVD %LFB5B,R88 E790 ED TRAP 18 E791 F6 TRAP 9 E792 22 08 MOV %>08,A E794 52 AB MOV %>AB,B E796 EB TRAP 20 E797 52 08 MOV %>08,B E799 AA 62 7E LE799 LDA @L627E(B) E79C AB 62 99 STA @L6299(B) E79F CA F8 DJNZ B,LE799 TMS7000 Assembler Version 3.0 RUN Chip PAGE 68 E7A1 EA TRAP 21 E7A2 72 04 21 MOV %>04,R33 E7A5 88 FB 6D 58 MOVD %LFB6D,R88 E7A9 ED TRAP 18 E7AA F6 TRAP 9 E7AB 22 08 MOV %>08,A E7AD 52 AB MOV %>AB,B E7AF EB TRAP 20 E7B0 52 08 MOV %>08,B E7B2 AA 62 7E LE7B2 LDA @L627E(B) E7B5 AD 62 99 CMPA @L6299(B) E7B8 E6 2C JNZ LE7E6 E7BA CA F6 DJNZ B,LE7B2 E7BC EA TRAP 21 E7BD 72 04 21 MOV %>04,R33 E7C0 52 08 MOV %>08,B E7C2 12 2B MOV R43,A E7C4 E6 10 JNZ LE7D6 E7C6 AA 62 99 LE7C6 LDA @L6299(B) E7C9 AB 62 89 STA @L6289(B) E7CC CA F8 DJNZ B,LE7C6 E7CE 88 FB 7F 58 MOVD %LFB7F,R88 E7D2 ED TRAP 18 E7D3 F6 TRAP 9 E7D4 E0 19 JMP LE7EF E7D6 AA 62 99 LE7D6 LDA @L6299(B) E7D9 AB 62 91 STA @L6291(B) E7DC CA F8 DJNZ B,LE7D6 E7DE 88 FB 7F 58 MOVD %LFB7F,R88 E7E2 ED TRAP 18 E7E3 F6 TRAP 9 E7E4 E0 09 JMP LE7EF E7E6 EA LE7E6 TRAP 21 E7E7 72 04 21 MOV %>04,R33 E7EA 88 FB 91 58 MOVD %LFB91,R88 E7EE ED TRAP 18 E7EF 72 2D 54 LE7EF MOV %>2D,R84 E7F2 F6 LE7F2 TRAP 9 E7F3 DA 54 FC DJNZ R84,LE7F2 E7F6 8C E5 83 BR @LE583 ; E7F9 EA LE7F9 TRAP 21 E7FA 72 00 21 MOV %>00,R33 E7FD 42 1D 28 MOV R29,R40 E800 8A 62 45 LDA @L6245 E803 23 10 AND %>10,A E805 D0 29 MOV A,R41 E807 88 FB C7 58 MOVD %LFBC7,R88 E80B ED TRAP 18 E80C 88 06 97 54 MOVD %L0697,R84 E810 F6 LE810 TRAP 9 E811 F6 TRAP 9 E812 DB 54 DECD R84 E814 E3 03 JC LE819 E816 8C EA E6 BR @LEAE6 E819 F6 LE819 TRAP 9 E81A 8A 62 3B LDA @L623B TMS7000 Assembler Version 3.0 RUN Chip PAGE 69 E81D D0 4C MOV A,R76 E81F E6 14 JNZ LE835 E821 D5 2B CLR R43 E823 8E E8 E8 CALL @LE8E8 E826 72 07 10 MOV %>07,R16 E829 88 FA F5 47 MOVD %LFAF5,R71 E82D 52 34 MOV %>34,B E82F 8E D0 C9 CALL @LD0C9 E832 8C E8 BC BR @LE8BC E835 12 2B LE835 MOV R43,A E837 E6 0A JNZ LE843 E839 22 2E MOV %>2E,A E83B 72 19 4D MOV %>19,R77 E83E 52 36 MOV %>36,B E840 8E D1 42 CALL @LD142 E843 42 4C 2B LE843 MOV R76,R43 E846 D5 50 CLR R80 E848 8E F1 8F CALL @LF18F E84B 12 4C MOV R76,A E84D 52 36 MOV %>36,B E84F 8E D0 AB CALL @LD0AB E852 22 37 MOV %>37,A E854 F2 TRAP 13 E855 8A 62 3A LDA @L623A E858 C0 MOV A,B E859 8A 62 39 LDA @L6239 E85C BD RRC A E85D CD RRC B E85E BD RRC A E85F CD RRC B E860 BD RRC A E861 CD RRC B E862 BD RRC A E863 CD RRC B E864 D1 4C MOV B,R76 E866 D5 50 CLR R80 E868 8E F1 8F CALL @LF18F E86B 12 4C MOV R76,A E86D 52 39 MOV %>39,B E86F 8E D0 AB CALL @LD0AB E872 52 3C MOV %>3C,B E874 88 FB 0A 47 MOVD %LFB0A,R71 E878 8E D0 C6 CALL @LD0C6 E87B 4D 1D 28 CMP R29,R40 E87E E6 0B JNZ LE88B E880 8A 62 45 LDA @L6245 E883 23 10 AND %>10,A E885 1D 29 CMP R41,A E887 E2 08 JZ LE891 E889 D0 29 MOV A,R41 E88B 42 1D 28 LE88B MOV R29,R40 E88E 8E E8 E8 CALL @LE8E8 E891 12 29 LE891 MOV R41,A E893 E6 0E JNZ LE8A3 E895 88 FA E3 47 MOVD %LFAE3,R71 E899 72 01 10 MOV %>01,R16 E89C 52 5C MOV %>5C,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 70 E89E 8E D0 C9 CALL @LD0C9 E8A1 E0 10 JMP LE8B3 E8A3 8A 62 69 LE8A3 LDA @L6269 E8A6 52 5C MOV %>5C,B E8A8 EF TRAP 16 E8A9 12 1D MOV R29,A E8AB E6 0F JNZ LE8BC E8AD 12 05 MOV R5,A E8AF 23 F0 AND %>F0,A E8B1 E6 09 JNZ LE8BC E8B3 88 FA E6 47 LE8B3 MOVD %LFAE6,R71 E8B7 52 64 MOV %>64,B E8B9 8E D0 C6 CALL @LD0C6 E8BC F6 LE8BC TRAP 9 E8BD 88 61 F6 58 MOVD %L61F6,R88 E8C1 52 06 MOV %>06,B E8C3 88 FA D7 47 MOVD %LFAD7,R71 E8C7 D5 2A CLR R42 E8C9 D3 58 LE8C9 INC R88 E8CB 79 00 57 ADC %>00,R87 E8CE 9A 58 LDA *R88 E8D0 44 00 2A OR R0,R42 E8D3 CA F4 DJNZ B,LE8C9 E8D5 12 2A MOV R42,A E8D7 E6 04 JNZ LE8DD E8D9 88 FA DD 47 MOVD %LFADD,R71 E8DD 72 02 10 LE8DD MOV %>02,R16 E8E0 52 82 MOV %>82,B E8E2 8E D0 C9 CALL @LD0C9 E8E5 8C E8 10 BR @LE810 E8E8 52 5C LE8E8 MOV %>5C,B E8EA 22 2E MOV %>2E,A E8EC 72 1B 4D MOV %>1B,R77 E8EF 8E D1 42 CALL @LD142 E8F2 0A RETS E8F3 12 22 LE8F3 MOV R34,A E8F5 E6 01 JNZ LE8F8 E8F7 0A RETS E8F8 2A 46 LE8F8 SUB %>46,A E8FA E5 02 JPZ LE8FE E8FC 22 01 MOV %>01,A E8FE 8B 62 3B LE8FE STA @L623B E901 D0 22 MOV A,R34 E903 8A 62 3A LDA @L623A E906 C0 MOV A,B E907 8A 62 39 LDA @L6239 E90A D0 46 MOV A,R70 E90C D1 47 MOV B,R71 E90E BD RRC A E90F CD RRC B E910 BD RRC A E911 CD RRC B E912 BD RRC A E913 CD RRC B E914 BD RRC A E915 CD RRC B E916 4A 01 47 SUB R1,R71 TMS7000 Assembler Version 3.0 RUN Chip PAGE 71 E919 7B 00 46 SBB %>00,R70 E91C 48 22 47 ADD R34,R71 E91F 79 00 46 ADC %>00,R70 E922 12 47 MOV R71,A E924 8B 62 3A STA @L623A E927 12 46 MOV R70,A E929 8B 62 39 STA @L6239 E92C D5 22 CLR R34 E92E 0A RETS ; E92F C2 DEC B E930 22 2E MOV %>2E,A E932 F3 TRAP 12 E933 C5 CLR B E934 12 50 MOV R80,A E936 B7 SWAP A E937 8E E9 53 CALL @LE953 E93A 12 50 MOV R80,A E93C 8E E9 53 CALL @LE953 E93F 12 4C MOV R76,A E941 B7 SWAP A E942 8E E9 53 CALL @LE953 E945 52 FF MOV %>FF,B E947 12 4C MOV R76,A E949 8E E9 53 CALL @LE953 E94C 22 2D MOV %>2D,A E94E F2 TRAP 13 E94F 12 4D MOV R77,A E951 F0 TRAP 15 E952 0A RETS ; E953 23 0F LE953 AND %>0F,A E955 E6 03 JNZ LE95A E957 C1 TSTB E958 E2 05 JZ LE95F E95A 52 FF LE95A MOV %>FF,B E95C 28 20 ADD %>20,A E95E F2 TRAP 13 E95F 0A LE95F RETS ; E960 72 04 4C MOV %>04,R76 E963 E0 03 JMP LE968 E965 72 02 4C LE965 MOV %>02,R76 E968 42 4C 4D LE968 MOV R76,R77 E96B 12 10 MOV R16,A E96D E6 01 JNZ LE970 E96F 0A RETS E970 9A 47 LE970 LDA *R71 E972 EF TRAP 16 E973 D2 4D DEC R77 E975 D3 47 LE975 INC R71 E977 79 00 46 ADC %>00,R70 E97A D2 10 DEC R16 E97C E6 01 JNZ LE97F E97E 0A RETS E97F 9A 47 LE97F LDA *R71 E981 F0 TRAP 15 TMS7000 Assembler Version 3.0 RUN Chip PAGE 72 E982 D2 4D DEC R77 E984 E6 EF JNZ LE975 E986 22 2E MOV %>2E,A E988 F2 TRAP 13 E989 42 4C 4D MOV R76,R77 E98C E0 E7 JMP LE975 E98E 72 FF 4D MOV %>FF,R77 E991 9A 47 LE991 LDA *R71 E993 52 08 MOV %>08,B E995 45 00 4D LE995 XOR R0,R77 E998 23 7F AND %>7F,A E99A 45 00 4D XOR R0,R77 E99D BE RL A E99E DE 4D RL R77 E9A0 E7 03 JNC LE9A5 E9A2 75 9A 4D XOR %>9A,R77 E9A5 CA EE LE9A5 DJNZ B,LE995 E9A7 D3 47 INC R71 E9A9 79 00 46 ADC %>00,R70 E9AC DA 10 E2 DJNZ R16,LE991 E9AF 12 4D MOV R77,A E9B1 0A RETS ; ; HELP, MESSAGE, TEXT, VIEW ; E9B2 EA LE9B2 TRAP 21 E9B3 72 08 21 MOV %>08,R33 E9B6 F6 TRAP 9 E9B7 73 60 20 AND %>60,R32 E9BA D5 1F CLR R31 E9BC EA LE9BC TRAP 21 E9BD 8E F4 89 CALL @LF489 E9C0 8E EB BE CALL @LEBBE E9C3 F6 TRAP 9 E9C4 F6 TRAP 9 E9C5 F6 LE9C5 TRAP 9 E9C6 7D 80 35 CMP %>80,R53 E9C9 E6 05 JNZ LE9D0 E9CB 74 60 20 OR %>60,R32 E9CE E0 F5 JMP LE9C5 E9D0 8A 62 A2 LE9D0 LDA @L62A2 E9D3 26 02 0A BTJO %>02,A,LE9E0 E9D6 8E EB 9E CALL @LEB9E E9D9 E1 05 JN LE9E0 E9DB 8E EB 59 CALL @LEB59 E9DE E0 E5 JMP LE9C5 E9E0 F6 LE9E0 TRAP 9 E9E1 77 20 1F 03 BTJZ %>20,R31,LE9E8 E9E5 8C EA 1B BR @LEA1B E9E8 12 15 LE9E8 MOV R21,A E9EA 23 60 AND %>60,A E9EC 8D 62 A3 CMPA @L62A3 E9EF E2 06 JZ LE9F7 E9F1 8B 62 A3 STA @L62A3 E9F4 73 FB 1F AND %>FB,R31 E9F7 76 80 1D 0E LE9F7 BTJO %>80,R29,LEA09 E9FB 77 FF 1E 1C BTJZ %>FF,R30,LEA1B TMS7000 Assembler Version 3.0 RUN Chip PAGE 73 E9FF 76 07 1D 02 BTJO %>07,R29,LEA05 EA03 E0 16 JMP LEA1B EA05 76 04 1F 12 LEA05 BTJO %>04,R31,LEA1B EA09 32 1D LEA09 MOV R29,B EA0B 53 07 AND %>07,B EA0D 5D 04 CMP %>04,B EA0F E6 04 JNZ LEA15 EA11 76 01 1F 06 BTJO %>01,R31,LEA1B EA15 74 05 1F LEA15 OR %>05,R31 EA18 8C EC AD BR @LECAD EA1B 7D 01 1D LEA1B CMP %>01,R29 EA1E E2 4C JZ LEA6C EA20 8A 62 46 LDA @L6246 EA23 E6 47 JNZ LEA6C EA25 8A 62 B7 LDA @L62B7 EA28 E6 4B JNZ LEA75 EA2A 8A 62 B8 LDA @L62B8 EA2D E2 3D JZ LEA6C EA2F 8A 61 E5 LDA @L61E5 EA32 E2 38 JZ LEA6C EA34 8D 62 53 CMPA @L6253 EA37 E6 33 JNZ LEA6C EA39 8A 62 B5 LDA @L62B5 EA3C 26 80 2D BTJO %>80,A,LEA6C EA3F 8A 62 50 LDA @L6250 EA42 D0 27 MOV A,R39 EA44 8A 62 51 LDA @L6251 EA47 D0 28 MOV A,R40 EA49 8A 62 52 LDA @L6252 EA4C D0 29 MOV A,R41 EA4E 8A 61 F3 LDA @L61F3 EA51 D0 2A MOV A,R42 EA53 8A 61 F4 LDA @L61F4 EA56 D0 2B MOV A,R43 EA58 8A 61 F5 LDA @L61F5 EA5B D0 2C MOV A,R44 EA5D 8E EB 00 CALL @LEB00 EA60 E5 1C JPZ LEA7E EA62 8E EB 0A CALL @LEB0A EA65 E2 17 JZ LEA7E EA67 22 80 LEA67 MOV %>80,A EA69 8B 62 B5 STA @L62B5 EA6C 77 40 1F 05 LEA6C BTJZ %>40,R31,LEA75 EA70 D5 20 CLR R32 EA72 8C E9 BC BR @LE9BC EA75 76 40 1F 02 LEA75 BTJO %>40,R31,LEA7B EA79 D5 20 CLR R32 EA7B 8C E9 C5 LEA7B BR @LE9C5 ; EA7E 8A 62 B9 LEA7E LDA @L62B9 EA81 E6 F2 JNZ LEA75 EA83 8A 62 BA LDA @L62BA EA86 E6 ED JNZ LEA75 EA88 8E EA F0 CALL @LEAF0 EA8B 8E EB 00 CALL @LEB00 EA8E E5 DC JPZ LEA6C EA90 D5 20 CLR R32 TMS7000 Assembler Version 3.0 RUN Chip PAGE 74 EA92 8A 61 EF LDA @L61EF EA95 27 08 03 BTJZ %>08,A,LEA9B EA98 74 20 20 OR %>20,R32 EA9B 26 02 03 LEA9B BTJO %>02,A,LEAA1 EA9E 74 40 20 OR %>40,R32 EAA1 8A 62 B8 LEAA1 LDA @L62B8 EAA4 8D 62 B6 CMPA @L62B6 EAA7 E6 08 JNZ LEAB1 EAA9 76 20 1F BF BTJO %>20,R31,LEA6C EAAD 76 40 1F 30 BTJO %>40,R31,LEAE1 EAB1 73 DF 1F LEAB1 AND %>DF,R31 EAB4 8B 62 B6 STA @L62B6 EAB7 F6 TRAP 9 EAB8 8E EB BE CALL @LEBBE EABB F6 TRAP 9 EABC 88 62 B8 58 MOVD %L62B8,R88 EAC0 8E D1 53 CALL @LD153 EAC3 8A 61 EF LDA @L61EF EAC6 27 10 0C BTJZ %>10,A,LEAD5 EAC9 52 A5 MOV %>A5,B EACB 88 62 55 47 MOVD %L6255,R71 EACF 72 04 10 MOV %>04,R16 EAD2 8E E9 65 CALL @LE965 EAD5 74 40 1F LEAD5 OR %>40,R31 EAD8 8E EB 0A CALL @LEB0A EADB E2 8A JZ LEA67 EADD 88 08 CA 54 MOVD %L08CA,R84 EAE1 F6 LEAE1 TRAP 9 EAE2 DB 54 DECD R84 EAE4 E3 8F JC LEA75 EAE6 D5 19 LEAE6 CLR R25 EAE8 74 20 1F OR %>20,R31 EAEB D5 20 CLR R32 EAED 8C E9 BC BR @LE9BC EAF0 8A 61 F0 LEAF0 LDA @L61F0 EAF3 D0 2A MOV A,R42 EAF5 8A 61 F1 LDA @L61F1 EAF8 D0 2B MOV A,R43 EAFA 8A 61 F2 LDA @L61F2 EAFD D0 2C MOV A,R44 EAFF 0A RETS ; EB00 4A 27 2A LEB00 SUB R39,R42 EB03 4B 28 2B SBB R40,R43 EB06 4B 29 2C SBB R41,R44 EB09 0A RETS ; EB0A 52 FF LEB0A MOV %>FF,B EB0C 8A 61 F0 LDA @L61F0 EB0F 8D 61 F3 CMPA @L61F3 EB12 E6 11 JNZ LEB25 EB14 8A 61 F1 LDA @L61F1 EB17 8D 61 F4 CMPA @L61F4 EB1A E6 09 JNZ LEB25 EB1C 8A 61 F2 LDA @L61F2 EB1F 8D 61 F5 CMPA @L61F5 EB22 E6 01 JNZ LEB25 TMS7000 Assembler Version 3.0 RUN Chip PAGE 75 EB24 C5 CLR B EB25 0A LEB25 RETS EB26 B9 POP A EB27 8B 62 37 STA @L6237 EB2A B9 POP A EB2B 8B 62 38 STA @L6238 EB2E D5 20 CLR R32 EB30 77 40 1F 04 BTJZ %>40,R31,LEB38 EB34 8E EB BE CALL @LEBBE EB37 F6 TRAP 9 EB38 72 04 28 LEB38 MOV %>04,R40 EB3B 22 36 LEB3B MOV %>36,A EB3D 77 01 28 02 BTJZ %>01,R40,LEB43 EB41 22 0F MOV %>0F,A EB43 52 13 LEB43 MOV %>13,B EB45 F3 TRAP 12 EB46 72 07 54 MOV %>07,R84 EB49 F6 LEB49 TRAP 9 EB4A DA 54 FC DJNZ R84,LEB49 EB4D DA 28 EB DJNZ R40,LEB3B EB50 8A 62 38 LDA @L6238 EB53 B8 PUSH A EB54 8A 62 37 LDA @L6237 EB57 B8 PUSH A EB58 0A RETS EB59 B9 LEB59 POP A EB5A 8B 62 37 STA @L6237 EB5D B9 POP A EB5E 8B 62 38 STA @L6238 EB61 D5 20 CLR R32 EB63 77 40 1F 04 BTJZ %>40,R31,LEB6B EB67 8E EB BE CALL @LEBBE EB6A F6 TRAP 9 EB6B 9A 58 LEB6B LDA *R88 EB6D C0 MOV A,B EB6E B5 CLR A EB6F 9B 58 STA *R88 EB71 DB 58 DECD R88 EB73 9A 58 LDA *R88 EB75 24 80 OR %>80,A EB77 9B 58 STA *R88 EB79 7A 02 58 SUB %>02,R88 EB7C 7B 00 57 SBB %>00,R87 EB7F 5C 18 MPY %>18,B EB81 98 01 54 MOVD R1,R84 EB84 D3 54 INC R84 EB86 79 00 53 ADC %>00,R83 EB89 8E D1 53 CALL @LD153 EB8C F6 LEB8C TRAP 9 EB8D DB 54 DECD R84 EB8F E3 FB JC LEB8C EB91 8E EB BE CALL @LEBBE EB94 F6 TRAP 9 EB95 8A 62 38 LDA @L6238 EB98 B8 PUSH A EB99 8A 62 37 LDA @L6237 EB9C B8 PUSH A TMS7000 Assembler Version 3.0 RUN Chip PAGE 76 EB9D 0A RETS EB9E 72 05 29 LEB9E MOV %>05,R41 EBA1 8A 65 C7 LDA @L65C7 EBA4 DA 29 02 LEBA4 DJNZ R41,LEBA9 EBA7 E0 09 JMP LEBB2 EBA9 D0 28 LEBA9 MOV A,R40 EBAB 12 28 MOV R40,A EBAD 8D 65 C6 CMPA @L65C6 EBB0 E6 03 JNZ LEBB5 EBB2 22 FF LEBB2 MOV %>FF,A EBB4 0A RETS EBB5 C0 LEBB5 MOV A,B EBB6 AA 65 BE LDA @L65BE(B) EBB9 E0 E9 JMP LEBA4 EBBB 12 28 MOV R40,A EBBD 0A RETS EBBE 22 0F LEBBE MOV %>0F,A EBC0 EE TRAP 17 EBC1 73 BF 1F AND %>BF,R31 EBC4 7D 83 35 CMP %>83,R53 EBC7 E6 08 JNZ LEBD1 EBC9 D2 35 DEC R53 EBCB 72 30 34 MOV %>30,R52 EBCE 72 01 37 MOV %>01,R55 EBD1 0A LEBD1 RETS ; ; Command >09 ; EBD2 32 08 LEBD2 MOV R8,B EBD4 8A 62 57 LDA @L6257 EBD7 AD 60 03 CMPA @L6003(B) EBDA E2 03 JZ LEBDF EBDC 8C D2 E3 LEBDC BR @LD2E3 EBDF 8A 62 56 LEBDF LDA @L6256 EBE2 AD 60 04 CMPA @L6004(B) EBE5 E6 F5 JNZ LEBDC EBE7 8A 62 55 LDA @L6255 EBEA AD 60 05 CMPA @L6005(B) EBED E6 ED JNZ LEBDC EBEF AA 60 28 LDA @L6028(B) EBF2 8D 62 69 CMPA @L6269 EBF5 E6 E5 JNZ LEBDC EBF7 AA 60 06 LDA @L6006(B) EBFA 2D 04 CMP %>04,A EBFC E3 DE JC LEBDC EBFE 2C 81 MPY %>81,A EC00 88 63 BA 5A MOVD %L63BA,R90 EC04 48 01 5A ADD R1,R90 EC07 49 00 59 ADC R0,R89 EC0A 9A 5A LDA *R90 EC0C 32 08 MOV R8,B EC0E AA 60 07 LDA @L6007(B) EC11 9D 5A CMPA *R90 EC13 E2 74 JZ LEC89 EC15 9B 5A STA *R90 EC17 27 40 08 BTJZ %>40,A,LEC22 EC1A 22 FF MOV %>FF,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 77 EC1C 8B 62 92 STA @L6292 EC1F 8B 62 8A STA @L628A EC22 22 FF LEC22 MOV %>FF,A EC24 D3 5A INC R90 EC26 79 00 59 ADC %>00,R89 EC29 9B 5A STA *R90 EC2B DB 5A DECD R90 EC2D 32 08 LEC2D MOV R8,B EC2F 58 07 ADD %>07,B EC31 8E E0 A7 CALL @LE0A7 EC34 8A 62 AC LDA @L62AC EC37 26 0F 49 BTJO %>0F,A,LEC83 EC3A 32 08 MOV R8,B EC3C 58 05 ADD %>05,B EC3E AA 60 01 LDA @L6001(B) EC41 8D 65 C6 CMPA @L65C6 EC44 E2 3D JZ LEC83 EC46 8D 65 C7 CMPA @L65C7 EC49 E6 09 JNZ LEC54 EC4B C0 MOV A,B EC4C AA 65 BE LDA @L65BE(B) EC4F 8B 65 C7 STA @L65C7 EC52 E0 22 JMP LEC76 EC54 D0 0A LEC54 MOV A,R10 EC56 32 0A MOV R10,B EC58 AA 65 C2 LDA @L65C2(B) EC5B B8 PUSH A EC5C 32 0A MOV R10,B EC5E AA 65 BE LDA @L65BE(B) EC61 C9 POP B EC62 AB 65 BE STA @L65BE(B) EC65 32 0A MOV R10,B EC67 AA 65 BE LDA @L65BE(B) EC6A B8 PUSH A EC6B 32 0A MOV R10,B EC6D AA 65 C2 LDA @L65C2(B) EC70 C9 POP B EC71 AB 65 C2 STA @L65C2(B) EC74 32 0A MOV R10,B EC76 8A 65 C6 LEC76 LDA @L65C6 EC79 AB 65 C2 STA @L65C2(B) EC7C B6 XCHB A EC7D AB 65 BE STA @L65BE(B) EC80 8B 65 C6 STA @L65C6 EC83 8E E1 34 LEC83 CALL @LE134 EC86 8C D2 E3 BR @LD2E3 EC89 D3 5A LEC89 INC R90 EC8B 79 00 59 ADC %>00,R89 EC8E 9A 5A LDA *R90 EC90 C0 MOV A,B EC91 D3 5A INC R90 EC93 79 00 59 ADC %>00,R89 EC96 9A 5A LDA *R90 EC98 7A 02 5A SUB %>02,R90 EC9B 7B 00 59 SBB %>00,R89 EC9E C1 TSTB EC9F E6 8C JNZ LEC2D TMS7000 Assembler Version 3.0 RUN Chip PAGE 78 ECA1 26 0F 89 BTJO %>0F,A,LEC2D ECA4 8C D2 E3 BR @LD2E3 ; ; TRAP 21 ; ECA7 D9 5E LECA7 POP R94 ECA9 D9 5D POP R93 ECAB 9C 5E BR *R94 ECAD F6 LECAD TRAP 9 ECAE EA TRAP 21 ECAF 72 08 21 MOV %>08,R33 ECB2 D5 19 CLR R25 ECB4 D5 2C CLR R44 ECB6 8A 62 4D LDA @L624D ECB9 D0 29 MOV A,R41 ECBB 8E F1 D5 CALL @LF1D5 ECBE 12 2A MOV R42,A ECC0 26 08 08 BTJO %>08,A,LECCB ECC3 26 78 0B BTJO %>78,A,LECD1 ECC6 8E F1 C2 CALL @LF1C2 ECC9 E1 06 JN LECD1 ECCB 72 06 21 LECCB MOV %>06,R33 ECCE 8C ED CB BR @LEDCB ECD1 72 2E 54 LECD1 MOV %>2E,R84 ECD4 F6 TRAP 9 ECD5 22 0F MOV %>0F,A ECD7 EE TRAP 17 ECD8 F6 TRAP 9 ECD9 EA TRAP 21 ECDA 72 08 21 MOV %>08,R33 ECDD D5 2B CLR R43 ECDF 77 80 2A 03 BTJZ %>80,R42,LECE6 ECE3 8C E9 BC BR @LE9BC ECE6 77 10 2A 0C LECE6 BTJZ %>10,R42,LECF6 ECEA 88 F7 35 47 MOVD %LF735,R71 ECEE 52 78 MOV %>78,B ECF0 8E D0 B9 CALL @LD0B9 ECF3 8C ED AD BR @LEDAD ECF6 88 00 E1 54 LECF6 MOVD %L00E1,R84 ECFA EA TRAP 21 ECFB 72 08 21 MOV %>08,R33 ECFE 77 20 2A 27 BTJZ %>20,R42,LED29 ED02 32 28 MOV R40,B ED04 58 02 ADD %>02,B ED06 F5 TRAP 10 ED07 AA 61 00 LDA @L6100(B) ED0A 27 04 03 BTJZ %>04,A,LED10 ED0D 8C E9 BC BR @LE9BC ED10 52 78 LED10 MOV %>78,B ED12 88 F6 CC 47 MOVD %LF6CC,R71 ED16 8A 62 6B LDA @L626B ED19 E2 21 JZ LED3C ED1B 52 64 MOV %>64,B ED1D 88 F6 9F 47 MOVD %LF69F,R71 ED21 72 0F 10 MOV %>0F,R16 ED24 8E D0 C9 CALL @LD0C9 ED27 E0 20 JMP LED49 TMS7000 Assembler Version 3.0 RUN Chip PAGE 79 ED29 77 40 2A 5E LED29 BTJZ %>40,R42,LED8B ED2D 8E F1 CC CALL @LF1CC ED30 88 F9 C9 47 MOVD %LF9C9,R71 ED34 52 50 MOV %>50,B ED36 76 80 2B 02 BTJO %>80,R43,LED3C ED3A 52 78 MOV %>78,B ED3C 8E D0 C6 LED3C CALL @LD0C6 ED3F 88 FA 05 47 MOVD %LFA05,R71 ED43 72 05 10 MOV %>05,R16 ED46 8E D0 E3 CALL @LD0E3 ED49 77 80 2B 60 LED49 BTJZ %>80,R43,LEDAD ED4D 8E F4 2C CALL @LF42C ED50 77 40 2B 59 BTJZ %>40,R43,LEDAD ED54 77 80 35 55 BTJZ %>80,R53,LEDAD ED58 8A 62 49 LDA @L6249 ED5B E6 2B JNZ LED88 ED5D 72 43 54 MOV %>43,R84 ED60 EA TRAP 21 ED61 72 08 21 MOV %>08,R33 ED64 F6 LED64 TRAP 9 ED65 8E F0 E7 CALL @LF0E7 ED68 DA 54 F9 DJNZ R84,LED64 ED6B 12 2B MOV R43,A ED6D 8E E4 E4 CALL @LE4E4 ED70 56 01 0A BTJO %>01,B,LED7D ED73 B6 XCHB A ED74 8B 62 49 STA @L6249 ED77 72 05 13 MOV %>05,R19 ED7A 8C FD E4 BR @LFDE4 ED7D 88 00 E1 54 LED7D MOVD %L00E1,R84 ED81 DB 54 LED81 DECD R84 ED83 8E F0 E7 CALL @LF0E7 ED86 E3 F9 JC LED81 ED88 8C E9 BC LED88 BR @LE9BC ED8B 72 43 54 LED8B MOV %>43,R84 ED8E EA TRAP 21 ED8F 72 08 21 MOV %>08,R33 ED92 D5 20 CLR R32 ED94 32 28 MOV R40,B ED96 F5 TRAP 10 ED97 AA 61 13 LDA @L6113(B) ED9A 27 10 09 BTJZ %>10,A,LEDA6 ED9D 52 64 MOV %>64,B ED9F 88 FA 14 47 MOVD %LFA14,R71 EDA3 8E D0 C6 CALL @LD0C6 EDA6 12 28 LEDA6 MOV R40,A EDA8 52 78 MOV %>78,B EDAA 8E F1 24 CALL @LF124 EDAD F6 LEDAD TRAP 9 EDAE 8E F4 89 CALL @LF489 EDB1 8E F0 E7 CALL @LF0E7 EDB4 76 30 2A 0D BTJO %>30,R42,LEDC5 EDB8 32 28 MOV R40,B EDBA 58 02 ADD %>02,B EDBC F5 TRAP 10 EDBD 8E DF 4D CALL @LDF4D EDC0 52 A0 MOV %>A0,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 80 EDC2 8E E0 2F CALL @LE02F EDC5 DA 54 E5 LEDC5 DJNZ R84,LEDAD EDC8 8C E9 BC BR @LE9BC EDCB 72 40 20 LEDCB MOV %>40,R32 EDCE 22 2E MOV %>2E,A EDD0 EE TRAP 17 EDD1 74 10 1F OR %>10,R31 EDD4 F6 TRAP 9 EDD5 88 FA 7D 47 MOVD %LFA7D,R71 EDD9 8E D0 C4 CALL @LD0C4 EDDC 77 80 2A 5F BTJZ %>80,R42,LEE3F EDE0 52 64 MOV %>64,B EDE2 88 FA 41 47 MOVD %LFA41,R71 EDE6 8E D0 C6 CALL @LD0C6 EDE9 88 1A 5E 54 MOVD %>1A5E,R84 EDED EC LEDED TRAP 19 EDEE F6 LEDEE TRAP 9 EDEF 52 3C MOV %>3C,B EDF1 72 03 10 MOV %>03,R16 EDF4 88 F7 08 47 MOVD %LF708,R71 EDF8 8E D0 C9 CALL @LD0C9 EDFB 8A 62 4F LDA @L624F EDFE 52 4B MOV %>4B,B EE00 8E F1 32 CALL @LF132 EE03 8A 62 4F LDA @L624F EE06 8E F1 C2 CALL @LF1C2 EE09 E1 2E JN LEE39 EE0B 8A 62 4E LDA @L624E EE0E 23 18 AND %>18,A EE10 E2 2A JZ LEE3C EE12 DB 54 DECD R84 EE14 E3 03 JC LEE19 EE16 8C EA E6 BR @LEAE6 EE19 12 19 LEE19 MOV R25,A EE1B E6 D1 JNZ LEDEE EE1D 12 1A MOV R26,A EE1F E6 CC JNZ LEDED EE21 8A 62 4F LEE21 LDA @L624F EE24 8E F1 C2 CALL @LF1C2 EE27 E1 10 JN LEE39 EE29 8A 62 4E LDA @L624E EE2C 23 18 AND %>18,A EE2E E2 0C JZ LEE3C EE30 8A 62 4F LDA @L624F EE33 C0 MOV A,B EE34 8E E3 04 CALL @LE304 EE37 E0 E8 JMP LEE21 EE39 8C E9 BC LEE39 BR @LE9BC EE3C 8C E9 B2 LEE3C BR @LE9B2 EE3F 88 1A 5E 54 LEE3F MOVD %>1A5E,R84 EE43 EC TRAP 19 EE44 F6 LEE44 TRAP 9 EE45 8E F0 E7 CALL @LF0E7 EE48 8E F2 F9 CALL @LF2F9 EE4B F6 TRAP 9 EE4C 32 28 MOV R40,B EE4E 58 02 ADD %>02,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 81 EE50 F5 TRAP 10 EE51 8E DF 4D CALL @LDF4D EE54 52 78 MOV %>78,B EE56 8E E0 2F CALL @LE02F EE59 F6 TRAP 9 EE5A DB 54 DECD R84 EE5C E3 03 JC LEE61 EE5E 8C EA E6 BR @LEAE6 EE61 12 19 LEE61 MOV R25,A EE63 E6 DF JNZ LEE44 EE65 12 2C MOV R44,A EE67 E2 11 JZ LEE7A EE69 12 1A MOV R26,A EE6B E6 03 JNZ LEE70 EE6D 8C EF 02 BR @LEF02 EE70 22 0C LEE70 MOV %>0C,A EE72 8D 62 7F CMPA @L627F EE75 E6 C8 JNZ LEE3F EE77 8C EC AD BR @LECAD EE7A 12 1A LEE7A MOV R26,A EE7C E2 03 JZ LEE81 EE7E 8C EE 3F BR @LEE3F EE81 72 01 2C LEE81 MOV %>01,R44 EE84 8E F4 4A CALL @LF44A EE87 12 2A LEE87 MOV R42,A EE89 8E F1 C2 CALL @LF1C2 EE8C E1 13 JN LEEA1 EE8E C0 MOV A,B EE8F 8E E3 09 CALL @LE309 EE92 12 2A MOV R42,A EE94 8E F1 C2 CALL @LF1C2 EE97 E1 03 JN LEE9C EE99 8C E9 B2 BR @LE9B2 EE9C 8E F1 D5 LEE9C CALL @LF1D5 EE9F E0 E6 JMP LEE87 EEA1 76 08 2A 03 LEEA1 BTJO %>08,R42,LEEA8 EEA5 8C E9 BC BR @LE9BC EEA8 8A 62 8A LEEA8 LDA @L628A EEAB E1 41 JN LEEEE EEAD EA LEEAD TRAP 21 EEAE 72 04 21 MOV %>04,R33 EEB1 22 2E MOV %>2E,A EEB3 8E D1 39 CALL @LD139 EEB6 F6 TRAP 9 EEB7 52 8C MOV %>8C,B EEB9 88 F9 9C 47 MOVD %LF99C,R71 EEBD 8E D0 C6 CALL @LD0C6 EEC0 88 F9 9C 47 MOVD %LF99C,R71 EEC4 8E D0 C4 CALL @LD0C4 EEC7 F6 TRAP 9 EEC8 8E F3 D5 CALL @LF3D5 EECB 8E F1 B5 CALL @LF1B5 EECE E2 1E JZ LEEEE EED0 72 21 54 MOV %>21,R84 EED3 EA TRAP 21 EED4 72 04 21 MOV %>04,R33 EED7 52 8C MOV %>8C,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 82 EED9 88 FB 0A 47 MOVD %LFB0A,R71 EEDD 8E D0 C6 CALL @LD0C6 EEE0 88 F9 AB 47 MOVD %LF9AB,R71 EEE4 8E D0 C4 CALL @LD0C4 EEE7 F6 LEEE7 TRAP 9 EEE8 DA 54 FC DJNZ R84,LEEE7 EEEB 8C EE AD BR @LEEAD EEEE EA LEEEE TRAP 21 EEEF 72 09 21 MOV %>09,R33 EEF2 88 FB A3 58 MOVD %LFBA3,R88 EEF6 ED TRAP 18 EEF7 F6 TRAP 9 EEF8 12 28 MOV R40,A EEFA 52 00 MOV %>00,B EEFC 8E F1 24 CALL @LF124 EEFF 8C EE 3F BR @LEE3F EF02 8E F3 9E LEF02 CALL @LF39E EF05 8C E9 BC BR @LE9BC ; ; NEXT PRG ; EF08 F6 LEF08 TRAP 9 EF09 22 0F MOV %>0F,A EF0B EE TRAP 17 EF0C F6 TRAP 9 EF0D EA TRAP 21 EF0E 72 08 21 MOV %>08,R33 EF11 12 1D MOV R29,A EF13 23 7F AND %>7F,A EF15 E2 F1 JZ LEF08 EF17 12 1D MOV R29,A EF19 E5 03 JPZ LEF1E EF1B 8C E9 B2 BR @LE9B2 EF1E D5 2C LEF1E CLR R44 EF20 73 40 20 AND %>40,R32 EF23 8E F2 E8 CALL @LF2E8 EF26 8E F1 D5 CALL @LF1D5 EF29 12 2A MOV R42,A EF2B 26 08 08 BTJO %>08,A,LEF36 EF2E 26 78 0B BTJO %>78,A,LEF3C EF31 8E F1 C2 CALL @LF1C2 EF34 E1 06 JN LEF3C EF36 72 03 21 LEF36 MOV %>03,R33 EF39 8C EF EA BR @LEFEA EF3C 72 44 54 LEF3C MOV %>44,R84 EF3F F6 TRAP 9 EF40 EA TRAP 21 EF41 72 08 21 MOV %>08,R33 EF44 D5 20 CLR R32 EF46 D5 2B CLR R43 EF48 77 10 2A 0B BTJZ %>10,R42,LEF57 EF4C 88 F7 35 47 MOVD %LF735,R71 EF50 52 64 MOV %>64,B EF52 8E D0 B9 CALL @LD0B9 EF55 E0 39 JMP LEF90 EF57 77 20 2A 1F LEF57 BTJZ %>20,R42,LEF7A EF5B 88 F6 CC 47 MOVD %LF6CC,R71 TMS7000 Assembler Version 3.0 RUN Chip PAGE 83 EF5F 52 78 MOV %>78,B EF61 8A 62 6B LDA @L626B EF64 E2 27 JZ LEF8D EF66 52 64 MOV %>64,B EF68 88 F6 90 47 MOVD %LF690,R71 EF6C 8E D0 C6 CALL @LD0C6 EF6F 88 F6 AE 47 MOVD %LF6AE,R71 EF73 52 78 MOV %>78,B EF75 8E D0 B9 CALL @LD0B9 EF78 E0 20 JMP LEF9A EF7A 8E F1 CC LEF7A CALL @LF1CC EF7D 77 40 2A 22 BTJZ %>40,R42,LEFA3 EF81 88 F9 C9 47 MOVD %LF9C9,R71 EF85 52 50 MOV %>50,B EF87 12 2B MOV R43,A EF89 E1 02 JN LEF8D EF8B 52 78 MOV %>78,B EF8D 8E D0 C6 LEF8D CALL @LD0C6 EF90 88 F9 F6 47 LEF90 MOVD %LF9F6,R71 EF94 72 05 10 MOV %>05,R16 EF97 8E D0 E3 CALL @LD0E3 EF9A 12 2B LEF9A MOV R43,A EF9C E5 1E JPZ LEFBC EF9E 8E F4 2C CALL @LF42C EFA1 E0 19 JMP LEFBC EFA3 32 28 LEFA3 MOV R40,B EFA5 F5 TRAP 10 EFA6 AA 61 13 LDA @L6113(B) EFA9 27 10 09 BTJZ %>10,A,LEFB5 EFAC 52 64 MOV %>64,B EFAE 88 FA 14 47 MOVD %LFA14,R71 EFB2 8E D0 C6 CALL @LD0C6 EFB5 52 78 LEFB5 MOV %>78,B EFB7 12 28 MOV R40,A EFB9 8E F1 24 CALL @LF124 EFBC F6 LEFBC TRAP 9 EFBD 8E F4 89 CALL @LF489 EFC0 8E F1 08 CALL @LF108 EFC3 76 30 2A 12 BTJO %>30,R42,LEFD9 EFC7 52 03 MOV %>03,B EFC9 8A 62 4D LDA @L624D EFCC BE RL A EFCD BE RL A EFCE BE RL A EFCF CF RLC B EFD0 F5 TRAP 10 EFD1 8E DF 4D CALL @LDF4D EFD4 52 A0 MOV %>A0,B EFD6 8E E0 2F CALL @LE02F EFD9 DA 54 E0 LEFD9 DJNZ R84,LEFBC EFDC 7D 04 1D CMP %>04,R29 EFDF E2 03 JZ LEFE4 EFE1 8C E9 B2 BR @LE9B2 EFE4 74 04 1F LEFE4 OR %>04,R31 EFE7 8C E9 BC BR @LE9BC EFEA 72 40 20 LEFEA MOV %>40,R32 EFED 22 2E MOV %>2E,A TMS7000 Assembler Version 3.0 RUN Chip PAGE 84 EFEF EE TRAP 17 EFF0 88 FA 7D 47 MOVD %LFA7D,R71 EFF4 8E D0 C4 CALL @LD0C4 EFF7 74 10 1F OR %>10,R31 EFFA F6 TRAP 9 EFFB 88 1A 5E 54 LEFFB MOVD %>1A5E,R84 EFFF EC TRAP 19 F000 F6 LF000 TRAP 9 F001 8E F1 08 CALL @LF108 F004 8E F2 F9 CALL @LF2F9 F007 F6 TRAP 9 F008 52 03 MOV %>03,B F00A 8A 62 4D LDA @L624D F00D BE RL A F00E BE RL A F00F BE RL A F010 CF RLC B F011 F5 TRAP 10 F012 8E DF 4D CALL @LDF4D F015 52 78 MOV %>78,B F017 8E E0 2F CALL @LE02F F01A F6 TRAP 9 F01B DB 54 DECD R84 F01D E3 03 JC LF022 F01F 8C EA E6 BR @LEAE6 F022 12 19 LF022 MOV R25,A F024 E6 DA JNZ LF000 F026 12 2C MOV R44,A F028 E2 13 JZ LF03D F02A 12 1A MOV R26,A F02C E6 08 JNZ LF036 F02E 8E F3 9E CALL @LF39E F031 D5 2A CLR R42 F033 8C EF 08 LF033 BR @LEF08 F036 22 0C LF036 MOV %>0C,A F038 8D 62 7F CMPA @L627F F03B E2 F6 JZ LF033 F03D 12 1A LF03D MOV R26,A F03F E6 BA JNZ LEFFB F041 72 01 2C MOV %>01,R44 F044 8E F4 4A CALL @LF44A F047 12 2A LF047 MOV R42,A F049 8E F1 C2 CALL @LF1C2 F04C E1 13 JN LF061 F04E C0 MOV A,B F04F 8E E3 0E CALL @LE30E F052 12 2A MOV R42,A F054 8E F1 C2 CALL @LF1C2 F057 E1 03 JN LF05C F059 8C E9 B2 BR @LE9B2 F05C 8E F1 D5 LF05C CALL @LF1D5 F05F E0 E6 JMP LF047 F061 76 08 2A 03 LF061 BTJO %>08,R42,LF068 F065 8C EF 08 BR @LEF08 F068 8A 62 8A LF068 LDA @L628A F06B E1 48 JN LF0B5 F06D EA LF06D TRAP 21 TMS7000 Assembler Version 3.0 RUN Chip PAGE 85 F06E 72 04 21 MOV %>04,R33 F071 22 2E MOV %>2E,A F073 8E D1 39 CALL @LD139 F076 88 FA 7D 47 MOVD %LFA7D,R71 F07A 8E D0 C4 CALL @LD0C4 F07D F6 TRAP 9 F07E 88 F9 9C 47 MOVD %LF99C,R71 F082 52 8C MOV %>8C,B F084 8E D0 C6 CALL @LD0C6 F087 88 F9 9C 47 MOVD %LF99C,R71 F08B 8E D0 C4 CALL @LD0C4 F08E F6 TRAP 9 F08F 8E F3 D0 CALL @LF3D0 F092 8E F1 B5 CALL @LF1B5 F095 E2 1E JZ LF0B5 F097 72 21 54 MOV %>21,R84 F09A EA TRAP 21 F09B 72 04 21 MOV %>04,R33 F09E 52 8C MOV %>8C,B F0A0 88 FB 0A 47 MOVD %LFB0A,R71 F0A4 8E D0 C6 CALL @LD0C6 F0A7 88 F9 AB 47 MOVD %LF9AB,R71 F0AB 8E D0 C4 CALL @LD0C4 F0AE F6 LF0AE TRAP 9 F0AF DA 54 FC DJNZ R84,LF0AE F0B2 8C F0 6D BR @LF06D F0B5 EA LF0B5 TRAP 21 F0B6 72 09 21 MOV %>09,R33 F0B9 88 FB A3 58 MOVD %LFBA3,R88 F0BD ED TRAP 18 F0BE F6 TRAP 9 F0BF 12 28 MOV R40,A F0C1 52 00 MOV %>00,B F0C3 8E F1 24 CALL @LF124 F0C6 8C EF FB BR @LEFFB F0C9 8E F1 4C LF0C9 CALL @LF14C F0CC 32 28 MOV R40,B F0CE F5 TRAP 10 F0CF AA 61 11 LDA @L6111(B) F0D2 D0 4F MOV A,R79 F0D4 AA 61 12 LDA @L6112(B) F0D7 07 SETC F0D8 4F 4F 4D DSB R79,R77 F0DB 4B 00 4C SBB R0,R76 F0DE 7B 00 50 SBB %>00,R80 F0E1 0A RETS F0E2 72 FF 4F LF0E2 MOV %>FF,R79 F0E5 E0 02 JMP LF0E9 F0E7 D5 4F LF0E7 CLR R79 F0E9 8A 62 4E LF0E9 LDA @L624E F0EC 26 18 09 BTJO %>18,A,LF0F8 F0EF 8A 62 4D LDA @L624D F0F2 15 29 XOR R41,A F0F4 26 60 01 BTJO %>60,A,LF0F8 F0F7 0A RETS F0F8 77 01 4F 02 LF0F8 BTJZ %>01,R79,LF0FE F0FC B9 POP A TMS7000 Assembler Version 3.0 RUN Chip PAGE 86 F0FD B9 POP A F0FE B9 LF0FE POP A F0FF B9 POP A F100 8C E9 BC BR @LE9BC F103 72 FF 4F LF103 MOV %>FF,R79 F106 E0 02 JMP LF10A F108 D5 4F LF108 CLR R79 F10A 8A 62 4E LF10A LDA @L624E F10D 26 18 08 BTJO %>18,A,LF118 F110 8A 62 4D LDA @L624D F113 15 29 XOR R41,A F115 26 60 0B BTJO %>60,A,LF123 F118 77 FF 4F 02 LF118 BTJZ %>FF,R79,LF11E F11C B9 POP A F11D B9 POP A F11E B9 LF11E POP A F11F B9 POP A F120 8C E9 BC BR @LE9BC F123 0A LF123 RETS F124 C8 LF124 PUSH B F125 C0 MOV A,B F126 58 02 ADD %>02,B F128 F5 TRAP 10 F129 A8 61 05 47 MOVD %L6105(B),R71 F12D C9 POP B F12E 8E D0 B9 CALL @LD0B9 F131 0A RETS F132 23 07 LF132 AND %>07,A F134 D0 10 MOV A,R16 F136 18 00 ADD R0,A F138 48 00 10 ADD R0,R16 F13B D6 10 XCHB R16 F13D A8 61 C9 47 MOVD %L61C9(B),R71 F141 52 01 MOV %>01,B F143 D6 10 XCHB R16 F145 8C D0 C9 BR @LD0C9 F148 32 0E MOV R14,B F14A E0 02 JMP LF14E F14C 32 27 LF14C MOV R39,B F14E D5 4D LF14E CLR R77 F150 F5 TRAP 10 F151 AA 61 0F LDA @L610F(B) F154 D0 4C MOV A,R76 F156 AA 61 10 LDA @L6110(B) F159 D0 50 MOV A,R80 F15B 8A 62 5A LDA @L625A F15E C0 MOV A,B F15F 8A 62 5B LDA @L625B F162 07 SETC F163 4F 01 4D DSB R1,R77 F166 4B 00 4C SBB R0,R76 F169 0E PUSHST F16A 8A 62 5C LDA @L625C F16D 08 POPST F16E 4B 00 50 SBB R0,R80 F171 E3 06 JC LF179 F173 D5 4D CLR R77 TMS7000 Assembler Version 3.0 RUN Chip PAGE 87 F175 D5 4C CLR R76 F177 D5 50 CLR R80 F179 7D 27 50 LF179 CMP %>27,R80 F17C E7 10 JNC LF18E F17E E6 05 JNZ LF185 F180 7D 10 4C CMP %>10,R76 F183 E7 09 JNC LF18E F185 72 27 50 LF185 MOV %>27,R80 F188 72 0F 4C MOV %>0F,R76 F18B 72 99 4D MOV %>99,R77 F18E 0A LF18E RETS F18F B5 LF18F CLR A F190 C5 CLR B F191 72 10 10 MOV %>10,R16 F194 DF 4C LF194 RLC R76 F196 DF 50 RLC R80 F198 1E 00 DAC R0,A F19A 3E 01 DAC R1,B F19C DA 10 F5 DJNZ R16,LF194 F19F D0 4C MOV A,R76 F1A1 D1 50 MOV B,R80 F1A3 0A RETS F1A4 12 50 LF1A4 MOV R80,A F1A6 8E D0 8E CALL @LD08E F1A9 12 4C MOV R76,A F1AB 8E D0 90 CALL @LD090 F1AE 22 2D MOV %>2D,A F1B0 F2 TRAP 13 F1B1 12 4D MOV R77,A F1B3 F0 TRAP 15 F1B4 0A RETS F1B5 52 08 LF1B5 MOV %>08,B F1B7 AA 62 7E LF1B7 LDA @L627E(B) F1BA AD 62 89 CMPA @L6289(B) F1BD E6 02 JNZ LF1C1 F1BF CA F6 DJNZ B,LF1B7 F1C1 0A LF1C1 RETS F1C2 23 07 LF1C2 AND %>07,A F1C4 B2 DEC A F1C5 8D 62 7D CMPA @L627D F1C8 0E PUSHST F1C9 B3 INC A F1CA 08 POPST F1CB 0A RETS F1CC 32 28 LF1CC MOV R40,B F1CE F5 TRAP 10 F1CF AA 61 15 LDA @L6115(B) F1D2 D0 2B MOV A,R43 F1D4 0A RETS F1D5 D5 2A LF1D5 CLR R42 F1D7 12 29 MOV R41,A F1D9 72 01 27 MOV %>01,R39 F1DC BE RL A F1DD DF 27 RLC R39 F1DF 72 02 28 MOV %>02,R40 F1E2 BE RL A F1E3 BE RL A TMS7000 Assembler Version 3.0 RUN Chip PAGE 88 F1E4 DF 28 RLC R40 F1E6 8A 62 4E LDA @L624E F1E9 23 18 AND %>18,A F1EB E2 0C JZ LF1F9 F1ED 72 80 2A MOV %>80,R42 F1F0 8A 62 4F LDA @L624F F1F3 23 07 AND %>07,A F1F5 44 00 2A OR R0,R42 F1F8 0A RETS F1F9 32 27 LF1F9 MOV R39,B F1FB F5 TRAP 10 F1FC AA 61 12 LDA @L6112(B) F1FF D0 4D MOV A,R77 F201 AA 61 13 LDA @L6113(B) F204 D0 4C MOV A,R76 F206 32 27 MOV R39,B F208 5A 02 SUB %>02,B F20A F5 TRAP 10 F20B 12 4D MOV R77,A F20D AD 61 00 CMPA @L6100(B) F210 E6 35 JNZ LF247 F212 12 4C MOV R76,A F214 AD 61 01 CMPA @L6101(B) F217 E6 2E JNZ LF247 F219 32 28 MOV R40,B F21B 58 02 ADD %>02,B F21D F5 TRAP 10 F21E AA 61 00 LDA @L6100(B) F221 15 29 XOR R41,A F223 26 60 21 BTJO %>60,A,LF247 F226 AA 61 23 LDA @L6123(B) F229 8D 62 53 CMPA @L6253 F22C E6 19 JNZ LF247 F22E 32 28 MOV R40,B F230 F5 TRAP 10 F231 AA 61 19 LDA @L6119(B) F234 8D 62 53 CMPA @L6253 F237 E6 0E JNZ LF247 F239 12 4D MOV R77,A F23B AD 61 00 CMPA @L6100(B) F23E E6 07 JNZ LF247 F240 12 4C MOV R76,A F242 AD 61 01 CMPA @L6101(B) F245 E2 04 JZ LF24B F247 72 10 2A LF247 MOV %>10,R42 F24A 0A RETS F24B AA 61 14 LF24B LDA @L6114(B) F24E 15 29 XOR R41,A F250 26 60 F4 BTJO %>60,A,LF247 F253 8A 62 75 LDA @L6275 F256 4D 00 16 CMP R0,R22 F259 E6 23 JNZ LF27E F25B AA 61 09 LDA @L6109(B) F25E 8D 62 76 CMPA @L6276 F261 E6 1B JNZ LF27E F263 AA 61 0A LDA @L610A(B) F266 8D 62 77 CMPA @L6277 TMS7000 Assembler Version 3.0 RUN Chip PAGE 89 F269 E6 13 JNZ LF27E F26B AA 61 0B LDA @L610B(B) F26E 8D 62 78 CMPA @L6278 F271 E6 0B JNZ LF27E F273 AA 61 0C LDA @L610C(B) F276 8D 62 79 CMPA @L6279 F279 E6 03 JNZ LF27E F27B 8C F2 DC BR @LF2DC F27E 8A 62 7B LF27E LDA @L627B F281 15 29 XOR R41,A F283 26 60 08 BTJO %>60,A,LF28E F286 8A 62 7C LDA @L627C F289 E2 03 JZ LF28E F28B 8C F2 DC BR @LF2DC F28E AA 61 13 LF28E LDA @L6113(B) F291 27 20 24 BTJZ %>20,A,LF2B8 F294 AA 61 19 LDA @L6119(B) F297 AD 61 42 CMPA @L6142(B) F29A E6 AB JNZ LF247 F29C AA 61 14 LDA @L6114(B) F29F D0 10 MOV A,R16 F2A1 AA 61 41 LDA @L6141(B) F2A4 15 10 XOR R16,A F2A6 26 E0 9E BTJO %>E0,A,LF247 F2A9 AA 61 43 LDA @L6143(B) F2AC B3 INC A F2AD E6 98 JNZ LF247 F2AF AA 61 44 LDA @L6144(B) F2B2 B3 INC A F2B3 E2 03 JZ LF2B8 F2B5 72 40 2A MOV %>40,R42 F2B8 D1 4D LF2B8 MOV B,R77 F2BA 32 27 MOV R39,B F2BC F5 TRAP 10 F2BD 72 07 10 MOV %>07,R16 F2C0 AA 61 00 LDA @L6100(B) F2C3 D0 4C MOV A,R76 F2C5 C3 INC B F2C6 D6 4D XCHB R77 F2C8 AA 61 02 LDA @L6102(B) F2CB C3 INC B F2CC D6 4D XCHB R77 F2CE E0 0C JMP LF2DC F2D0 72 20 2A MOV %>20,R42 F2D3 0A RETS F2D4 77 40 2A 01 BTJZ %>40,R42,LF2D9 F2D8 0A RETS F2D9 72 08 2A LF2D9 MOV %>08,R42 F2DC 32 28 LF2DC MOV R40,B F2DE F5 TRAP 10 F2DF AA 61 13 LDA @L6113(B) F2E2 23 07 AND %>07,A F2E4 44 00 2A OR R0,R42 F2E7 0A RETS F2E8 32 0F LF2E8 MOV R15,B F2EA F5 TRAP 10 F2EB AA 61 14 LDA @L6114(B) TMS7000 Assembler Version 3.0 RUN Chip PAGE 90 F2EE C0 MOV A,B F2EF 28 20 ADD %>20,A F2F1 23 7F AND %>7F,A F2F3 53 80 AND %>80,B F2F5 64 OR B,A F2F6 D0 29 MOV A,R41 F2F8 0A RETS F2F9 12 28 LF2F9 MOV R40,A F2FB C5 CLR B F2FC 8E F1 24 CALL @LF124 F2FF 72 28 4F MOV %>28,R79 F302 76 F8 2A 04 BTJO %>F8,R42,LF30A F306 76 07 2A 59 BTJO %>07,R42,LF363 F30A D5 4F LF30A CLR R79 F30C 32 28 MOV R40,B F30E F5 TRAP 10 F30F AA 61 1B LDA @L611B(B) F312 C0 MOV A,B F313 8A 62 00 LDA @L6200 F316 63 AND B,A F317 E2 1E JZ LF337 F319 52 50 MOV %>50,B F31B 88 FB 0A 47 MOVD %LFB0A,R71 F31F 8E D0 C6 CALL @LD0C6 F322 52 64 MOV %>64,B F324 88 FB 0A 47 MOVD %LFB0A,R71 F328 8A 62 50 LDA @L6250 F32B 26 04 04 BTJO %>04,A,LF332 F32E 88 FB 0A 47 MOVD %LFB0A,R71 F332 8E D0 C6 LF332 CALL @LD0C6 F335 E0 2C JMP LF363 F337 52 64 LF337 MOV %>64,B F339 88 FB 0A 47 MOVD %LFB0A,R71 F33D 8E D0 C6 CALL @LD0C6 F340 52 50 MOV %>50,B F342 88 FB 0A 47 MOVD %LFB0A,R71 F346 72 02 10 MOV %>02,R16 F349 8E D0 C9 CALL @LD0C9 F34C 32 28 MOV R40,B F34E F5 TRAP 10 F34F AA 61 11 LDA @L6111(B) F352 D0 4D MOV A,R77 F354 AA 61 12 LDA @L6112(B) F357 D0 4C MOV A,R76 F359 D5 50 CLR R80 F35B 8E F1 8F CALL @LF18F F35E 52 5C MOV %>5C,B F360 8E F1 A4 CALL @LF1A4 F363 32 28 LF363 MOV R40,B F365 F5 TRAP 10 F366 AA 61 13 LDA @L6113(B) F369 73 F8 2A AND %>F8,R42 F36C 23 07 AND %>07,A F36E 44 00 2A OR R0,R42 F371 B0 TSTA F372 E2 1E JZ LF392 F374 52 4B MOV %>4B,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 91 F376 8E F1 32 CALL @LF132 F379 52 3C MOV %>3C,B F37B 88 F7 08 47 MOVD %LF708,R71 F37F 72 03 10 MOV %>03,R16 F382 8E D0 C9 CALL @LD0C9 F385 12 2A MOV R42,A F387 8E F1 C2 CALL @LF1C2 F38A E1 06 JN LF392 F38C 88 FA 41 47 MOVD %LFA41,R71 F390 E0 04 JMP LF396 F392 88 FB 0A 47 LF392 MOVD %LFB0A,R71 F396 52 28 LF396 MOV %>28,B F398 38 4F ADD R79,B F39A 8E D0 C6 CALL @LD0C6 F39D 0A RETS F39E 8A 62 4D LF39E LDA @L624D F3A1 15 29 XOR R41,A F3A3 26 60 1F BTJO %>60,A,LF3C5 F3A6 12 16 MOV R22,A F3A8 8B 62 75 STA @L6275 F3AB 72 04 2B MOV %>04,R43 F3AE 32 28 MOV R40,B F3B0 F5 TRAP 10 F3B1 88 62 79 47 MOVD %L6279,R71 F3B5 AA 61 0C LF3B5 LDA @L610C(B) F3B8 9B 47 STA *R71 F3BA C2 DEC B F3BB DB 47 DECD R71 F3BD DA 2B F5 DJNZ R43,LF3B5 F3C0 B5 CLR A F3C1 8B 62 7A STA @L627A F3C4 0A RETS F3C5 12 29 LF3C5 MOV R41,A F3C7 8B 62 7B STA @L627B F3CA 12 16 MOV R22,A F3CC 8B 62 7C STA @L627C F3CF 0A RETS F3D0 72 FF 30 LF3D0 MOV %>FF,R48 F3D3 E0 02 JMP LF3D7 F3D5 D5 30 LF3D5 CLR R48 F3D7 22 AB LF3D7 MOV %>AB,A F3D9 8B 62 A4 STA @L62A4 F3DC 72 08 19 MOV %>08,R25 F3DF D5 1A CLR R26 F3E1 52 08 MOV %>08,B F3E3 8E DA 61 CALL @LDA61 F3E6 D9 52 POP R82 F3E8 D9 51 POP R81 F3EA B5 CLR A F3EB 8B 62 89 LF3EB STA @L6289 F3EE 88 1A 5E 54 MOVD %>1A5E,R84 F3F2 F6 LF3F2 TRAP 9 F3F3 77 01 30 05 BTJZ %>01,R48,LF3FC F3F7 8E F1 08 CALL @LF108 F3FA E0 03 JMP LF3FF F3FC 8E F0 E7 LF3FC CALL @LF0E7 F3FF 8E F2 F9 LF3FF CALL @LF2F9 TMS7000 Assembler Version 3.0 RUN Chip PAGE 92 F402 12 2A MOV R42,A F404 8E F1 C2 CALL @LF1C2 F407 E1 0A JN LF413 F409 76 01 30 03 BTJO %>01,R48,LF410 F40D 8C E9 B2 LF40D BR @LE9B2 F410 8C EF 08 LF410 BR @LEF08 F413 8E F0 C9 LF413 CALL @LF0C9 F416 E3 06 JC LF41E F418 76 01 30 F4 BTJO %>01,R48,LF410 F41C E0 EF JMP LF40D F41E 12 1A LF41E MOV R26,A F420 8D 62 89 CMPA @L6289 F423 E6 C6 JNZ LF3EB F425 DB 54 DECD R84 F427 E3 C9 JC LF3F2 F429 8C EA E6 BR @LEAE6 F42C 52 78 LF42C MOV %>78,B F42E 88 F9 D8 47 MOVD %LF9D8,R71 F432 8E D0 B9 CALL @LD0B9 F435 42 2B 4C MOV R43,R76 F438 73 1F 4C AND %>1F,R76 F43B D3 4C INC R76 F43D D5 50 CLR R80 F43F 8E F1 8F CALL @LF18F F442 12 4C MOV R76,A F444 52 9B MOV %>9B,B F446 8E D0 8E CALL @LD08E F449 0A RETS F44A 8E F0 C9 LF44A CALL @LF0C9 F44D E7 01 JNC LF450 F44F 0A RETS F450 B9 LF450 POP A F451 B9 POP A F452 42 15 2B MOV R21,R43 F455 EA TRAP 21 F456 72 0F 21 MOV %>0F,R33 F459 22 0F MOV %>0F,A F45B EE TRAP 17 F45C F6 LF45C TRAP 9 F45D 4D 15 2B CMP R21,R43 F460 E6 0B JNZ LF46D F462 8A 62 4E LDA @L624E F465 26 18 05 BTJO %>18,A,LF46D F468 8E F0 C9 CALL @LF0C9 F46B E7 03 JNC LF470 F46D 8C E9 B2 LF46D BR @LE9B2 F470 12 28 LF470 MOV R40,A F472 C5 CLR B F473 8E F1 24 CALL @LF124 F476 88 FB 0A 47 MOVD %LFB0A,R71 F47A 52 3C MOV %>3C,B F47C 72 19 10 MOV %>19,R16 F47F 8E D0 C9 CALL @LD0C9 F482 DB 54 DECD R84 F484 E3 D6 JC LF45C F486 8C EA E6 BR @LEAE6 F489 7D 03 1D LF489 CMP %>03,R29 TMS7000 Assembler Version 3.0 RUN Chip PAGE 93 F48C E3 1D JC LF4AB F48E 7D 02 1D CMP %>02,R29 F491 E6 14 JNZ LF4A7 F493 8A 62 6B LDA @L626B F496 E2 0F JZ LF4A7 F498 32 0F MOV R15,B F49A F5 TRAP 10 F49B AA 61 13 LDA @L6113(B) F49E 27 80 06 BTJZ %>80,A,LF4A7 F4A1 8A 62 45 LDA @L6245 F4A4 26 20 04 BTJO %>20,A,LF4AB F4A7 72 0F 21 LF4A7 MOV %>0F,R33 F4AA 0A RETS F4AB 72 08 21 LF4AB MOV %>08,R33 F4AE 0A RETS F4AF 8A 62 73 LF4AF LDA @L6273 F4B2 B3 INC A F4B3 8B 62 73 STA @L6273 F4B6 E6 07 JNZ LF4BF F4B8 8A 62 74 LDA @L6274 F4BB B3 INC A F4BC 8B 62 74 STA @L6274 F4BF 8A 67 EA LF4BF LDA @L67EA F4C2 B3 INC A F4C3 E9 TRAP 22 F4C4 8B 67 EA STA @L67EA F4C7 8D 67 EB CMPA @L67EB F4CA E6 05 JNZ LF4D1 F4CC B3 INC A F4CD E9 TRAP 22 F4CE 8B 67 EB STA @L67EB F4D1 8A 67 EE LF4D1 LDA @L67EE F4D4 E6 0B JNZ LF4E1 F4D6 22 FF MOV %>FF,A F4D8 8B 67 EE STA @L67EE F4DB 8A 67 EA LDA @L67EA F4DE 8B 67 EB STA @L67EB F4E1 8A 67 EA LF4E1 LDA @L67EA F4E4 2C 27 MPY %>27,A F4E6 88 65 EE 47 MOVD %L65EE,R71 F4EA 48 01 47 ADD R1,R71 F4ED 49 00 46 ADC R0,R70 F4F0 32 0F MOV R15,B F4F2 F5 TRAP 10 F4F3 AA 61 1B LDA @L611B(B) F4F6 D0 10 MOV A,R16 F4F8 8A 62 00 LDA @L6200 F4FB 13 10 AND R16,A F4FD 9B 47 STA *R71 F4FF DB 47 DECD R71 F501 AA 61 12 LDA @L6112(B) F504 9B 47 STA *R71 F506 DB 47 DECD R71 F508 AA 61 11 LDA @L6111(B) F50B 9B 47 STA *R71 F50D DB 47 DECD R71 F50F 32 0F MOV R15,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 94 F511 58 02 ADD %>02,B F513 F5 TRAP 10 F514 C8 PUSH B F515 58 21 ADD %>21,B F517 72 22 10 MOV %>22,R16 F51A AA 61 01 LF51A LDA @L6101(B) F51D 9B 47 STA *R71 F51F DB 47 DECD R71 F521 C2 DEC B F522 DA 10 F5 DJNZ R16,LF51A F525 C9 POP B F526 AA 61 00 LDA @L6100(B) F529 23 02 AND %>02,A F52B 9B 47 STA *R71 F52D DB 47 DECD R71 F52F 8A 62 53 LDA @L6253 F532 9B 47 STA *R71 F534 0A RETS ; ; TRAP 22 ; F535 E1 07 LF535 JN LF53E F537 2D 0E CMP %>0E,A F539 E7 02 JNC LF53D F53B 2A 0E SUB %>0E,A F53D 0A LF53D RETS F53E 28 0E LF53E ADD %>0E,A F540 0A RETS ; ; ; F541 0B 05 25 0B LF541 BYTE >0B,>05,>25,>0B,>49,>12,>8F,>1D F549 FF 37 FF 8F BYTE >FF,>37,>FF,>8F,>FF,>8F,>FF,>8F ; ; ; F551 00 00 00 00 LF551 BYTE >00,>00,>00,>00,>00,>00,>00,>00 F559 00 00 00 04 BYTE >00,>00,>00,>04,>01,>04,>04,>01 F561 04 02 02 02 BYTE >04,>02,>02,>02,>02,>02,>02,>00 F569 00 00 04 04 BYTE >00,>00,>04,>04,>00,>00,>04,>04 ; ; ; F571 D9 LF571 BYTE LD974/256 ;0 F572 D9 BYTE LD978/256 ;1 F573 D9 BYTE LD97C/256 ;2 F574 D9 BYTE LD980/256 ;3 F575 D9 BYTE LD984/256 ;4 F576 D9 BYTE LD988/256 ;5 F577 D9 BYTE LD98C/256 ;6 F578 D9 BYTE LD990/256 ;7 F579 D9 BYTE LD994/256 ;8 F57A D9 BYTE LD998/256 ;9 F57B D9 BYTE LD9CB/256 ;CANCEL F57C D9 BYTE LD9C8/256 ; F57D D9 BYTE LD9FE/256 ;TV F57E D9 BYTE LD9C8/256 ; TMS7000 Assembler Version 3.0 RUN Chip PAGE 95 F57F D9 BYTE LD9C8/256 ; F580 DA BYTE LDA09/256 ;SAT F581 DA BYTE LDA69/256 ; F582 E9 BYTE LE9B2/256 ;HELP F583 E5 BYTE LE583/256 ;SETUP F584 E9 BYTE LE9B2/256 ;VIEW F585 E9 BYTE LE9B2/256 ;TEXT F586 E9 BYTE LE9B2/256 ;MESSAGE F587 EF BYTE LEF08/256 ;NEXT PRG F588 D9 BYTE LD9EF/256 ;ENTER F589 DA BYTE LDA18/256 ; F58A DA BYTE LDA18/256 ; F58B D9 BYTE LD9C8/256 ; F58C D9 BYTE LD9C8/256 ; F58D D9 BYTE LD99C/256 ;> F58E D9 BYTE LD9A0/256 ;< F58F D9 BYTE LD9C8/256 ; F590 DA BYTE LDA69/256 ; ; F591 74 LF591 BYTE LD974 MOD 256 ; F592 78 BYTE LD978 MOD 256 ; F593 7C BYTE LD97C MOD 256 ; F594 80 BYTE LD980 MOD 256 ; F595 84 BYTE LD984 MOD 256 ; F596 88 BYTE LD988 MOD 256 ; F597 8C BYTE LD98C MOD 256 ; F598 90 BYTE LD990 MOD 256 ; F599 94 BYTE LD994 MOD 256 ; F59A 98 BYTE LD998 MOD 256 ; F59B CB BYTE LD9CB MOD 256 ; F59C C8 BYTE LD9C8 MOD 256 ; F59D FE BYTE LD9FE MOD 256 ; F59E C8 BYTE LD9C8 MOD 256 ; F59F C8 BYTE LD9C8 MOD 256 ; F5A0 09 BYTE LDA09 MOD 256 ; F5A1 69 BYTE LDA69 MOD 256 ; F5A2 B2 BYTE LE9B2 MOD 256 ; F5A3 83 BYTE LE583 MOD 256 ; F5A4 B2 BYTE LE9B2 MOD 256 ; F5A5 B2 BYTE LE9B2 MOD 256 ; F5A6 B2 BYTE LE9B2 MOD 256 ; F5A7 08 BYTE LEF08 MOD 256 ; F5A8 EF BYTE LD9EF MOD 256 ; F5A9 18 BYTE LDA18 MOD 256 ; F5AA 18 BYTE LDA18 MOD 256 ; F5AB C8 BYTE LD9C8 MOD 256 ; F5AC C8 BYTE LD9C8 MOD 256 ; F5AD 9C BYTE LD99C MOD 256 ; F5AE A0 BYTE LD9A0 MOD 256 ; F5AF C8 BYTE LD9C8 MOD 256 ; F5B0 69 BYTE LDA69 MOD 256 ; ; ; ; ; F5B1 D1 LF5B1 BYTE LD1F6/256 ;>00 F5B2 D1 BYTE LD1F6/256 ;>01 TMS7000 Assembler Version 3.0 RUN Chip PAGE 96 F5B3 D2 BYTE LD218/256 ;>02 F5B4 D2 BYTE LD218/256 ;>03 F5B5 D2 BYTE LD2A8/256 ;>04 F5B6 D2 BYTE LD2A8/256 ;>05 F5B7 D2 BYTE LD2D5/256 ;>06 F5B8 D2 BYTE LD2D5/256 ;>08 F5B9 D2 BYTE LD2E3/256 ;>08 F5BA EB BYTE LEBD2/256 ;>09 F5BB D2 BYTE LD2E3/256 ;>0A F5BC D2 BYTE LD2E3/256 ;>0B F5BD D2 BYTE LD2E3/256 ;>0C F5BE D2 BYTE LD2E3/256 ;>0D F5BF D2 BYTE LD2E3/256 ;>0E F5C0 D2 BYTE LD2E3/256 ;>0F F5C1 D2 BYTE LD2E3/256 ;>10 F5C2 D2 BYTE LD2E3/256 ;>11 F5C3 E1 BYTE LE1CE/256 ;>12 F5C4 E1 BYTE LE1D2/256 ;>13 F5C5 D2 BYTE LD2E3/256 ;>14 F5C6 D2 BYTE LD2E3/256 ;>15 F5C7 D2 BYTE LD2E3/256 ;>16 F5C8 D2 BYTE LD2E3/256 ;>17 F5C9 D2 BYTE LD2E3/256 ;>18 F5CA D2 BYTE LD2E3/256 ;>19 F5CB D2 BYTE LD2E3/256 ;>1A F5CC D2 BYTE LD2E3/256 ;>1B F5CD D2 BYTE LD2E3/256 ;>1C F5CE D2 BYTE LD2E3/256 ;>1D F5CF D2 BYTE LD2E3/256 ;>1E F5D0 D2 BYTE LD2E3/256 ;>1F ; F5D1 F6 LF5D1 BYTE LD1F6 MOD 256 ; F5D2 F6 BYTE LD1F6 MOD 256 ; F5D3 18 BYTE LD218 MOD 256 ; F5D4 18 BYTE LD218 MOD 256 ; F5D5 A8 BYTE LD2A8 MOD 256 ; F5D6 A8 BYTE LD2A8 MOD 256 ; F5D7 D5 BYTE LD2D5 MOD 256 ; F5D8 D5 BYTE LD2D5 MOD 256 ; F5D9 E3 BYTE LD2E3 MOD 256 ; F5DA D2 BYTE LEBD2 MOD 256 ; F5DB E3 BYTE LD2E3 MOD 256 ; F5DC E3 BYTE LD2E3 MOD 256 ; F5DD E3 BYTE LD2E3 MOD 256 ; F5DE E3 BYTE LD2E3 MOD 256 ; F5DF E3 BYTE LD2E3 MOD 256 ; F5E0 E3 BYTE LD2E3 MOD 256 ; F5E1 E3 BYTE LD2E3 MOD 256 ; F5E2 E3 BYTE LD2E3 MOD 256 ; F5E3 CE BYTE LE1CE MOD 256 ; F5E4 D2 BYTE LE1D2 MOD 256 ; F5E5 E3 BYTE LD2E3 MOD 256 ; F5E6 E3 BYTE LD2E3 MOD 256 ; F5E7 E3 BYTE LD2E3 MOD 256 ; F5E8 E3 BYTE LD2E3 MOD 256 ; F5E9 E3 BYTE LD2E3 MOD 256 ; F5EA E3 BYTE LD2E3 MOD 256 ; TMS7000 Assembler Version 3.0 RUN Chip PAGE 97 F5EB E3 BYTE LD2E3 MOD 256 ; F5EC E3 BYTE LD2E3 MOD 256 ; F5ED E3 BYTE LD2E3 MOD 256 ; F5EE E3 BYTE LD2E3 MOD 256 ; F5EF E3 BYTE LD2E3 MOD 256 ; F5F0 E3 BYTE LD2E3 MOD 256 ; ; ; ; F5F1 80 40 20 LF5F1 BYTE >80,>40,>20 ; ; ; F5F4 44 LF5F4 BYTE >44 ; F5F5 44 BYTE >44 ; F5F6 44 BYTE >44 ; F5F7 44 BYTE >44 ; F5F8 44 BYTE >44 ; F5F9 44 BYTE >44 ; F5FA 44 BYTE >44 ; F5FB 44 BYTE >44 ; F5FC 44 BYTE >44 ; F5FD 44 BYTE >44 ; F5FE 41 BYTE >41 ; F5FF 42 BYTE >42 ; F600 43 BYTE >43 ; F601 46 BYTE >46 ; F602 47 BYTE >47 ; F603 48 BYTE >48 ; F604 48 BYTE >48 ; ; ; ; F605 80 81 82 80 LF605 BYTE >80,>81,>82,>80 ; F609 80 80 80 80 LF609 BYTE >80,>80,>80,>80,>80,>80,>80,>80,>80,>80 F613 80 80 80 80 BYTE >80,>80,>80,>80,>82,>80,>80,>80,>80,>80 F61D 80 80 80 80 BYTE >80,>80,>80,>80,>80,>80,>80,>80,>80,>80 ; F627 81 81 81 81 BYTE >81,>81,>81,>81,>81,>81,>81,>81,>81,>81 F631 81 81 81 80 BYTE >81,>81,>81,>80,>81,>82,>81,>81,>81,>81 F63B 81 81 81 81 BYTE >81,>81,>81,>81,>81,>81,>81,>81,>81,>81 ; F645 82 82 82 82 BYTE >82,>82,>82,>82,>82,>82,>82,>82,>82,>82 F64F 82 82 81 80 BYTE >82,>82,>81,>80,>82,>82,>82,>82,>83,>82 F659 83 82 82 82 BYTE >83,>82,>82,>82,>82,>82,>82,>82,>82,>82 ; F663 83 83 83 83 BYTE >83,>83,>83,>83,>83,>83,>83,>83,>83,>83 F66D 83 83 81 80 BYTE >83,>83,>81,>80,>83,>83,>83,>83,>83,>82 F677 83 82 82 83 BYTE >83,>82,>82,>83,>82,>82,>83,>83,>83,>83 ; ; ; F681 BA EB 83 20 LF681 VCTXT " DIAGNOSTIC DATA " F690 58 71 2E 40 LF690 VCTXT "THE NEXT PROGRAM IS " F69F BA E5 87 21 LF69F VCTXT " THIS PROGRAM IS " F6AE BA EB 90 45 LF6AE VCTXT " NOT AVAILABLE " TMS7000 Assembler Version 3.0 RUN Chip PAGE 98 F6BD BA EB 85 45 LF6BD VCTXT " FOR PURCHASE " F6CC BA E4 11 BA LF6CC VCTXT " NO SUBSCRIPTION " F6DB BA EB AE 21 LF6DB VCTXT " INFORMATION " F6EA BA EB 82 5D LF6EA VCTXT " CURRENTLY NOT " F6F9 BA EB AE B8 LF6F9 VCTXT " AVAILABLE " F708 B9 40 16 21 LF708 VCTXT " RATING: " F717 BA EB 92 51 LF717 VCTXT " PROGRAM RATING " F726 BA EB AE BA LF726 VCTXT " PASSWORD " F735 BA EB 88 40 LF735 VCTXT " INFORMATION IS " F744 BA EB 90 45 LF744 VCTXT " NOT AVAILABLE " F753 85 DB 88 41 LF753 VCTXT "1: INSTALLATION " F762 89 DB 97 40 LF762 VCTXT "2: UNIT SETTINGS " F771 8D DB 94 01 LF771 VCTXT "3: RATING CEILING " F780 91 DB 94 01 LF780 VCTXT "4: RATING PASSWORD " F78F 95 DB 92 5D LF78F VCTXT "5: PURCHASE PASSWORD" F79E 99 DB 92 5D LF79E VCTXT "6: PURCHASE HISTORY " F7AD 9D DB 92 5D LF7AD VCTXT "7: PURCHASE STATUS " F7BC A1 DB 82 50 LF7BC VCTXT "8: CREDIT DISPLAY " F7CB 7E EB AE 11 LF7CB VCTXT "( ENTER 1 TO )" F7DA BA EB 80 5C LF7DA VCTXT " AUDIO MODE IS " F7E9 7E EB 92 50 LF7E9 VCTXT "( PRESS '1' FOR )" F7F8 BA EB AE B8 LF7F8 VCTXT " ALTERNATE " F807 BA EB AE BA LF807 VCTXT " PRIMARY " F816 B8 C1 15 54 LF816 VCTXT " MESSAGE PROMPT IS " F825 7E EB AE 49 LF825 VCTXT "( PRESS '2' TO )" F834 BA EB AE BA LF834 VCTXT " ENABLED " F843 BA EB AE BA LF843 VCTXT " DISABLED " F852 7E EB AE BA LF852 VCTXT "( ENABLE )" F861 7E EB AE BA LF861 VCTXT "( DISABLE )" F870 BA EB 84 41 LF870 VCTXT " ENTER THE OLD " F87F BA EB 84 41 LF87F VCTXT " ENTER THE OLD " F88E BA EB AE 11 LF88E VCTXT " ENTER A NEW " F89D BA E5 04 11 LF89D VCTXT " REENTER THE NEW " F8AC BA EB AE BA LF8AC VCTXT " 0-8 DIGITS " F8BB BA EB AE BA LF8BB VCTXT " 1-8 DIGITS " F8CA BA EB AE 48 LF8CA VCTXT " PLUS 'ENTER' " F8D9 BA E1 51 52 LF8D9 VCTXT " FOR VERIFICATION " F8E8 BA E1 C0 56 LF8E8 VCTXT " HAS BEEN CHANGED " F8F7 B9 61 C4 B9 LF8F7 VCTXT " THE NEW PASSWORDS " F906 BA E6 44 50 LF906 VCTXT " WERE DIFFERENT: " F915 48 05 55 65 LF915 VCTXT "PASSWORD NOT CHANGED" F924 7E E4 80 18 LF924 VCTXT "( PAGE: ) " F933 7E E4 17 30 LF933 VCTXT "( NUMBER TOO LARGE )" F942 7E EB AE 41 LF942 VCTXT "( NO MESSAGES )" F951 7E E4 11 B9 LF951 VCTXT "( NO NEWER MESSAGE )" F960 7E E4 11 B9 LF960 VCTXT "( NO OLDER MESSAGE )" F96F 7E EB AE BA LF96F VCTXT "( < OR > )" F97E 7E EC BD BB LF97E VCTXT "( <, >, PAGE NUMBER)" F98D 7E E1 10 58 LF98D VCTXT "( ENTER THE RATING )" F99C 7D 20 15 55 LF99C VCTXT "(PASSWORD: )" F9AB 7E EB 99 51 LF9AB VCTXT "( WRONG PASSWORD )" F9BA 7E EB AE 41 LF9BA VCTXT "( NO PURCHASES )" F9C9 B8 12 C0 08 LF9C9 VCTXT " BLACKOUT IN EFFECT " F9D8 B8 02 D6 11 LF9D8 VCTXT " ALTERNATE PROGRAM " F9E7 BA EB 91 42 LF9E7 VCTXT " ON CHANNEL " F9F6 15 15 2E 58 LF9F6 VCTXT "FOR THE NEXT PROGRAM" FA05 BA E1 51 52 LFA05 VCTXT " FOR THIS PROGRAM " TMS7000 Assembler Version 3.0 RUN Chip PAGE 99 FA14 DA EB AE B9 LFA14 VCTXT "* PREVIEW OF: *" FA23 50 05 88 40 LFA23 VCTXT "RATING CEILING: " FA32 49 44 46 50 LFA32 VCTXT "PROGRAM RATING: " FA41 D9 25 11 19 LFA41 VCTXT "*PROGRAM LOCKED OUT*" FA50 B9 25 11 19 LFA50 VCTXT " PROGRAM LOCKED OUT " FA5F 0D 71 2E 59 LFA5F VCTXT "DUE TO RATING LEVEL" FA6E 7E EC BD BB LFA6E VCTXT "( <, >, OR 'ENTER' )" FA7D 7E EB AE BA LFA7D VCTXT "( 'ENTER' )" FA8C 7E E4 94 11 LFA8C VCTXT "( PRESS 'ENTER' TO )" FA9B BA EB AE BA LFA9B VCTXT " " FAAA 54 81 90 00 LFAAA VCTXT "SIGNAL LEVEL: " FAB9 54 45 18 20 LFAB9 VCTXT "SERVICE ID: " FAC8 2D 10 80 58 LFAC8 VCTXT "LOCATION: " FAD7 54 45 AE BA LFAD7 VCTXT "SET " FADD 41 15 AE 54 LFADD VCTXT "NOT SET " FAE3 41 14 04 LFAE3 VCTXT "NONE" FAE6 B9 01 04 0D LFAE6 VCTXT " NEEDS AUTHORIZATION" FAF5 76 EB 90 46 LFAF5 VCTXT ": NO VIDEOCIPHER SIGNAL" FB0A BA EB AE BA LFB0A VCTXT " " FB19 58 83 04 B8 LFB19 VCTXT "TIME LEFT: " FB28 55 60 14 59 LFB28 VCTXT "STARTS IN: " ; ; ; FB37 F7 DA LFB37 DATA LF7DA ; FB39 FB 0A DATA LFB0A ; FB3B F7 E9 DATA LF7E9 ; FB3D FB 0A DATA LFB0A ; FB3F FB 0A DATA LFB0A ; FB41 F8 16 DATA LF816 ; FB43 FB 0A DATA LFB0A ; FB45 F8 25 DATA LF825 ; FB47 FB 0A DATA LFB0A ; ; FB49 F8 7F LFB49 DATA LF87F ; FB4B F7 17 DATA LF717 ; FB4D F7 26 DATA LF726 ; FB4F FB 0A DATA LFB0A ; FB51 FB 0A DATA LFB0A ; FB53 F8 BB DATA LF8BB ; FB55 F8 CA DATA LF8CA ; FB57 FB 0A DATA LFB0A ; FB59 F9 9C DATA LF99C ; ; FB5B F8 8E LFB5B DATA LF88E ; FB5D F7 17 DATA LF717 ; FB5F F7 26 DATA LF726 ; FB61 FB 0A DATA LFB0A ; FB63 FB 0A DATA LFB0A ; FB65 F8 AC DATA LF8AC ; FB67 F8 CA DATA LF8CA ; FB69 FB 0A DATA LFB0A ; FB6B F9 9C DATA LF99C ; ; FB6D F8 9D LFB6D DATA LF89D ; FB6F F7 26 DATA LF726 ; FB71 F8 D9 DATA LF8D9 ; TMS7000 Assembler Version 3.0 RUN Chip PAGE 100 FB73 FB 0A DATA LFB0A ; FB75 FB 0A DATA LFB0A ; FB77 F8 AC DATA LF8AC ; FB79 F8 CA DATA LF8CA ; FB7B FB 0A DATA LFB0A ; FB7D F9 9C DATA LF99C ; ; FB7F FB 0A LFB7F DATA LFB0A ; FB81 FB 0A DATA LFB0A ; FB83 FB 0A DATA LFB0A ; FB85 FB 0A DATA LFB0A ; FB87 F7 26 DATA LF726 ; FB89 F8 E8 DATA LF8E8 ; FB8B FB 0A DATA LFB0A ; FB8D FB 0A DATA LFB0A ; FB8F FB 0A DATA LFB0A ; ; FB91 FB 0A LFB91 DATA LFB0A ; FB93 FB 0A DATA LFB0A ; FB95 FB 0A DATA LFB0A ; FB97 F8 F7 DATA LF8F7 ; FB99 F9 06 DATA LF906 ; FB9B F9 15 DATA LF915 ; FB9D FB 0A DATA LFB0A ; FB9F FB 0A DATA LFB0A ; FBA1 FB 0A DATA LFB0A ; ; FBA3 FB 0A LFBA3 DATA LFB0A ; FBA5 FB 0A DATA LFB0A ; FBA7 FB 0A DATA LFB0A ; FBA9 FB 0A DATA LFB0A ; FBAB FB 0A DATA LFB0A ; FBAD FB 0A DATA LFB0A ; FBAF FB 0A DATA LFB0A ; FBB1 FA 8C DATA LFA8C ; FBB3 FB 0A DATA LFB0A ; ; FBB5 FA 23 LFBB5 DATA LFA23 ; FBB7 FB 0A DATA LFB0A ; FBB9 FB 0A DATA LFB0A ; FBBB FB 0A DATA LFB0A ; FBBD FB 0A DATA LFB0A ; FBBF FB 0A DATA LFB0A ; FBC1 FB 0A DATA LFB0A ; FBC3 FB 0A DATA LFB0A ; FBC5 FB 0A DATA LFB0A ; ; FBC7 FA 9B LFBC7 DATA LFA9B ; FBC9 FB 0A DATA LFB0A ; FBCB FA AA DATA LFAAA ; FBCD FB 0A DATA LFB0A ; FBCF FA B9 DATA LFAB9 ; FBD1 FB 0A DATA LFB0A ; FBD3 FA C8 DATA LFAC8 ; FBD5 FB 0A DATA LFB0A ; FBD7 FB 0A DATA LFB0A ; ; TMS7000 Assembler Version 3.0 RUN Chip PAGE 101 ; ; FBD9 8A 62 70 LFBD9 LDA @L6270 FBDC B3 INC A FBDD 8B 62 70 STA @L6270 FBE0 E6 15 JNZ LFBF7 FBE2 8A 62 71 LDA @L6271 FBE5 B3 INC A FBE6 8B 62 71 STA @L6271 FBE9 E6 0C JNZ LFBF7 FBEB 8A 62 72 LDA @L6272 FBEE B3 INC A FBEF 8B 62 72 STA @L6272 FBF2 E6 03 JNZ LFBF7 FBF4 74 0C 3B OR %>0C,R59 FBF7 76 08 3B 59 LFBF7 BTJO %>08,R59,LFC54 FBFB 77 10 3B 07 BTJZ %>10,R59,LFC06 FBFF 73 EF 3B AND %>EF,R59 FC02 12 43 MOV R67,A FC04 E0 29 JMP LFC2F FC06 7D 00 3C LFC06 CMP %>00,R60 FC09 E6 09 JNZ LFC14 FC0B 8A 62 6D LDA @L626D FC0E C0 MOV A,B FC0F 8A 62 6C LDA @L626C FC12 9C 01 BR *R1 FC14 9A 43 LFC14 LDA *R67 FC16 76 20 3B 04 BTJO %>20,R59,LFC1E FC1A 23 0F AND %>0F,A FC1C E0 0C JMP LFC2A FC1E D3 43 LFC1E INC R67 FC20 79 00 42 ADC %>00,R66 FC23 D2 3C DEC R60 FC25 B7 SWAP A FC26 23 0F AND %>0F,A FC28 24 10 OR %>10,A FC2A 75 20 3B LFC2A XOR %>20,R59 FC2D 24 C0 OR %>C0,A FC2F 82 17 LFC2F MOVP A,P23 FC31 C0 MOV A,B FC32 8A 62 6E LDA @L626E FC35 68 ADD B,A FC36 E7 09 JNC LFC41 FC38 C0 MOV A,B FC39 8A 62 6F LDA @L626F FC3C B3 INC A FC3D 8B 62 6F STA @L626F FC40 62 MOV B,A FC41 8B 62 6E LFC41 STA @L626E FC44 8C D4 81 LFC44 BR @LD481 FC47 74 10 3B LFC47 OR %>10,R59 FC4A B9 LFC4A POP A FC4B 8B 62 6D STA @L626D FC4E B9 POP A FC4F 8B 62 6C STA @L626C FC52 E0 F0 JMP LFC44 FC54 73 D7 3B LFC54 AND %>D7,R59 TMS7000 Assembler Version 3.0 RUN Chip PAGE 102 FC57 72 00 3C MOV %>00,R60 FC5A 76 07 3B 05 LFC5A BTJO %>07,R59,LFC63 FC5E 8E FC 4A CALL @LFC4A FC61 E0 F7 JMP LFC5A FC63 B5 LFC63 CLR A FC64 8B 62 6E STA @L626E FC67 8B 62 6F STA @L626F FC6A 22 E6 MOV %>E6,A FC6C 8B 62 70 STA @L6270 FC6F 22 B0 MOV %>B0,A FC71 8B 62 71 STA @L6271 FC74 22 FF MOV %>FF,A FC76 8B 62 72 STA @L6272 FC79 42 3B 3D MOV R59,R61 FC7C 73 0F 3D AND %>0F,R61 FC7F 72 E0 43 MOV %>E0,R67 FC82 8E FC 47 CALL @LFC47 FC85 88 00 3D 43 MOVD %L003D,R67 FC89 72 01 3C MOV %>01,R60 FC8C 8E FC 4A CALL @LFC4A FC8F 88 FD 78 43 MOVD %LFD78,R67 FC93 72 01 3C MOV %>01,R60 FC96 8E FC 4A CALL @LFC4A FC99 72 E1 43 MOV %>E1,R67 FC9C 8E FC 47 CALL @LFC47 FC9F 88 62 55 43 MOVD %L6255,R67 FCA3 72 04 3C MOV %>04,R60 FCA6 8E FC 4A CALL @LFC4A FCA9 72 E2 43 MOV %>E2,R67 FCAC 8E FC 47 CALL @LFC47 FCAF 88 FD 79 43 MOVD %LFD79,R67 FCB3 72 02 3C MOV %>02,R60 FCB6 8E FC 4A CALL @LFC4A FCB9 8A 62 0D LDA @L620D FCBC 28 0D ADD %>0D,A FCBE 88 62 01 43 MOVD %L6201,R67 FCC2 D0 3C MOV A,R60 FCC4 8E FC 4A CALL @LFC4A FCC7 72 E3 43 MOV %>E3,R67 FCCA 8E FC 47 CALL @LFC47 FCCD 88 62 5D 43 MOVD %L625D,R67 FCD1 72 08 3C MOV %>08,R60 FCD4 8E FC 4A CALL @LFC4A FCD7 88 62 5A 43 MOVD %L625A,R67 FCDB 72 03 3C MOV %>03,R60 FCDE 8E FC 4A CALL @LFC4A FCE1 88 61 FD 43 MOVD %L61FD,R67 FCE5 72 02 3C MOV %>02,R60 FCE8 8E FC 4A CALL @LFC4A FCEB 72 E4 43 MOV %>E4,R67 FCEE 8E FC 47 CALL @LFC47 FCF1 88 62 73 43 MOVD %L6273,R67 FCF5 72 02 3C MOV %>02,R60 FCF8 8E FC 4A CALL @LFC4A FCFB 72 00 3D MOV %>00,R61 FCFE 72 E5 43 LFCFE MOV %>E5,R67 FD01 8E FC 47 CALL @LFC47 TMS7000 Assembler Version 3.0 RUN Chip PAGE 103 FD04 8A 62 73 LDA @L6273 FD07 C0 MOV A,B FD08 8A 62 74 LDA @L6274 FD0B 3A 3D SUB R61,B FD0D 2B 00 SBB %>00,A FD0F 8B 67 F0 STA @L67F0 FD12 62 MOV B,A FD13 8B 67 EF STA @L67EF FD16 88 67 EF 43 MOVD %L67EF,R67 FD1A 72 02 3C MOV %>02,R60 FD1D 8E FC 4A CALL @LFC4A FD20 8A 67 EA LDA @L67EA FD23 1A 3D SUB R61,A FD25 E9 TRAP 22 FD26 2C 27 MPY %>27,A FD28 88 65 EC 43 MOVD %L65EC,R67 FD2C 48 01 43 ADD R1,R67 FD2F 49 00 42 ADC R0,R66 FD32 72 02 3C MOV %>02,R60 FD35 8E FC 4A CALL @LFC4A FD38 7A 26 43 SUB %>26,R67 FD3B 7B 00 42 SBB %>00,R66 FD3E 72 01 3C MOV %>01,R60 FD41 8E FC 4A CALL @LFC4A FD44 D3 43 INC R67 FD46 79 00 42 ADC %>00,R66 FD49 72 22 3C MOV %>22,R60 FD4C 8E FC 4A CALL @LFC4A FD4F D3 3D INC R61 FD51 7D 0E 3D CMP %>0E,R61 FD54 E6 A8 JNZ LFCFE FD56 72 FF 43 MOV %>FF,R67 FD59 8E FC 47 CALL @LFC47 FD5C 8A 62 6F LDA @L626F FD5F 8B 67 F0 STA @L67F0 FD62 8A 62 6E LDA @L626E FD65 8B 67 EF STA @L67EF FD68 88 67 EF 43 MOVD %L67EF,R67 FD6C 72 02 3C MOV %>02,R60 FD6F 8E FC 4A CALL @LFC4A FD72 72 00 3B MOV %>00,R59 FD75 8C FC 54 BR @LFC54 ; FD78 00 LFD78 NOP FD79 00 LFD79 NOP FD7A 00 NOP ; ; TRAP 0 ; FD7B 06 LFD7B DINT FD7C E0 3F JMP LFDBD ; FD7E 62 LFD7E MOV B,A FD7F AB 00 00 STA @L0000(B) FD82 C3 INC B FD83 E5 F9 JPZ LFD7E FD85 C2 LFD85 DEC B TMS7000 Assembler Version 3.0 RUN Chip PAGE 104 FD86 AA 00 00 LDA @L0000(B) FD89 3D 00 CMP R0,B FD8B E6 30 JNZ LFDBD FD8D B4 INV A FD8E AB 00 00 STA @L0000(B) FD91 5D 02 CMP %>02,B FD93 E6 F0 JNZ LFD85 FD95 62 LFD95 MOV B,A FD96 B4 INV A FD97 AD 00 00 CMPA @L0000(B) FD9A E6 21 JNZ LFDBD FD9C 62 MOV B,A FD9D AB 00 00 STA @L0000(B) FDA0 C3 INC B FDA1 E5 F2 JPZ LFD95 FDA3 A2 80 00 MOVP %>80,P0 FDA6 88 00 00 49 MOVD %L0000,R73 FDAA 88 D0 00 47 MOVD %LD000,R71 FDAE 9A 47 LFDAE LDA *R71 FDB0 48 00 49 ADD R0,R73 FDB3 79 00 48 ADC %>00,R72 FDB6 D3 47 INC R71 FDB8 79 00 46 ADC %>00,R70 FDBB E6 F1 JNZ LFDAE FDBD 00 LFDBD NOP FDBE B5 CLR A FDBF 8B 67 F1 STA @L67F1 FDC2 72 00 35 MOV %>00,R53 FDC5 D5 25 CLR R37 FDC7 72 01 3A MOV %>01,R58 FDCA D5 26 CLR R38 ; ; TRAP 2, 5, 14 ; FDCC 72 05 13 LFDCC MOV %>05,R19 FDCF B5 CLR A FDD0 D0 38 MOV A,R56 FDD2 8B 67 F3 STA @L67F3 FDD5 8B 67 F4 STA @L67F4 FDD8 8B 67 F6 STA @L67F6 FDDB 8B 67 F5 STA @L67F5 FDDE 8B 67 F8 STA @L67F8 FDE1 8B 67 F7 STA @L67F7 FDE4 06 LFDE4 DINT FDE5 A2 00 11 MOVP %>00,P17 FDE8 A2 40 11 MOVP %>40,P17 FDEB A2 4E 11 MOVP %>4E,P17 FDEE A2 15 11 MOVP %>15,P17 FDF1 A2 40 15 MOVP %>40,P21 FDF4 A2 17 14 MOVP %>17,P20 FDF7 52 5F MOV %>5F,B FDF9 0D LDSP FDFA A2 8F 05 MOVP %>8F,P5 FDFD A2 10 1C MOVP %>10,P28 FE00 A2 0C 04 MOVP %>0C,P4 FE03 A2 0C 06 MOVP %>0C,P6 FE06 72 11 06 MOV %>11,R6 TMS7000 Assembler Version 3.0 RUN Chip PAGE 105 FE09 73 EF 1F AND %>EF,R31 FE0C 22 0F MOV %>0F,A FE0E EE TRAP 17 FE0F 88 03 7F 49 MOVD %L037F,R73 FE13 A3 FE 04 LFE13 ANDP %>FE,P4 FE16 A4 01 04 ORP %>01,P4 FE19 DB 49 DECD R73 FE1B E3 F6 JC LFE13 FE1D 88 4D AF 49 MOVD %L4DAF,R73 FE21 DB 49 LFE21 DECD R73 FE23 E3 FC JC LFE21 FE25 22 0F MOV %>0F,A FE27 F9 TRAP 6 FE28 F4 TRAP 11 FE29 8A 62 58 LDA @L6258 FE2C 82 1A MOVP A,P26 FE2E B5 CLR A FE2F 8B 62 4B STA @L624B FE32 8B 62 47 STA @L6247 FE35 8B 62 B7 STA @L62B7 FE38 8B 62 B6 STA @L62B6 FE3B 8B 67 F2 STA @L67F2 FE3E 22 FF MOV %>FF,A FE40 8B 62 42 STA @L6242 FE43 8B 62 43 STA @L6243 FE46 D0 17 MOV A,R23 FE48 D0 14 MOV A,R20 FE4A 72 0C 3B MOV %>0C,R59 FE4D 88 D7 92 4D MOVD %LD792,R77 FE51 88 D7 FD 4B MOVD %LD7FD,R75 FE55 D5 04 CLR R4 FE57 D5 05 CLR R5 FE59 88 60 00 3F MOVD %L6000,R63 FE5D 8E FE 8B CALL @LFE8B FE60 D5 20 CLR R32 FE62 72 08 21 MOV %>08,R33 FE65 D5 18 CLR R24 FE67 D5 36 CLR R54 FE69 72 21 34 MOV %>21,R52 FE6C 72 01 37 MOV %>01,R55 FE6F 88 D4 81 56 MOVD %LD481,R86 FE73 12 56 MOV R86,A FE75 8B 62 6C STA @L626C FE78 12 55 MOV R85,A FE7A 8B 62 6D STA @L626D FE7D 88 FF FF 56 MOVD %>FFFF,R86 ; FE81 A2 BB 00 MOVP %>BB,P0 FE84 A2 02 10 MOVP %>02,P16 FE87 05 EINT FE88 8C D1 A9 BR @LD1A9 FE8B D5 08 LFE8B CLR R8 FE8D 32 08 LFE8D MOV R8,B FE8F AA 60 00 LDA @L6000(B) FE92 B3 INC A FE93 E2 03 JZ LFE98 FE95 8E D1 D9 CALL @LD1D9 FE98 32 08 LFE98 MOV R8,B TMS7000 Assembler Version 3.0 RUN Chip PAGE 106 FE9A B5 CLR A FE9B AB 60 00 STA @L6000(B) FE9E 78 33 08 ADD %>33,R8 FEA1 7D CC 08 CMP %>CC,R8 FEA4 E6 E7 JNZ LFE8D FEA6 D5 08 CLR R8 FEA8 0A RETS ; ; FFD0 ORG >FFD0 ; ; TRAP Table ; FFD0 FF FF DATA >FFFF ;23 FFD2 F5 35 DATA LF535 ;22 FFD4 EC A7 DATA LECA7 ;21 FFD6 DA 32 DATA LDA32 ;20 FFD8 DA 58 DATA LDA58 ;19 FFDA D1 85 DATA LD185 ;18 FFDC D1 3E DATA LD13E ;17 FFDE D0 85 DATA LD085 ;16 FFE0 D0 79 DATA LD079 ;15 FFE2 FD CC DATA LFDCC ;14 FFE4 D0 64 DATA LD064 ;13 FFE6 D0 55 DATA LD055 ;12 FFE8 D0 25 DATA LD025 ;11 FFEA D3 43 DATA LD343 ;10 FFEC D7 8E DATA LD78E ; 9 FFEE D8 09 DATA LD809 ; 8 FFF0 D0 47 DATA LD047 ; 7 FFF2 D0 03 DATA LD003 ; 6 FFF4 FD CC DATA LFDCC ; 5 FFF6 D8 2B DATA LD82B ; 4 FFF8 D3 EB DATA LD3EB ; 3 FFFA FD CC DATA LFDCC ; 2 FFFC D3 5A DATA LD35A ; 1 FFFE FD 7B DATA LFD7B ; 0 ; 0000 END ;