passport/src/id/phoenix.a

;-------------------------------
; IDPhoenix
; identify Phoenix bootloader
;
; in:  track buffer contains T00,S00
; out: C clear if Phoenix bootloader was found
;      C set if not found
;      all other flags clobbered
;      all registers clobbered
;-------------------------------
!zone {
IDPhoenix
         lda   #$00
         ldx   #$B8
         jsr   compare3
         !byte $AC,$B7,$F6
         rts              ; passport-test-suite/Zoom Grafix 26-JAN-82.woz [C=0] matches
}
add support for Zoom Grafix 2019-04-08 00:02:19 +00:00			`;-------------------------------`
			`; IDPhoenix`
			`; identify Phoenix bootloader`
			`;`
			`; in: track buffer contains T00,S00`
			`; out: C clear if Phoenix bootloader was found`
			`; C set if not found`
			`; all other flags clobbered`
			`; all registers clobbered`
			`;-------------------------------`
			`!zone {`
			`IDPhoenix`
			`lda #$00`
			`ldx #$B8`
shave some bytes 2021-06-21 15:57:02 +00:00			`jsr compare3`
add support for Zoom Grafix 2019-04-08 00:02:19 +00:00			`!byte $AC,$B7,$F6`
more test suite cross-references 2019-05-07 01:24:29 +00:00			`rts ; passport-test-suite/Zoom Grafix 26-JAN-82.woz [C=0] matches`
add support for Zoom Grafix 2019-04-08 00:02:19 +00:00			`}`