acme/ACME_Lib/cbm/basic10.a

51 lines
1.6 KiB
Plaintext
Raw Normal View History

;ACME 0.94.4
!ifdef lib_cbm_basic10_a !eof
lib_cbm_basic10_a = 1
!source <cbm/basic7.a> ; from 0x80 to 0xff, 0xce 0x02 to 0xce 0x0a, 0xfe 0x02 to 0xfe 0x26
; token values
token_PASTE = $e3 ; was called GSHAPE in basic v7
token_CUT = $e4 ; was called SSHAPE in basic v7
token_LINE = $e5 ; was called DRAW in basic v7
token_DIR = $ee ; was called DIRECTORY in basic v7
; Macros for inserting BASIC commands
!macro b_PASTE {!by token_PASTE} ; aka GSHAPE
!macro b_CUT {!by token_CUT} ; aka SSHAPE
!macro b_LINE {!by token_LINE} ; aka DRAW
!macro b_DIR {!by token_DIR} ; aka DIRECTORY
; STASH/FETCH/SWAP are all decoded to DMA:
!macro b_DMA {!by $fe, $1f}
; extended token $fe $20 isn't used ($20 is ' ')
;!macro b_DMA {!by $fe, $21}
; extended token $fe $22 isn't used ($20 is '"')
;!macro b_DMA {!by $fe, $23}
; new instructions:
!macro b_TYPE {!by $fe, $27}
!macro b_BVERIFY {!by $fe, $28}
!macro b_ECTORY {!by $fe, $29} ; no-op in case someone types "DIRECTORY"?
!macro b_ERASE {!by $fe, $2a}
!macro b_FIND {!by $fe, $2b}
!macro b_CHANGE {!by $fe, $2c}
!macro b_SET {!by $fe, $2d}
!macro b_SCREEN {!by $fe, $2e}
!macro b_POLYGON {!by $fe, $2f}
!macro b_ELLIPSE {!by $fe, $30}
!macro b_VIEWPORT {!by $fe, $31}
!macro b_GCOPY {!by $fe, $32}
!macro b_PEN {!by $fe, $33}
!macro b_PALETTE {!by $fe, $34}
!macro b_DMODE {!by $fe, $35}
!macro b_DPAT {!by $fe, $36}
!macro b_PIC {!by $fe, $37}
!macro b_GENLOCK {!by $fe, $38}
!macro b_FOREGROUND {!by $fe, $39}
; extended token $fe $3a isn't used ($3a is ':')
!macro b_BACKGROUND {!by $fe, $3b}
!macro b_BORDER {!by $fe, $3c}
!macro b_HIGHLIGHT {!by $fe, $3d}