Initial files

res/callback -- for 4cade.s

@@ -0,0 +1,204 @@
+!cpu 6502
+!to "callback#061000",plain
+*=$1000
+
+WILDCARD =     $97
+BASEPAGE =     $D0
+
+         lda   $c08b
+         lda   $c08b
+         ldy   #$0D
+         jsr   SearchTrack
+         !byte $BD,$10,$BF           ;LDA $BF10,X
+         !byte $8D,WILDCARD,WILDCARD ;STA $xxxx,X
+         !byte $BD,$11,$BF           ;LDA $BF11,X
+         !byte $8D,WILDCARD,WILDCARD ;STA $xxxx,X
+         !byte $6C
+         bcs   .exit
+         adc   #BASEPAGE
+         sta   patch1+2
+         sta   patch2+2
+
+         ldy   #(callback_e-callback_b)-1
+-        lda   callback_b,y
+         sta   callback,y
+         dey
+         bpl   -         
+
+         txa
+         adc   #$0E
+         tax
+
+         ldy   #2
+-
+patch1   lda   $d100,x
+         sta   jmpback,y
+         lda   hookme,y
+patch2   sta   $d100,x
+         dex
+         dey
+         bpl   -
+.exit
+         lda   $c082
+         bcs   ++
+         ldy   #0
+         beq   +
+-        jsr   $FDED
+         iny
++        lda   installed,y
+         bne   -
+++       rts
+
+hookme   jmp   callback
+
+installed
+         !text "INSTALLED"
+         !byte $8D,00
+
+callback_b
+!pseudopc $300 {
+callback lda   $c081
+         lda   #$D2
+         jsr   $FDED
+         lda   $c08b
+         lda   $c000
+         bpl   +
+         sec ;error is pressed key
+         rts
++
+jmpback  ;!byte $d1,$d1,$d1
+}
+callback_e
+
+SearchTrack
+;set end point for the search
+
+         lda   #$E0
+         sta   .endvalue+1
+         lda   #$D0
+
+; set high part of initial search position
+
+         sta   search+2
+         pla
+         sta   match_buffer1+1
+         sta   match_all+1
+         pla
+         sta   match_buffer1+2
+         sta   match_all+2
+         tax
+         sty   match_size1+1
+         sty   match_size2+1
+
+; fetch last byte to improve search speed
+
+match_buffer1
+         lda   $d1d1,y    ; modified at runtime
+         sta   check_byte1+1
+         sta   check_byte2+1
+
+; set low part of initial search position
+
+         tya
+         dey
+         sty   cont_search+1
+
+; set return address
+
+         clc
+         adc   match_buffer1+1
+         tay
+         bcc   plus01
+         inx
+plus01
+         txa
+         pha
+         tya
+         pha
+
+; set match position
+
+         inc   match_all+1
+         bne   plus02
+         inc   match_all+2
+plus02
+
+         lda   #<cont_search-branch_cont-2
+         sta   branch_cont+1
+
+; search...
+
+cont_search
+         ldy   #$d1       ; modified at runtime
+
+search
+         lda   $d100,y    ; modified at runtime
+         iny
+         beq   check_end
+
+check_byte1
+         cmp   #$d1       ; modified at runtime
+         bne   search
+
+; point to first byte
+
+         sty   cont_search+1
+
+check_match
+         tya
+
+match_size1
+         sbc   #$d1       ; modified at runtime
+         sta   match_buffer2+1
+         ldx   search+2
+         bcs   plus03
+         dex
+plus03
+         stx   match_buffer2+2
+         ldy   #$00
+
+match_all
+         lda   $d1d1,y    ; modified at runtime
+         cmp   #WILDCARD
+         beq   found_wild
+
+match_buffer2
+         cmp   $d1d1,y    ; modified at runtime
+
+branch_cont
+         bne   cont_search
+
+found_wild
+         iny
+
+match_size2
+         cpy   #$d1       ; modified at runtime
+         bne   match_all
+
+; point to start of match
+
+         ldx   match_buffer2+1
+         lda   match_buffer2+2
+         sec
+         sbc   #BASEPAGE
+         clc
+         rts
+
+; cold path
+
+check_end
+         inc   search+2
+         ldx   search+2
+.endvalue
+         cpx   #$D1
+         bne   check_byte1
+         ldx   #<all_done_set-branch_cont-2
+         stx   branch_cont+1
+
+check_byte2
+         cmp   #$d1       ; modified at runtime
+         beq   check_match
+
+all_done_set
+         sec
+         rts

res/catalog4.txt

@@ -0,0 +1,82 @@
+/---------name--------\/--directory--\AB (A=1 if requires joystick; B=1 if requires 128K)
+Agent USA              AGENTUSA        0
+Airheart               AIRHEART        1
+Alien Downpour         ALIENDOWNPOUR  00
+Alien Rain             ALIENRAIN       0
+Ankh                   ANKH            0
+Apple Panic            APPLEPANIC      0
+Aquatron               AQUATRON        0
+Arkanoid               ARKANOID        0
+Battlezone             BATTLEZONE      0
+BC's Quest For Tires   BCSQUESTFORTIRE 0
+Beer Run               BEERRUN         0
+Bolo                   BOLO           00
+Brainteaser Boulevard  BRAINTEASERBLVD 0
+BurgerTime             BURGERTIME     00
+Cannonball Blitz       CANNONBALLBLITZ 0
+Centipede              CENTIPEDE       0
+Choplifter             CHOPLIFTER      0
+Commando               COMMANDO        0
+Conan                  CONAN          00
+Crisis Mountain        CRISISMOUNTAIN  0
+Crossfire              CROSSFIRE       0
+David's Midnight Magic DAVIDSMIDNIGHTM 0
+Defender               DEFENDER        0
+Dig Dug                DIGDUG         00
+Dino Eggs              DINOEGGS        0
+Donkey Kong            DONKEYKONG      0
+Drelbs                 DRELBS          0
+Epoch                  EPOCH           0
+Falcons                FALCONS        00
+Flip Out               FLIPOUT         0
+Formula 1 Racer        FORMULA1RACER   0
+Frogger                FROGGER        00
+Galaxian               GALAXIAN        0
+The Goonies            GOONIES         0
+Gremlins               GREMLINS        0
+Hard Hat Mack          HARDHATMACK     0
+H.E.R.O                HERO            0
+High Rise              HIGHRISE        0
+Hungry Boy             HUNGRYBOY       0
+Impossible Mission     IMPOSSIBLEMISSI 0
+Joust                  JOUST          00
+Jungle Hunt            JUNGLEHUNT     00
+Karateka               KARATEKA        0
+Lady Tut               LADYTUT         0
+Lost Tomb              LOSTTOMB        0
+Moon Patrol            MOONPATROL      0
+Mr. Cool               MRCOOL          0
+Mr. Do                 MRDO           10
+Ms. Pacman             MSPACMAN       00
+Nightmare Gallery      NIGHTMAREGALLER 0
+O'Riley's Mine         ORILEYSMINE     0
+Outpost                OUTPOST         0
+Pac-Man                PACMAN         00
+Paperboy               PAPERBOY        0
+Pest Patrol            PESTPATROL      0
+Pie-Man                PIEMAN          0
+Pitfall II             PITFALLII       0
+Plasmania              PLASMANIA       0
+Pooyan                 POOYAN          0
+Prince of Persia       PRINCEOFPERSIA 01
+Puckman                PUCKMAN         0
+Repton                 REPTON          0
+Ribbit                 RIBBIT          0
+Robotron 2084          ROBOTRON2084    0
+Shamus                 SHAMUS          0
+Snake Byte             SNAKEBYTE       0
+Sneakers               SNEAKERS       00
+Snoggle                SNOGGLE         0
+Space Raiders          SPACERAIDERS    0
+Spider Raid            SPIDERRAID      0
+Spy Hunter             SPYHUNTER       0
+Spy's Demise           SPYSDEMISE      0
+Starblaster            STARBLASTER     0
+Stargate               STARGATE        0
+Succession             SUCCESSION      0
+Swashbuckler           SWASHBUCKLER    0
+Tag Team Wrestling     TAGTEAMWRESTLIN 0
+Tapper                 TAPPER         00
+Tomahawk               TOMAHAWK       10
+Tubeway ][             TUBEWAYII       0
+Wavy Navy              WAVYNAVY       00