32 lines
409 B
ArmAsm
32 lines
409 B
ArmAsm
cmd_sys:
|
|
|
|
jsr basic_end_of_statement_check
|
|
bcc +
|
|
|
|
;; SYS requires an argument
|
|
jmp do_SYNTAX_ERROR
|
|
|
|
*
|
|
jsr basic_parse_line_number
|
|
|
|
;; setup call
|
|
lda #$4C ;JMP
|
|
sta USRPOK
|
|
lda basic_line_number+0
|
|
sta USRADD+0
|
|
lda basic_line_number+1
|
|
sta USRADD+1
|
|
|
|
;; Setup the register values
|
|
lda SPREG
|
|
pha
|
|
ldy SYREG
|
|
ldx SXREG
|
|
lda SAREG
|
|
plp
|
|
|
|
;; Call the routine.
|
|
jsr USRPOK
|
|
|
|
jmp basic_execute_statement
|