include "vectrex.i"
RAM0          EQU   $C880
RAM1          EQU   $C881
RAM2          EQU   $C882
RAM3          EQU   $C883
              ORG   $0000
              FCC   "g GCE 2015"
              FCB   $80
              FDB   music1
              FCB   $F8, $50            ; h,w of raster image
              FCB   $20, $90            ; y,x of raster image
              FCC   "VECTREX SYMBIOSIS"
              FCB   $80
              FCB   $00
              direct $D0
              ; NOP                       ; check we have located all code labels
START:        LDA   #$CC                ; 0024: 86 CC         
              STA   <VIA_cntl           ; 0026: 97 0C         
              LDA   #$81                ; 0028: 86 81         
              STA   <VIA_port_b         ; 002A: 97 00         
LOOP:         JSR   Wait_Recal          ; 002C: BD F1 92      
              LDA   #$4F                ; 002F: 86 4F         
              STA   <VIA_port_a         ; 0031: 97 01         
              LDA   #$84                ; 0033: 86 84         
              STA   <VIA_port_b         ; 0035: 97 00         
              INC   <VIA_port_b         ; 0037: 0C 00         
              LDA   #$98                ; 0039: 86 98         
              STA   <VIA_aux_cntl       ; 003B: 97 0B         
              LDA   #$7F                ; 003D: 86 7F         
              STA   >VIA_t1_cnt_lo      ; 003F: B7 D0 04      
              LDA   #$81                ; 0042: 86 81         
              STA   <VIA_port_b         ; 0044: 97 00         
              LDA   #$CC                ; 0046: 86 CC         
              STA   <VIA_cntl           ; 0048: 97 0C         
              LDA   #$5F                ; 004A: 86 5F         
              STA   <VIA_port_a         ; 004C: 97 01         
              LDA   #$84                ; 004E: 86 84         
              STA   <VIA_port_b         ; 0050: 97 00         
              INC   <VIA_port_b         ; 0052: 0C 00         
              LDY   #HUGECIRCS          ; 0054: 10 8E 07 10   
              LDA   #$03                ; 0058: 86 03         
              STA   RAM0                ; 005A: B7 C8 80      
L005D:        LDA   #$98                ; 005D: 86 98         
              STA   <VIA_aux_cntl       ; 005F: 97 0B         
              LDA   ,Y++                ; 0061: A6 A1         
              LDB   -1,Y                ; 0063: E6 3F         
              STA   <VIA_port_a         ; 0065: 97 01         
              CLR   <VIA_port_b         ; 0067: 0F 00         
              PSHS  B,A                 ; 0069: 34 06         
              LDA   #$CE                ; 006B: 86 CE         
              STA   <VIA_cntl           ; 006D: 97 0C         
              CLR   <VIA_shift_reg      ; 006F: 0F 0A         
              INC   <VIA_port_b         ; 0071: 0C 00         
              STB   <VIA_port_a         ; 0073: D7 01         
              CLR   <VIA_t1_cnt_hi      ; 0075: 0F 05         
              PULS  A,B                 ; 0077: 35 06         
              TSTA                      ; 0079: 4D            
              BPL   L0080               ; 007A: 2A 04         
              NEGA                      ; 007C: 40            
              BVC   L0080               ; 007D: 28 01         
              DECA                      ; 007F: 4A            
L0080:        TSTB                      ; 0080: 5D            
              BPL   L0087               ; 0081: 2A 04         
              NEGB                      ; 0083: 50            
              BVC   L0087               ; 0084: 28 01         
              DECB                      ; 0086: 5A            
L0087:        STB   -1,S                ; 0087: E7 7F         
              ORA   -1,S                ; 0089: AA 7F         
              LDB   #$40                ; 008B: C6 40         
              CMPA  #$40                ; 008D: 81 40         
              BLS   L00A4               ; 008F: 23 13         
              CMPA  #$64                ; 0091: 81 64         
              BLS   L0099               ; 0093: 23 04         
              LDA   #$08                ; 0095: 86 08         
              BRA   L009B               ; 0097: 20 02         

L0099:        LDA   #$04                ; 0099: 86 04         
L009B:        BITB  <VIA_int_flags      ; 009B: D5 0D         
              BEQ   L009B               ; 009D: 27 FC         
L009F:        DECA                      ; 009F: 4A            
              BNE   L009F               ; 00A0: 26 FD         
              BRA   L00A8               ; 00A2: 20 04         

L00A4:        BITB  <VIA_int_flags      ; 00A4: D5 0D         
              BEQ   L00A4               ; 00A6: 27 FC         
L00A8:        CLR   <VIA_aux_cntl       ; 00A8: 0F 0B         
              LDA   #$80                ; 00AA: 86 80         
              STA   <VIA_port_b         ; 00AC: 97 00         
              LDA   #$F6                ; 00AE: 86 F6         
              STA   <VIA_port_a         ; 00B0: 97 01         
              LDA   #$81                ; 00B2: 86 81         
              STA   <VIA_port_b         ; 00B4: 97 00         
              LDA   #$00                ; 00B6: 86 00         
              STA   <VIA_port_a         ; 00B8: 97 01         
              LDA   #$EE                ; 00BA: 86 EE         
              STA   <VIA_cntl           ; 00BC: 97 0C         
              LDA   #$01                ; 00BE: 86 01         
              STA   <VIA_port_b         ; 00C0: 97 00         
              LDA   #$FF                ; 00C2: 86 FF         
              STA   <VIA_port_a         ; 00C4: 97 01         
              LDA   #$FF                ; 00C6: 86 FF         
              STA   <VIA_port_a         ; 00C8: 97 01         
              LDA   #$FF                ; 00CA: 86 FF         
              STA   <VIA_port_a         ; 00CC: 97 01         
              LDA   #$FE                ; 00CE: 86 FE         
              STA   <VIA_port_a         ; 00D0: 97 01         
              LDA   #$FE                ; 00D2: 86 FE         
              STA   <VIA_port_a         ; 00D4: 97 01         
              LDA   #$FD                ; 00D6: 86 FD         
              STA   <VIA_port_a         ; 00D8: 97 01         
              LDA   #$FD                ; 00DA: 86 FD         
              STA   <VIA_port_a         ; 00DC: 97 01         
              LDA   #$FC                ; 00DE: 86 FC         
              STA   <VIA_port_a         ; 00E0: 97 01         
              LDA   #$FC                ; 00E2: 86 FC         
              STA   <VIA_port_a         ; 00E4: 97 01         
              LDA   #$FB                ; 00E6: 86 FB         
              STA   <VIA_port_a         ; 00E8: 97 01         
              LDA   #$FB                ; 00EA: 86 FB         
              STA   <VIA_port_a         ; 00EC: 97 01         
              LDA   #$FB                ; 00EE: 86 FB         
              STA   <VIA_port_a         ; 00F0: 97 01         
              LDA   #$F9                ; 00F2: 86 F9         
              STA   <VIA_port_a         ; 00F4: 97 01         
              LDA   #$F9                ; 00F6: 86 F9         
              STA   <VIA_port_a         ; 00F8: 97 01         
              LDA   #$F8                ; 00FA: 86 F8         
              STA   <VIA_port_a         ; 00FC: 97 01         
              LDA   #$F7                ; 00FE: 86 F7         
              STA   <VIA_port_a         ; 0100: 97 01         
              LDA   #$F6                ; 0102: 86 F6         
              STA   <VIA_port_a         ; 0104: 97 01         
              LDA   #$F5                ; 0106: 86 F5         
              STA   <VIA_port_a         ; 0108: 97 01         
              LDA   #$F4                ; 010A: 86 F4         
              STA   <VIA_port_a         ; 010C: 97 01         
              LDA   #$F2                ; 010E: 86 F2         
              STA   <VIA_port_a         ; 0110: 97 01         
              LDA   #$EF                ; 0112: 86 EF         
              STA   <VIA_port_a         ; 0114: 97 01         
              LDA   #$EB                ; 0116: 86 EB         
              STA   <VIA_port_a         ; 0118: 97 01         
              LDA   #$E4                ; 011A: 86 E4         
              STA   <VIA_port_a         ; 011C: 97 01         
              LDA   #$BA                ; 011E: 86 BA         
              STA   <VIA_port_a         ; 0120: 97 01         
              LDA   #$81                ; 0122: 86 81         
              STA   <VIA_port_b         ; 0124: 97 00         
              LDA   #$80                ; 0126: 86 80         
              STA   <VIA_port_b         ; 0128: 97 00         
              LDA   #$0A                ; 012A: 86 0A         
              STA   <VIA_port_a         ; 012C: 97 01         
              LDA   #$81                ; 012E: 86 81         
              STA   <VIA_port_b         ; 0130: 97 00         
              LDA   #$BA                ; 0132: 86 BA         
              STA   <VIA_port_a         ; 0134: 97 01         
              LDA   #$01                ; 0136: 86 01         
              STA   <VIA_port_b         ; 0138: 97 00         
              LDA   #$E4                ; 013A: 86 E4         
              STA   <VIA_port_a         ; 013C: 97 01         
              LDA   #$EB                ; 013E: 86 EB         
              STA   <VIA_port_a         ; 0140: 97 01         
              LDA   #$EF                ; 0142: 86 EF         
              STA   <VIA_port_a         ; 0144: 97 01         
              LDA   #$F2                ; 0146: 86 F2         
              STA   <VIA_port_a         ; 0148: 97 01         
              LDA   #$F4                ; 014A: 86 F4         
              STA   <VIA_port_a         ; 014C: 97 01         
              LDA   #$F5                ; 014E: 86 F5         
              STA   <VIA_port_a         ; 0150: 97 01         
              LDA   #$F6                ; 0152: 86 F6         
              STA   <VIA_port_a         ; 0154: 97 01         
              LDA   #$F7                ; 0156: 86 F7         
              STA   <VIA_port_a         ; 0158: 97 01         
              LDA   #$F8                ; 015A: 86 F8         
              STA   <VIA_port_a         ; 015C: 97 01         
              LDA   #$F9                ; 015E: 86 F9         
              STA   <VIA_port_a         ; 0160: 97 01         
              LDA   #$F9                ; 0162: 86 F9         
              STA   <VIA_port_a         ; 0164: 97 01         
              LDA   #$FB                ; 0166: 86 FB         
              STA   <VIA_port_a         ; 0168: 97 01         
              LDA   #$FB                ; 016A: 86 FB         
              STA   <VIA_port_a         ; 016C: 97 01         
              LDA   #$FB                ; 016E: 86 FB         
              STA   <VIA_port_a         ; 0170: 97 01         
              LDA   #$FC                ; 0172: 86 FC         
              STA   <VIA_port_a         ; 0174: 97 01         
              LDA   #$FC                ; 0176: 86 FC         
              STA   <VIA_port_a         ; 0178: 97 01         
              LDA   #$FD                ; 017A: 86 FD         
              STA   <VIA_port_a         ; 017C: 97 01         
              LDA   #$FD                ; 017E: 86 FD         
              STA   <VIA_port_a         ; 0180: 97 01         
              LDA   #$FE                ; 0182: 86 FE         
              STA   <VIA_port_a         ; 0184: 97 01         
              LDA   #$FF                ; 0186: 86 FF         
              STA   <VIA_port_a         ; 0188: 97 01         
              LDA   #$FF                ; 018A: 86 FF         
              STA   <VIA_port_a         ; 018C: 97 01         
              LDA   #$FF                ; 018E: 86 FF         
              STA   <VIA_port_a         ; 0190: 97 01         
              LDA   #$FF                ; 0192: 86 FF         
              STA   <VIA_port_a         ; 0194: 97 01         
              LDA   #$FF                ; 0196: 86 FF         
              STA   <VIA_port_a         ; 0198: 97 01         
              LDA   #$FF                ; 019A: 86 FF         
              STA   <VIA_port_a         ; 019C: 97 01         
              LDA   #$81                ; 019E: 86 81         
              STA   <VIA_port_b         ; 01A0: 97 00         
              LDA   #$01                ; 01A2: 86 01         
              STA   <VIA_port_a         ; 01A4: 97 01         
              LDA   #$01                ; 01A6: 86 01         
              STA   <VIA_port_b         ; 01A8: 97 00         
              LDA   #$01                ; 01AA: 86 01         
              STA   <VIA_port_a         ; 01AC: 97 01         
              LDA   #$01                ; 01AE: 86 01         
              STA   <VIA_port_a         ; 01B0: 97 01         
              LDA   #$01                ; 01B2: 86 01         
              STA   <VIA_port_a         ; 01B4: 97 01         
              LDA   #$01                ; 01B6: 86 01         
              STA   <VIA_port_a         ; 01B8: 97 01         
              LDA   #$02                ; 01BA: 86 02         
              STA   <VIA_port_a         ; 01BC: 97 01         
              LDA   #$03                ; 01BE: 86 03         
              STA   <VIA_port_a         ; 01C0: 97 01         
              LDA   #$03                ; 01C2: 86 03         
              STA   <VIA_port_a         ; 01C4: 97 01         
              LDA   #$04                ; 01C6: 86 04         
              STA   <VIA_port_a         ; 01C8: 97 01         
              LDA   #$04                ; 01CA: 86 04         
              STA   <VIA_port_a         ; 01CC: 97 01         
              LDA   #$05                ; 01CE: 86 05         
              STA   <VIA_port_a         ; 01D0: 97 01         
              LDA   #$05                ; 01D2: 86 05         
              STA   <VIA_port_a         ; 01D4: 97 01         
              LDA   #$05                ; 01D6: 86 05         
              STA   <VIA_port_a         ; 01D8: 97 01         
              LDA   #$07                ; 01DA: 86 07         
              STA   <VIA_port_a         ; 01DC: 97 01         
              LDA   #$07                ; 01DE: 86 07         
              STA   <VIA_port_a         ; 01E0: 97 01         
              LDA   #$08                ; 01E2: 86 08         
              STA   <VIA_port_a         ; 01E4: 97 01         
              LDA   #$09                ; 01E6: 86 09         
              STA   <VIA_port_a         ; 01E8: 97 01         
              LDA   #$0A                ; 01EA: 86 0A         
              STA   <VIA_port_a         ; 01EC: 97 01         
              LDA   #$0B                ; 01EE: 86 0B         
              STA   <VIA_port_a         ; 01F0: 97 01         
              LDA   #$0C                ; 01F2: 86 0C         
              STA   <VIA_port_a         ; 01F4: 97 01         
              LDA   #$0E                ; 01F6: 86 0E         
              STA   <VIA_port_a         ; 01F8: 97 01         
              LDA   #$0E                ; 01FA: 86 0E         
              STA   <VIA_port_a         ; 01FC: 97 01         
              LDA   #$11                ; 01FE: 86 11         
              STA   <VIA_port_a         ; 0200: 97 01         
              LDA   #$15                ; 0202: 86 15         
              STA   <VIA_port_a         ; 0204: 97 01         
              LDA   #$1C                ; 0206: 86 1C         
              STA   <VIA_port_a         ; 0208: 97 01         
              LDA   #$46                ; 020A: 86 46         
              STA   <VIA_port_a         ; 020C: 97 01         
              LDA   #$81                ; 020E: 86 81         
              STA   <VIA_port_b         ; 0210: 97 00         
              LDA   #$80                ; 0212: 86 80         
              STA   <VIA_port_b         ; 0214: 97 00         
              LDA   #$F6                ; 0216: 86 F6         
              STA   <VIA_port_a         ; 0218: 97 01         
              LDA   #$81                ; 021A: 86 81         
              STA   <VIA_port_b         ; 021C: 97 00         
              LDA   #$46                ; 021E: 86 46         
              STA   <VIA_port_a         ; 0220: 97 01         
              LDA   #$01                ; 0222: 86 01         
              STA   <VIA_port_b         ; 0224: 97 00         
              LDA   #$1C                ; 0226: 86 1C         
              STA   <VIA_port_a         ; 0228: 97 01         
              LDA   #$15                ; 022A: 86 15         
              STA   <VIA_port_a         ; 022C: 97 01         
              LDA   #$11                ; 022E: 86 11         
              STA   <VIA_port_a         ; 0230: 97 01         
              LDA   #$0E                ; 0232: 86 0E         
              STA   <VIA_port_a         ; 0234: 97 01         
              LDA   #$0C                ; 0236: 86 0C         
              STA   <VIA_port_a         ; 0238: 97 01         
              LDA   #$0B                ; 023A: 86 0B         
              STA   <VIA_port_a         ; 023C: 97 01         
              LDA   #$0A                ; 023E: 86 0A         
              STA   <VIA_port_a         ; 0240: 97 01         
              LDA   #$09                ; 0242: 86 09         
              STA   <VIA_port_a         ; 0244: 97 01         
              LDA   #$08                ; 0246: 86 08         
              STA   <VIA_port_a         ; 0248: 97 01         
              LDA   #$07                ; 024A: 86 07         
              STA   <VIA_port_a         ; 024C: 97 01         
              LDA   #$07                ; 024E: 86 07         
              STA   <VIA_port_a         ; 0250: 97 01         
              LDA   #$05                ; 0252: 86 05         
              STA   <VIA_port_a         ; 0254: 97 01         
              LDA   #$05                ; 0256: 86 05         
              STA   <VIA_port_a         ; 0258: 97 01         
              LDA   #$05                ; 025A: 86 05         
              STA   <VIA_port_a         ; 025C: 97 01         
              LDA   #$04                ; 025E: 86 04         
              STA   <VIA_port_a         ; 0260: 97 01         
              LDA   #$04                ; 0262: 86 04         
              STA   <VIA_port_a         ; 0264: 97 01         
              LDA   #$03                ; 0266: 86 03         
              STA   <VIA_port_a         ; 0268: 97 01         
              LDA   #$03                ; 026A: 86 03         
              STA   <VIA_port_a         ; 026C: 97 01         
              LDA   #$02                ; 026E: 86 02         
              STA   <VIA_port_a         ; 0270: 97 01         
              LDA   #$02                ; 0272: 86 02         
              STA   <VIA_port_a         ; 0274: 97 01         
              LDA   #$01                ; 0276: 86 01         
              STA   <VIA_port_a         ; 0278: 97 01         
              LDA   #$01                ; 027A: 86 01         
              STA   <VIA_port_a         ; 027C: 97 01         
              LDA   #$01                ; 027E: 86 01         
              STA   <VIA_port_a         ; 0280: 97 01         
              LDA   #$00                ; 0282: 86 00         
              STA   <VIA_port_a         ; 0284: 97 01         
              LDA   #$81                ; 0286: 86 81         
              STA   <VIA_port_b         ; 0288: 97 00         
              LDA   #$CC                ; 028A: 86 CC         
              STA   <VIA_cntl           ; 028C: 97 0C         
              DEC   RAM0                ; 028E: 7A C8 80      
              LBNE  L005D               ; 0291: 10 26 FD C8   
              LDY   #BIGCIRCS           ; 0295: 10 8E 07 16   
              LDA   #$06                ; 0299: 86 06         
              STA   RAM1                ; 029B: B7 C8 81      
L029E:        LDA   #$98                ; 029E: 86 98         
              STA   <VIA_aux_cntl       ; 02A0: 97 0B         
              LDA   ,Y++                ; 02A2: A6 A1         
              LDB   -1,Y                ; 02A4: E6 3F         
              STA   <VIA_port_a         ; 02A6: 97 01         
              CLR   <VIA_port_b         ; 02A8: 0F 00         
              PSHS  B,A                 ; 02AA: 34 06         
              LDA   #$CE                ; 02AC: 86 CE         
              STA   <VIA_cntl           ; 02AE: 97 0C         
              CLR   <VIA_shift_reg      ; 02B0: 0F 0A         
              INC   <VIA_port_b         ; 02B2: 0C 00         
              STB   <VIA_port_a         ; 02B4: D7 01         
              CLR   <VIA_t1_cnt_hi      ; 02B6: 0F 05         
              PULS  A,B                 ; 02B8: 35 06         
              TSTA                      ; 02BA: 4D            
              BPL   L02C1               ; 02BB: 2A 04         
              NEGA                      ; 02BD: 40            
              BVC   L02C1               ; 02BE: 28 01         
              DECA                      ; 02C0: 4A            
L02C1:        TSTB                      ; 02C1: 5D            
              BPL   L02C8               ; 02C2: 2A 04         
              NEGB                      ; 02C4: 50            
              BVC   L02C8               ; 02C5: 28 01         
              DECB                      ; 02C7: 5A            
L02C8:        STB   -1,S                ; 02C8: E7 7F         
              ORA   -1,S                ; 02CA: AA 7F         
              LDB   #$40                ; 02CC: C6 40         
              CMPA  #$40                ; 02CE: 81 40         
              BLS   L02E5               ; 02D0: 23 13         
              CMPA  #$64                ; 02D2: 81 64         
              BLS   L02DA               ; 02D4: 23 04         
              LDA   #$08                ; 02D6: 86 08         
              BRA   L02DC               ; 02D8: 20 02         

L02DA:        LDA   #$04                ; 02DA: 86 04         
L02DC:        BITB  <VIA_int_flags      ; 02DC: D5 0D         
              BEQ   L02DC               ; 02DE: 27 FC         
L02E0:        DECA                      ; 02E0: 4A            
              BNE   L02E0               ; 02E1: 26 FD         
              BRA   L02E9               ; 02E3: 20 04         

L02E5:        BITB  <VIA_int_flags      ; 02E5: D5 0D         
              BEQ   L02E5               ; 02E7: 27 FC         
L02E9:        CLR   <VIA_aux_cntl       ; 02E9: 0F 0B         
              LDA   #$80                ; 02EB: 86 80         
              STA   <VIA_port_b         ; 02ED: 97 00         
              LDA   #$F6                ; 02EF: 86 F6         
              STA   <VIA_port_a         ; 02F1: 97 01         
              LDA   #$81                ; 02F3: 86 81         
              STA   <VIA_port_b         ; 02F5: 97 00         
              LDA   #$00                ; 02F7: 86 00         
              STA   <VIA_port_a         ; 02F9: 97 01         
              LDA   #$EE                ; 02FB: 86 EE         
              STA   <VIA_cntl           ; 02FD: 97 0C         
              LDA   #$01                ; 02FF: 86 01         
              STA   <VIA_port_b         ; 0301: 97 00         
              LDA   #$FF                ; 0303: 86 FF         
              STA   <VIA_port_a         ; 0305: 97 01         
              LDA   #$FE                ; 0307: 86 FE         
              STA   <VIA_port_a         ; 0309: 97 01         
              LDA   #$FE                ; 030B: 86 FE         
              STA   <VIA_port_a         ; 030D: 97 01         
              LDA   #$FD                ; 030F: 86 FD         
              STA   <VIA_port_a         ; 0311: 97 01         
              LDA   #$FC                ; 0313: 86 FC         
              STA   <VIA_port_a         ; 0315: 97 01         
              LDA   #$FC                ; 0317: 86 FC         
              STA   <VIA_port_a         ; 0319: 97 01         
              LDA   #$FB                ; 031B: 86 FB         
              STA   <VIA_port_a         ; 031D: 97 01         
              LDA   #$F9                ; 031F: 86 F9         
              STA   <VIA_port_a         ; 0321: 97 01         
              LDA   #$F9                ; 0323: 86 F9         
              STA   <VIA_port_a         ; 0325: 97 01         
              LDA   #$F7                ; 0327: 86 F7         
              STA   <VIA_port_a         ; 0329: 97 01         
              LDA   #$F6                ; 032B: 86 F6         
              STA   <VIA_port_a         ; 032D: 97 01         
              LDA   #$F3                ; 032F: 86 F3         
              STA   <VIA_port_a         ; 0331: 97 01         
              LDA   #$F0                ; 0333: 86 F0         
              STA   <VIA_port_a         ; 0335: 97 01         
              LDA   #$EB                ; 0337: 86 EB         
              STA   <VIA_port_a         ; 0339: 97 01         
              LDA   #$C8                ; 033B: 86 C8         
              STA   <VIA_port_a         ; 033D: 97 01         
              LDA   #$81                ; 033F: 86 81         
              STA   <VIA_port_b         ; 0341: 97 00         
              LDA   #$80                ; 0343: 86 80         
              STA   <VIA_port_b         ; 0345: 97 00         
              LDA   #$0A                ; 0347: 86 0A         
              STA   <VIA_port_a         ; 0349: 97 01         
              LDA   #$81                ; 034B: 86 81         
              STA   <VIA_port_b         ; 034D: 97 00         
              LDA   #$C8                ; 034F: 86 C8         
              STA   <VIA_port_a         ; 0351: 97 01         
              LDA   #$01                ; 0353: 86 01         
              STA   <VIA_port_b         ; 0355: 97 00         
              LDA   #$EB                ; 0357: 86 EB         
              STA   <VIA_port_a         ; 0359: 97 01         
              LDA   #$F0                ; 035B: 86 F0         
              STA   <VIA_port_a         ; 035D: 97 01         
              LDA   #$F3                ; 035F: 86 F3         
              STA   <VIA_port_a         ; 0361: 97 01         
              LDA   #$F6                ; 0363: 86 F6         
              STA   <VIA_port_a         ; 0365: 97 01         
              LDA   #$F7                ; 0367: 86 F7         
              STA   <VIA_port_a         ; 0369: 97 01         
              LDA   #$F9                ; 036B: 86 F9         
              STA   <VIA_port_a         ; 036D: 97 01         
              LDA   #$F9                ; 036F: 86 F9         
              STA   <VIA_port_a         ; 0371: 97 01         
              LDA   #$FB                ; 0373: 86 FB         
              STA   <VIA_port_a         ; 0375: 97 01         
              LDA   #$FC                ; 0377: 86 FC         
              STA   <VIA_port_a         ; 0379: 97 01         
              LDA   #$FC                ; 037B: 86 FC         
              STA   <VIA_port_a         ; 037D: 97 01         
              LDA   #$FD                ; 037F: 86 FD         
              STA   <VIA_port_a         ; 0381: 97 01         
              LDA   #$FE                ; 0383: 86 FE         
              STA   <VIA_port_a         ; 0385: 97 01         
              LDA   #$FF                ; 0387: 86 FF         
              STA   <VIA_port_a         ; 0389: 97 01         
              LDA   #$FF                ; 038B: 86 FF         
              STA   <VIA_port_a         ; 038D: 97 01         
              LDA   #$FF                ; 038F: 86 FF         
              STA   <VIA_port_a         ; 0391: 97 01         
              LDA   #$81                ; 0393: 86 81         
              STA   <VIA_port_b         ; 0395: 97 00         
              LDA   #$00                ; 0397: 86 00         
              STA   <VIA_port_a         ; 0399: 97 01         
              LDA   #$01                ; 039B: 86 01         
              STA   <VIA_port_b         ; 039D: 97 00         
              LDA   #$01                ; 039F: 86 01         
              STA   <VIA_port_a         ; 03A1: 97 01         
              LDA   #$02                ; 03A3: 86 02         
              STA   <VIA_port_a         ; 03A5: 97 01         
              LDA   #$02                ; 03A7: 86 02         
              STA   <VIA_port_a         ; 03A9: 97 01         
              LDA   #$03                ; 03AB: 86 03         
              STA   <VIA_port_a         ; 03AD: 97 01         
              LDA   #$04                ; 03AF: 86 04         
              STA   <VIA_port_a         ; 03B1: 97 01         
              LDA   #$04                ; 03B3: 86 04         
              STA   <VIA_port_a         ; 03B5: 97 01         
              LDA   #$05                ; 03B7: 86 05         
              STA   <VIA_port_a         ; 03B9: 97 01         
              LDA   #$07                ; 03BB: 86 07         
              STA   <VIA_port_a         ; 03BD: 97 01         
              LDA   #$07                ; 03BF: 86 07         
              STA   <VIA_port_a         ; 03C1: 97 01         
              LDA   #$09                ; 03C3: 86 09         
              STA   <VIA_port_a         ; 03C5: 97 01         
              LDA   #$0A                ; 03C7: 86 0A         
              STA   <VIA_port_a         ; 03C9: 97 01         
              LDA   #$0D                ; 03CB: 86 0D         
              STA   <VIA_port_a         ; 03CD: 97 01         
              LDA   #$0D                ; 03CF: 86 0D         
              STA   <VIA_port_a         ; 03D1: 97 01         
              LDA   #$10                ; 03D3: 86 10         
              STA   <VIA_port_a         ; 03D5: 97 01         
              LDA   #$15                ; 03D7: 86 15         
              STA   <VIA_port_a         ; 03D9: 97 01         
              LDA   #$38                ; 03DB: 86 38         
              STA   <VIA_port_a         ; 03DD: 97 01         
              LDA   #$81                ; 03DF: 86 81         
              STA   <VIA_port_b         ; 03E1: 97 00         
              LDA   #$80                ; 03E3: 86 80         
              STA   <VIA_port_b         ; 03E5: 97 00         
              LDA   #$F6                ; 03E7: 86 F6         
              STA   <VIA_port_a         ; 03E9: 97 01         
              LDA   #$81                ; 03EB: 86 81         
              STA   <VIA_port_b         ; 03ED: 97 00         
              LDA   #$38                ; 03EF: 86 38         
              STA   <VIA_port_a         ; 03F1: 97 01         
              LDA   #$01                ; 03F3: 86 01         
              STA   <VIA_port_b         ; 03F5: 97 00         
              LDA   #$15                ; 03F7: 86 15         
              STA   <VIA_port_a         ; 03F9: 97 01         
              LDA   #$10                ; 03FB: 86 10         
              STA   <VIA_port_a         ; 03FD: 97 01         
              LDA   #$0D                ; 03FF: 86 0D         
              STA   <VIA_port_a         ; 0401: 97 01         
              LDA   #$0A                ; 0403: 86 0A         
              STA   <VIA_port_a         ; 0405: 97 01         
              LDA   #$09                ; 0407: 86 09         
              STA   <VIA_port_a         ; 0409: 97 01         
              LDA   #$07                ; 040B: 86 07         
              STA   <VIA_port_a         ; 040D: 97 01         
              LDA   #$07                ; 040F: 86 07         
              STA   <VIA_port_a         ; 0411: 97 01         
              LDA   #$05                ; 0413: 86 05         
              STA   <VIA_port_a         ; 0415: 97 01         
              LDA   #$04                ; 0417: 86 04         
              STA   <VIA_port_a         ; 0419: 97 01         
              LDA   #$04                ; 041B: 86 04         
              STA   <VIA_port_a         ; 041D: 97 01         
              LDA   #$03                ; 041F: 86 03         
              STA   <VIA_port_a         ; 0421: 97 01         
              LDA   #$02                ; 0423: 86 02         
              STA   <VIA_port_a         ; 0425: 97 01         
              LDA   #$02                ; 0427: 86 02         
              STA   <VIA_port_a         ; 0429: 97 01         
              LDA   #$01                ; 042B: 86 01         
              STA   <VIA_port_a         ; 042D: 97 01         
              LDA   #$00                ; 042F: 86 00         
              STA   <VIA_port_a         ; 0431: 97 01         
              LDA   #$81                ; 0433: 86 81         
              STA   <VIA_port_b         ; 0435: 97 00         
              LDA   #$CC                ; 0437: 86 CC         
              STA   <VIA_cntl           ; 0439: 97 0C         
              DEC   RAM1                ; 043B: 7A C8 81      
              LBNE  L029E               ; 043E: 10 26 FE 5C   
              LDY   #MEDCIRCS           ; 0442: 10 8E 07 22   
              LDA   #$0C                ; 0446: 86 0C         
              STA   RAM2                ; 0448: B7 C8 82      
L044B:        LDA   #$98                ; 044B: 86 98         
              STA   <VIA_aux_cntl       ; 044D: 97 0B         
              LDA   ,Y++                ; 044F: A6 A1         
              LDB   -1,Y                ; 0451: E6 3F         
              STA   <VIA_port_a         ; 0453: 97 01         
              CLR   <VIA_port_b         ; 0455: 0F 00         
              PSHS  B,A                 ; 0457: 34 06         
              LDA   #$CE                ; 0459: 86 CE         
              STA   <VIA_cntl           ; 045B: 97 0C         
              CLR   <VIA_shift_reg      ; 045D: 0F 0A         
              INC   <VIA_port_b         ; 045F: 0C 00         
              STB   <VIA_port_a         ; 0461: D7 01         
              CLR   <VIA_t1_cnt_hi      ; 0463: 0F 05         
              PULS  A,B                 ; 0465: 35 06         
              TSTA                      ; 0467: 4D            
              BPL   L046E               ; 0468: 2A 04         
              NEGA                      ; 046A: 40            
              BVC   L046E               ; 046B: 28 01         
              DECA                      ; 046D: 4A            
L046E:        TSTB                      ; 046E: 5D            
              BPL   L0475               ; 046F: 2A 04         
              NEGB                      ; 0471: 50            
              BVC   L0475               ; 0472: 28 01         
              DECB                      ; 0474: 5A            
L0475:        STB   -1,S                ; 0475: E7 7F         
              ORA   -1,S                ; 0477: AA 7F         
              LDB   #$40                ; 0479: C6 40         
              CMPA  #$40                ; 047B: 81 40         
              BLS   L0492               ; 047D: 23 13         
              CMPA  #$64                ; 047F: 81 64         
              BLS   L0487               ; 0481: 23 04         
              LDA   #$08                ; 0483: 86 08         
              BRA   L0489               ; 0485: 20 02         

L0487:        LDA   #$04                ; 0487: 86 04         
L0489:        BITB  <VIA_int_flags      ; 0489: D5 0D         
              BEQ   L0489               ; 048B: 27 FC         
L048D:        DECA                      ; 048D: 4A            
              BNE   L048D               ; 048E: 26 FD         
              BRA   L0496               ; 0490: 20 04         

L0492:        BITB  <VIA_int_flags      ; 0492: D5 0D         
              BEQ   L0492               ; 0494: 27 FC         
L0496:        CLR   <VIA_aux_cntl       ; 0496: 0F 0B         
              LDA   #$80                ; 0498: 86 80         
              STA   <VIA_port_b         ; 049A: 97 00         
              LDA   #$F6                ; 049C: 86 F6         
              STA   <VIA_port_a         ; 049E: 97 01         
              LDA   #$81                ; 04A0: 86 81         
              STA   <VIA_port_b         ; 04A2: 97 00         
              LDA   #$FF                ; 04A4: 86 FF         
              STA   <VIA_port_a         ; 04A6: 97 01         
              LDA   #$EE                ; 04A8: 86 EE         
              STA   <VIA_cntl           ; 04AA: 97 0C         
              LDA   #$01                ; 04AC: 86 01         
              STA   <VIA_port_b         ; 04AE: 97 00         
              LDA   #$FF                ; 04B0: 86 FF         
              STA   <VIA_port_a         ; 04B2: 97 01         
              LDA   #$FD                ; 04B4: 86 FD         
              STA   <VIA_port_a         ; 04B6: 97 01         
              LDA   #$FC                ; 04B8: 86 FC         
              STA   <VIA_port_a         ; 04BA: 97 01         
              LDA   #$FA                ; 04BC: 86 FA         
              STA   <VIA_port_a         ; 04BE: 97 01         
              LDA   #$F8                ; 04C0: 86 F8         
              STA   <VIA_port_a         ; 04C2: 97 01         
              LDA   #$F6                ; 04C4: 86 F6         
              STA   <VIA_port_a         ; 04C6: 97 01         
              LDA   #$F0                ; 04C8: 86 F0         
              STA   <VIA_port_a         ; 04CA: 97 01         
              LDA   #$D7                ; 04CC: 86 D7         
              STA   <VIA_port_a         ; 04CE: 97 01         
              LDA   #$81                ; 04D0: 86 81         
              STA   <VIA_port_b         ; 04D2: 97 00         
              LDA   #$80                ; 04D4: 86 80         
              STA   <VIA_port_b         ; 04D6: 97 00         
              LDA   #$0A                ; 04D8: 86 0A         
              STA   <VIA_port_a         ; 04DA: 97 01         
              LDA   #$81                ; 04DC: 86 81         
              STA   <VIA_port_b         ; 04DE: 97 00         
              LDA   #$D7                ; 04E0: 86 D7         
              STA   <VIA_port_a         ; 04E2: 97 01         
              LDA   #$01                ; 04E4: 86 01         
              STA   <VIA_port_b         ; 04E6: 97 00         
              LDA   #$F0                ; 04E8: 86 F0         
              STA   <VIA_port_a         ; 04EA: 97 01         
              LDA   #$F6                ; 04EC: 86 F6         
              STA   <VIA_port_a         ; 04EE: 97 01         
              LDA   #$F8                ; 04F0: 86 F8         
              STA   <VIA_port_a         ; 04F2: 97 01         
              LDA   #$FA                ; 04F4: 86 FA         
              STA   <VIA_port_a         ; 04F6: 97 01         
              LDA   #$FC                ; 04F8: 86 FC         
              STA   <VIA_port_a         ; 04FA: 97 01         
              LDA   #$FD                ; 04FC: 86 FD         
              STA   <VIA_port_a         ; 04FE: 97 01         
              LDA   #$FF                ; 0500: 86 FF         
              STA   <VIA_port_a         ; 0502: 97 01         
              LDA   #$FF                ; 0504: 86 FF         
              STA   <VIA_port_a         ; 0506: 97 01         
              LDA   #$81                ; 0508: 86 81         
              STA   <VIA_port_b         ; 050A: 97 00         
              LDA   #$01                ; 050C: 86 01         
              STA   <VIA_port_a         ; 050E: 97 01         
              LDA   #$01                ; 0510: 86 01         
              STA   <VIA_port_b         ; 0512: 97 00         
              LDA   #$01                ; 0514: 86 01         
              STA   <VIA_port_a         ; 0516: 97 01         
              LDA   #$03                ; 0518: 86 03         
              STA   <VIA_port_a         ; 051A: 97 01         
              LDA   #$04                ; 051C: 86 04         
              STA   <VIA_port_a         ; 051E: 97 01         
              LDA   #$06                ; 0520: 86 06         
              STA   <VIA_port_a         ; 0522: 97 01         
              LDA   #$08                ; 0524: 86 08         
              STA   <VIA_port_a         ; 0526: 97 01         
              LDA   #$08                ; 0528: 86 08         
              STA   <VIA_port_a         ; 052A: 97 01         
              LDA   #$0A                ; 052C: 86 0A         
              STA   <VIA_port_a         ; 052E: 97 01         
              LDA   #$10                ; 0530: 86 10         
              STA   <VIA_port_a         ; 0532: 97 01         
              LDA   #$29                ; 0534: 86 29         
              STA   <VIA_port_a         ; 0536: 97 01         
              LDA   #$81                ; 0538: 86 81         
              STA   <VIA_port_b         ; 053A: 97 00         
              LDA   #$80                ; 053C: 86 80         
              STA   <VIA_port_b         ; 053E: 97 00         
              LDA   #$F6                ; 0540: 86 F6         
              STA   <VIA_port_a         ; 0542: 97 01         
              LDA   #$81                ; 0544: 86 81         
              STA   <VIA_port_b         ; 0546: 97 00         
              LDA   #$29                ; 0548: 86 29         
              STA   <VIA_port_a         ; 054A: 97 01         
              LDA   #$01                ; 054C: 86 01         
              STA   <VIA_port_b         ; 054E: 97 00         
              LDA   #$10                ; 0550: 86 10         
              STA   <VIA_port_a         ; 0552: 97 01         
              LDA   #$0A                ; 0554: 86 0A         
              STA   <VIA_port_a         ; 0556: 97 01         
              LDA   #$08                ; 0558: 86 08         
              STA   <VIA_port_a         ; 055A: 97 01         
              LDA   #$06                ; 055C: 86 06         
              STA   <VIA_port_a         ; 055E: 97 01         
              LDA   #$04                ; 0560: 86 04         
              STA   <VIA_port_a         ; 0562: 97 01         
              LDA   #$03                ; 0564: 86 03         
              STA   <VIA_port_a         ; 0566: 97 01         
              LDA   #$01                ; 0568: 86 01         
              STA   <VIA_port_a         ; 056A: 97 01         
              LDA   #$01                ; 056C: 86 01         
              STA   <VIA_port_a         ; 056E: 97 01         
              LDA   #$81                ; 0570: 86 81         
              STA   <VIA_port_b         ; 0572: 97 00         
              LDA   #$CC                ; 0574: 86 CC         
              STA   <VIA_cntl           ; 0576: 97 0C         
              DEC   RAM2                ; 0578: 7A C8 82      
              LBNE  L044B               ; 057B: 10 26 FE CC   
              LDY   #WEECIRCS           ; 057F: 10 8E 07 3A   
              LDA   #$18                ; 0583: 86 18         
              STA   RAM3                ; 0585: B7 C8 83      
L0588:        LDA   #$98                ; 0588: 86 98         
              STA   <VIA_aux_cntl       ; 058A: 97 0B         
              LDA   ,Y++                ; 058C: A6 A1         
              LDB   -1,Y                ; 058E: E6 3F         
              STA   <VIA_port_a         ; 0590: 97 01         
              CLR   <VIA_port_b         ; 0592: 0F 00         
              PSHS  B,A                 ; 0594: 34 06         
              LDA   #$CE                ; 0596: 86 CE         
              STA   <VIA_cntl           ; 0598: 97 0C         
              CLR   <VIA_shift_reg      ; 059A: 0F 0A         
              INC   <VIA_port_b         ; 059C: 0C 00         
              STB   <VIA_port_a         ; 059E: D7 01         
              CLR   <VIA_t1_cnt_hi      ; 05A0: 0F 05         
              PULS  A,B                 ; 05A2: 35 06         
              TSTA                      ; 05A4: 4D            
              BPL   L05AB               ; 05A5: 2A 04         
              NEGA                      ; 05A7: 40            
              BVC   L05AB               ; 05A8: 28 01         
              DECA                      ; 05AA: 4A            
L05AB:        TSTB                      ; 05AB: 5D            
              BPL   L05B2               ; 05AC: 2A 04         
              NEGB                      ; 05AE: 50            
              BVC   L05B2               ; 05AF: 28 01         
              DECB                      ; 05B1: 5A            
L05B2:        STB   -1,S                ; 05B2: E7 7F         
              ORA   -1,S                ; 05B4: AA 7F         
              LDB   #$40                ; 05B6: C6 40         
              CMPA  #$40                ; 05B8: 81 40         
              BLS   L05CF               ; 05BA: 23 13         
              CMPA  #$64                ; 05BC: 81 64         
              BLS   L05C4               ; 05BE: 23 04         
              LDA   #$08                ; 05C0: 86 08         
              BRA   L05C6               ; 05C2: 20 02         

L05C4:        LDA   #$04                ; 05C4: 86 04         
L05C6:        BITB  <VIA_int_flags      ; 05C6: D5 0D         
              BEQ   L05C6               ; 05C8: 27 FC         
L05CA:        DECA                      ; 05CA: 4A            
              BNE   L05CA               ; 05CB: 26 FD         
              BRA   L05D3               ; 05CD: 20 04         

L05CF:        BITB  <VIA_int_flags      ; 05CF: D5 0D         
              BEQ   L05CF               ; 05D1: 27 FC         
L05D3:        CLR   <VIA_aux_cntl       ; 05D3: 0F 0B         
              LDA   #$80                ; 05D5: 86 80         
              STA   <VIA_port_b         ; 05D7: 97 00         
              LDA   #$F6                ; 05D9: 86 F6         
              STA   <VIA_port_a         ; 05DB: 97 01         
              LDA   #$81                ; 05DD: 86 81         
              STA   <VIA_port_b         ; 05DF: 97 00         
              LDA   #$FF                ; 05E1: 86 FF         
              STA   <VIA_port_a         ; 05E3: 97 01         
              LDA   #$EE                ; 05E5: 86 EE         
              STA   <VIA_cntl           ; 05E7: 97 0C         
              LDA   #$01                ; 05E9: 86 01         
              STA   <VIA_port_b         ; 05EB: 97 00         
              LDA   #$FD                ; 05ED: 86 FD         
              STA   <VIA_port_a         ; 05EF: 97 01         
              LDA   #$FA                ; 05F1: 86 FA         
              STA   <VIA_port_a         ; 05F3: 97 01         
              LDA   #$F6                ; 05F5: 86 F6         
              STA   <VIA_port_a         ; 05F7: 97 01         
              LDA   #$E2                ; 05F9: 86 E2         
              STA   <VIA_port_a         ; 05FB: 97 01         
              LDA   #$81                ; 05FD: 86 81         
              STA   <VIA_port_b         ; 05FF: 97 00         
              LDA   #$80                ; 0601: 86 80         
              STA   <VIA_port_b         ; 0603: 97 00         
              LDA   #$0A                ; 0605: 86 0A         
              STA   <VIA_port_a         ; 0607: 97 01         
              LDA   #$81                ; 0609: 86 81         
              STA   <VIA_port_b         ; 060B: 97 00         
              LDA   #$E2                ; 060D: 86 E2         
              STA   <VIA_port_a         ; 060F: 97 01         
              LDA   #$01                ; 0611: 86 01         
              STA   <VIA_port_b         ; 0613: 97 00         
              LDA   #$F6                ; 0615: 86 F6         
              STA   <VIA_port_a         ; 0617: 97 01         
              LDA   #$FA                ; 0619: 86 FA         
              STA   <VIA_port_a         ; 061B: 97 01         
              LDA   #$FD                ; 061D: 86 FD         
              STA   <VIA_port_a         ; 061F: 97 01         
              LDA   #$FF                ; 0621: 86 FF         
              STA   <VIA_port_a         ; 0623: 97 01         
              LDA   #$81                ; 0625: 86 81         
              STA   <VIA_port_b         ; 0627: 97 00         
              LDA   #$01                ; 0629: 86 01         
              STA   <VIA_port_a         ; 062B: 97 01         
              LDA   #$01                ; 062D: 86 01         
              STA   <VIA_port_b         ; 062F: 97 00         
              LDA   #$03                ; 0631: 86 03         
              STA   <VIA_port_a         ; 0633: 97 01         
              LDA   #$03                ; 0635: 86 03         
              STA   <VIA_port_a         ; 0637: 97 01         
              LDA   #$06                ; 0639: 86 06         
              STA   <VIA_port_a         ; 063B: 97 01         
              LDA   #$0A                ; 063D: 86 0A         
              STA   <VIA_port_a         ; 063F: 97 01         
              LDA   #$1E                ; 0641: 86 1E         
              STA   <VIA_port_a         ; 0643: 97 01         
              LDA   #$81                ; 0645: 86 81         
              STA   <VIA_port_b         ; 0647: 97 00         
              LDA   #$80                ; 0649: 86 80         
              STA   <VIA_port_b         ; 064B: 97 00         
              LDA   #$F6                ; 064D: 86 F6         
              STA   <VIA_port_a         ; 064F: 97 01         
              LDA   #$81                ; 0651: 86 81         
              STA   <VIA_port_b         ; 0653: 97 00         
              LDA   #$1E                ; 0655: 86 1E         
              STA   <VIA_port_a         ; 0657: 97 01         
              LDA   #$01                ; 0659: 86 01         
              STA   <VIA_port_b         ; 065B: 97 00         
              LDA   #$0A                ; 065D: 86 0A         
              STA   <VIA_port_a         ; 065F: 97 01         
              LDA   #$06                ; 0661: 86 06         
              STA   <VIA_port_a         ; 0663: 97 01         
              LDA   #$03                ; 0665: 86 03         
              STA   <VIA_port_a         ; 0667: 97 01         
              LDA   #$01                ; 0669: 86 01         
              STA   <VIA_port_a         ; 066B: 97 01         
              LDA   #$81                ; 066D: 86 81         
              STA   <VIA_port_b         ; 066F: 97 00         
              LDA   #$CC                ; 0671: 86 CC         
              STA   <VIA_cntl           ; 0673: 97 0C         
              DEC   RAM3                ; 0675: 7A C8 83      
              LBNE  L0588               ; 0678: 10 26 FF 0C   
              LDA   #$6F                ; 067C: 86 6F         
              STA   <VIA_port_a         ; 067E: 97 01         
              LDA   #$84                ; 0680: 86 84         
              STA   <VIA_port_b         ; 0682: 97 00         
              INC   <VIA_port_b         ; 0684: 0C 00         
              LDA   #$98                ; 0686: 86 98         
              STA   <VIA_aux_cntl       ; 0688: 97 0B         
              LDA   #$41                ; 068A: 86 41         
              LDB   #$83                ; 068C: C6 83         
              STA   <VIA_port_a         ; 068E: 97 01         
              CLR   <VIA_port_b         ; 0690: 0F 00         
              PSHS  B,A                 ; 0692: 34 06         
              LDA   #$CE                ; 0694: 86 CE         
              STA   <VIA_cntl           ; 0696: 97 0C         
              CLR   <VIA_shift_reg      ; 0698: 0F 0A         
              INC   <VIA_port_b         ; 069A: 0C 00         
              STB   <VIA_port_a         ; 069C: D7 01         
              CLR   <VIA_t1_cnt_hi      ; 069E: 0F 05         
              PULS  A,B                 ; 06A0: 35 06         
              TSTA                      ; 06A2: 4D            
              BPL   L06A9               ; 06A3: 2A 04         
              NEGA                      ; 06A5: 40            
              BVC   L06A9               ; 06A6: 28 01         
              DECA                      ; 06A8: 4A            
L06A9:        TSTB                      ; 06A9: 5D            
              BPL   L06B0               ; 06AA: 2A 04         
              NEGB                      ; 06AC: 50            
              BVC   L06B0               ; 06AD: 28 01         
              DECB                      ; 06AF: 5A            
L06B0:        STB   -1,S                ; 06B0: E7 7F         
              ORA   -1,S                ; 06B2: AA 7F         
              LDB   #$40                ; 06B4: C6 40         
              CMPA  #$40                ; 06B6: 81 40         
              BLS   L06CD               ; 06B8: 23 13         
              CMPA  #$64                ; 06BA: 81 64         
              BLS   L06C2               ; 06BC: 23 04         
              LDA   #$08                ; 06BE: 86 08         
              BRA   L06C4               ; 06C0: 20 02         

L06C2:        LDA   #$04                ; 06C2: 86 04         
L06C4:        BITB  <VIA_int_flags      ; 06C4: D5 0D         
              BEQ   L06C4               ; 06C6: 27 FC         
L06C8:        DECA                      ; 06C8: 4A            
              BNE   L06C8               ; 06C9: 26 FD         
              BRA   L06D1               ; 06CB: 20 04         

L06CD:        BITB  <VIA_int_flags      ; 06CD: D5 0D         
              BEQ   L06CD               ; 06CF: 27 FC         
L06D1:        CLR   >Vec_Misc_Count     ; 06D1: 7F C8 23      
              LDA   #$00                ; 06D4: 86 00         
              LDB   #$7D                ; 06D6: C6 7D         
              JSR   Draw_Line_d         ; 06D8: BD F3 DF      

              CLR   >Vec_Misc_Count     ; 06DB: 7F C8 23      
              LDA   #$00                ; 06DE: 86 00         
              LDB   #$7D                ; 06E0: C6 7D         
              JSR   Draw_Line_d         ; 06E2: BD F3 DF      

              CLR   >Vec_Misc_Count     ; 06E5: 7F C8 23      
              LDA   #$83                ; 06E8: 86 83         
              LDB   #$00                ; 06EA: C6 00         
              JSR   Draw_Line_d         ; 06EC: BD F3 DF      

              CLR   >Vec_Misc_Count     ; 06EF: 7F C8 23      
              LDA   #$00                ; 06F2: 86 00         
              LDB   #$83                ; 06F4: C6 83         
              JSR   Draw_Line_d         ; 06F6: BD F3 DF

              CLR   >Vec_Misc_Count     ; 06F9: 7F C8 23      
              LDA   #$00                ; 06FC: 86 00         
              LDB   #$83                ; 06FE: C6 83         
              JSR   Draw_Line_d         ; 0700: BD F3 DF     

              CLR   >Vec_Misc_Count     ; 0703: 7F C8 23      
              LDA   #$7D                ; 0706: 86 7D         
              LDB   #$00                ; 0708: C6 00         
              JSR   Draw_Line_d         ; 070A: BD F3 DF      
              JMP   LOOP                ; 070D: 7E 00 2C    
              ; NOP                       ; check we have ID'd all data labels

; tables of Y,X positions for the circles

HUGECIRCS     FCB   $28, $c4            ; top row - big circles
              FCB   $28, $00
              FCB   $28, $3c
BIGCIRCS      FCB   $0a, $ba            ; second row
              FCB   $0a, $ce
              FCB   $0a, $e2
              FCB   $0a, $1e
              FCB   $0a, $32
              FCB   $0a, $46
MEDCIRCS      FCB   $f6, $a6            ; third row
              FCB   $f6, $b5
              FCB   $f6, $c4
              FCB   $f6, $d3
              FCB   $f6, $e2
              FCB   $f6, $f1
              FCB   $f6, $0f
              FCB   $f6, $1e
              FCB   $f6, $2d
              FCB   $f6, $3c
              FCB   $f6, $4b
              FCB   $f6, $5a
WEECIRCS      FCB   $e7, $88            ; bottom row - very small circles
              FCB   $e7, $92
              FCB   $e7, $9c
              FCB   $e7, $a6
              FCB   $e7, $b0
              FCB   $e7, $ba
              FCB   $e7, $c4
              FCB   $e7, $ce
              FCB   $e7, $d8
              FCB   $e7, $e2
              FCB   $e7, $ec
              FCB   $e7, $f6
              FCB   $e7, $0a
              FCB   $e7, $14
              FCB   $e7, $1e
              FCB   $e7, $28
              FCB   $e7, $32
              FCB   $e7, $3c
              FCB   $e7, $46
              FCB   $e7, $50
              FCB   $e7, $5a
              FCB   $e7, $64
              FCB   $e7, $6e
              FCB   $e7, $78