8bitworkshop/test/ecs/bigdemo.txt

EVENT__start = 1
EVENT__postframe = 1
EVENT__preframe = 1
EVENT__kernel = 1
EVENT__scanline = 1
EVENT__joyleft = 1
EVENT__joyright = 1
EVENT__joyup = 1
EVENT__joydown = 1
EVENT__prekernel = 1
EVENT__SetHorizPos = 1
EVENT__AddBCD4 = 1
EVENT__AddBCD2 = 1
EVENT__SubBCD2 = 1
.scope Main
.zeropage
Sprite_bitmap_b0:
.res 1
.res 1
.res 1
.res 1
HasColormap_colormap_b0:
.res 1
.res 1
.res 1
.res 1
HasXpos_xpos_b0:
.res 1
.res 1
.res 1
.res 1
HasYpos_ypos_b0:
.res 1
.res 1
.res 1
.res 1
SpriteSlot_sprite_b0:
.res 1
.res 1
.res 1
.res 1
BCDScore6_digits_b0:
.res 1
BCDScore6_digits_b8:
.res 1
BCDScore6_digits_b16:
.res 1
TEMP:
Kernel2Sprite__2__tmp:
Joystick__3__tmp:
SpriteHider__9__tmp:
.res 1
SpriteShuffler__8__tmp:
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
Kernel6Digit__10__tmp:
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.res 1
.code
PFColor_pfcolor_b0:
.byte 60
BGColor_bgcolor_b0:
.byte 2
.byte 160
KernelSection_lines_b0:
.byte 168
Bitmap_bitmapdata_b0:
.byte <(Bitmap_bitmapdata_e2_b0+31)
.byte <(Bitmap_bitmapdata_e3_b0+31)
.byte <(Bitmap_bitmapdata_e4_b0+31)
.byte <(Bitmap_bitmapdata_e5_b0+31)
.byte <(Bitmap_bitmapdata_e6_b0+31)
Bitmap_bitmapdata_b8:
.byte >(Bitmap_bitmapdata_e2_b0+31)
.byte >(Bitmap_bitmapdata_e3_b0+31)
.byte >(Bitmap_bitmapdata_e4_b0+31)
.byte >(Bitmap_bitmapdata_e5_b0+31)
.byte >(Bitmap_bitmapdata_e6_b0+31)
Bitmap_bitmapdata_e2_b0:
.byte 85
.byte 119
.byte 126
.byte 124
.byte 120
.byte 112
.byte 96
.byte 64
Bitmap_height_b0:
.byte 7
.byte 12
.byte 12
.byte 8
.byte 8
Colormap_colormapdata_b0:
.byte <(Colormap_colormapdata_e2_b0+31)
.byte <(Colormap_colormapdata_e3_b0+31)
.byte <(Colormap_colormapdata_e4_b0+31)
.res 1
.res 1
.byte <(Colormap_colormapdata_e7_b0+31)
Colormap_colormapdata_b8:
.byte >(Colormap_colormapdata_e2_b0+31)
.byte >(Colormap_colormapdata_e3_b0+31)
.byte >(Colormap_colormapdata_e4_b0+31)
.res 1
.res 1
.byte >(Colormap_colormapdata_e7_b0+31)
Colormap_colormapdata_e2_b0:
.byte 24
.byte 30
.byte 28
.byte 26
.byte 24
.byte 22
.byte 20
.byte 18
Bitmap_bitmapdata_e3_b0:
.byte 60
.byte 126
.byte 255
.byte 195
.byte 255
.byte 255
.byte 255
.byte 187
.byte 153
.byte 255
.byte 126
.byte 60
.byte 24
Colormap_colormapdata_e3_b0:
.byte 74
.byte 76
.byte 78
.byte 78
.byte 78
.byte 78
.byte 78
.byte 78
.byte 78
.byte 78
.byte 76
.byte 74
.byte 72
Bitmap_bitmapdata_e4_b0:
.byte 60
.byte 126
.byte 231
.byte 219
.byte 255
.byte 255
.byte 255
.byte 153
.byte 153
.byte 255
.byte 126
.byte 60
.byte 24
Colormap_colormapdata_e4_b0:
.byte 74
.byte 76
.byte 78
.byte 78
.byte 78
.byte 78
.byte 206
.byte 206
.byte 206
.byte 142
.byte 76
.byte 74
.byte 72
Bitmap_bitmapdata_e5_b0:
.byte 1
.byte 1
.byte 3
.byte 7
.byte 15
.byte 31
.byte 63
.byte 255
Bitmap_bitmapdata_e6_b0:
.byte 24
.byte 62
.byte 255
.byte 255
.byte 255
.byte 255
.byte 62
.byte 24
Colormap_colormapdata_e7_b0:
.byte 6
.byte 3
.byte 6
.byte 9
.byte 12
.byte 14
.byte 31
.byte 63
Sprite_plyrflags_b0:
.byte 0
.byte 3
.byte 0
.byte 0
Main__INITDATA:
.byte 1
.byte 2
.byte 0
.byte 0
.byte 1
.byte 2
.byte 0
.byte 0
.byte 50
.byte 100
.byte 80
.byte 40
.byte 150
.byte 60
.byte 90
.byte 150
.byte 0
.byte 1
.byte 2
.byte 3
.byte 0
.byte 0
.byte 0
__Start:

;;; start action Init__main_init__1

.include "vcs-ca65.h"
.macpack longbranch
.define PAL 0
__NMI:
__Reset:
__BRK:
    CLEAN_START

    ldy #23
:   lda Main__INITDATA-1,y
    sta Sprite_bitmap_b0-1,y
    dey
    bne :-

;;; start action FrameLoop__start__3

    
FrameLoop__start__4__NextFrame:
    FRAME_END
    
    FRAME_START
    
;;; start action Kernel2Sprite__preframe__5

; TODOO: can store KLINES in memory?
.define KLINES #168
.define KPAD 32
; set height to zero in case no sprites
    lda #0
    sta Kernel2Sprite__2__tmp+8
    sta Kernel2Sprite__2__tmp+9

;;; end action Kernel2Sprite__preframe__5

;;; start action Kernel2Sprite__preframe__8

    ldy #0
Kernel2Sprite__preframe__9____each:
    ldx SpriteSlot_sprite_b0,y
    
; set player object flags
    lda Sprite_plyrflags_b0,x
    sta NUSIZ0,y
    sta REFP0,y
; calculate screen height - ypos
    lda KLINES
    clc
    adc KPAD
    sec
    sbc HasYpos_ypos_b0,x
    sta Kernel2Sprite__2__tmp+11
; calculate bitmap pointer
    stx Kernel2Sprite__2__tmp+12		; save X (Sprite index)
    lda Sprite_bitmap_b0,x     ; deref bitmap
    tax
    lda Bitmap_bitmapdata_b0,x
    sec
    sbc Kernel2Sprite__2__tmp+11
    sta Kernel2Sprite__2__tmp+0,y	; Y = sprite slot index
    lda Bitmap_bitmapdata_b8,x
    sbc #0
    sta Kernel2Sprite__2__tmp+2,y
; get bitmap height
    lda Bitmap_height_b0,x
    sta Kernel2Sprite__2__tmp+8,y
; calculate colormap pointer
    ldx Kernel2Sprite__2__tmp+12		; restore X
    lda HasColormap_colormap_b0,x	; deref colormap
    tax
    lda Colormap_colormapdata_b0,x
    sec
    sbc Kernel2Sprite__2__tmp+11
    sta Kernel2Sprite__2__tmp+4,y
    lda Colormap_colormapdata_b8,x
    sbc #0
    sta Kernel2Sprite__2__tmp+6,y
; save ypos
    ldx Kernel2Sprite__2__tmp+12		; restore X
    lda HasYpos_ypos_b0,x
    sta Kernel2Sprite__2__tmp+10,y

    iny
    cpy #2
    jne Kernel2Sprite__preframe__9____each
Kernel2Sprite__preframe__9____exit:

;;; end action Kernel2Sprite__preframe__8

;;; start action Kernel2Sprite__preframe__11

; shuffle pointers into (MSB, LSB) byte order
; L0 L1 H0 H1 -> L0 H0 L1 H1
    lda Kernel2Sprite__2__tmp+1
    ldy Kernel2Sprite__2__tmp+2
    sty Kernel2Sprite__2__tmp+1
    sta Kernel2Sprite__2__tmp+2
    lda Kernel2Sprite__2__tmp+5
    ldy Kernel2Sprite__2__tmp+6
    sty Kernel2Sprite__2__tmp+5
    sta Kernel2Sprite__2__tmp+6

;;; end action Kernel2Sprite__preframe__11

;;; start action Kernel2Sprite__preframe__13

    lda #160
    sta COLUBK

;;; end action Kernel2Sprite__preframe__13

;;; start action Kernel2Sprite__preframe__16

;;; end action Kernel2Sprite__preframe__16

;;; start action SetXPos__preframe__17

    ldy #0
SetXPos__preframe__18____each:
    ldx SpriteSlot_sprite_b0,y
    
    lda HasXpos_xpos_b0,x
    
 jsr SetHorizPos__SetHorizPos__20


    iny
    cpy #2
    jne SetXPos__preframe__18____each
SetXPos__preframe__18____exit:

;;; end action SetXPos__preframe__17

;;; start action SetXPos__preframe__22

;;; end action SetXPos__preframe__22

;;; start action Kernel6Digit__preframe__23

Digit0 = Kernel6Digit__10__tmp+0
Digit1 = Kernel6Digit__10__tmp+2
Digit2 = Kernel6Digit__10__tmp+4
Digit3 = Kernel6Digit__10__tmp+6
Digit4 = Kernel6Digit__10__tmp+8
Digit5 = Kernel6Digit__10__tmp+10
Kernel6Digit__preframe__25__BCD0  = Kernel6Digit__10__tmp+12
Kernel6Digit__preframe__25__BCD1  = Kernel6Digit__10__tmp+13
Kernel6Digit__preframe__25__BCD2  = Kernel6Digit__10__tmp+14

	lda BCDScore6_digits_b0
        sta Kernel6Digit__preframe__25__BCD0
	lda BCDScore6_digits_b8
        sta Kernel6Digit__preframe__25__BCD1
	lda BCDScore6_digits_b16
        sta Kernel6Digit__preframe__25__BCD2
	ldx #0	; leftmost bitmap
        ldy #2	; start from most-sigificant BCD value
Kernel6Digit__preframe__25__Loop:
        lda Kernel6Digit__preframe__25__BCD0,y	; get BCD value
        and #$f0	; isolate high nibble (* 16)
        lsr		; shift right 1 bit (* 8)
        clc
        adc #<FontTable
        sta Digit0,x	; store pointer lo byte
        lda #>FontTable
        adc #0
        sta Digit0+1,x	; store pointer hi byte
        inx
        inx		; next bitmap pointer
        lda Kernel6Digit__preframe__25__BCD0,y	; get BCD value (again)
        and #$f		; isolate low nibble
        asl
        asl
        asl		; * 8
        clc
        adc #<FontTable
        sta Digit0,x	; store pointer lo byte
        lda #>FontTable
        adc #0
        sta Digit0+1,x	; store pointer hi byte
        inx
        inx		; next bitmap pointer
        dey		; next BCD value
        bpl Kernel6Digit__preframe__25__Loop	; repeat until < 0

;;; end action Kernel6Digit__preframe__23

    
;;; start action SetXPos__prekernel__26

    sta WSYNC
    sta HMOVE
    SLEEPR 24
    sta HMCLR

;;; end action SetXPos__prekernel__26

    KERNEL_START
    
;;; start action Kernel2Sprite__kernel__28

    ldy #0
    sty VDELP0
    iny
    sty VDELP1

;;; end action Kernel2Sprite__kernel__28

 jsr Kernel2Sprite__kernel__31

;;; start action Kernel2Sprite__kernel__40

    lda #0
    sta GRP0
    sta GRP1
    sta GRP0
    sta GRP1

;;; end action Kernel2Sprite__kernel__40

;;; start action Kernel6Digit__kernel__42

        lda #60
        sta COLUP0
        sta COLUP1
        lda #3
        sta NUSIZ0
        sta NUSIZ1
; set horizontal position of player objects
        sta WSYNC
        sta HMCLR
        SLEEPR 24
        sta RESP0
        sta RESP1
        lda #$10
        sta HMP1
        sta WSYNC
        sta HMOVE
        SLEEPR 24	; wait 24 cycles between write to HMOVE and HMxxx
        sta HMCLR
        lda #1
        sta VDELP0
        sta VDELP1

;;; end action Kernel6Digit__kernel__42

 jsr Kernel6Digit__kernel__45

    KERNEL_END
    
    
;;; start action FrameLoop__postframe__48

    lsr SWCHB	      ; test Game Reset switch
    bcs FrameLoop__postframe__49__NoStart
    
FrameLoop__postframe__49__NoStart:

;;; end action FrameLoop__postframe__48

;;; start action Joystick__postframe__50

; 2 control inputs share a single byte, 4 bits each
    lda SWCHA
    sta Joystick__3__tmp+0

;;; end action Joystick__postframe__50

;;; start action Joystick__postframe__52

    ldx #0
Joystick__postframe__53____each:
    
    asl Joystick__3__tmp+0
.ifdef EVENT__joyright
    bcs Joystick__postframe__54__SkipMoveRight
    
;;; start action MoveJoyX__joyright__55

    lda HasXpos_xpos_b0,x
    clc
    adc #1
    cmp #150
    bcs MoveJoyX__joyright__57__nomove
    sta HasXpos_xpos_b0,x
MoveJoyX__joyright__57__nomove:

;;; end action MoveJoyX__joyright__55

Joystick__postframe__54__SkipMoveRight:
.endif
    asl Joystick__3__tmp+0
.ifdef EVENT__joyleft
    bcs Joystick__postframe__54__SkipMoveLeft
    
;;; start action MoveJoyX__joyleft__58

    lda HasXpos_xpos_b0,x
    sec
    sbc #1
    bcc MoveJoyX__joyleft__60__nomove
    sta HasXpos_xpos_b0,x
MoveJoyX__joyleft__60__nomove:

;;; end action MoveJoyX__joyleft__58

Joystick__postframe__54__SkipMoveLeft:
.endif
    asl Joystick__3__tmp+0
.ifdef EVENT__joydown
    bcs Joystick__postframe__54__SkipMoveDown
    
;;; start action MoveJoyY__joydown__61

    lda HasYpos_ypos_b0,x
    clc
    adc #1
    cmp #220
    bcs MoveJoyY__joydown__63__nomove
    sta HasYpos_ypos_b0,x
MoveJoyY__joydown__63__nomove:

;;; end action MoveJoyY__joydown__61

Joystick__postframe__54__SkipMoveDown:
.endif
    asl Joystick__3__tmp+0
.ifdef EVENT__joyup
    bcs Joystick__postframe__54__SkipMoveUp
    
;;; start action MoveJoyY__joyup__64

    lda HasYpos_ypos_b0,x
    sec
    sbc #1
    bcc MoveJoyY__joyup__66__nomove
    sta HasYpos_ypos_b0,x
MoveJoyY__joyup__66__nomove:

;;; end action MoveJoyY__joyup__64

Joystick__postframe__54__SkipMoveUp:
.endif

    inx
    cpx #2
    jne Joystick__postframe__53____each
Joystick__postframe__53____exit:

;;; end action Joystick__postframe__52

;;; start action SpriteShuffler__postframe__67

; load two sprite slots at left side of array
	lda SpriteSlot_sprite_b0
        sta SpriteShuffler__8__tmp+0
	lda SpriteSlot_sprite_b0+1
        sta SpriteShuffler__8__tmp+1
; move two slots to the left
        ldx #0
SpriteShuffler__postframe__69__loop:
	lda SpriteSlot_sprite_b0+2,x
	sta SpriteSlot_sprite_b0,x
	inx
        cpx #4-2
        bne SpriteShuffler__postframe__69__loop
; store two sprite slots at right side of array
        lda SpriteShuffler__8__tmp+0
	sta SpriteSlot_sprite_b0+4-2
        lda SpriteShuffler__8__tmp+1
	sta SpriteSlot_sprite_b0+4-1

;;; end action SpriteShuffler__postframe__67

;;; start action SpriteHider__postframe__70

	lda #4-1
        sta SpriteHider__9__tmp+0

;;; end action SpriteHider__postframe__70

;;; start action SpriteHider__postframe__73

    ldy #0
SpriteHider__postframe__74____each:
    ldx SpriteSlot_sprite_b0,y
    
	lda HasYpos_ypos_b0,x
        cmp #192
        bcc SpriteHider__postframe__75__skip
; swap this sprite slot with slot at end of array
	lda SpriteSlot_sprite_b0,y
        pha
        ldx SpriteHider__9__tmp+0	; clobbers X, but no longer used
	lda SpriteSlot_sprite_b0,x
	sta SpriteSlot_sprite_b0,y
        pla
	sta SpriteSlot_sprite_b0,x
        dec SpriteHider__9__tmp+0
SpriteHider__postframe__75__skip:

    iny
    cpy #2
    jne SpriteHider__postframe__74____each
SpriteHider__postframe__74____exit:

;;; end action SpriteHider__postframe__73

;;; start action JoyButton__postframe__76

    ldx #0
JoyButton__postframe__77____each:
    
    lda INPT4,x	;read button input
    bmi JoyButton__postframe__78__NotPressed
    
JoyButton__postframe__78__NotPressed:

    inx
    cpx #2
    jne JoyButton__postframe__77____each
JoyButton__postframe__77____exit:

;;; end action JoyButton__postframe__76

;;; start action Enemies__postframe__79

    ldx #0
Enemies__postframe__80____each:
    
      inc HasYpos_ypos_b0+2,x
;      inc HasYpos_ypos_b0+2,x
      
    inx
    cpx #2
    jne Enemies__postframe__80____each
Enemies__postframe__80____exit:

;;; end action Enemies__postframe__79

    jmp FrameLoop__start__4__NextFrame    ; loop to next frame

;;; end action FrameLoop__start__3
	; start main routine
.segment "VECTORS"
ZeroByte:  .byte $00
Return:    .byte $60
VecNMI:
VecReset:  .word __Reset
VecBRK:    .word __BRK
.code

;;; end action Init__main_init__1
.rodata
__ALIGNORIGIN:
.rodata
SetHorizPos__SetHorizPos__20:

; SetHorizPos routine
; A = X coordinate
; Y = player number (0 or 1)
    sec		    	; set carry flag
    sta WSYNC		; start a new line
:
    sbc #15		; subtract 15
    bcs :-		; branch until negative
    eor #7		; calculate fine offset
    asl
    asl
    asl
    asl
    sta HMP0,y	; set fine offset
    sta RESP0,y	; fix coarse position
    sta WSYNC   ; won't overrun if X < 150

 rts

.assert >(SetHorizPos__SetHorizPos__20) = >(*), error, "SetHorizPos__SetHorizPos__20 crosses a page boundary!"

.assert (* - SetHorizPos__SetHorizPos__20) <= 22, error, .sprintf("SetHorizPos__SetHorizPos__20 does not fit in 22 bytes, it took %d!", (* - SetHorizPos__SetHorizPos__20))
.rodata
Kernel2Sprite__kernel__31:
    
    ldy #168
Kernel2Sprite__kernel__33__LVScan:
    
;;; start action Kernel2Sprite__scanline__34

; draw player 0
    lda Kernel2Sprite__2__tmp+8 ; height
    dcp Kernel2Sprite__2__tmp+10 ; ypos
    bcs Kernel2Sprite__scanline__35__DoDraw1
    lda #0
    .byte $2C
Kernel2Sprite__scanline__35__DoDraw1:
    lda (Kernel2Sprite__2__tmp+0),y
;    .if 0 = 0 ; TODO: configurable?
    sta WSYNC
;    .endif
    sta GRP0
    lda (Kernel2Sprite__2__tmp+4),y
    sta COLUP0
; draw player 1
    lda Kernel2Sprite__2__tmp+9 ; height
    dcp Kernel2Sprite__2__tmp+11 ; ypos
    bcs Kernel2Sprite__scanline__35__DoDraw2
    lda #0
    .byte $2C
Kernel2Sprite__scanline__35__DoDraw2:
    lda (Kernel2Sprite__2__tmp+2),y
    sta GRP1
    lda (Kernel2Sprite__2__tmp+6),y
    sta COLUP1

;;; end action Kernel2Sprite__scanline__34

;;; start action Kernel2Sprite__scanline__36

;;; end action Kernel2Sprite__scanline__36

    dey		; next scanline
    
;;; start action Kernel2Sprite__scanline__37

; draw player 0
    lda Kernel2Sprite__2__tmp+8 ; height
    dcp Kernel2Sprite__2__tmp+10 ; ypos
    bcs Kernel2Sprite__scanline__38__DoDraw1
    lda #0
    .byte $2C
Kernel2Sprite__scanline__38__DoDraw1:
    lda (Kernel2Sprite__2__tmp+0),y
;    .if 1 = 0 ; TODO: configurable?
    sta WSYNC
;    .endif
    sta GRP0
    lda (Kernel2Sprite__2__tmp+4),y
    sta COLUP0
; draw player 1
    lda Kernel2Sprite__2__tmp+9 ; height
    dcp Kernel2Sprite__2__tmp+11 ; ypos
    bcs Kernel2Sprite__scanline__38__DoDraw2
    lda #0
    .byte $2C
Kernel2Sprite__scanline__38__DoDraw2:
    lda (Kernel2Sprite__2__tmp+2),y
    sta GRP1
    lda (Kernel2Sprite__2__tmp+6),y
    sta COLUP1

;;; end action Kernel2Sprite__scanline__37

;;; start action Kernel2Sprite__scanline__39

;;; end action Kernel2Sprite__scanline__39

    dey		; next scanline
    bne Kernel2Sprite__kernel__33__LVScan	; repeat until out of lines

 rts

.assert >(Kernel2Sprite__kernel__31) = >(*), error, "Kernel2Sprite__kernel__31 crosses a page boundary!"

.if <(* - __ALIGNORIGIN) > 256-72
.align $100
.endif
.rodata
Kernel6Digit__kernel__45:

; Display the resulting 48x8 bitmap
; using the Digit0-5 pointers.
Kernel6Digit__kernel__47__LoopCount = Kernel6Digit__10__tmp+12
Kernel6Digit__kernel__47__Temp = Kernel6Digit__10__tmp+13

	lda #2
	sta WSYNC
        sta COLUBK
        lda #7
        sta Kernel6Digit__kernel__47__LoopCount
        SLEEPR 20	; TODO?
:
	ldy Kernel6Digit__kernel__47__LoopCount	; counts backwards
        lda (Digit0),y	; load B0 (1st sprite byte)
        sta GRP0	; B0 -> [GRP0]
        lda (Digit1),y	; load B1 -> A
        sta GRP1	; B1 -> [GRP1], B0 -> GRP0
        sta WSYNC	; sync to next scanline
        lda (Digit2),y	; load B2 -> A
        sta GRP0	; B2 -> [GRP0], B1 -> GRP1
        lda (Digit5),y	; load B5 -> A
        sta Kernel6Digit__kernel__47__Temp	; B5 -> temp
        lda (Digit4),y	; load B4
        tax		; -> X
        lda (Digit3),y	; load B3 -> A
        ldy Kernel6Digit__kernel__47__Temp	; load B5 -> Y
        sta GRP1	; B3 -> [GRP1]; B2 -> GRP0
        stx GRP0	; B4 -> [GRP0]; B3 -> GRP1
        sty GRP1	; B5 -> [GRP1]; B4 -> GRP0
        sta GRP0	; ?? -> [GRP0]; B5 -> GRP1
        dec Kernel6Digit__kernel__47__LoopCount	; go to next line
	bpl :-		; repeat until < 0
        
        lda #0		; clear the sprite registers
        sta WSYNC
        sta GRP0
        sta GRP1
        sta GRP0
        sta GRP1
        sta COLUBK

 rts

.assert >(Kernel6Digit__kernel__45) = >(*), error, "Kernel6Digit__kernel__45 crosses a page boundary!"

.assert (* - Kernel6Digit__kernel__45) <= 72, error, .sprintf("Kernel6Digit__kernel__45 does not fit in 72 bytes, it took %d!", (* - Kernel6Digit__kernel__45))
FontTable:

;;; start action FontTable__FontTable__82

; Font table for digits 0-9 (8x8 pixels)
;;{w:8,h:8,count:10,brev:1,flip:1};;
	.byte $00,$3c,$66,$66,$76,$6e,$66,$3c,$00,$7e,$18,$18,$18,$38,$18,$18
        .byte $00,$7e,$60,$30,$0c,$06,$66,$3c,$00,$3c,$66,$06,$1c,$06,$66,$3c
        .byte $00,$06,$06,$7f,$66,$1e,$0e,$06,$00,$3c,$66,$06,$06,$7c,$60,$7e
        .byte $00,$3c,$66,$66,$7c,$60,$66,$3c,$00,$18,$18,$18,$18,$0c,$66,$7e
        .byte $00,$3c,$66,$66,$3c,$66,$66,$3c,$00,$3c,$66,$06,$3e,$66,$66,$3c

;;; end action FontTable__FontTable__82

.endscope
Main__Start = Main::__Start