diff --git a/src/mods/t00only.a b/src/mods/t00only.a index 13d56a3..b60cee5 100644 --- a/src/mods/t00only.a +++ b/src/mods/t00only.a @@ -73,6 +73,7 @@ AnalyzeT00 !source "../patchers/t00_sunburst.a" !source "../patchers/t00_sve.a" !source "../patchers/t00_swordthrust.a" + !source "../patchers/t00_scottforesman_dos33.a" ; ----- add new DOS 3.3 patchers above this line ----- !source "../patchers/t00_nibtable.a" ; clobbers $2000..$2095 (AnalyzeT00 is decompressed into $2000) !source "../patchers/t00_rwts.a" ; must run after all other patchers that might modify RWTS code diff --git a/src/patchers/t00_scottforesman_dos33.a b/src/patchers/t00_scottforesman_dos33.a new file mode 100644 index 0000000..753e48c --- /dev/null +++ b/src/patchers/t00_scottforesman_dos33.a @@ -0,0 +1,30 @@ +;------------------------------- +; #T00SCOTTFORESMANDOS33 +; nibble count during early boot +; +; tested on +; - Addition and Subtraction 3 (Scott, Foresman and Company) +; - Decimals 2 (Scott, Foresman and Company) +; - Fractions 1 (Scott, Foresman and Company) +; - Fractions 2 (Scott, Foresman and Company) +; - Multiplication 2 (Scott, Foresman and Company) +; - Percent 1 (Scott, Foresman and Company) +;------------------------------- + ; gTrack = 0 + lda #$0B + ldx #$15 + ldy #$06 + jsr compare ; if T00,S0B,$15 == + !byte $EE,$F3,$03 + !byte $20,$00,$87 + bcs + + + jsr PrintByID + !byte s_sfc + + inx + inx + inx + jsr modify1 ; then set T00,S0B,$18 == + !byte $2C ++