; Demo V1.0 - By Michael Kohn!
 ;
 ; June 27, 1990  (8:00 pm)  -  Demo is Started

           StartList = 38
           OpenLibrary = -552
           Forbid = -132
           Permit = -138
           AllocMem = -198
           FreeMem = -210
           ExecBase = $4

 move.l ExecBase.s, a6

 moveq #$02, d1
 move.l #$60E0,d0
 jsr AllocMem(a6) ; Allocate Enough Memory for Bit Planes
 move.l d0, a4
 moveq #$02, d1
 move.l #$0320, d0
 jsr AllocMem(a6) ; Allocate Enough Memory for Copper List
 move.l d0, a5
 moveq #$02, d1
 move.l #$01FF, d0
 jsr AllocMem(a6) ; Allocate Enough Memory for Sprites
 move.l d0, d2
 move.l d0, a3
 move.l #$10002, d1
 move.l #$3F0, d0
 jsr AllocMem(a6) ; Allocate Enough Memory for ScrollBuffer
 move.l d0, a1
 move.l d0, $184(a3)
 cmp.l #$00000000, d0
 bne start
 rts

           start:
 ; The Copper List
 move.l a5, d7
 move.l d2, d3
 move.l a4,d1
 move.w #$00E0, (a5)
 move.l d1,     $2(a5)
 move.w #$00E2, $4(a5)
 move.w d1,     $6(a5)
 add.l #8000, d1
 move.w #$00E4, $8(a5)
 move.l d1,     $A(a5)
 move.w #$00E6, $C(a5)
 move.w d1,     $E(a5)
 add.l #8000, d1
 move.w #$00E8, $10(a5)
 move.l d1,     $12(a5)
 move.w #$00EA, $14(a5)
 move.w d1,     $16(a5)
 move.w #$0180, $18(a5)
 move.w #$0009, $1A(a5)
 move.w #$1501, $1C(a5)
 move.w #$FF00, $1E(a5)
 move.l #$01800008, $20(a5)
 move.l #$1A01FF00, $24(a5)
 move.l #$01800007, $28(a5)
 move.l #$1F01FF00, $2C(a5)
 move.l #$01800006, $30(a5)
 move.l #$2401FF00, $34(a5)
 move.l #$01800005, $38(a5)
 move.l #$2901FF00, $3C(a5)
 move.l #$01800004, $40(a5)
 move.l #$2D01FF00, $44(a5)
 move.l #$01800003, $48(a5)
 move.l #$3101FF00, $4C(a5)
 move.l #$01800002, $50(a5)
 move.l #$3501FF00, $54(a5)
 move.l #$01800001, $58(a5)
 move.l #$3901FF00, $5C(a5)
 move.l #$01800000, $60(a5)
 move.l #$5001FF00, $64(a5)
 move.l #$01800100, $68(a5)
 move.l #$5101FF00, $6C(a5)
 move.l #$01800200, $70(a5)
 move.l #$5201FF00, $74(a5)
 move.l #$01800300, $78(a5)
 move.l #$5301FF00, $7C(a5)
 move.l #$01800400, $80(a5)
 move.l #$5401FF00, $84(a5)
 move.l #$01800500, $88(a5)
 move.l #$5501FF00, $8C(a5)
 move.l #$01800600, $90(a5)
 move.l #$01820224, $94(a5)
 move.l #$0184000F, $98(a5)
 move.l #$5601FF00, $9C(a5)
 move.l #$01800700, $A0(a5)
 move.l #$5701FF00, $A4(a5)
 move.l #$01800800, $A8(a5)
 move.l #$5801FF00, $AC(a5)
 move.l #$01800700, $B0(a5)
 move.l #$5901FF00, $B4(a5)
 move.l #$01800600, $B8(a5)
 move.l #$5A01FF00, $BC(a5)
 move.l #$01800500, $C0(a5)
 move.l #$5B01FF00, $C4(a5)
 move.l #$01800400, $C8(a5)
 move.l #$5C01FF00, $CC(a5)
 move.l #$01800300, $D0(a5)
 move.l #$5D01FF00, $D4(a5)
 move.l #$01800200, $D8(a5)
 move.l #$5E01FF00, $DC(a5)
 move.l #$01800100, $E0(a5)
 move.l #$5F01FF00, $E4(a5)
 move.l #$01800000, $E8(a5)
 move.l #$6501FF00, $EC(a5)
 move.l #$01800010, $F0(a5)
 move.l #$6601FF00, $F4(a5)
 move.l #$01800050, $F8(a5)
 move.l #$6701FF00, $FC(a5)
 move.l #$018000F0, $100(a5)
 move.l #$6801FF00, $104(a5)
 move.l #$01800050, $108(a5)
 move.l #$6901FF00, $10C(a5)
 move.l #$01800010, $110(a5)
 move.l #$6A01FF00, $114(a5)
 move.l #$01800000, $118(a5)
 move.l #$01820FF0, $11C(a5)
 move.l #$C001FF00, $120(a5)
 move.l #$01800100, $124(a5)
 move.l #$C101FF00, $128(a5)
 move.l #$01800200, $12C(a5)
 move.l #$C201FF00, $130(a5)
 move.l #$01800300, $134(a5)
 move.l #$C301FF00, $138(a5)
 move.l #$01800400, $13C(a5)
 move.l #$C401FF00, $140(a5)
 move.l #$01800500, $144(a5)
 move.l #$C501FF00, $148(a5)
 move.l #$01800600, $14C(a5)
 move.l #$01820A0A, $150(a5)
 move.l #$0184000F, $154(a5)
 move.l #$C601FF00, $158(a5)
 move.l #$01800700, $15C(a5)
 move.l #$C701FF00, $160(a5)
 move.l #$01800800, $164(a5)
 move.l #$C801FF00, $168(a5)
 move.l #$01800700, $16C(a5)
 move.l #$C901FF00, $170(a5)
 move.l #$01800600, $174(a5)
 move.l #$CA01FF00, $178(a5)
 move.l #$01800500, $17C(a5)
 move.l #$CB01FF00, $180(a5)
 move.l #$01800400, $184(a5)
 move.l #$CC01FF00, $188(a5)
 move.l #$01800300, $18C(a5)
 move.l #$CD01FF00, $190(a5)
 move.l #$01800200, $194(a5)
 move.l #$CE01FF00, $198(a5)
 move.l #$01800100, $19C(a5)
 move.l #$CF01FF00, $1A0(a5)
 move.l #$01800000, $1A4(a5)
 move.w #$0120, $1A8(a5)
 move.l d3,     $1AA(a5)
 move.w #$0122, $1AC(a5)
 move.w d3,     $1AE(a5)
 add.l #$58, d3
 move.w #$0124, $1B0(a5)
 move.l d3,     $1B2(a5)
 move.w #$0126, $1B4(a5)
 move.w d3,     $1B6(a5)
 add.l #$58, d3
 move.w #$0128, $1B8(a5)
 move.l d3,     $1BA(a5)
 move.w #$012A, $1BC(a5)
 move.w d3,     $1BE(a5)
 add.l #$58, d3
 move.w #$012C, $1C0(a5)
 move.l d3,     $1C2(a5)
 move.w #$012E, $1C4(a5)
 move.w d3,     $1C6(a5)
 move.l #$01300000, $1C8(a5)
 move.l #$01320000, $1CC(a5)
 move.l #$01340000, $1D0(a5)
 move.l #$01360000, $1D4(a5)
 move.l #$01380000, $1D8(a5)
 move.l #$013A0000, $1DA(a5)
 move.l #$013C0000, $1DC(a5)
 move.l #$013E0000, $1E0(a5)
 move.l #$01820F0F, $1E4(a5)
 move.l #$E601FF00, $1E8(a5)
 move.l #$01820E0E, $1EC(a5)
 move.l #$E801FF00, $1F0(a5)
 move.l #$01820D0D, $1F4(a5)
 move.l #$EA01FF00, $1F8(a5)
 move.l #$01820C0C, $1FC(a5)
 move.l #$EC01FF00, $200(a5)
 move.l #$01820B0B, $204(a5)
 move.l #$EE01FF00, $208(a5)
 move.l #$01820A0A, $20C(a5)
 move.l #$EF01FF00, $210(a5)
 move.l #$01820909, $214(a5)
 move.l #$F001FF00, $218(a5)
 move.l #$01820808, $21C(a5)
 move.l #$FFFFFFFE, $220(a5)

 ; Loading Copper List into computer

 jsr Forbid(a6)
 move.l a5, $DFF080
 move.w d0, $DFF088
 move.w #$87E0, $DFF096 ; Start DMA
 move.w #$3200, $DFF100 ; Set Lo-Res
 move.w #$2C81, $DFF08E ; Window Definitions
 move.w #$F4C1, $DFF090
 move.w #$0038, $DFF092
 move.w #$00D0, $DFF094
 move.w #$0000, $DFF108 ; Modulo value
 move.w #$0000, $DFF102
 move.w #$0024, $DFF104

 move.l a5, a6
 move.l #$DFF120, a5
           SpriteOff:
 move.l a4, (a5)
 addq.l #$04, a5
 cmp.l #$DFF13C, a5
 bne SpriteOff
 jsr GoSprite(pc)

 move.w #$0003, $DFF1A2
 move.w #$0003, $DFF1AA
 move.l a4, a5
 move.l a4, d5
 add.l #$5DC0, d5
           ClearScreen:
 move.l #$00000000, (a4)
 addq.l #$04, a4
 cmp.l a4, d5
 bne ClearScreen
 move.b #$02, $BFE001  ; Turn off power LED
 move.l a5, a4
 jsr DrawPic(pc)
 move.l a6, a5
 jsr InitObject(pc)
 lea Words(pc),a5
 move.l a5, $16C(a0)
 move.b #$00, $174(a0)
 move.l $184(a0), a1
 ; move.l #$FFFFFFFF, (a1)

           main:
 jsr Scroller(pc)
 jsr MoveObject(pc)
 ; jsr MoveSprite(pc)
 jsr holdon(pc)
 btst #6, $BFE001
 bne main
 jmp Exit(pc)
 rts

           McBlitter:
 move.l a1, $178(a0)
 move.l a4, $17C(a0)
 add.l #$1CE8, a4
 move.l #$0000, $180(a0)
           NextBlit:
 move.l (a1), (a4)
 addq.l #$04, a1
 addq.l #$04, a4
 addq.b #$01, $180(a0)
 cmp.b #$0A, $180(a0)
 bne NextBlit
 move.b #$00, $180(a0)
 addq.b #$01, $182(a0)
 addq.l #$02, a4
 cmp.b #$0E, $182(a0)
 bne NextBlit
 move.l $178(a0), a1
 move.l $17C(a0), a4
 rts

           Scroller:
 btst #6, $DFF002
 btst #6, $DFF002
 bne Scroller
 move.l a1, $170(a0)
 add.l #$24C, a1
           Ok:
 move.l (a1), d5
 roxl.l #$01, d5
 move.l d5, (a1)
 subq.l #$04, a1
 cmp.l $170(a0), a1
 bne Ok
 move.l (a1), d5
 roxl.l #$01, d5
 move.l d5, (a1)
 addq.b #$01, $174(a0)
 cmp.b #$10, $174(a0)
 bne notyet
 jsr GetLetter(pc)
 move.b #$00, $174(a0)
           notyet:
 btst  #6, $DFF002
 btst  #6, $DFF002
 bne notyet
 ; jmp McBlitter(pc)
 move.l a1, $DFF048
 move.l a1, $DFF04C
 move.l a1, $DFF050
 add.l #$1CE8, a4
 move.l a4, $DFF054
 sub.l #$1CE8, a4
 move.w #$01, $DFF060
 move.w #$01, $DFF062
 move.w #$01, $DFF064
 move.w #$00, $DFF066
 move.w #%0000111110000000, $DFF040
 move.w #%0000000000000000, $DFF042
 move.w #$0394, $DFF058
 rts

           GetLetter:
 clr.l d0
 move.b (a5), d0
 cmp.b #$FF, d0
 bne uhuh
 move.l $16C(a0),a5
 clr.l d0
 move.b (a5), d0
           uhuh:
 muls #$1C, d0
 move.l #$00000000, a6
 lea Chars(pc), a6
 add.l d0, a6
 move.w $00(a6), $028(a1)
 move.w $02(a6), $050(a1)
 move.w $04(a6), $078(a1)
 move.w $06(a6), $0A0(a1)
 move.w $08(a6), $0C8(a1)
 move.w $0A(a6), $0F0(a1)
 move.w $0C(a6), $118(a1)
 move.w $0E(a6), $140(a1)
 move.w $10(a6), $168(a1)
 move.w $12(a6), $190(a1)
 move.w $14(a6), $1B8(a1)
 move.w $16(a6), $1E0(a1)
 move.w $18(a6), $208(a1)
 move.w $1A(a6), $230(a1)
 addq.l #$01, a5
 rts

           MoveSprite:
 subq.b #$01, $01(a0)
 subq.b #$01, $59(a0)
 subq.b #$01, $B1(a0)
 subq.b #$01, $109(a0)
 rts

           InitObject:
 move.b #$00,$160(a0)
 add.l #$EC, a6
 moveq #$65, d1
 move.l a6, d2
 add.l #$28, d2
 exg d6, a6
 rts

           MoveObject:
 exg d6, a6
 cmp.b #$00, $160(a0)
 bne up
           down:
 addq.l #$01, d1
 move.b d1, (a6)
 addq.l #$08, a6
 cmp.l d2,a6
 bne down
 sub.l #$28, a6
 exg d6, a6
 subq.l #$4, d1
 cmp.l #$BF, d1
 bne skip
 move.b #$01, $160(a0)
 rts

           up:
 addq.l #$01, d1
 move.b d1, (a6)
 addq.l #$08, a6
 cmp.l d2, a6
 bne up
 sub.l #$28, a6
 exg d6, a6
 subq.l #$6, d1
 cmp.w #$5C, d1
 bne skip
 move.b #$00, $160(a0)
           skip:
 rts

           holdon:
 move.w #$0205, $162(a0)
           hold:
 subq.w #$0001, $162(a0)
 cmp.w #$0000, $162(a0)
 bne hold
 rts

           DrawPic:
 move.l a6, d6
 lea Instit(pc), a6
 move.l a4, a5
 add.l #$BE6, a5
 moveq #$00, d4
 moveq #$00000000, d5
           McBlit:
 move.b (a6),(a5)
 addq.l #$01, a6
 addq.l #$01, a5
 addq.w #$01, d5
 addq.l #$01, d4
 cmp.l #$4E0, d4
 beq McSkippit
 cmp.w #28, d5
 bne McBlit
 move.w #$0000, d5
 add.l #12, a5
 jmp McBlit(pc)
           McSkippit:
 move.l d6, a6
 rts

           GRname:
 dc.b 'graphics.library',0

           Exit:
 move.l a0, a3
 move.l a4, d6
 move.l #$DFF000, a5
 move.l ExecBase.s, a6
 move.l #GRname, a1
 clr.l d0
 jsr OpenLibrary(a6)
 move.l d0, a4
 move.l StartList(a4), $080(a5)
 clr.w $088(a5)
 move.w #$83E0, $096(a5)
 move.l d6, a1
 move.l #24000, d0
 jsr FreeMem(a6)
 move.l d7, a1
 move.l #$320, d0
 jsr FreeMem(a6)
 move.l $184(a3), a1
 move.l #$0001FF, d0
 jsr FreeMem(a6)
 jsr Permit(a6)
 clr.l d0
 move.b #$00, $BFE001
 rts

           Instit:
 dc.w $7FFF,$3803,$8FFF,$801C,$3C03,$80FC,$1FFF,$C71F
 dc.w $FFCE,$00E7,$FFF1,$C03F,$80F0,$0C00,$7FFF,$3803
 dc.w $8FFF,$801C,$3E03,$83FF,$1FFF,$C71F,$FFCE,$00E7
 dc.w $FFF1,$C0FF,$E0F8,$0C00,$01C0,$3803,$8E00,$001C
 dc.w $3E03,$8787,$8070,$0700,$700E,$00E0,$1C01,$C1F1
 dc.w $F0F8,$0C00,$01C0,$3803,$8E00,$001C,$3F03,$8F03
 dc.w $8070,$0700,$700E,$00E0,$1C01,$C3C0,$78FC,$0C00
 dc.w $01C0,$3803,$8E00,$001C,$3F83,$8E03,$8070,$0700
 dc.w $700E,$00E0,$1C01,$C380,$38FE,$0C00,$01C0,$3803
 dc.w $8E00,$001C,$3B83,$8E00,$0070,$0700,$700E,$00E0
 dc.w $1C01,$C780,$3CEE,$0C00,$01C0,$3803,$8E00,$001C
 dc.w $3BC3,$8F00,$0070,$0700,$700E,$00E0,$1C01,$C700
 dc.w $1CEF,$0C00,$01C0,$3803,$8E00,$001C,$39C3,$87E0
 dc.w $0070,$0700,$700E,$00E0,$1C01,$C700,$1CE7,$0C00
 dc.w $01C0,$3FFF,$8FFF,$001C,$39E3,$81FC,$0070,$0700
 dc.w $700E,$00E0,$1C01,$C700,$1CE7,$8C00,$01C0,$3FFF
 dc.w $8FFF,$001C,$38E3,$803F,$0070,$0700,$700E,$00E0
 dc.w $1C01,$C700,$1CE3,$8C00,$01C0,$3803,$8E00,$001C
 dc.w $38F3,$800F,$8070,$0700,$700E,$00E0,$1C01,$C700
 dc.w $1CE3,$CC00,$01C0,$3803,$8E00,$001C,$3873,$8003
 dc.w $C070,$0700,$700E,$00E0,$1C01,$C700,$1CE1,$CC00
 dc.w $01C0,$3803,$8E00,$001C,$387B,$8001,$C070,$0700
 dc.w $700E,$00E0,$1C01,$C700,$1CE1,$EC00,$01C0,$3803
 dc.w $8E00,$001C,$383B,$9C01,$C070,$0700,$700E,$00E0
 dc.w $1C01,$C780,$3CE0,$EC00,$01C0,$3803,$8E00,$001C
 dc.w $383F,$9C01,$C070,$0700,$700E,$00E0,$1C01,$C380
 dc.w $38E0,$FC00,$01C0,$3803,$8E00,$001C,$381F,$9E03
 dc.w $C070,$0700,$7007,$01C0,$1C01,$C3C0,$78E0,$7C00
 dc.w $01C0,$3803,$8E00,$001C,$380F,$8F87,$8070,$0700
 dc.w $7007,$83C0,$1C01,$C1F1,$F0E0,$3C00,$01C0,$3803
 dc.w $8FFF,$801C,$380F,$87FF,$0070,$0700,$7003,$FF80
 dc.w $1C01,$C0FF,$E0E0,$3C00,$01C0,$3803,$8FFF,$801C
 dc.w $3807,$81FC,$0070,$0700,$7000,$FE00,$1C01,$C03F
 dc.w $80E0,$1C00,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0C0C,$03FD,$8000,$0180,$0000,$0000,$003F,$0000
 dc.w $3F0F,$8C36,$0000,$0000,$0000,$0000,$0E1C,$000C
 dc.w $0000,$0180,$0000,$0000,$0031,$8000,$3198,$CC36
 dc.w $0000,$0000,$0000,$0000,$0E1C,$F019,$BE7C,$CD80
 dc.w $0000,$0000,$0031,$9E7B,$31B0,$6666,$0000,$0000
 dc.w $0000,$0000,$0F3D,$9831,$BB76,$CD80,$0000,$0000
 dc.w $0031,$B37F,$B1B0,$6666,$0000,$0000,$0000,$0000
 dc.w $0F3D,$8061,$B366,$CD80,$0000,$0000,$003F,$036D
 dc.w $BF30,$63C6,$0000,$0000,$0000,$0000,$0DED,$80C1
 dc.w $B366,$D980,$0000,$0000,$0033,$1F6D,$B1B0,$6186
 dc.w $0000,$0000,$0000,$0000,$0DED,$8181,$B366,$7980
 dc.w $0000,$0000,$0031,$B36D,$B1B0,$6186,$0000,$0000
 dc.w $0000,$0000,$0CCD,$9B01,$BB76,$7800,$0000,$0000
 dc.w $0031,$B36D,$B198,$C180,$0000,$0000,$0000,$0000
 dc.w $0CCC,$F3FD,$BE7C,$3180,$0000,$0000,$0031,$9FED
 dc.w $BF0F,$8186,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $3060,$3000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$3060,$6000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$3060,$C000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000

           GoSprite:
 move.l d2, a0
 ; Sprite 1: "1"
 move.l #$38704C00, $00(a0)
 move.l #$00800000, $04(a0)
 move.l #$01800000, $08(a0)
 move.l #$03800000, $0C(a0)
 move.l #$01800000, $10(a0)
 move.l #$01800000, $14(a0)
 move.l #$01800000, $18(a0)
 move.l #$01800000, $1C(a0)
 move.l #$01800000, $20(a0)
 move.l #$01800000, $24(a0)
 move.l #$01800000, $28(a0)
 move.l #$01800000, $2C(a0)
 move.l #$01800000, $30(a0)
 move.l #$01800000, $34(a0)
 move.l #$01800000, $38(a0)
 move.l #$01800000, $3C(a0)
 move.l #$01800000, $40(a0)
 move.l #$01800000, $44(a0)
 move.l #$01800000, $48(a0)
 move.l #$01800000, $4C(a0)
 move.l #$03C00000, $50(a0)
 move.l #$00000000, $54(a0)
 ; Sprite 2:  "9"
 move.l #$38804C00, $58(a0)
 move.l #$03F00000, $5C(a0)
 move.l #$0E1C0000, $60(a0)
 move.l #$18060000, $64(a0)
 move.l #$30030000, $68(a0)
 move.l #$30030000, $6C(a0)
 move.l #$30030000, $70(a0)
 move.l #$30030000, $74(a0)
 move.l #$30030000, $78(a0)
 move.l #$30030000, $7C(a0)
 move.l #$1C070000, $80(a0)
 move.l #$07FF0000, $84(a0)
 move.l #$00060000, $88(a0)
 move.l #$00060000, $8C(a0)
 move.l #$000C0000, $90(a0)
 move.l #$00180000, $94(a0)
 move.l #$00300000, $98(a0)
 move.l #$00600000, $9C(a0)
 move.l #$00C00000, $A0(a0)
 move.l #$01800000, $A4(a0)
 move.l #$03000000, $A8(a0)
 move.l #$00000000, $AC(a0)
 ; Sprite 3: "9"
 move.l #$38904C00, $B0(a0)
 move.l #$03F00000, $B4(a0)
 move.l #$0E1C0000, $B8(a0)
 move.l #$18060000, $BC(a0)
 move.l #$30030000, $C0(a0)
 move.l #$30030000, $C4(a0)
 move.l #$30030000, $C8(a0)
 move.l #$30030000, $CC(a0)
 move.l #$30030000, $D0(a0)
 move.l #$30030000, $D4(a0)
 move.l #$1C070000, $D8(a0)
 move.l #$07FF0000, $DC(a0)
 move.l #$00060000, $E0(a0)
 move.l #$00060000, $E4(a0)
 move.l #$000C0000, $E8(a0)
 move.l #$00180000, $EC(a0)
 move.l #$00300000, $F0(a0)
 move.l #$00600000, $F4(a0)
 move.l #$00C00000, $F8(a0)
 move.l #$01800000, $FC(a0)
 move.l #$03000000, $100(a0)
 move.l #$00000000, $104(a0)
 ; Sprite 4: "0"
 move.l #$38A04C00, $108(a0)
 move.l #$03F00000, $10C(a0)
 move.l #$0E1C0000, $110(a0)
 move.l #$18060000, $114(a0)
 move.l #$30030000, $118(a0)
 move.l #$30030000, $11C(a0)
 move.l #$30030000, $120(a0)
 move.l #$30030000, $124(a0)
 move.l #$30030000, $128(a0)
 move.l #$30030000, $12C(a0)
 move.l #$30030000, $130(a0)
 move.l #$30030000, $134(a0)
 move.l #$30030000, $138(a0)
 move.l #$30030000, $13C(a0)
 move.l #$30030000, $140(a0)
 move.l #$30030000, $144(a0)
 move.l #$30030000, $148(a0)
 move.l #$30030000, $14C(a0)
 move.l #$18060000, $150(a0)
 move.l #$0E1C0000, $154(a0)
 move.l #$03F00000, $158(a0)
 move.l #$00000000, $15C(a0)
 rts

           Words:
 dc.b $20,$20,$20,$20,$18,$39,$20,$11,$2B,$37,$2C,$39
 dc.b $43,$1A,$1A,$1A
 dc.b $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B
 dc.b $0C,$0D,$0E,$0F,$10,$11,$12,$13,$14,$15,$16,$17
 dc.b $18,$19,$1A,$1B,$1C,$1D,$1E,$1F,$20,$21,$22,$23
 dc.b $24,$25,$26,$27,$28,$29,$2A,$2B,$2C,$2D,$2E,$2F
 dc.b $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B
 dc.b $3C,$3D,$3E,$3F,$40,$41,$42,$43,$44,$FF

           Data:
 dc.b $00,00,00,00,00

           Chars:
 dc.w $3F80,$0780,$0CC0,$0CC0,$0CC0,$1860,$1860,$1860
 dc.w $3FF0,$3030,$3030,$6018,$6018,$F87C,$7FF0,$1818
 dc.w $180C,$180C,$180C,$1818,$1FF0,$1818,$180C,$180C
 dc.w $180C,$180C,$1818,$7FF0,$07D8,$1C78,$3838,$3018
 dc.w $6000,$6000,$6000,$6000,$6000,$6000,$3018,$3838
 dc.w $1C70,$07C0,$FFC0,$6070,$6030,$6018,$6018,$6018
 dc.w $6018,$6018,$6018,$6018,$6018,$6030,$6070,$FFC0
 dc.w $FFF0,$3030,$3030,$3030,$3300,$3300,$3F00,$3300
 dc.w $3300,$3018,$3018,$3018,$3018,$FFF8,$FFF0,$3030
 dc.w $3030,$3030,$3300,$3300,$3F00,$3300,$3300,$3000
 dc.w $3000,$3000,$3000,$FF00,$0FB0,$38F0,$7070,$6030
 dc.w $C000,$C000,$C000,$C000,$C3F8,$C030,$6030,$7030
 dc.w $3860,$0FC0,$FCFC,$3030,$3030,$3030,$3030,$3030
 dc.w $3FF0,$3030,$3030,$3030,$3030,$3030,$3030,$FCFC
 dc.w $3FF0,$0300,$0300,$0300,$0300,$0300,$0300,$0300
 dc.w $0300,$0300,$0300,$0300,$0300,$3FF0,$1FF8,$00C0
 dc.w $00C0,$00C0,$00C0,$00C0,$00C0,$00C0,$C0C0,$C0C0
 dc.w $C0C0,$C180,$6380,$3E00,$FCF8,$3060,$30C0,$3180
 dc.w $3300,$3600,$3F00,$3B80,$31C0,$30C0,$30E0,$3060
 dc.w $3070,$FC3C,$FF00,$1800,$1800,$1800,$1800,$1800
 dc.w $1800,$1800,$1800,$1818,$1818,$1818,$1818,$FFF8
 dc.w $F03C,$7038,$7038,$7878,$7878,$6CD8,$6CD8,$6798
 dc.w $6798,$6018,$6018,$6018,$6018,$F87C,$F8FE,$3818
 dc.w $3C18,$3618,$3618,$3318,$3318,$3198,$3198,$30D8
 dc.w $30D8,$3078,$3038,$FE38

 dc.w $0F80,$38E0,$7070,$6030,$C018,$C018,$C018,$C018
 dc.w $C018,$C018,$6030,$7070,$38E0,$0F80,$FFC0,$3060
 dc.w $3030,$3030,$3030,$3030,$3060,$3FC0,$3000,$3000
 dc.w $3000,$3000,$3000,$FF00,$0F80,$38E0,$7070,$6030
 dc.w $C018,$C018,$C018,$C018,$C018,$C118,$60B0,$7070
 dc.w $38E0,$0F90,$FFC0,$3060,$3030,$3030,$3030,$3030
 dc.w $3060,$3FC0,$3180,$30C0,$3060,$3060,$3030,$FC3C
 dc.w $1F60,$71E0,$C0E0,$C060,$C000,$7000,$1F00,$01C0
 dc.w $0060,$0060,$C060,$E060,$F0C0,$DF80,$FFF0,$C630
 dc.w $C630,$C630,$C630,$0600,$0600,$0600,$0600,$0600
 dc.w $0600,$0600,$0600,$3FC0,$FDF8,$6030,$6030,$6030
 dc.w $6030,$6030,$6030,$6030,$6030,$6030,$6030,$6030
 dc.w $3060,$1FC0,$FCFC,$6018,$6018,$3030,$3030,$1860
 dc.w $1860,$1860,$0CC0,$0CC0,$0CC0,$0780,$0780,$0300
 dc.w $FCFC,$6018,$6018,$6318,$6318,$6798,$6798,$37B0
 dc.w $3CF0,$3CF0,$3CF0,$3870,$3870,$3870,$FCFC,$3030
 dc.w $1860,$1860,$0CC0,$0CC0,$0780,$0300,$0780,$0CC0
 dc.w $1860,$1860,$3030,$FCFC,$F87C,$3030,$1860,$1860
 dc.w $0CC0,$0CC0,$0780,$0300,$0300,$0300,$0300,$0300
 dc.w $0300,$1FE0,$FFE0,$C060,$C0C0,$C180,$C300,$0300
 dc.w $0600,$0C00,$1800,$1860,$3060,$6060,$C060,$FFE0

 dc.w $0E00,$0E00,$0E00,$0E00,$0E00,$0E00,$0C00,$0C00
 dc.w $0C00,$0000,$0000,$0E00,$0E00,$0E00,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0E00,$0E00,$0E00,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0600
 dc.w $0600,$0C00,$0300,$0600,$0C00,$0C00,$1800,$1800
 dc.w $1800,$1800,$1800,$1800,$0C00,$0C00,$0600,$0300
 dc.w $0300,$0180,$00C0,$00C0,$0060,$0060,$0060,$0060
 dc.w $0060,$0060,$00C0,$00C0,$0180,$0300,$3F00,$6180
 dc.w $60C0,$00C0,$00C0,$00C0,$0180,$0700,$0C00,$0C00
 dc.w $0000,$0000,$0E00,$0E00,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0000

 dc.w $0000,$0E00,$3E00,$0600,$0600,$0600,$0600,$0600
 dc.w $0600,$0600,$0600,$0600,$3FC0,$0000,$0000,$1E00
 dc.w $3300,$6180,$6180,$0180,$0300,$0600,$0C00,$1800
 dc.w $3180,$6180,$FF80,$0000,$0000,$7C00,$C600,$0300
 dc.w $0300,$0600,$3C00,$0600,$0300,$0300,$0300,$C600
 dc.w $7C00,$0000,$0000,$0E00,$1E00,$1E00,$3600,$3600
 dc.w $6600,$6600,$C600,$FF00,$0600,$0600,$1F00,$0000
 dc.w $0000,$7F00,$6000,$6000,$6000,$7E00,$7300,$0180
 dc.w $0180,$0180,$0180,$E300,$3E00,$0000,$0000,$1F00
 dc.w $3000,$6000,$6000,$C000,$FC00,$E600,$C300,$C300
 dc.w $C300,$6600,$3C00,$0000,$0000,$FF00,$C300,$0300
 dc.w $0300,$0600,$0600,$0600,$0600,$0C00,$0C00,$0C00
 dc.w $0C00,$0000,$0000,$3C00,$6600,$C300,$C300,$6600
 dc.w $3C00,$6600,$C300,$C300,$C300,$6600,$3C00,$0000
 dc.w $0000,$3C00,$6600,$C300,$C300,$C300,$6700,$3F00
 dc.w $0300,$0300,$0600,$0C00,$F800,$0000,$0000,$3C00
 dc.w $6600,$C300,$C300,$C300,$C300,$C300,$C300,$C300
 dc.w $C300,$6600,$3C00


 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$3E00,$6300
 dc.w $0300,$7F00,$C300,$C300,$C700,$7FC0,$0000,$0000
 dc.w $E000,$6000,$6000,$6000,$7F00,$7180,$60C0,$60C0
 dc.w $60C0,$60C0,$7180,$FF00,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$3F80,$6380,$C180,$C000,$C000,$C000
 dc.w $6380,$3E00,$0000,$0000,$0380,$0180,$0180,$0180
 dc.w $3F80,$6380,$C180,$C180,$C180,$C180,$6380,$3FC0
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$3E00,$6300
 dc.w $C180,$FF80,$C000,$C000,$6380,$3E00,$0000,$0000
 dc.w $0F80,$1800,$3000,$3000,$FF00,$3000,$3000,$3000
 dc.w $3000,$3000,$3000,$FF00,$0000,$0000,$3FC0,$6380
 dc.w $C180,$C180,$C180,$C180,$6380,$3F80,$0180,$0180
 dc.w $0300,$7E00,$0000,$0000,$E000,$6000,$6000,$6000
 dc.w $7F00,$7180,$6180,$6180,$6180,$6180,$6180,$F3C0
 dc.w $0000,$0000,$0000,$1800,$1800,$0000,$7800,$1800
 dc.w $1800,$1800,$1800,$1800,$1800,$FF00,$0000,$0600
 dc.w $0600,$0000,$FE00,$0600,$0600,$0600,$0600,$0600
 dc.w $0600,$0600,$0600,$FC00,$0000,$0000,$E000,$6000
 dc.w $6000,$6000,$6F80,$6600,$6C00,$7800,$6C00,$6600
 dc.w $6300,$E7C0,$0000,$0000,$F800,$1800,$1800,$1800
 dc.w $1800,$1800,$1800,$1800,$1800,$1800,$1800,$FF00
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$FDC0,$7760
 dc.w $6660,$6660,$6660,$6660,$6660,$F770

 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$FF00,$7180
 dc.w $6180,$6180,$6180,$6180,$6180,$F3C0,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$3E00,$6300,$C180,$C180
 dc.w $C180,$C180,$6300,$3E00,$0000,$0000,$FF00,$7180
 dc.w $60C0,$60C0,$60C0,$60C0,$7180,$7F00,$6000,$6000
 dc.w $6000,$F800,$0000,$0000,$3FC0,$6380,$C180,$C180
 dc.w $C180,$C180,$6380,$3F80,$0180,$0180,$0180,$07C0
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$FF00,$3980
 dc.w $3000,$3000,$3000,$3000,$3000,$FF00,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$7F00,$C700,$C300,$7800
 dc.w $0E00,$C300,$E300,$FE00,$0000,$0000,$0000,$3000
 dc.w $3000,$3000,$FF00,$3000,$3000,$3000,$3000,$3000
 dc.w $3180,$1F00,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $E380,$6180,$6180,$6180,$6180,$6180,$6380,$3FC0
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$F3C0,$6180
 dc.w $3300,$3300,$1E00,$1E00,$0C00,$0C00,$0000,$0000
 dc.w $0000,$0000,$0000,$0000,$F3C0,$6180,$6D80,$6D80
 dc.w $7F80,$7F80,$3300,$3300,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$F780,$6300,$3600,$1C00,$1C00,$3600
 dc.w $6300,$F780,$0000,$0000,$F3C0,$6180,$6180,$3300
 dc.w $3300,$1E00,$1E00,$0C00,$0C00,$1800,$1800,$FC00
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$FF00,$C300
 dc.w $C600,$0C00,$1800,$3300,$6300,$FF00