robotron-7800/RKL.S82

******************************************************
******************************************************
*
*
*    ROBOTRON     6-JULY-83              3:00
*                21-JULY-83              8:00
*                29-JULY-83              1:30
*                22-AUGUST-83            5:00
*
*         RKERNEL.S
*
******************************************************


*******************
*
*         ROBOTRON KERNEL GOES HERE
*
*******************
*         HERE STORE THE STATUS OF EVERYTHING BECAUSE WE ARRIVED BY INTERUPT

KERNEL
          PHA                            ;SAVE REGISTERS
          TXA
          PHA
          TYA
          PHA

TOPWAIT   STA     WSYNC                  ;ONLY CHECK FOR TOP WHEN OFF EDGE
          BIT     MSTAT                  ;WAIT FOR EXACT BOTTOM OF SCREEN
M2        BPL     TOPWAIT

TOPWAIT1  BIT     MSTAT
          BMI     TOPWAIT1               ;CHANGE TO BMI FOR SI MARIA


*         STORING TO DPL CAUSES DMA TO START
*         Y IS ALWAYS THE OFFSET
*         X IS ALWAYS THE LOW DL POINTER
;ZONE 0
;LINE 0
          LDY     #0
          LDA     #H(DLZONE0)
          STA     DPH
          LDX     #L(DLZONE0)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

*         WE'VE SEEN ENOUGH OF THIS
          PRINT   OFF

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE1)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 1
;LINE 0
          LDX     #L(DLZONE1)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE2)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 2
;LINE 0
          LDX     #L(DLZONE2)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE3)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE3
;LINE 0
          LDX     #L(DLZONE3)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE4)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 4
;LINE 0
          LDX     #L(DLZONE4)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE5)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 5
;LINE 0
          LDX     #L(DLZONE5)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE6)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 6
;LINE 0
          LDX     #L(DLZONE6)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE7)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 7
;LINE 0
          LDX     #L(DLZONE7)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE8)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 8
;LINE 0
          LDX     #L(DLZONE8)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE9)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 9
;LINE 0
          LDX     #L(DLZONE9)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE10)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 10
;LINE 0
          LDX     #L(DLZONE10)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY
          LDA     #H(DLZONE11)           ;START TO SET UP FOR THE NEXT ZONE
;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          LDY     #0                     ;SET THE OFFSET TO ZERO FOR NEW ZONE
          STA     DPH                    ;SET UP THE DISPLAY HIGH POINTER
;ZONE 11
;LINE 0
          LDX     #L(DLZONE11)
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 1
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 2
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 3
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 4
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 5
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 6
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 7
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 8
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 9
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 10
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 11
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 12
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 13
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

;LINE 14
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME
          INY

*         OK, TURN ON LISTING AGAIN
          PRINT   ON

;LINE 15
          STA     WSYNC                  ;WAIT FOR START OF SCAN LINE
          DB      $84,$38,$EA,$EA
          STX     DPL
;DMA TIME


*         INCREMENT FRAME COUNT
          INC     FRMCNT

*         THEN SET UP THE TIMER FOR THE NEXT FRAME
          LDA     #$7C                   ;THIS SHOULD GIVE THE CORRECT WAIT
          STA     TIM64TI                ;BEFORE THE NEXT INTERUPT
*

*******************
*
*         CALL THE SOUND DRIVER ROUTINE
*
          JSR     TUNER                  ;ROUTINE IN RSOUNDS.S
*


*
*         END OF KERNEL
*

*         RESTORE THE REGISTERS THAT WERE SAVED AT THE BEGINING
*         AND DO AN RTI
          PLA
          TAY
          PLA
          TAX
          PLA
          RTI

******************************************

*         END OF RKERNEL.S
          EJE