mirror of
https://github.com/a2-4am/passport.git
synced 2024-06-08 16:29:33 +00:00
33 lines
936 B
Plaintext
33 lines
936 B
Plaintext
;-------------------------------
|
|
; #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
|
|
; Caller found DOS 3.3 RWTS
|
|
|
|
lda #$0B
|
|
ldx #$15
|
|
ldy #$06
|
|
jsr compare ; if T00,S0B,$15 ==
|
|
!byte $EE,$F3,$03
|
|
!byte $20,$00,$87
|
|
bcs + ; passport-test-suite/Addition and Subtraction 3.woz [C=0] matches
|
|
|
|
jsr PrintByID
|
|
!byte s_sfc
|
|
|
|
inx
|
|
inx
|
|
inx
|
|
jsr modify1 ; then set T00,S0B,$18 ==
|
|
!byte $2C
|
|
+
|