passport/src/keys.a

WaitForKey
         bit   STROBE
-        lda   KEY
         bpl   -
         bit   STROBE
         cmp   #"*"
         bne   +
         jsr   TEXT
         jsr   PrintByID
         !byte s_reset
         jmp   $FF59
+        cmp   #$E1
         bcc   +
         and   #$DF       ; force uppercase
+        rts
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`WaitForKey`
			`bit STROBE`
some formatting changes 2021-04-20 04:27:11 +00:00			`- lda KEY`
			`bpl -`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`bit STROBE`
			`cmp #"*"`
some formatting changes 2021-04-20 04:27:11 +00:00			`bne +`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`jsr TEXT`
			`jsr PrintByID`
shave some bytes by refactoring PrintByID 2021-06-13 02:07:26 +00:00			`!byte s_reset`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`jmp $FF59`
some formatting changes 2021-04-20 04:27:11 +00:00			`+ cmp #$E1`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`bcc +`
			`and #$DF ; force uppercase`
some formatting changes 2021-04-20 04:27:11 +00:00			`+ rts`