Programma van de MCS-elektronics RTL-4 en FilmNet combi-decoder microcontroller type D8749HC van NEC op 15MHz (tcy = 1ęs) 000 15 DIS INT ;Reset Start 001 04 10 JMP $010 003 15 DIS INT ;INT vector 004 24 00 JMP $100 006 00 NOP 007 35 DIS TCNTI 008 15 DIS INT 009 04 10 JMP $010 00B 00 NOP 00C 00 NOP 00D 00 NOP 00E 00 NOP 00F 00 NOP 010 15 DIS INT 011 35 DIS TCNTI 012 8A FF ORL P2,#FF 014 0A IN A,P2 015 53 10 ANL A,#10 017 C6 80 JZ $080 019 9A 9F ANL P2,#9F ;stel poorten in 01B 23 D0 MOV A,#D0 01D 39 OUTL P1,A 01E BF 00 MOV R7,#00 020 BE 00 MOV R6,#00 022 BD 00 MOV R5,#00 024 A5 CLR F1 025 85 CLR F0 026 24 00 JMP $100 ;start synchronisatie routine voor afregelen decoder. 080 9A 1F ANL P2,#1F 082 23 46 MOV A,#46 084 89 52 ORL P1,#52 086 99 50 ANL P1,#50 088 89 71 ORL P1,#71 08A 99 74 ANL P1,#74 08C 99 04 ANL P1,#04 08E 89 48 ORL P1,#48 090 99 40 ANL P1,#40 092 39 OUTL P1,A 093 89 56 ORL P1,#56 095 99 46 ANL P1,#46 097 BF 13 MOV R7,#13 099 EF 99 DJNZ R7,$099 09B 04 82 JMP $082 routines voor opwekking signaalpulsen. 100 9A DF ANL P2,#DF 102 54 00 CALL $200 104 24 45 JMP $145 gen framesignals 111 44 D4 27 28 JMP $2D4 ;Rasterteller bijwerken 113 BC 00 48 49 MOV R4,#00 ;raster op 0 en 1e frame 115 BB 00 50 51 MOV R3,#00 117 B5 52 CPL F1 118 46 21 53 54 JNT1 $121 ;BLS aan 11A 23 D0 55 56 MOV A,#D0 ;Blanking 11C 39 (57) 58 OUTL P1,A 11D 76 37 59 60 JF1 $137 ;2e raster 11F 24 28 61 62 JMP $128 121 23 50 55 56 MOV A,#50 ;blanking + BLS 123 39 (57) 58 OUTL P1,A 124 76 37 59 60 JF1 $137 126 24 28 61 62 JMP $128 128 89 10 (63) 0 ORL P1,#10 ;insert 12A 89 20 ( 1) 2 ORL P1,#20 ;sync + 12C 23 00 3 4 MOV A,#00 12E 99 DF ( 5) 6 ANL P1,#DF ;sync - 130 BD 09 7 8 MOV R5,#09 132 ED 32 9 26 DJNZ R5,$132 ;vertraging 134 24 37 27 28 JMP $137 136 00 -- NOP 137 00 29 NOP 138 00 30 NOP 139 89 10 (31) 0 ORL P1,#10 13B 89 20 ( 1) 2 ORL P1,#20 13D 99 DF ( 3) 4 ANL P1,#DF 13F BF 04 5 6 MOV R7,#04 141 BD 0C 7 8 MOV R5,#0C 143 ED 43 9 0 DJNZ R5,$143 145 89 20 ( 1) 2 ORL P1,#20 147 99 DF ( 3) 4 ANL P1,#DF 149 EF 41 5 6 DJNZ R7,$141 14B BF 04 7 8 MOV R7,#04 14D BD 0B 9 10 MOV R5,#0B 14F ED 4F 11 0 DJNZ R5,$14F 151 89 20 ( 1) 2 ORL P1,#20 153 BD 0A 3 4 MOV R5,#0A 155 24 C4 5 6 JMP $1C4 157 00 NOP 158 00 NOP 159 00 NOP 15A 00 NOP 15B 00 NOP 15C 00 NOP 15D BD 04 13 14 MOV R5,#04 15F EF 55 15 16 DJNZ R7,$155 161 BD 05 17 18 MOV R5,#05 163 ED 63 19 28 DJNZ R5,$163 165 99 DF (29) 30 ANL P1,#DF 167 BF 04 31 0 MOV R7,#04 169 89 20 ( 1) 2 ORL P1,#20 16B 99 DF ( 3) 4 ANL P1,#DF 16D BD 0D 5 6 MOV R5,#0D 16F ED 6F 7 0 DJNZ R5,$16F 171 89 20 ( 1) 2 ORL P1,#20 173 99 DF ( 3) 4 ANL P1,#DF 175 BD 0C 5 6 MOV R5,#0C 177 EF 6F 7 8 DJNZ R7,$16F 179 24 E8 9 10 JMP $1E8 1E8 89 04 11 12 ORL P1,#04 1EA 76 F6 13 14 JF1 $1F6 1EC BF 00 47 48 MOV R7,#00 1EE BE 00 49 50 MOV R6,#00 1F0 BD 00 51 52 MOV R5,#00 1F2 64 3A 53 54 JMP $33A 1F4 89 04 13 14 ORL P1,#04 1F6 BF 01 15 16 MOV R7,#01 1F8 BE 00 17 18 MOV R6,#00 1FA BD 10 19 20 MOV R5,#10 1FC ED FC 21 52 DJNZ R5,$1FC 1FE 64 3A 53 54 JMP $33A Gen linesignals, lines 21-304 17E 89 D0 (61) 62 ORL P1,#D0 180 99 D4 (63) 0 ANL P1,#D4 182 89 F1 (1) 2 ORL P1,#F1 184 99 F4 (3) 4 ANL P1,#F4 186 99 84 (5) 6 ANL P1,#84 188 89 C8 (7) 8 ORL P1,#C8 18A 99 C4 (9) 10 ANL P1,#C4 18C 39 11 (12) OUTL P1,A 18D 00 13 NOP 18E 00 14 NOP 18F FE 15 MOV A,R6 190 C6 E2 16 17 JZ $1E2 192 FF 18 MOV A,R7 193 D3 30 19 20 XRL A,#30 195 C6 DE 21 22 JZ $1DE 197 1F 23 INC R7 198 FF 24 MOV A,R7 199 96 9E 25 26 JNZ $19E 19B 1E 27 INC R6 19C 24 A1 28 29 JMP $1A1 19E 00 27 NOP 19F 00 28 NOP 1A0 00 29 NOP 1A1 BD 0A 30 31 MOV R5,#0A 1A3 00 32 NOP 1A4 54 C0 33 34 CALL $2C0 1A6 ED A6 49 54 DJNZ R5,$1A6 1A8 46 AE 55 56 JNT1 $1AE 1AA 23 C4 59 60 MOV A,#C4 1AC 24 7E 61 62 JMP $17E 1AE 00 57 NOP 1AF 00 58 NOP 1B0 23 46 59 60 MOV A,#46 1B2 89 52 (61) 62 ORL P1,#52 1B4 99 54 (63) 0 ANL P1,#54 1B6 89 71 (1) 2 ORL P1,#71 1B8 99 74 (3) 4 ANL P1,#74 1BA 99 04 (5) 6 ANL P1,#04 1BC 89 48 (7) 8 ORL P1,#48 1BE 99 44 (9) 10 ANL P1,#44 1C0 39 11 (12) OUTL P1,A 1C1 24 8F 13 14 JMP $18F 1C4 FF 7 MOV A,R7 1C5 67 8 RRC A 1C6 ED C6 9 28 DJNZ R5,$1C6 1C8 99 DF (29) 30 ANL P1,#DF 1CA FF 31 MOV A,R7 1CB 67 0 RRC A 1CC 89 20 (1) 2 ORL P1,#20 1CE 76 D8 3 4 JF1 $1D8 1D0 E6 DA 5 6 JNC $1DA 1D2 99 BF 7 8 ANL P1,#BF 1D4 89 40 9 10 ORL P1,#40 1D6 24 5D 11 12 JMP $15D 1D8 E6 D2 5 6 JNC $1D2 1DA 24 D4 7 8 JMP $1D4 1DE 00 NOP 1DF 00 NOP 1E0 24 11 JMP $111 1E2 00 NOP 1E3 00 NOP 1E4 00 NOP 1E5 24 97 JMP $197 Synchroniseerroutine 200 23 90 MOV A,#90 202 39 OUTL P1,A 203 BF 00 MOV R7,#00 205 BE 00 MOV R6,#00 207 26 07 JNT0 $207 209 26 07 JNT0 $207 20B 26 07 JNT0 $207 20D 26 07 JNT0 $207 20F 36 14 JT0 $214 211 44 07 JMP $207 213 00 NOP 214 00 NOP 215 00 NOP 216 00 NOP 217 00 NOP 218 00 NOP 219 00 NOP 21A 00 NOP 21B 00 NOP 21C 00 NOP 21D 00 NOP 21E 00 NOP 21F 00 NOP 220 23 90 MOV A,#90 222 39 OUTL P1,A 223 BD 05 MOV R5,#05 225 ED 25 DJNZ R5,$225 227 36 00 JT0 $200 229 23 D0 MOV A,#D0 22B 39 OUTL P1,A 22C 00 NOP 22D 00 NOP 22E FE MOV A,R6 22F C6 38 JZ $238 231 FF MOV A,R7 232 D3 2F XRL A,#2F 234 C6 80 JZ $280 236 44 3F JMP $23F 238 00 NOP 239 00 NOP 23A 00 NOP 23B 00 NOP 23C 00 NOP 23D 00 NOP 23E 00 NOP 23F 1F INC R7 240 FF MOV A,R7 241 96 46 JNZ $246 243 1E INC R6 244 44 49 JMP $249 246 00 NOP 247 00 NOP 248 00 NOP 249 00 NOP 24A BD 09 MOV R5,#09 24C ED 4C DJNZ R5,$24C 24E 44 20 JMP $220 270 23 D0 MOV A,#D0 272 39 OUTL P1,A 273 BF 00 MOV R7,#00 275 BE 00 MOV R6,#00 277 BD 11 MOV R5,#11 279 ED 79 DJNZ R5,$279 27B 44 20 JMP $220 280 BD 0F MOV R5,#0F 282 ED 82 DJNZ R5,$282 284 23 90 MOV A,#90 286 39 OUTL P1,A 287 BD 05 MOV R5,#05 289 ED 89 DJNZ R5,$289 28B 36 98 JT0 $298 28D 23 D0 MOV A,#D0 28F 39 OUTL P1,A 290 00 NOP 291 00 NOP 292 44 B0 JMP $2B0 294 ED 94 DJNZ R5,$294 296 44 84 JMP $284 298 A5 CLR F1 299 B5 CPL F1 29A 23 75 MOV A,#75 29C 39 OUTL P1,A 29D 05 EN INT 29E BF 03 MOV R7,#04 2A0 BC 00 MOV R4,#00 2A2 BB 00 MOV R3,#00 2A4 BA 01 MOV R2,#01 2A6 8A 20 ORL P2,#20 2A8 BF 04 RETR 2B0 FF MOV A,R7 2B1 1F INC R7 2B2 D3 30 XRL A,#30 2B4 C6 BA JZ $2BA 2B6 BD 0D MOV R5,#0D 2B8 44 94 JMP $294 2BA BD 17 MOV R5,#17 2BC ED BC DJNZ R5,$2BC 2BE 44 98 JMP $298 2C0 26 C9 JNT0 $2C9 2C2 1C INC R4 2C3 FC MOV A,R4 2C4 96 CD JNZ $2CD 2C6 1B INC R3 2C7 44 D0 JMP $2D0 2C9 00 NOP 2CA 00 NOP 2CB 00 NOP 2CC 00 NOP 2CD 00 NOP 2CE 00 NOP 2CF 00 NOP 2D0 00 NOP 2D1 BD 03 MOV R5,#03 2D3 83 RET 2D4 FB MOV A,R3 2D5 C6 E7 JZ $2E7 2D7 FC MOV A,R4 2D8 43 D3 ORL A,#D3 2DA 00 NOP 2DB 00 NOP 2DC 00 NOP 2DD 00 NOP 2DE 37 CPL A 2DF 96 F1 JNZ $2F1 2E1 8A E0 ORL P2,#E0 2E3 BA 10 MOV R2,#10 2E5 24 13 JMP $113 2E7 FC MOV A,R4 2E8 53 DA ANL A,#DA 2EA 96 FB JNZ $2FB 2EC FC MOV A,R4 2ED 53 FC ANL A,#FC 2EF 00 NOP 2F0 00 NOP 2F1 EA F7 DJNZ R2,$2F7 2F3 9A 0F ANL P2,#0F 2F5 24 13 JMP $113 2F7 9A DF ANL P2,#DF 2F9 24 13 JMP $113 2FB 00 NOP 2FC 00 NOP 2FD 00 NOP 2FE 44 F1 JMP $2F1 310 89 D0 ORL P1,#D0 312 99 D4 ANL P1,#D4 314 89 F1 ORL P1,#F1 316 99 F4 ANL P1,#F4 318 99 84 ANL P1,#84 31A 89 C8 ORL P1,#C8 31C 99 C4 ANL P1,#C4 31E 39 OUTL P1,A 31F 00 NOP 320 00 NOP 321 FE MOV A,R6 322 00 NOP 323 00 NOP 324 FF MOV A,R7 325 D3 06 XRL A,#06 327 C6 60 JZ $360 329 1F INC R7 32A FF MOV A,R7 32B 96 30 JNZ $330 32D 00 NOP 32E 64 33 JMP $333 330 00 NOP 331 00 NOP 332 00 NOP 333 BD 0A MOV R5,#0A 335 00 NOP 336 54 C0 CALL $2C0 338 ED 38 DJNZ R5,$338 33A 46 40 JNT1 $340 33C 23 C4 MOV A,#C4 33E 64 10 JMP $310 340 00 NOP 341 00 NOP 342 23 46 MOV A,#46 344 89 52 ORL P1,#52 346 99 54 ANL P1,#54 348 89 71 ORL P1,#71 34A 99 74 ANL P1,#74 34C 99 04 ANL P1,#04 34E 89 48 ORL P1,#48 350 99 44 ANL P1,#44 352 39 OUTL P1,A 353 64 21 JMP $321 360 1F INC R7 361 00 NOP 362 BD 0D MOV R5,#0D 364 ED 64 DJNZ R5,$364 366 64 BA JMP $3BA 390 89 D0 ORL P1,#D0 392 99 D4 ANL P1,#D4 394 89 F1 ORL P1,#F1 396 99 F4 ANL P1,#F4 398 99 84 ANL P1,#84 39A 89 C8 ORL P1,#C8 39C 99 C4 ANL P1,#C4 39E 39 OUTL P1,A 39F 00 NOP 3A0 00 NOP 3A1 FE MOV A,R6 3A2 00 NOP 3A3 00 NOP 3A4 FF MOV A,R7 3A5 D3 0D XRL A,#0D 3A7 C6 E0 JZ $3E0 3A9 1F INC R7 3AA FF MOV A,R7 3AB 96 B0 JNZ $3B0 3AD 00 NOP 3AE 64 B3 JMP $3B3 3B0 00 NOP 3B1 00 NOP 3B2 00 NOP 3B3 BD 0A MOV R5,#0A 3B5 00 NOP 3B6 54 C0 CALL $2C0 3B8 ED B8 DJNZ R5,$3B8 3BA 46 C0 JNT1 $3C0 3BC 23 C4 MOV A,#C4 3BE 64 90 JMP $390 3C0 00 NOP 3C1 00 NOP 3C2 23 46 MOV A,#46 3C4 89 52 ORL P1,#52 3C6 99 54 ANL P1,#54 3C8 89 71 ORL P1,#71 3CA 99 74 ANL P1,#74 3CC 99 14 ANL P1,#14 3CE 89 50 ORL P1,#50 3D0 99 44 ANL P1,#44 3D2 39 OUTL P1,A 3D3 64 A1 JMP $3A1 3E0 1F INC R7 3E1 00 NOP 3E2 BD 0B MOV R5,#0B 3E4 ED E4 DJNZ R5,$3E4 3E6 46 EC JNT1 $3EC 3E8 00 NOP 3E9 00 NOP 3EA 24 A8 JMP $1A8 3EC 8A 20 ORL P2,#20 3EE 24 A8 JMP $1A8