uz@cc65.org
; da65 V2.11.9 - (C) Copyright 2000-2005, Ullrich von Bassewitz ; Created: 2006-09-21 17:08:53 ; Input file: 50.prg ; Page: 1 .setcpu "6502" player_xpos := $0010 player_ypos := $0011 tile_xpos := $0012 tile_ypos := $0013 map_x := $0014 map_y := $0015 current_location:= $001A game_mode := $001B dungeon_level := $001C player_transport:= $001E party_size := $001F dng_direction := $0020 light_duration := $0021 moon_phase_trammel:= $0022 moon_phase_felucca:= $0023 horse_mode := $0024 ship_hull := $002B move_counter := $002C key_buf := $0030 key_buf_len := $0038 charptr := $003D magic_aura := $0046 aura_duration := $0047 tile_under_player:= $0048 tile_north := $0049 tile_south := $004A tile_east := $004B tile_west := $004C music_volume := $004D console_xpos := $004E console_ypos := $004F diskid := $0050 numdrives := $0051 currdisk_drive1 := $0052 currdisk_drive2 := $0053 currplayer := $0054 hexnum := $0056 bcdnum := $0057 zptmp1 := $005A reqdisk := $005E currdrive := $005F lt_y := $0060 lt_x := $0061 lt_rwflag := $0062 lt_addr_hi := $0063 monster_type := $0066 game_mode_temp := $0068 moongate_tile := $006D moongate_xpos := $006E moongate_ypos := $006F movement_mode := $0074 direction := $0075 ptr2 := $007C ptr1 := $007E j_waitkey := $0800 j_player_teleport:= $0803 j_move_east := $0806 j_move_west := $0809 j_move_south := $080C j_move_north := $080F j_drawinterface := $0812 j_drawview := $0815 j_update_britannia:= $0818 j_primm_xy := $081E j_primm := $0821 j_console_out := $0824 j_clearbitmap := $0827 j_mulax := $082A j_get_stats_ptr := $082D j_printname := $0830 j_printbcd := $0833 j_drawcursor := $0836 j_drawcursor_xy := $0839 j_drawvert := $083C j_drawhoriz := $083F j_request_disk := $0842 j_update_status := $0845 j_blocked_tile := $0848 j_idle := $084B j_rand := $084E j_loadsector := $0851 j_playsfx := $0854 j_idle_combat := $0857 j_getnumber := $085A j_getplayernum := $085D j_update_wind := $0860 j_animate_view := $0863 j_printdigit := $0866 j_clearstatwindow:= $0869 j_animate_creatures:= $086C j_centername := $086F j_print_direction:= $0872 j_clearview := $0875 j_invertview := $0878 j_centerstring := $087B j_printstring := $087E j_gettile_bounds:= $0881 j_gettile := $0884 j_gettile_combat:= $088D j_gettile_town := $0893 j_gettile_dungeon:= $0896 L4553 := $4553 L8D46 := $8D46 gettile_bounds := $9F00 gettile := $9F26 mul11 := $9F49 gettile_combat := $9F85 gettile_town := $9FAF gettile_dungeon := $9FCE j_fileio := $A100 j_readblock := $A103 j_loadtitle := $A106 j_togglesnd := $A109 j_kernalin := $A10C j_setirqv := $A10F j_clearkbd := $A112 j_irqhandler := $A115 party_stats := $AA00 game_stats := $AB00 food_hi := $AB10 food_lo := $AB11 food_frac := $AB12 gold := $AB13 mixtures := $AB40 map_status := $AC00 object_xpos := $AC20 object_ypos := $AC40 object_tile := $AC60 monster_xpos := $AD00 monster_ypos := $AD10 monster_hp := $AD40 cbt_monster_type:= $AD50 monster_tile := $AD60 cbt_player_xpos := $AD80 cbt_player_ypos := $AD90 player_tile := $ADA0 missile := $ADFD missile_xpos := $ADFE missile_ypos := $ADFF currmap := $AE00 tempmap := $AE80 music_ctl := $AF20 music_nop := $AF23 bmplineaddr_lo := $E000 bmplineaddr_hi := $E0C0 chrlineaddr_lo := $E180 chrlineaddr_hi := $E198 tile_color := $E1B0 music_init := $EC00 .word $6000 ; 5FFE lda #$CC ; 6000 L ldx #$44 ; 6002 D jsr j_fileio ; 6004 ldx #$43 ; 6007 C jsr j_fileio ; 6009 jsr L607A ; 600C lda #$CC ; 600F L ldx #$9E ; 6011 ^ jsr j_fileio ; 6013 jsr j_clearbitmap ; 6016 jsr setgfx ; 6019 lda #$BC ; 601C < sta dng_direction ; 601E lda #$6F ; 6020 o sta light_duration ; 6022 lda #$00 ; 6024 . sta moon_phase_trammel ; 6026 ldx #$00 ; 6028 . txa ; 602A @clear: sta map_status,x ; 602B dex ; 602E bne @clear ; 602F jsr draw_lb_logo ; 6031 jsr longdelay ; 6034 jsr draw_and ; 6037 jsr longdelay ; 603A jsr draw_line ; 603D jsr longdelay ; 6040 jsr fade_in_origin_sys_inc ; 6043 jsr fade_in_present ; 6046 jsr longdelay ; 6049 jsr fade_in_ultima_iv_logo ; 604C jsr longdelay ; 604F jsr fade_in_quest_of_the_avatar ; 6052 jsr longdelay ; 6055 jsr fade_in_title_view ; 6058 jsr fade_in_monsters ; 605B jmp title_drawn ; 605E xpos: .byte $52 ; 6061 R ypos: .byte $45 ; 6062 E L6063: .byte $3B ; 6063 ; L6064: .byte $20 ; 6064 L6065: .byte $53 ; 6065 S L6066: .byte $45 ; 6066 E L6067: .byte $4C ; 6067 L L6068: .byte $46 ; 6068 F L6069: .byte $8D ; 6069 M setgfx: lda #$3B ; 606A ; sta $D011 ; 606C lda #$18 ; 606F X sta $D018 ; 6071 lda #$80 ; 6074 . sta $028A ; 6076 rts ; 6079 L607A: lda #$00 ; 607A . sta $0A ; 607C lda #$D8 ; 607E X sta $0B ; 6080 ldy #$00 ; 6082 . ldx #$04 ; 6084 D tya ; 6086 L6087: sta ($0A),y ; 6087 iny ; 6089 bne L6087 ; 608A inc $0B ; 608C dex ; 608E bne L6087 ; 608F rts ; 6091 draw_lb_logo: lda #$68 ; 6092 h sta $0A ; 6094 lda #$62 ; 6096 b sta $0B ; 6098 @next: ldx #$00 ; 609A . lda ($0A,x) ; 609C beq @done ; 609E clc ; 60A0 adc #$14 ; 60A1 T sta xpos ; 60A3 jsr next_lb_byte ; 60A6 lda #$BF ; 60A9 ? sec ; 60AB sbc ($0A,x) ; 60AC sta ypos ; 60AE jsr next_lb_byte ; 60B1 jsr plotpixel ; 60B4 lda #$40 ; 60B7 @ jsr delay_checkkey ; 60B9 jmp @next ; 60BC @done: rts ; 60BF draw_and: lda #$00 ; 60C0 . sta L61CB ; 60C2 lda #$12 ; 60C5 R sta L6063 ; 60C7 sta L6065 ; 60CA lda #$11 ; 60CD Q sta L6064 ; 60CF sta L6066 ; 60D2 ldx #$05 ; 60D5 E ldy #$04 ; 60D7 D jsr L6136 ; 60D9 rts ; 60DC draw_line: lda #$50 ; 60DD P sta xpos ; 60DF lda #$1F ; 60E2 _ sta ypos ; 60E4 L60E7: jsr plotpixel ; 60E7 lda #$30 ; 60EA 0 jsr delay_checkkey ; 60EC inc xpos ; 60EF inc xpos ; 60F2 lda xpos ; 60F5 cmp #$EE ; 60F8 n bcc L60E7 ; 60FA rts ; 60FC fade_in_ultima_iv_logo: lda #$FF ; 60FD . sta L61CB ; 60FF lda #$00 ; 6102 . sta L61CC ; 6104 L6107: lda #$05 ; 6107 E sta L6063 ; 6109 sta L6065 ; 610C lda #$22 ; 610F \" sta L6064 ; 6111 sta L6066 ; 6114 lda a:$C6 ; 6117 beq L6121 ; 611A lda #$38 ; 611C 8 sta L61CC ; 611E L6121: ldx #$1E ; 6121 ^ ldy #$2D ; 6123 - jsr L6136 ; 6125 lda L61CC ; 6128 clc ; 612B adc #$01 ; 612C A sta L61CC ; 612E cmp #$39 ; 6131 9 bcc L6107 ; 6133 rts ; 6135 L6136: stx L61CA ; 6136 sty L6067 ; 6139 L613C: lda L61CA ; 613C sta L6068 ; 613F ldy L6064 ; 6142 lda bmplineaddr_lo,y ; 6145 sta $0A ; 6148 lda bmplineaddr_hi,y ; 614A clc ; 614D adc #$20 ; 614E sta $0B ; 6150 ldy L6066 ; 6152 lda bmplineaddr_lo,y ; 6155 sta $0C ; 6158 lda bmplineaddr_hi,y ; 615A sta $0D ; 615D lda L6065 ; 615F asl a ; 6162 asl a ; 6163 asl a ; 6164 tay ; 6165 bcc L616C ; 6166 inc $0B ; 6168 inc $0D ; 616A L616C: lda ($0A),y ; 616C beq L61A9 ; 616E bit L61CB ; 6170 beq L61A7 ; 6173 pha ; 6175 lda L61C8 ; 6176 adc #$1D ; 6179 ] tax ; 617B adc L61C9 ; 617C sta L61C8 ; 617F stx L61C9 ; 6182 pha ; 6185 and #$07 ; 6186 G sta L61CD ; 6188 pla ; 618B clc ; 618C adc L61CC ; 618D bcc L6195 ; 6190 jsr j_togglesnd ; 6192 L6195: lda L61CC ; 6195 clc ; 6198 adc L61CD ; 6199 tax ; 619C lda L61CF,x ; 619D sta L61CE ; 61A0 pla ; 61A3 and L61CE ; 61A4 L61A7: sta ($0C),y ; 61A7 L61A9: tya ; 61A9 clc ; 61AA adc #$08 ; 61AB H tay ; 61AD bcc L61B4 ; 61AE inc $0B ; 61B0 inc $0D ; 61B2 L61B4: dec L6068 ; 61B4 bne L616C ; 61B7 inc L6064 ; 61B9 inc L6066 ; 61BC dec L6067 ; 61BF beq L61C7 ; 61C2 jmp L613C ; 61C4 L61C7: rts ; 61C7 L61C8: .byte $35 ; 61C8 5 L61C9: .byte $9B ; 61C9 [ L61CA: .byte $41 ; 61CA A L61CB: .byte $50 ; 61CB P L61CC: .byte $4F ; 61CC O L61CD: .byte $4E ; 61CD N L61CE: .byte $3F ; 61CE ? L61CF: .byte $00,$00,$00,$00,$00,$00,$00,$00 ; 61CF ........ .byte $00,$01,$02,$04,$08,$12,$20,$21 ; 61D7 .ABDHR ! .byte $10,$18,$40,$24,$42,$25,$14,$1A ; 61DF PX@$B%TZ .byte $48,$29,$14,$52,$54,$55,$4A,$59 ; 61E7 H)TRTUJY .byte $45,$5A,$2A,$6C,$36,$37,$6A,$67 ; 61EF EZ*l67jg .byte $4D,$5E,$7F,$6D,$3B,$FD,$57,$7D ; 61F7 M^.m;}W} .byte $5D,$FE,$6B,$7F,$F7,$FF,$5F,$3F ; 61FF ]~k.w._? .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF ; 6207 ........ plotpixel: inc xpos ; 620F jsr @plot ; 6212 dec xpos ; 6215 @plot: lda ypos ; 6218 tay ; 621B lda bmplineaddr_lo,y ; 621C sta $0E ; 621F lda bmplineaddr_hi,y ; 6221 sta $0F ; 6224 lda xpos ; 6226 pha ; 6229 and #$F8 ; 622A x tay ; 622C pla ; 622D and #$07 ; 622E G tax ; 6230 lda @bittab,x ; 6231 ora ($0E),y ; 6234 sta ($0E),y ; 6236 rts ; 6238 @bittab: .byte $80,$40,$20,$10,$08,$04,$02,$01 ; 6239 .@ PHDBA next_lb_byte: inc $0A ; 6241 bne :+ ; 6243 inc $0B ; 6245 : rts ; 6247 longdelay: ldy #$04 ; 6248 D : lda #$FF ; 624A . jsr delay_checkkey ; 624C dey ; 624F bne :- ; 6250 rts ; 6252 delay_checkkey: pha ; 6253 lda a:$C6 ; 6254 bne @gotkey ; 6257 pla ; 6259 sec ; 625A @delay: pha ; 625B : sbc #$01 ; 625C A bne :- ; 625E pla ; 6260 sbc #$01 ; 6261 A bne @delay ; 6263 rts ; 6265 @gotkey: pla ; 6266 rts ; 6267 lord_british_logo: .byte $54,$BD,$55,$BC,$57,$BC,$59,$BC ; 6268 T=U<W<Y< .byte $5B,$BC,$5C,$BD,$5C,$BE,$5B,$BF ; 6270 [<\=\>[? .byte $59,$BF,$58,$BE,$58,$BD,$57,$BB ; 6278 Y?X>X=W; .byte $56,$BA,$56,$B9,$55,$B8,$55,$B7 ; 6280 V:V9U8U7 .byte $54,$B6,$54,$B5,$53,$B4,$53,$B3 ; 6288 T6T5S4S3 .byte $52,$B2,$52,$B1,$51,$B0,$4F,$B0 ; 6290 R2R1Q0O0 .byte $4E,$B0,$4D,$B1,$4D,$B2,$4E,$B3 ; 6298 N0M1M2N3 .byte $50,$B3,$51,$B2,$54,$B2,$55,$B1 ; 62A0 P3Q2T2U1 .byte $56,$B1,$57,$B0,$59,$B0,$5B,$B0 ; 62A8 V1W0Y0[0 .byte $5D,$B0,$5F,$B0,$61,$B0,$63,$B0 ; 62B0 ]0_0a0c0 .byte $65,$B0,$67,$B0,$69,$B0,$6B,$B0 ; 62B8 e0g0i0k0 .byte $6D,$B0,$6F,$B0,$71,$B0,$73,$B0 ; 62C0 m0o0q0s0 .byte $75,$B0,$77,$B0,$79,$B0,$7B,$B0 ; 62C8 u0w0y0{0 .byte $7D,$B0,$7F,$B0,$81,$B0,$83,$B0 ; 62D0 }0.0A0C0 .byte $85,$B0,$87,$B0,$89,$B0,$8B,$B0 ; 62D8 E0G0I0K0 .byte $8D,$B0,$8F,$B0,$91,$B0,$93,$B0 ; 62E0 M0O0Q0S0 .byte $95,$B0,$97,$B0,$99,$B0,$9B,$B0 ; 62E8 U0W0Y0[0 .byte $9D,$B0,$9F,$B0,$A1,$B0,$A3,$B0 ; 62F0 ]0_0!0#0 .byte $A5,$B0,$A7,$B0,$A9,$B0,$AB,$B0 ; 62F8 %0'0)0+0 .byte $AD,$B0,$AF,$B0,$B1,$B0,$B3,$B0 ; 6300 -0/01030 .byte $B5,$B0,$B7,$B0,$B9,$B0,$BB,$B0 ; 6308 507090;0 .byte $BD,$B0,$BF,$B0,$C1,$B0,$C3,$B0 ; 6310 =0?0A0C0 .byte $C5,$B0,$C7,$B0,$C9,$B0,$CA,$B0 ; 6318 E0G0I0J0 .byte $CB,$B1,$CC,$B1,$CD,$B2,$5E,$B8 ; 6320 K1L1M2^8 .byte $5E,$B7,$5D,$B6,$5D,$B5,$5C,$B4 ; 6328 ^7]6]5\4 .byte $5C,$B3,$5D,$B2,$5F,$B2,$60,$B2 ; 6330 \3]2_2`2 .byte $61,$B3,$61,$B4,$62,$B5,$62,$B6 ; 6338 a3a4b5b6 .byte $63,$B7,$63,$B8,$62,$B9,$60,$B9 ; 6340 c7c8b9`9 .byte $5F,$B9,$69,$B9,$6A,$B8,$6A,$B7 ; 6348 _9i9j8j7 .byte $69,$B6,$69,$B5,$68,$B4,$68,$B3 ; 6350 i6i5h4h3 .byte $67,$B2,$6B,$B8,$6C,$B9,$6E,$B9 ; 6358 g2k8l9n9 .byte $77,$B9,$75,$B9,$74,$B9,$73,$B8 ; 6360 w9u9t9s8 .byte $73,$B7,$72,$B6,$72,$B5,$71,$B4 ; 6368 s7r6r5q4 .byte $71,$B3,$72,$B2,$74,$B2,$75,$B3 ; 6370 q3r2t2u3 .byte $76,$B4,$77,$B5,$77,$B6,$78,$B7 ; 6378 v4w5w6x7 .byte $78,$B8,$79,$B9,$79,$BA,$7A,$BB ; 6380 x8y9y:z; .byte $7A,$BC,$7B,$BD,$7B,$BE,$76,$B3 ; 6388 z<{={>v3 .byte $77,$B2,$8B,$BE,$8B,$BD,$8A,$BC ; 6390 w2K>K=J< .byte $8A,$BB,$89,$BA,$89,$B9,$88,$B8 ; 6398 J;I:I9H8 .byte $88,$B7,$87,$B6,$87,$B5,$86,$B4 ; 63A0 H7G6G5F4 .byte $86,$B3,$85,$B2,$8C,$BF,$8E,$BF ; 63A8 F3E2L?N? .byte $8F,$BF,$90,$BE,$90,$BD,$8F,$BC ; 63B0 O?P>P=O< .byte $8F,$BB,$8E,$BA,$8E,$B9,$8C,$B9 ; 63B8 O;N:N9L9 .byte $8F,$B8,$8F,$B7,$8E,$B6,$8E,$B5 ; 63C0 O8O7N6N5 .byte $8D,$B4,$8D,$B3,$8C,$B2,$8A,$B2 ; 63C8 M4M3L2J2 .byte $88,$B2,$87,$B3,$96,$B9,$97,$B8 ; 63D0 H2G3V9W8 .byte $97,$B7,$96,$B6,$96,$B5,$95,$B4 ; 63D8 W7V6V5U4 .byte $95,$B3,$94,$B2,$98,$B8,$99,$B9 ; 63E0 U3T2X8Y9 .byte $9B,$B9,$A1,$B9,$A0,$B8,$A0,$B7 ; 63E8 [9!9 8 7 .byte $9F,$B6,$9F,$B5,$9E,$B4,$9E,$B3 ; 63F0 _6_5^4^3 .byte $9D,$B2,$A2,$BC,$A2,$BB,$A9,$BC ; 63F8 ]2\"<\";)< .byte $A9,$BB,$A8,$BA,$A8,$B9,$A7,$B8 ; 6400 );(:(9'8 .byte $A7,$B7,$A6,$B6,$A6,$B5,$A5,$B4 ; 6408 '7&6&5%4 .byte $A5,$B3,$A6,$B2,$A8,$B2,$A9,$B2 ; 6410 %3&2(2)2 .byte $AA,$B3,$A5,$B9,$A6,$B9,$AA,$B9 ; 6418 *3%9&9*9 .byte $B2,$B9,$B1,$B8,$B1,$B7,$B0,$B6 ; 6420 29181706 .byte $B0,$B5,$AF,$B4,$AF,$B3,$AE,$B2 ; 6428 05/4/3.2 .byte $B3,$BC,$B3,$BB,$BB,$B8,$BA,$B9 ; 6430 3<3;;8:9 .byte $B8,$B9,$B7,$B9,$B6,$B8,$B6,$B7 ; 6438 89796867 .byte $B7,$B6,$B8,$B5,$B9,$B4,$B9,$B3 ; 6440 76859493 .byte $B8,$B2,$B6,$B2,$B5,$B2,$B4,$B3 ; 6448 82625243 .byte $C5,$BE,$C5,$BD,$C4,$BC,$C4,$BB ; 6450 E>E=D<D; .byte $C3,$BA,$C3,$B9,$C2,$B8,$C2,$B7 ; 6458 C:C9B8B7 .byte $C1,$B6,$C1,$B5,$C0,$B4,$C0,$B3 ; 6460 A6A5@4@3 .byte $BF,$B2,$C5,$B9,$C6,$B9,$C7,$B8 ; 6468 ?2E9F9G8 .byte $C7,$B7,$C6,$B6,$C6,$B5,$C5,$B4 ; 6470 G7F6F5E4 .byte $C5,$B3,$C6,$B2,$00 ; 6478 E3F2. fade_in_origin_sys_inc: lda #$40 ; 647D @ sta L6069 ; 647F lda #$00 ; 6482 . sta L64DE ; 6484 L6487: lda #$00 ; 6487 . sta L64DF ; 6489 L648C: lda #$09 ; 648C I sta L64E0 ; 648E L6491: lda L64E0 ; 6491 sta L6063 ; 6494 sta L6065 ; 6497 lda #$15 ; 649A U clc ; 649C adc L64DF ; 649D sta L6064 ; 64A0 lda #$1D ; 64A3 ] clc ; 64A5 adc L64DF ; 64A6 sec ; 64A9 sbc L64DE ; 64AA sta L6066 ; 64AD jsr L64E1 ; 64B0 inc L64E0 ; 64B3 lda L64E0 ; 64B6 cmp #$1E ; 64B9 ^ bcc L6491 ; 64BB beq L6491 ; 64BD inc L64DF ; 64BF lda L64DF ; 64C2 cmp L64DE ; 64C5 bcc L648C ; 64C8 beq L648C ; 64CA lda #$C0 ; 64CC @ jsr delay_checkkey ; 64CE inc L64DE ; 64D1 lda L64DE ; 64D4 cmp #$08 ; 64D7 H bcc L6487 ; 64D9 beq L6487 ; 64DB rts ; 64DD L64DE: .byte $45 ; 64DE E L64DF: .byte $4E ; 64DF N L64E0: .byte $45 ; 64E0 E L64E1: lda #$20 ; 64E1 jmp L64E8 ; 64E3 L64E6: lda #$54 ; 64E6 T L64E8: sta L6069 ; 64E8 ldy L6064 ; 64EB lda bmplineaddr_lo,y ; 64EE sta $0A ; 64F1 lda bmplineaddr_hi,y ; 64F3 clc ; 64F6 adc L6069 ; 64F7 sta $0B ; 64FA ldy L6066 ; 64FC lda bmplineaddr_lo,y ; 64FF sta $0C ; 6502 lda bmplineaddr_hi,y ; 6504 sta $0D ; 6507 lda L6063 ; 6509 asl a ; 650C asl a ; 650D asl a ; 650E tay ; 650F bcc L6514 ; 6510 inc $0B ; 6512 L6514: lda ($0A),y ; 6514 pha ; 6516 lda L6065 ; 6517 asl a ; 651A asl a ; 651B asl a ; 651C tay ; 651D bcc L6522 ; 651E inc $0D ; 6520 L6522: pla ; 6522 sta ($0C),y ; 6523 rts ; 6525 ldy L6064 ; 6526 lda bmplineaddr_lo,y ; 6529 sta $0A ; 652C lda bmplineaddr_hi,y ; 652E clc ; 6531 adc L6069 ; 6532 sta $0B ; 6535 ldy L6063 ; 6537 lda ($0A),y ; 653A rts ; 653C txa ; 653D pha ; 653E clc ; 653F ldx #$06 ; 6540 F lda L6565 ; 6542 L6545: adc L655E,x ; 6545 sta L655E,x ; 6548 dex ; 654B bpl L6545 ; 654C ldx #$07 ; 654E G L6550: inc L655E,x ; 6550 bne L6558 ; 6553 dex ; 6555 bpl L6550 ; 6556 L6558: pla ; 6558 tax ; 6559 lda L655E ; 655A rts ; 655D L655E: .byte $09,$0A,$0B,$0C,$0D,$0E,$0F ; 655E IJKLMNO L6565: .byte $10 ; 6565 P fade_in_present: lda #$00 ; 6566 . sta L64DE ; 6568 L656B: lda #$00 ; 656B . sta L64DF ; 656D L6570: lda #$10 ; 6570 P sta L64E0 ; 6572 L6575: lda L64E0 ; 6575 sta L6063 ; 6578 sta L6065 ; 657B lda #$04 ; 657E D clc ; 6580 adc L64DF ; 6581 sec ; 6584 sbc L64DE ; 6585 sta L6064 ; 6588 lda #$21 ; 658B ! clc ; 658D adc L64DF ; 658E sta L6066 ; 6591 jsr L64E1 ; 6594 inc L64E0 ; 6597 lda L64E0 ; 659A cmp #$18 ; 659D X bcc L6575 ; 659F beq L6575 ; 65A1 inc L64DF ; 65A3 lda L64DF ; 65A6 cmp L64DE ; 65A9 bcc L6570 ; 65AC beq L6570 ; 65AE lda #$C0 ; 65B0 @ jsr delay_checkkey ; 65B2 inc L64DE ; 65B5 lda L64DE ; 65B8 cmp #$04 ; 65BB D bcc L656B ; 65BD beq L656B ; 65BF rts ; 65C1 fade_in_quest_of_the_avatar: lda #$20 ; 65C2 sta L6069 ; 65C4 lda #$00 ; 65C7 . sta L64DE ; 65C9 L65CC: lda #$00 ; 65CC . sta L64DF ; 65CE L65D1: lda #$03 ; 65D1 C sta L64E0 ; 65D3 L65D6: lda L64E0 ; 65D6 sta L6063 ; 65D9 sta L6065 ; 65DC lda #$51 ; 65DF Q clc ; 65E1 adc L64DF ; 65E2 sta L6064 ; 65E5 lda #$56 ; 65E8 V clc ; 65EA adc L64DF ; 65EB sec ; 65EE sbc L64DE ; 65EF sta L6066 ; 65F2 jsr L64E1 ; 65F5 lda #$5C ; 65F8 \ clc ; 65FA adc L64DF ; 65FB sec ; 65FE sbc L64DE ; 65FF sta L6064 ; 6602 lda #$57 ; 6605 W clc ; 6607 adc L64DF ; 6608 sta L6066 ; 660B jsr L64E1 ; 660E inc L64E0 ; 6611 lda L64E0 ; 6614 cmp #$24 ; 6617 $ bcc L65D6 ; 6619 beq L65D6 ; 661B inc L64DF ; 661D lda L64DF ; 6620 cmp L64DE ; 6623 bcc L65D1 ; 6626 beq L65D1 ; 6628 lda #$C0 ; 662A @ jsr delay_checkkey ; 662C inc L64DE ; 662F lda L64DE ; 6632 cmp #$05 ; 6635 E bcc L65CC ; 6637 beq L65CC ; 6639 rts ; 663B fade_in_title_view: lda #$20 ; 663C sta L6069 ; 663E lda #$00 ; 6641 . sta L64DF ; 6643 L6646: lda #$60 ; 6646 ` sta L64E0 ; 6648 L664B: lda L64E0 ; 664B sta L6064 ; 664E sta L6066 ; 6651 lda #$13 ; 6654 S sec ; 6656 sbc L64DF ; 6657 sta L6063 ; 665A lda #$13 ; 665D S sec ; 665F sbc L64DF ; 6660 sta L6065 ; 6663 jsr L64E1 ; 6666 lda #$14 ; 6669 T clc ; 666B adc L64DF ; 666C sta L6063 ; 666F sta L6065 ; 6672 jsr L64E1 ; 6675 inc L64E0 ; 6678 lda L64E0 ; 667B cmp #$BF ; 667E ? bcc L664B ; 6680 beq L664B ; 6682 lda #$C0 ; 6684 @ jsr delay_checkkey ; 6686 inc L64DF ; 6689 lda L64DF ; 668C cmp #$13 ; 668F S bcc L6646 ; 6691 beq L6646 ; 6693 rts ; 6695 fade_in_monsters: lda #$E1 ; 6696 a sta ypos ; 6698 lda #$1E ; 669B ^ sta L6A4F ; 669D sta L6A50 ; 66A0 L66A3: jsr animate_monster1 ; 66A3 jsr animate_monster2 ; 66A6 jsr title_view_animate ; 66A9 lda a:$C6 ; 66AC beq L66B2 ; 66AF rts ; 66B1 L66B2: inc ypos ; 66B2 lda ypos ; 66B5 cmp #$01 ; 66B8 A bne L66A3 ; 66BA rts ; 66BC animate_monster1: ldx L6A4F ; 66BD ldy L6A51,x ; 66C0 lda L6B1B,y ; 66C3 sta L66F0 ; 66C6 lda L6B09,y ; 66C9 sta L66FF ; 66CC ldx L6A50 ; 66CF ldy L6AC9,x ; 66D2 lda L6B3F,y ; 66D5 sta L6717 ; 66D8 lda L6B2D,y ; 66DB sta L672D ; 66DE lda #$00 ; 66E1 . sta L64DE ; 66E3 L66E6: lda #$00 ; 66E6 . sta L64DF ; 66E8 L66EB: lda L64DF ; 66EB clc ; 66EE L66F0 := * + 1 adc #$FF ; 66EF . sta L6063 ; 66F1 lda L64DF ; 66F4 sta L6065 ; 66F7 lda L64DE ; 66FA clc ; 66FD L66FF := * + 1 adc #$FF ; 66FE . sta L6064 ; 6700 lda L64DE ; 6703 clc ; 6706 adc ypos ; 6707 bmi L6712 ; 670A sta L6066 ; 670C jsr L64E6 ; 670F L6712: lda L64DF ; 6712 clc ; 6715 L6717 := * + 1 adc #$FF ; 6716 . sta L6063 ; 6718 lda L64DF ; 671B clc ; 671E adc #$22 ; 671F \" cmp #$28 ; 6721 ( bcs L6740 ; 6723 sta L6065 ; 6725 lda L64DE ; 6728 clc ; 672B L672D := * + 1 adc #$FF ; 672C . sta L6064 ; 672E lda L64DE ; 6731 clc ; 6734 adc ypos ; 6735 bmi L6740 ; 6738 sta L6066 ; 673A jsr L64E6 ; 673D L6740: inc L64DF ; 6740 lda L64DF ; 6743 cmp #$07 ; 6746 G bcc L66EB ; 6748 inc L64DE ; 674A lda L64DE ; 674D cmp #$1F ; 6750 _ bcc L66E6 ; 6752 rts ; 6754 animate_monster2: inc L6A4F ; 6755 lda L6A4F ; 6758 and #$7F ; 675B . sta L6A4F ; 675D inc L6A50 ; 6760 lda L6A50 ; 6763 and #$3F ; 6766 ? sta L6A50 ; 6768 rts ; 676B title_drawn: lda #$00 ; 676C . sta game_mode ; 676E sta currdisk_drive2 ; 6770 lda #$01 ; 6772 A sta numdrives ; 6774 sta currdisk_drive1 ; 6776 lda #$FF ; 6778 . sta music_volume ; 677A jsr title_view_animate ; 677C lda #$00 ; 677F . sta ypos ; 6781 jsr animate_monster1 ; 6784 jsr animate_monster2 ; 6787 lda #$CC ; 678A L ldx #$55 ; 678C U jsr j_fileio ; 678E jsr music_init ; 6791 lda #$00 ; 6794 . sta $04 ; 6796 lda #$D4 ; 6798 T jsr music_change ; 679A lda #$01 ; 679D A jsr music_change ; 679F title_main: jsr animate_view ; 67A2 php ; 67A5 cli ; 67A6 lda $04 ; 67A7 sta $03 ; 67A9 plp ; 67AB jsr clear_view ; 67AC L67AF: lda #$10 ; 67AF P sta L6953 ; 67B1 lda #$17 ; 67B4 W sta L6952 ; 67B6 ldx #$02 ; 67B9 B ldy #$0E ; 67BB N jsr j_primm_xy ; 67BD .byte $C9,$CE,$A0,$C1,$CE,$CF,$D4,$C8 ; 67C0 IN ANOTH .byte $C5,$D2,$A0,$D7,$CF,$D2,$CC,$C4 ; 67C8 ER WORLD .byte $AC,$A0,$C9,$CE,$A0,$C1,$A0,$D4 ; 67D0 , IN A T .byte $C9,$CD,$C5,$A0,$D4,$CF,$A0,$C3 ; 67D8 IME TO C .byte $CF,$CD,$C5,$AE,$00 ; 67E0 OME.. ldx #$0F ; 67E5 O ldy #$10 ; 67E7 P jsr j_primm_xy ; 67E9 .byte $CF,$D0,$D4,$C9,$CF,$CE,$D3,$BA ; 67EC OPTIONS: .byte $00 ; 67F4 . ldx #$0B ; 67F5 K ldy #$11 ; 67F7 Q jsr j_primm_xy ; 67F9 .byte $D2,$E5,$F4,$F5,$F2,$EE,$A0,$F4 ; 67FC Return t .byte $EF,$A0,$F4,$E8,$E5,$A0,$F6,$E9 ; 6804 o the vi .byte $E5,$F7,$00 ; 680C ew. ldx #$0B ; 680F K ldy #$12 ; 6811 R jsr j_primm_xy ; 6813 .byte $CE,$F5,$ED,$E2,$E5,$F2,$A0,$EF ; 6816 Number o .byte $E6,$A0,$E4,$F2,$E9,$F6,$E5,$F3 ; 681E f drives .byte $AD ; 6826 - ndrivechr: .byte $B1,$00 ; 6827 1. ldx #$0D ; 6829 M ldy #$13 ; 682B S jsr j_primm_xy ; 682D .byte $CA,$EF,$F5,$F2,$EE,$E5,$F9,$A0 ; 6830 Journey .byte $EF,$EE,$F7,$E1,$F2,$E4,$00 ; 6838 onward. ldx #$0B ; 683F K ldy #$14 ; 6841 T jsr j_primm_xy ; 6843 .byte $C9,$EE,$E9,$F4,$E9,$E1,$F4,$E5 ; 6846 Initiate .byte $A0,$EE,$E5,$F7,$A0,$E7,$E1,$ED ; 684E new gam .byte $E5,$00 ; 6856 e. title_menu: jsr waitkey ; 6858 cmp #$B0 ; 685B 0 bcc title_menu ; 685D cmp #$BA ; 685F : bcs @checkkeys ; 6861 sec ; 6863 sbc #$B0 ; 6864 0 jsr music_change ; 6866 jmp title_menu ; 6869 @checkkeys: cmp #$D4 ; 686C T beq @changemusic ; 686E cmp #$CF ; 6870 O beq @changemusic ; 6872 cmp #$C4 ; 6874 D beq @changemusic ; 6876 cmp #$C2 ; 6878 B beq @changemusic ; 687A cmp #$C3 ; 687C C bne @returntoview ; 687E @changemusic: jsr music_change ; 6880 jmp title_menu ; 6883 @returntoview: cmp #$D2 ; 6886 R bne @numdrives ; 6888 jmp title_main ; 688A @numdrives: cmp #$CE ; 688D N bne @journeyonward ; 688F jmp toggle_num_drives ; 6891 @journeyonward: cmp #$CA ; 6894 J bne @initiatenewgame ; 6896 jmp journey_onward ; 6898 @initiatenewgame: cmp #$C9 ; 689B I bne :+ ; 689D jmp initiate_new_game ; 689F : jmp title_menu ; 68A2 music_change: tax ; 68A5 bpl L68B3 ; 68A6 sta L68BA ; 68A8 ldx #$01 ; 68AB A stx L68B9 ; 68AD jmp music_ctl ; 68B0 L68B3: sta L68B9 ; 68B3 jmp music_ctl ; 68B6 L68B9: .byte $FF ; 68B9 . L68BA: .byte $FF ; 68BA . L68BB: .byte $CF,$D4,$C4,$C3,$C2,$00 ; 68BB OTDCB. L68C1: .byte $01,$02,$03,$00,$01,$00,$00,$04 ; 68C1 ABC.A..D .byte $01,$00,$00,$00,$01,$00,$00,$00 ; 68C9 A...A... .byte $01,$00,$00,$00,$FF ; 68D1 A.... L68D6: lda $04 ; 68D6 cmp $03 ; 68D8 beq L68DD ; 68DA rts ; 68DC L68DD: cmp #$00 ; 68DD . beq L68E4 ; 68DF sta L68B9 ; 68E1 L68E4: ldx #$00 ; 68E4 . lda L68BA ; 68E6 L68E9: cmp L68BB,x ; 68E9 beq L68F1 ; 68EC inx ; 68EE bne L68E9 ; 68EF L68F1: txa ; 68F1 asl a ; 68F2 asl a ; 68F3 clc ; 68F4 adc L68B9 ; 68F5 tax ; 68F8 L68F9: lda L68C1,x ; 68F9 bne L6901 ; 68FC inx ; 68FE bne L68F9 ; 68FF L6901: bpl L6907 ; 6901 ldx #$00 ; 6903 . beq L6901 ; 6905 L6907: txa ; 6907 lsr a ; 6908 lsr a ; 6909 tay ; 690A lda L68BB,y ; 690B cmp L68BA ; 690E beq L691F ; 6911 ldy #$00 ; 6913 . sty $03 ; 6915 ldy $04 ; 6917 bne L691E ; 6919 jsr music_change ; 691B L691E: rts ; 691E L691F: lda L68C1,x ; 691F sta $03 ; 6922 rts ; 6924 waitkey: ldx L6952 ; 6925 ldy L6953 ; 6928 jsr j_drawcursor_xy ; 692B lda #$00 ; 692E . sta ypos ; 6930 jsr animate_monster1 ; 6933 jsr animate_monster2 ; 6936 jsr j_rand ; 6939 jsr L6E49 ; 693C lda a:$C6 ; 693F beq waitkey ; 6942 jsr j_clearkbd ; 6944 lda $0277 ; 6947 ora #$80 ; 694A . pha ; 694C jsr j_console_out ; 694D pla ; 6950 rts ; 6951 L6952: .byte $00 ; 6952 . L6953: .byte $00 ; 6953 . journey_onward: jsr check_copy_protection ; 6954 lda #$00 ; 6957 . sta party_size ; 6959 sta key_buf_len ; 695B lda #$00 ; 695D . jsr music_change ; 695F lda #$D2 ; 6962 R ldx #$5B ; 6964 [ jsr j_fileio ; 6966 initiate_new_game: jsr check_copy_protection ; 6969 lda #$00 ; 696C . jsr music_change ; 696E lda numdrives ; 6971 cmp #$01 ; 6973 A beq @gotdisk ; 6975 lda #$02 ; 6977 B jsr request_disk ; 6979 lda #$01 ; 697C A sta diskid ; 697E @gotdisk: jsr clear_view ; 6980 ldx #$04 ; 6983 D ldy #$10 ; 6985 P jsr j_primm_xy ; 6987 .byte $C2,$F9,$A0,$F7,$E8,$E1,$F4,$A0 ; 698A By what .byte $EE,$E1,$ED,$E5,$A0,$F3,$E8,$E1 ; 6992 name sha .byte $EC,$F4,$A0,$F4,$E8,$EF,$F5,$A0 ; 699A lt thou .byte $E2,$E5,$A0,$EB,$EE,$EF,$F7,$EE ; 69A2 be known .byte $00 ; 69AA . ldx #$04 ; 69AB D ldy #$11 ; 69AD Q jsr j_primm_xy ; 69AF .byte $E9,$EE,$A0,$F4,$E8,$E9,$F3,$A0 ; 69B2 in this .byte $F7,$EF,$F2,$EC,$E4,$A0,$E1,$EE ; 69BA world an .byte $E4,$A0,$F4,$E9,$ED,$E5,$BF,$A0 ; 69C2 d time? .byte $00 ; 69CA . lda #$13 ; 69CB S sta console_ypos ; 69CD lda #$0C ; 69CF L sta console_xpos ; 69D1 jsr L6D9C ; 69D3 jsr clear_view ; 69D6 ldx #$04 ; 69D9 D ldy #$11 ; 69DB Q jsr j_primm_xy ; 69DD .byte $C1,$F2,$F4,$A0,$F4,$E8,$EF,$F5 ; 69E0 Art thou .byte $A0,$CD,$E1,$EC,$E5,$A0,$EF,$F2 ; 69E8 Male or .byte $A0,$C6,$E5,$ED,$E1,$EC,$E5,$BF ; 69F0 Female? .byte $A0,$00 ; 69F8 . lda console_xpos ; 69FA sta L6952 ; 69FC lda console_ypos ; 69FF sta L6953 ; 6A01 L6A04: jsr waitkey ; 6A04 cmp #$CD ; 6A07 M beq L6A13 ; 6A09 cmp #$C6 ; 6A0B F bne L6A04 ; 6A0D lda #$7B ; 6A0F { bne L6A15 ; 6A11 L6A13: lda #$5C ; 6A13 \ L6A15: sta $3C ; 6A15 jsr clear_view ; 6A17 lda #$00 ; 6A1A . jsr music_change ; 6A1C lda #$01 ; 6A1F A sta currdrive ; 6A21 lda #$D2 ; 6A23 R ldx #$51 ; 6A25 Q jsr j_fileio ; 6A27 animate_view: jsr title_view_animate ; 6A2A lda #$00 ; 6A2D . sta ypos ; 6A2F jsr animate_monster1 ; 6A32 jsr animate_monster2 ; 6A35 jsr L68D6 ; 6A38 lda a:$C6 ; 6A3B beq animate_view ; 6A3E jsr j_clearkbd ; 6A40 lda $0277 ; 6A43 ora #$80 ; 6A46 . rts ; 6A48 .byte $00,$00,$FF,$FF,$00,$00 ; 6A49 ...... L6A4F: .byte $FF ; 6A4F . L6A50: .byte $FF ; 6A50 . L6A51: .byte $01,$01,$01,$00,$00,$01,$01,$01 ; 6A51 AAA..AAA .byte $00,$00,$01,$01,$02,$02,$03,$03 ; 6A59 ..AABBCC .byte $04,$04,$01,$02,$03,$04,$01,$02 ; 6A61 DDABCDAB .byte $05,$06,$07,$08,$05,$06,$07,$08 ; 6A69 EFGHEFGH .byte $05,$06,$07,$08,$05,$06,$07,$08 ; 6A71 EFGHEFGH .byte $05,$06,$07,$08,$05,$06,$07,$08 ; 6A79 EFGHEFGH .byte $09,$0A,$09,$0A,$09,$0A,$0B,$0B ; 6A81 IJIJIJKK .byte $0B,$0B,$0C,$0C,$0D,$0D,$0C,$0D ; 6A89 KKLLMMLM .byte $0C,$0D,$0C,$0B,$0B,$0B,$00,$00 ; 6A91 LMLKKK.. .byte $01,$02,$03,$04,$01,$02,$05,$06 ; 6A99 ABCDABEF .byte $07,$08,$05,$06,$07,$08,$09,$0A ; 6AA1 GHEFGHIJ .byte $0B,$0B,$0B,$00,$00,$0E,$0E,$0E ; 6AA9 KKK..NNN .byte $0F,$10,$10,$10,$11,$11,$11,$10 ; 6AB1 OPPPQQQP .byte $10,$10,$11,$11,$11,$10,$10,$10 ; 6AB9 PPQQQPPP .byte $0F,$0E,$0E,$00,$00,$0B,$0B,$0B ; 6AC1 ONN..KKK L6AC9: .byte $01,$00,$01,$02,$03,$04,$03,$02 ; 6AC9 A.ABCDCB .byte $01,$00,$01,$02,$03,$04,$05,$06 ; 6AD1 A.ABCDEF .byte $05,$06,$05,$06,$04,$07,$08,$09 ; 6AD9 EFEFDGHI .byte $0A,$09,$08,$07,$08,$09,$0A,$0B ; 6AE1 JIHGHIJK .byte $0C,$0B,$0C,$0D,$0B,$0C,$0D,$01 ; 6AE9 LKLMKLMA .byte $0D,$01,$0E,$01,$0F,$01,$0E,$01 ; 6AF1 MANAOANA .byte $0F,$0A,$09,$08,$10,$11,$10,$11 ; 6AF9 OJIHPQPQ .byte $10,$11,$09,$08,$07,$04,$03,$02 ; 6B01 PQIHGDCB L6B09: .byte $00,$20,$40,$60,$80,$A0,$00,$20 ; 6B09 . @`. . .byte $40,$60,$80,$A0,$00,$20,$40,$60 ; 6B11 @`. . @` .byte $80,$A0 ; 6B19 . L6B1B: .byte $00,$00,$00,$00,$00,$00,$07,$07 ; 6B1B ......GG .byte $07,$07,$07,$07,$0E,$0E,$0E,$0E ; 6B23 GGGGNNNN .byte $0E,$0E ; 6B2B NN L6B2D: .byte $00,$20,$40,$60,$80,$A0,$00,$20 ; 6B2D . @`. . .byte $40,$60,$80,$A0,$00,$20,$40,$60 ; 6B35 @`. . @` .byte $80,$A0 ; 6B3D . L6B3F: .byte $22,$22,$22,$22,$22,$22,$1C,$1C ; 6B3F \"\"\"\"\"\"\\ .byte $1C,$1C,$1C,$1C,$16,$16,$16,$16 ; 6B47 \\\\VVVV .byte $16,$16 ; 6B4F VV L6B51: ldx #$5E ; 6B51 ^ L6B53: lda L6CBF,x ; 6B53 sta currmap,x ; 6B56 dex ; 6B59 bpl L6B53 ; 6B5A ldx #$00 ; 6B5C . L6B5E: lda map_status,x ; 6B5E beq L6B74 ; 6B61 ldy object_ypos,x ; 6B63 lda L6CBA,y ; 6B66 clc ; 6B69 adc object_xpos,x ; 6B6A tay ; 6B6D lda map_status,x ; 6B6E sta currmap,y ; 6B71 L6B74: inx ; 6B74 cpx #$20 ; 6B75 bne L6B5E ; 6B77 rts ; 6B79 title_view_animate: jsr L6D1E ; 6B7A jsr j_animate_creatures ; 6B7D jsr L6B51 ; 6B80 lda ptr1 ; 6B83 pha ; 6B85 lda ptr1+1 ; 6B86 pha ; 6B88 lda ptr2 ; 6B89 pha ; 6B8B lda ptr2+1 ; 6B8C pha ; 6B8E lda $58 ; 6B8F pha ; 6B91 lda $59 ; 6B92 pha ; 6B94 lda #$00 ; 6B95 . sta L6BC5 ; 6B97 lda #$09 ; 6B9A I sta $58 ; 6B9C lda #$06 ; 6B9E F sta $59 ; 6BA0 ldy #$68 ; 6BA2 h lda bmplineaddr_lo,y ; 6BA4 sta ptr2 ; 6BA7 lda bmplineaddr_hi,y ; 6BA9 sta ptr2+1 ; 6BAC lda ptr2 ; 6BAE clc ; 6BB0 adc #$08 ; 6BB1 H sta ptr2 ; 6BB3 lda ptr2+1 ; 6BB5 adc #$00 ; 6BB7 . sta ptr2+1 ; 6BB9 lda #$00 ; 6BBB . sta $72 ; 6BBD L6BBF: lda #$00 ; 6BBF . sta L6C6D ; 6BC1 L6BC4: L6BC5 := * + 1 ldy currmap ; 6BC4 tya ; 6BC7 pha ; 6BC8 jsr L6C9C ; 6BC9 lda L6C6D ; 6BCC sec ; 6BCF asl a ; 6BD0 tay ; 6BD1 pla ; 6BD2 tax ; 6BD3 lda tile_color,x ; 6BD4 sta ($58),y ; 6BD7 iny ; 6BD9 sta ($58),y ; 6BDA pha ; 6BDC tya ; 6BDD clc ; 6BDE adc #$27 ; 6BDF ' tay ; 6BE1 pla ; 6BE2 sta ($58),y ; 6BE3 iny ; 6BE5 sta ($58),y ; 6BE6 ldy #$0F ; 6BE8 O L6BEA: lda (ptr1),y ; 6BEA sta (ptr2),y ; 6BEC dey ; 6BEE bpl L6BEA ; 6BEF lda ptr1+1 ; 6BF1 eor #$70 ; 6BF3 p sta ptr1+1 ; 6BF5 lda ptr2 ; 6BF7 pha ; 6BF9 clc ; 6BFA adc #$40 ; 6BFB @ sta ptr2 ; 6BFD lda ptr2+1 ; 6BFF pha ; 6C01 adc #$01 ; 6C02 A sta ptr2+1 ; 6C04 ldy #$0F ; 6C06 O L6C08: lda (ptr1),y ; 6C08 sta (ptr2),y ; 6C0A dey ; 6C0C bpl L6C08 ; 6C0D lda ptr1+1 ; 6C0F eor #$70 ; 6C11 p sta ptr1+1 ; 6C13 pla ; 6C15 sta ptr2+1 ; 6C16 pla ; 6C18 sta ptr2 ; 6C19 inc L6BC5 ; 6C1B lda ptr2 ; 6C1E clc ; 6C20 adc #$10 ; 6C21 P sta ptr2 ; 6C23 lda ptr2+1 ; 6C25 adc #$00 ; 6C27 . sta ptr2+1 ; 6C29 inc L6C6D ; 6C2B lda L6C6D ; 6C2E cmp #$13 ; 6C31 S bne L6BC4 ; 6C33 lda $58 ; 6C35 clc ; 6C37 adc #$50 ; 6C38 P sta $58 ; 6C3A lda $59 ; 6C3C adc #$00 ; 6C3E . sta $59 ; 6C40 lda ptr2 ; 6C42 clc ; 6C44 adc #$50 ; 6C45 P sta ptr2 ; 6C47 lda ptr2+1 ; 6C49 adc #$01 ; 6C4B A sta ptr2+1 ; 6C4D inc $72 ; 6C4F lda $72 ; 6C51 cmp #$05 ; 6C53 E beq L6C5A ; 6C55 jmp L6BBF ; 6C57 L6C5A: pla ; 6C5A sta $59 ; 6C5B pla ; 6C5D sta $58 ; 6C5E pla ; 6C60 sta ptr2+1 ; 6C61 pla ; 6C63 sta ptr2 ; 6C64 pla ; 6C66 sta ptr1+1 ; 6C67 pla ; 6C69 sta ptr1 ; 6C6A rts ; 6C6C L6C6D: .byte $35 ; 6C6D 5 check_copy_protection: lda #$01 ; 6C6E A sta $A000 ; 6C70 lda #$01 ; 6C73 A sta $A001 ; 6C75 lda #$73 ; 6C78 s sta $A004 ; 6C7A lda #$00 ; 6C7D . sta $A005 ; 6C7F lda #$00 ; 6C82 . sta $A002 ; 6C84 lda #$9E ; 6C87 ^ sta $A003 ; 6C89 jsr j_readblock ; 6C8C bcs @pass ; 6C8F pla ; 6C91 pla ; 6C92 jmp title_main ; 6C93 @pass: lda #$00 ; 6C96 . sta $D020 ; 6C98 rts ; 6C9B L6C9C: sty ptr1 ; 6C9C lda #$00 ; 6C9E . sta ptr1+1 ; 6CA0 asl ptr1 ; 6CA2 rol ptr1+1 ; 6CA4 asl ptr1 ; 6CA6 rol ptr1+1 ; 6CA8 asl ptr1 ; 6CAA rol ptr1+1 ; 6CAC asl ptr1 ; 6CAE rol ptr1+1 ; 6CB0 lda ptr1+1 ; 6CB2 clc ; 6CB4 adc #$B0 ; 6CB5 0 sta ptr1+1 ; 6CB7 rts ; 6CB9 L6CBA: .byte $00,$13,$26,$39,$4C ; 6CBA .S&9L L6CBF: .byte $06,$06,$06,$04,$04,$04,$01,$01 ; 6CBF FFFDDDAA .byte $00,$00,$00,$00,$01,$04,$04,$0D ; 6CC7 ....ADDM .byte $0E,$0F,$04,$06,$06,$04,$04,$04 ; 6CCF NODFFDDD .byte $01,$01,$01,$01,$00,$00,$01,$01 ; 6CD7 AAAA..AA .byte $04,$04,$04,$04,$04,$04,$06,$04 ; 6CDF DDDDDDFD .byte $04,$01,$01,$01,$02,$02,$01,$01 ; 6CE7 DAAABBAA .byte $01,$01,$01,$01,$0A,$04,$04,$04 ; 6CEF AAAAJDDD .byte $06,$06,$04,$04,$01,$01,$02,$02 ; 6CF7 FFDDAABB .byte $01,$01,$09,$08,$01,$01,$01,$01 ; 6CFF AAIHAAAA .byte $04,$06,$06,$06,$04,$04,$04,$04 ; 6D07 DFFFDDDD .byte $01,$01,$01,$01,$04,$04,$08,$08 ; 6D0F AAAADDHH .byte $01,$01,$01,$01,$01,$06,$06 ; 6D17 AAAAAFF L6D1E: dec moon_phase_trammel ; 6D1E bpl L6D3A ; 6D20 ldy #$00 ; 6D22 . L6D24: lda (dng_direction),y ; 6D24 bpl L6D45 ; 6D26 tax ; 6D28 and #$F0 ; 6D29 p cmp #$80 ; 6D2B . bne L6D3B ; 6D2D txa ; 6D2F and #$0F ; 6D30 O sta moon_phase_trammel ; 6D32 L6D34: inc dng_direction ; 6D34 bne L6D3A ; 6D36 inc light_duration ; 6D38 L6D3A: rts ; 6D3A L6D3B: lda #$BC ; 6D3B < sta dng_direction ; 6D3D lda #$6F ; 6D3F o sta light_duration ; 6D41 bne L6D24 ; 6D43 L6D45: pha ; 6D45 and #$0F ; 6D46 O tax ; 6D48 pla ; 6D49 and #$F0 ; 6D4A p lsr a ; 6D4C lsr a ; 6D4D lsr a ; 6D4E lsr a ; 6D4F cmp #$07 ; 6D50 G beq L6D7F ; 6D52 sta object_ypos,x ; 6D54 jsr L6D34 ; 6D57 lda (dng_direction),y ; 6D5A pha ; 6D5C and #$1F ; 6D5D _ sta object_xpos,x ; 6D5F pla ; 6D62 lsr a ; 6D63 lsr a ; 6D64 lsr a ; 6D65 lsr a ; 6D66 lsr a ; 6D67 clc ; 6D68 adc L6D8D,x ; 6D69 sta map_status,x ; 6D6C cpx #$01 ; 6D6F A bne L6D76 ; 6D71 lda L6D8D,x ; 6D73 L6D76: sta object_tile,x ; 6D76 jsr L6D34 ; 6D79 jmp L6D24 ; 6D7C L6D7F: lda #$00 ; 6D7F . sta map_status,x ; 6D81 sta object_tile,x ; 6D84 jsr L6D34 ; 6D87 jmp L6D24 ; 6D8A L6D8D: rti ; 6D8D .byte $80,$10,$38,$38,$C8,$C8,$24,$20 ; 6D8E .P88HH$ .byte $88,$F0,$F8,$4D,$4F,$4E ; 6D96 HpxMON L6D9C: lda #$00 ; 6D9C . sta a:$6A ; 6D9E L6DA1: ldx console_xpos ; 6DA1 ldy console_ypos ; 6DA3 jsr j_drawcursor_xy ; 6DA5 lda #$00 ; 6DA8 . sta ypos ; 6DAA jsr animate_monster1 ; 6DAD jsr animate_monster2 ; 6DB0 lda #$00 ; 6DB3 . sta moon_phase_felucca ; 6DB5 L6DB7: inc moon_phase_felucca ; 6DB7 bmi L6DA1 ; 6DB9 ldy #$00 ; 6DBB . L6DBD: dey ; 6DBD bne L6DBD ; 6DBE lda a:$C6 ; 6DC0 beq L6DB7 ; 6DC3 jsr j_clearkbd ; 6DC5 lda $0277 ; 6DC8 ora #$80 ; 6DCB . cmp #$8D ; 6DCD M beq L6E07 ; 6DCF cmp #$94 ; 6DD1 T beq L6DEC ; 6DD3 cmp #$A0 ; 6DD5 bcc L6DB7 ; 6DD7 ldx a:$6A ; 6DD9 cpx #$0F ; 6DDC O beq L6DB7 ; 6DDE sta $AF00,x ; 6DE0 jsr j_console_out ; 6DE3 inc a:$6A ; 6DE6 jmp L6DB7 ; 6DE9 L6DEC: lda a:$6A ; 6DEC beq L6DB7 ; 6DEF dec a:$6A ; 6DF1 lda #$A0 ; 6DF4 jsr j_console_out ; 6DF6 dec console_xpos ; 6DF9 dec console_xpos ; 6DFB lda #$A0 ; 6DFD jsr j_console_out ; 6DFF dec console_xpos ; 6E02 jmp L6DB7 ; 6E04 L6E07: ldx a:$6A ; 6E07 beq L6DB7 ; 6E0A lda #$00 ; 6E0C . L6E0E: sta $AF00,x ; 6E0E inx ; 6E11 cpx #$10 ; 6E12 P bcc L6E0E ; 6E14 lda #$8D ; 6E16 M jsr j_console_out ; 6E18 rts ; 6E1B clear_view: lda #$0D ; 6E1C M sta console_ypos ; 6E1E @nextline: lda #$01 ; 6E20 A sta console_xpos ; 6E22 @nextchar: lda #$A0 ; 6E24 jsr j_console_out ; 6E26 lda console_xpos ; 6E29 cmp #$27 ; 6E2B ' bne @nextchar ; 6E2D inc console_ypos ; 6E2F lda console_ypos ; 6E31 cmp #$17 ; 6E33 W bne @nextline ; 6E35 rts ; 6E37 toggle_num_drives: lda numdrives ; 6E38 eor #$03 ; 6E3A C sta numdrives ; 6E3C lda ndrivechr ; 6E3E eor #$03 ; 6E41 C sta ndrivechr ; 6E43 jmp L67AF ; 6E46 L6E49: ldx #$96 ; 6E49 V ldy #$00 ; 6E4B . L6E4D: dey ; 6E4D bne L6E4D ; 6E4E dex ; 6E50 bne L6E4D ; 6E51 rts ; 6E53 lda #$12 ; 6E54 R sta console_ypos ; 6E56 L6E58: lda #$00 ; 6E58 . sta console_xpos ; 6E5A L6E5C: lda #$A0 ; 6E5C jsr j_console_out ; 6E5E lda console_xpos ; 6E61 cmp #$28 ; 6E63 ( bne L6E5C ; 6E65 inc console_ypos ; 6E67 lda console_ypos ; 6E69 cmp #$18 ; 6E6B X bne L6E58 ; 6E6D lda #$00 ; 6E6F . sta console_xpos ; 6E71 lda #$12 ; 6E73 R sta console_ypos ; 6E75 rts ; 6E77 .byte $20 ; 6E78 request_disk: sta reqdisk ; 6E79 L6E7B: jsr clear_view ; 6E7B lda #$10 ; 6E7E P sta console_ypos ; 6E80 lda reqdisk ; 6E82 cmp #$02 ; 6E84 B beq L6EF4 ; 6E86 cmp #$04 ; 6E88 D beq L6EF4 ; 6E8A L6E8C: lda #$01 ; 6E8C A sta currdrive ; 6E8E lda reqdisk ; 6E90 cmp currdisk_drive1 ; 6E92 beq L6EF1 ; 6E94 ldy console_ypos ; 6E96 ldx #$0B ; 6E98 K jsr j_primm_xy ; 6E9A .byte $D0,$CC,$C5,$C1,$D3,$C5,$A0,$D0 ; 6E9D PLEASE P .byte $CC,$C1,$C3,$C5,$A0,$D4,$C8,$C5 ; 6EA5 LACE THE .byte $00 ; 6EAD . inc console_ypos ; 6EAE jsr L6F54 ; 6EB0 ldy console_ypos ; 6EB3 ldx #$0D ; 6EB5 M jsr j_primm_xy ; 6EB7 .byte $C9,$CE,$D4,$CF,$A0,$C4,$C5,$D6 ; 6EBA INTO DEV .byte $C9,$C3,$C5,$A0,$B8,$00 ; 6EC2 ICE 8. L6EC8: inc console_ypos ; 6EC8 ldy console_ypos ; 6ECA ldx #$0B ; 6ECC K jsr j_primm_xy ; 6ECE .byte $C1,$CE,$C4,$A0,$D0,$D2,$C5,$D3 ; 6ED1 AND PRES .byte $D3,$A0,$DB,$C6,$B1,$DD,$00 ; 6ED9 S [F1]. lda console_xpos ; 6EE0 sta L6952 ; 6EE2 lda console_ypos ; 6EE5 sta L6953 ; 6EE7 L6EEA: jsr waitkey ; 6EEA cmp #$85 ; 6EED E bne L6EEA ; 6EEF L6EF1: jmp L6F39 ; 6EF1 L6EF4: lda numdrives ; 6EF4 cmp #$02 ; 6EF6 B bcc L6E8C ; 6EF8 lda #$02 ; 6EFA B sta currdrive ; 6EFC lda reqdisk ; 6EFE cmp currdisk_drive2 ; 6F00 beq L6F39 ; 6F02 ldy console_ypos ; 6F04 ldx #$0B ; 6F06 K jsr j_primm_xy ; 6F08 .byte $D0,$CC,$C5,$C1,$D3,$C5,$A0,$D0 ; 6F0B PLEASE P .byte $CC,$C1,$C3,$C5,$A0,$D4,$C8,$C5 ; 6F13 LACE THE .byte $00 ; 6F1B . inc console_ypos ; 6F1C jsr L6F54 ; 6F1E ldy console_ypos ; 6F21 ldx #$0D ; 6F23 M jsr j_primm_xy ; 6F25 .byte $C9,$CE,$D4,$CF,$A0,$C4,$C5,$D6 ; 6F28 INTO DEV .byte $C9,$C3,$C5,$A0,$B9,$00 ; 6F30 ICE 9. jmp L6EC8 ; 6F36 L6F39: lda currdrive ; 6F39 lda #$CC ; 6F3B L ldx #$00 ; 6F3D . jsr j_fileio ; 6F3F ldx currdrive ; 6F42 lda diskid ; 6F44 sta numdrives,x ; 6F46 cmp reqdisk ; 6F48 beq L6F53 ; 6F4A dec console_ypos ; 6F4C dec console_ypos ; 6F4E jmp L6E7B ; 6F50 L6F53: rts ; 6F53 L6F54: ldx reqdisk ; 6F54 dex ; 6F56 bne L6F6F ; 6F57 ldy console_ypos ; 6F59 ldx #$0D ; 6F5B M jsr j_primm_xy ; 6F5D .byte $D5,$CC,$D4,$C9,$CD,$C1,$A0,$C4 ; 6F60 ULTIMA D .byte $C9,$D3,$CB,$00 ; 6F68 ISK. inc console_ypos ; 6F6C rts ; 6F6E L6F6F: dex ; 6F6F bne L6F8B ; 6F70 ldy console_ypos ; 6F72 ldx #$0C ; 6F74 L jsr j_primm_xy ; 6F76 .byte $C2,$D2,$C9,$D4,$C1,$CE,$CE,$C9 ; 6F79 BRITANNI .byte $C1,$A0,$C4,$C9,$D3,$CB,$00 ; 6F81 A DISK. inc console_ypos ; 6F88 rts ; 6F8A L6F8B: dex ; 6F8B bne L6FA2 ; 6F8C ldy console_ypos ; 6F8E ldx #$0E ; 6F90 N jsr j_primm_xy ; 6F92 .byte $D4,$CF,$D7,$CE,$A0,$C4,$C9,$D3 ; 6F95 TOWN DIS .byte $CB,$00 ; 6F9D K. inc console_ypos ; 6F9F rts ; 6FA1 L6FA2: dex ; 6FA2 bne L6FBB ; 6FA3 ldy console_ypos ; 6FA5 ldx #$0D ; 6FA7 M jsr j_primm_xy ; 6FA9 .byte $C4,$D5,$CE,$C7,$C5,$CF,$CE,$A0 ; 6FAC DUNGEON .byte $C4,$C9,$D3,$CB,$00 ; 6FB4 DISK. inc console_ypos ; 6FB9 L6FBB: rts ; 6FBB .byte $88,$20,$11,$80,$20,$31,$80,$20 ; 6FBC H Q. 1. .byte $51,$80,$20,$71,$88,$27,$11,$84 ; 6FC4 Q. qH'QD .byte $27,$10,$84,$17,$10,$84,$07,$10 ; 6FCC 'PDWPDGP .byte $84,$77,$88,$20,$51,$80,$20,$31 ; 6FD4 DwH Q. 1 .byte $80,$20,$11,$80,$70,$88,$01,$66 ; 6FDC . Q.pHAf .byte $84,$11,$66,$84,$07,$10,$84,$17 ; 6FE4 DQfDGPDW .byte $10,$82,$11,$46,$82,$17,$0F,$82 ; 6FEC PBQFBWOB .byte $11,$47,$82,$17,$0E,$82,$11,$48 ; 6FF4 QGBWNBQH .byte $27,$0E,$84,$11,$49,$77,$84,$11 ; 6FFC 'NDQIwDQ .byte $4A,$88,$27,$0E,$84,$17,$0E,$84 ; 7004 JH'NDWND .byte $17,$0D,$84,$28,$0E,$84,$18,$0E ; 700C WMD(NDXN .byte $84,$11,$2A,$80,$1C,$0B,$80,$1C ; 7014 DQ*.\K.\ .byte $0C,$80,$7C,$1D,$0D,$81,$7D,$84 ; 701C L.|]MA}D .byte $1E,$0D,$80,$1E,$0C,$80,$1E,$0B ; 7024 ^M.^L.^K .byte $80,$1E,$0A,$81,$7E,$84,$11,$4A ; 702C .^JA~DQJ .byte $84,$11,$4B,$07,$0D,$84,$11,$4C ; 7034 DQKGMDQL .byte $07,$0E,$84,$15,$0C,$84,$15,$0D ; 703C GNDULDUM .byte $84,$05,$0D,$16,$0C,$84,$16,$0D ; 7044 DEMVLDVM .byte $84,$0D,$0E,$81,$7D,$84,$1D,$0E ; 704C DMNA}D]N .byte $81,$7D,$84,$0D,$0D,$81,$7D,$84 ; 7054 A}DMMA}D .byte $1C,$0D,$81,$7C,$84,$0D,$0E,$81 ; 705C \MA|DMNA .byte $7D,$84,$1D,$0E,$81,$7D,$84,$0D ; 7064 }D]NA}DM .byte $0D,$81,$7D,$75,$03,$0D,$84,$1D ; 706C MA}uCMD] .byte $0D,$81,$7D,$84,$1C,$0E,$81,$7C ; 7074 MA}D\NA| .byte $84,$1D,$0D,$81,$7D,$76,$14,$0D ; 707C D]MA}vTM .byte $88,$18,$0D,$84,$18,$0C,$17,$0E ; 7084 HXMDXLWN .byte $84,$78,$17,$0D,$84,$17,$0C,$84 ; 708C DxWMDWLD .byte $77,$88,$71,$12,$4C,$84,$12,$6C ; 7094 wHqRLDRl .byte $84,$12,$0C,$84,$4B,$00,$73,$82 ; 709C DRLDK.sB .byte $3B,$01,$82,$2B,$02,$12,$0B,$82 ; 70A4 ;AB+BRKB .byte $2B,$03,$82,$12,$0A,$1B,$04,$74 ; 70AC +CBRJ[Dt .byte $82,$1B,$05,$82,$1B,$06,$12,$6A ; 70B4 B[EB[FRj .byte $82,$1B,$07,$82,$1C,$09,$80,$1C ; 70BC B[GB\I.\ .byte $08,$80,$7C,$1D,$07,$81,$7D,$88 ; 70C4 H.|]GA}H .byte $1B,$08,$82,$1C,$09,$80,$7C,$1D ; 70CC [HB\I.|] .byte $08,$81,$7D,$7B,$84,$3A,$09,$84 ; 70D4 HA}{D:ID .byte $4A,$09,$84,$4A,$08,$12,$0A,$84 ; 70DC JIDJHRJD .byte $12,$09,$84,$12,$08,$84,$2C,$08 ; 70E4 RIDRHD,H .byte $80,$3C,$08,$80,$7C,$4D,$08,$81 ; 70EC .<H.|MHA .byte $7D,$7A,$88,$12,$68,$84,$22,$68 ; 70F4 }zHRhD\"h .byte $84,$32,$68,$84,$32,$08,$84,$32 ; 70FC D2hD2HD2 .byte $07,$84,$32,$67,$84,$42,$67,$88 ; 7104 GD2gDBgH .byte $47,$07,$84,$47,$08,$84,$47,$09 ; 710C GGDGHDGI .byte $48,$07,$84,$37,$09,$48,$08,$84 ; 7114 HGD7IHHD .byte $77,$48,$09,$84,$38,$09,$84,$78 ; 711C wHID8IDx .byte $88,$37,$09,$84,$47,$09,$84,$47 ; 7124 H7IDGIDG .byte $08,$38,$09,$84,$47,$07,$48,$09 ; 712C H8IDGGHI .byte $84,$77,$48,$08,$84,$48,$07,$84 ; 7134 DwHHDHGD .byte $78,$88,$42,$07,$84,$42,$06,$84 ; 713C xHBGDBFD .byte $42,$05,$84,$42,$04,$84,$42,$24 ; 7144 BEDBDDB$ .byte $84,$32,$24,$84,$32,$04,$84,$32 ; 714C D2$D2DD2 .byte $03,$88,$37,$03,$84,$37,$02,$84 ; 7154 CH7CD7BD .byte $37,$01,$38,$03,$84,$47,$01,$38 ; 715C 7A8CDGA8 .byte $02,$82,$09,$09,$82,$47,$00,$48 ; 7164 BBIIBG.H .byte $02,$19,$08,$82,$29,$07,$82,$47 ; 716C BYHB)GBG .byte $01,$39,$06,$82,$3E,$05,$80,$3E ; 7174 A9FB>E.> .byte $04,$80,$3E,$03,$81,$7E,$72,$82 ; 717C D.>CA~rB .byte $39,$05,$82,$39,$04,$48,$03,$37 ; 7184 9EB9DHC7 .byte $01,$82,$39,$03,$82,$3E,$03,$37 ; 718C AB9CB>C7 .byte $02,$81,$7E,$83,$4D,$03,$81,$7D ; 7194 BA~CMCA} .byte $78,$44,$03,$84,$3D,$03,$81,$7D ; 719C xDCD=CA} .byte $82,$3D,$02,$81,$7D,$82,$3D,$03 ; 71A4 B=BA}B=C .byte $81,$7D,$79,$88,$47,$02,$84,$47 ; 71AC A}yHGBDG .byte $03,$74,$88,$20,$01,$80,$20,$21 ; 71B4 CtH A. ! .byte $80,$20,$41,$80,$20,$61,$85,$47 ; 71BC . A. aEG .byte $02,$84,$37,$02,$84,$27,$02,$84 ; 71C4 BD7BD'BD .byte $27,$01,$84,$77,$88,$20,$61,$80 ; 71CC 'ADwH a. .byte $20,$41,$80,$20,$21,$80,$20,$01 ; 71D4 A. !. A .byte $80,$70,$88,$FF,$45,$54,$44,$49 ; 71DC .pH.ETDI .byte $53,$4B,$31,$D9,$20,$48,$50,$52 ; 71E4 SK1Y HPR .byte $49,$4E,$54,$2B,$33,$0D,$15,$53 ; 71EC INT+3MUS .byte $54,$41,$54,$53,$20,$20,$20,$D9 ; 71F4 TATS Y .byte $20,$47,$45,$54,$47,$07,$48,$09 ; 71FC GETGGHI .byte $84,$77,$48,$08,$84,$48,$07,$84 ; 7204 DwHHDHGD .byte $78,$88,$42,$07,$84,$42,$06,$84 ; 720C xHBGDBFD .byte $42,$05,$84,$42,$04,$84,$42,$24 ; 7214 BEDBDDB$ .byte $84,$32,$24,$84,$32,$04,$84,$32 ; 721C D2$D2DD2 .byte $03,$88,$37,$03,$84,$37,$02,$84 ; 7224 CH7CD7BD .byte $37,$01,$38,$03,$84,$47,$01,$38 ; 722C 7A8CDGA8 .byte $02,$82,$09,$09,$82,$47,$00,$48 ; 7234 BBIIBG.H .byte $02,$19,$08,$82,$29,$07,$82,$47 ; 723C BYHB)GBG .byte $01,$39,$06,$82,$3E,$05,$80,$3E ; 7244 A9FB>E.> .byte $04,$80,$3E,$03,$81,$7E,$72,$82 ; 724C D.>CA~rB .byte $39,$05,$82,$39,$04,$48,$03,$37 ; 7254 9EB9DHC7 .byte $01,$82,$39,$03,$82,$3E,$03,$37 ; 725C AB9CB>C7 .byte $02,$81,$7E,$83,$4D,$03,$81,$7D ; 7264 BA~CMCA} .byte $78,$44,$03,$84,$3D,$03,$81,$7D ; 726C xDCD=CA} .byte $82,$3D,$02,$81,$7D,$82,$3D,$03 ; 7274 B=BA}B=C .byte $81,$7D,$79,$88,$47,$02,$84,$47 ; 727C A}yHGBDG .byte $03,$74,$88,$20,$01,$80,$20,$21 ; 7284 CtH A. ! .byte $80,$20,$41,$80,$20,$61,$85,$47 ; 728C . A. aEG .byte $02,$84,$37,$02,$84,$27,$02,$84 ; 7294 BD7BD'BD .byte $27,$01,$84,$77,$88,$20,$61,$80 ; 729C 'ADwH a. .byte $20,$41,$80,$20,$21,$80,$20,$01 ; 72A4 A. !. A .byte $80,$70,$88,$FF,$0D,$20,$08,$C4 ; 72AC .pH.M HD .byte $02,$23,$22,$4D,$22,$0D,$20,$06 ; 72B4 B#\"M\"M F .byte $87,$01,$3E,$32,$0D,$20,$08,$C4 ; 72BC GA>2M HD .byte $02,$23,$22,$46,$22,$0D,$20,$06 ; 72C4 B#\"F\"M F .byte $86,$01,$3C,$32,$0D,$20,$08,$CD ; 72CC FA<2M HM .byte $02,$23,$31,$32,$33,$0D,$20,$06 ; 72D4 B#123M F .byte $86,$01,$3E,$33,$0D,$20,$0F,$5E ; 72DC FA>3M O^ .byte $32,$20,$20,$20,$20,$20,$20,$CD ; 72E4 2 M .byte $02,$23,$39,$32,$0D,$20,$13,$5E ; 72EC B#92M S^ .byte $33,$20,$20,$20,$20,$20,$20,$D0 ; 72F4 3 P .byte $01,$50,$41,$53 ; 72FC APAS