123456789101112131415161718192021222324 |
- .define Test2
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! This subroutine tests if the value on top of the stack is 2.
- ! It is used if the size is on top of the stack.
- ! The word which is to be handled is returned in registerpair AX.
- Test2:
- tay
- bne 1f ! value > 255
- cpx #2
- bne 1f ! value <> 2
- jsr Pop ! get word
- rts
- 1: ldx #Eoddz
- lda #0
- jsr Trap
|