c64fILE gw2 menu ;- ;GemWriter V2.0 ;Coded by Gemini/System ;- ;Menu Section ;Completed: 5/5/95 ;- *= $39a0 ;- test = $0c1c edit = $2a00 minit = $0c00 mplay = $0c0f pagebase = $50 ;- ;Setup sei jsr $fda3 jsr $ff5b lda #$0b sta $d011 lda #$00 sta $0f7b sta $d015 sta $d020 sta $d021 lda #$0f sta $0286 jsr $e544 lda dev and #9 sta $ba lda #$80 sta $028a lda #$f0 sta $d01a lda #$81 sta $dc0d lda #$31 ldx #$ea sta $0314 stx $0315 lda #$1b ldx #$c8 ldy #$17 sta $d011 stx $d016 sty $d018 cli ;- ;Main Menu mainmenu jsr credits lda # pspdtext jsr $ab1e pkey jsr $ffe4 cmp #$31 bcc pkey cmp #$35 bcs pkey sec sbc #$30 pha tay ldx #$2c stx mplay stx mplay+3 stx mplay+6 stx mplay+9 ldx #$00 pspeed lda #$20 sta mplay,x inx inx inx dey bne pspeed lda # phextext jsr $ab1e pla pha tax prplay txa pha lda # fls1text jsr $ab1e lda #$a0 ldx #$0f ldy #$20 jsr cprhex lda #$20 ldx #$01 ldy #$00 jsr hexinput lda #$a0 ldx #$0f ldy #$20 jsr csthex lda # | |
|