mirror of https://github.com/mgcaret/of816.git
align comments in FCode tables
This commit is contained in:
mgcaret
parent
25ea002457
commit
09018682cc
240
asm/fcode.s
240
asm/fcode.s
|
|
@ -18,12 +18,12 @@
|
||||||
; Almost all of the non-reserved & non-historical FCodes from table 0 are implemented
|
; Almost all of the non-reserved & non-historical FCodes from table 0 are implemented
|
||||||
; to some degree. Initially, INSTANCE is not supported but can be added later.
|
; to some degree. Initially, INSTANCE is not supported but can be added later.
|
||||||
.proc fcrom0
|
.proc fcrom0
|
||||||
FCIMM FCEND ; 0x00
|
FCIMM FCEND ; 0x00
|
||||||
FCIMM FERROR ; 0x01-0x0F = prefixes for other tables
|
FCIMM FERROR ; 0x01-0x0F = prefixes for other tables
|
||||||
FCIMM FERROR ; these wont normally be executed because an fcode
|
FCIMM FERROR ; these wont normally be executed because an fcode
|
||||||
FCIMM FERROR ; fetch will never return one of thes
|
FCIMM FERROR ; fetch will never return one of thes
|
||||||
FCIMM FERROR ; that being said, get-token *will* return these
|
FCIMM FERROR ; that being said, get-token *will* return these
|
||||||
FCIMM FERROR ; entries
|
FCIMM FERROR ; entries
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
|
|
@ -34,23 +34,23 @@
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM B_LIT ; 0x10 b(lit)
|
FCIMM B_LIT ; 0x10 b(lit)
|
||||||
FCIMM B_TICK ; b(')
|
FCIMM B_TICK ; b(')
|
||||||
FCIMM B_QUOTE ; b(")
|
FCIMM B_QUOTE ; b(")
|
||||||
FCIMM BBRANCH ; bbranch
|
FCIMM BBRANCH ; bbranch
|
||||||
FCIMM BQBRANCH ; b?branch
|
FCIMM BQBRANCH ; b?branch
|
||||||
FCIMM B_LOOP ; b(loop)
|
FCIMM B_LOOP ; b(loop)
|
||||||
FCIMM B_PLOOP ; b(+loop)
|
FCIMM B_PLOOP ; b(+loop)
|
||||||
FCIMM B_DO ; b(do)
|
FCIMM B_DO ; b(do)
|
||||||
FCIMM B_QDO ; b(?do)
|
FCIMM B_QDO ; b(?do)
|
||||||
.dword IX
|
.dword IX
|
||||||
.dword JX
|
.dword JX
|
||||||
FCIMM B_LEAVE ; b(leave)
|
FCIMM B_LEAVE ; b(leave)
|
||||||
FCIMM B_OF ; b(of)
|
FCIMM B_OF ; b(of)
|
||||||
.dword EXECUTE
|
.dword EXECUTE
|
||||||
.dword PLUS
|
.dword PLUS
|
||||||
.dword MINUS
|
.dword MINUS
|
||||||
.dword MULT ; 0x20
|
.dword MULT ; 0x20
|
||||||
.dword DIV
|
.dword DIV
|
||||||
.dword MOD
|
.dword MOD
|
||||||
.dword LAND
|
.dword LAND
|
||||||
|
|
@ -66,7 +66,7 @@
|
||||||
.dword ABS
|
.dword ABS
|
||||||
.dword MIN
|
.dword MIN
|
||||||
.dword MAX
|
.dword MAX
|
||||||
.dword PtoR ; 0x30
|
.dword PtoR ; 0x30
|
||||||
.dword RtoP
|
.dword RtoP
|
||||||
.dword RCOPY
|
.dword RCOPY
|
||||||
.dword DEXIT
|
.dword DEXIT
|
||||||
|
|
@ -82,7 +82,7 @@
|
||||||
.dword NOTEQUAL
|
.dword NOTEQUAL
|
||||||
.dword UGT
|
.dword UGT
|
||||||
.dword ULTE
|
.dword ULTE
|
||||||
.dword ULT ; 0x40
|
.dword ULT ; 0x40
|
||||||
.dword UGTE
|
.dword UGTE
|
||||||
.dword SGTE
|
.dword SGTE
|
||||||
.dword SLTE
|
.dword SLTE
|
||||||
|
|
@ -98,7 +98,7 @@
|
||||||
.dword NIP
|
.dword NIP
|
||||||
.dword PICK
|
.dword PICK
|
||||||
.dword ROLL
|
.dword ROLL
|
||||||
.dword QDUP ; 0x50
|
.dword QDUP ; 0x50
|
||||||
.dword DEPTH
|
.dword DEPTH
|
||||||
.dword TWODROP
|
.dword TWODROP
|
||||||
.dword TWODUP
|
.dword TWODUP
|
||||||
|
|
@ -114,7 +114,7 @@
|
||||||
.dword SCELL
|
.dword SCELL
|
||||||
.dword CAPLUS
|
.dword CAPLUS
|
||||||
.dword WAPLUS
|
.dword WAPLUS
|
||||||
.dword LAPLUS ; 0x60
|
.dword LAPLUS ; 0x60
|
||||||
.dword NAPLUS
|
.dword NAPLUS
|
||||||
.dword CHARPLUS
|
.dword CHARPLUS
|
||||||
.dword WAINCR
|
.dword WAINCR
|
||||||
|
|
@ -130,7 +130,7 @@
|
||||||
.dword FETCH
|
.dword FETCH
|
||||||
.dword LFETCH
|
.dword LFETCH
|
||||||
.dword WFETCH
|
.dword WFETCH
|
||||||
.dword WFETCHS ; 0x70
|
.dword WFETCHS ; 0x70
|
||||||
.dword CFETCH
|
.dword CFETCH
|
||||||
.dword STORE
|
.dword STORE
|
||||||
.dword LSTORE
|
.dword LSTORE
|
||||||
|
|
@ -146,7 +146,7 @@
|
||||||
.dword WLJOIN
|
.dword WLJOIN
|
||||||
.dword LBSPLIT
|
.dword LBSPLIT
|
||||||
.dword BLJOIN
|
.dword BLJOIN
|
||||||
.dword WBFLIP ; 0x80
|
.dword WBFLIP ; 0x80
|
||||||
.dword UPC
|
.dword UPC
|
||||||
.dword LCC
|
.dword LCC
|
||||||
.dword PACK
|
.dword PACK
|
||||||
|
|
@ -162,7 +162,7 @@
|
||||||
.dword KEYQ
|
.dword KEYQ
|
||||||
.dword KEY
|
.dword KEY
|
||||||
.dword EMIT
|
.dword EMIT
|
||||||
.dword TYPE ; 0x90
|
.dword TYPE ; 0x90
|
||||||
.dword pCR
|
.dword pCR
|
||||||
.dword CR
|
.dword CR
|
||||||
.dword NOUT
|
.dword NOUT
|
||||||
|
|
@ -178,8 +178,8 @@
|
||||||
.dword DOT
|
.dword DOT
|
||||||
.dword DOTR
|
.dword DOTR
|
||||||
.dword DOTS
|
.dword DOTS
|
||||||
.dword BASE ; 0xA0
|
.dword BASE ; 0xA0
|
||||||
FCIMM FERROR ; historical CONVERT
|
FCIMM FERROR ; historical CONVERT
|
||||||
.dword dNUMBER
|
.dword dNUMBER
|
||||||
.dword DIGIT
|
.dword DIGIT
|
||||||
.dword MINUSONE
|
.dword MINUSONE
|
||||||
|
|
@ -194,29 +194,29 @@
|
||||||
.dword HERE
|
.dword HERE
|
||||||
.dword ALIGNED
|
.dword ALIGNED
|
||||||
.dword WBSPLIT
|
.dword WBSPLIT
|
||||||
.dword BWJOIN ; 0xB0
|
.dword BWJOIN ; 0xB0
|
||||||
FCIMM B_MARK ; b(<mark)
|
FCIMM B_MARK ; b(<mark)
|
||||||
FCIMM B_RESOLVE ; b(>resolve)
|
FCIMM B_RESOLVE ; b(>resolve)
|
||||||
FCIMM FERROR ; obsolete set-token-table
|
FCIMM FERROR ; obsolete set-token-table
|
||||||
FCIMM FERROR ; obsolete set-table
|
FCIMM FERROR ; obsolete set-table
|
||||||
.dword NEW_TOKEN
|
.dword NEW_TOKEN
|
||||||
.dword NAMED_TOKEN
|
.dword NAMED_TOKEN
|
||||||
FCIMM B_COLON
|
FCIMM B_COLON
|
||||||
FCIMM pVALUE ; subject to INSTANCE
|
FCIMM pVALUE ; subject to INSTANCE
|
||||||
FCIMM pVARIABLE ; subject to INSTANCE
|
FCIMM pVARIABLE ; subject to INSTANCE
|
||||||
FCIMM B_CONSTANT ; b(constant)
|
FCIMM B_CONSTANT ; b(constant)
|
||||||
FCIMM pCREATE ; b(create) -> pCREATE
|
FCIMM pCREATE ; b(create) -> pCREATE
|
||||||
FCIMM pDEFER ; subject to INSTANCE
|
FCIMM pDEFER ; subject to INSTANCE
|
||||||
FCIMM pBUFFER ; subject to INSTANCE
|
FCIMM pBUFFER ; subject to INSTANCE
|
||||||
FCIMM B_FIELD ; b(field)
|
FCIMM B_FIELD ; b(field)
|
||||||
FCIMM FERROR ; obsolete b(code) (re-use OK for native words?)
|
FCIMM FERROR ; obsolete b(code) (re-use OK for native words?)
|
||||||
FCIMM FERROR ; INSTANCE ; 0xC0
|
FCIMM FERROR ; INSTANCE ; 0xC0
|
||||||
FCIMM FERROR ; reserved
|
FCIMM FERROR ; reserved
|
||||||
FCIMM SEMI ; B_SEMI, same as SEMI for now
|
FCIMM SEMI ; B_SEMI, same as SEMI for now
|
||||||
FCIMM B_TO
|
FCIMM B_TO
|
||||||
FCIMM B_CASE ; b(case)
|
FCIMM B_CASE ; b(case)
|
||||||
FCIMM B_ENDCASE ; b(endcase)
|
FCIMM B_ENDCASE ; b(endcase)
|
||||||
FCIMM B_ENDOF ; b(endof)
|
FCIMM B_ENDOF ; b(endof)
|
||||||
.dword PNUM
|
.dword PNUM
|
||||||
.dword PNUMS
|
.dword PNUMS
|
||||||
.dword PDONE
|
.dword PDONE
|
||||||
|
|
@ -226,7 +226,7 @@
|
||||||
.dword EVALUATE
|
.dword EVALUATE
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
.dword CCOMMA ; 0xD0
|
.dword CCOMMA ; 0xD0
|
||||||
.dword WCOMMA
|
.dword WCOMMA
|
||||||
.dword LCOMMA
|
.dword LCOMMA
|
||||||
.dword COMMA
|
.dword COMMA
|
||||||
|
|
@ -241,8 +241,8 @@
|
||||||
.dword STATE
|
.dword STATE
|
||||||
.dword COMPILECOMMA
|
.dword COMPILECOMMA
|
||||||
.dword BEHAVIOR
|
.dword BEHAVIOR
|
||||||
FCIMM FERROR ; 0xDF-0xEF reserved
|
FCIMM FERROR ; 0xDF-0xEF reserved
|
||||||
FCIMM FERROR ; 0xE0
|
FCIMM FERROR ; 0xE0
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
|
|
@ -258,11 +258,11 @@
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
.dword START0 ; 0xF0
|
.dword START0 ; 0xF0
|
||||||
.dword START1
|
.dword START1
|
||||||
.dword START2
|
.dword START2
|
||||||
.dword START4
|
.dword START4
|
||||||
FCIMM FERROR ; 0xF4-0xFB reserved
|
FCIMM FERROR ; 0xF4-0xFB reserved
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
|
|
@ -270,46 +270,46 @@
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR ; 0xFC explicitly FERROR
|
FCIMM FERROR ; 0xFC explicitly FERROR
|
||||||
.dword VERSION1
|
.dword VERSION1
|
||||||
FCIMM FERROR ; obsolete 4-byte-id
|
FCIMM FERROR ; obsolete 4-byte-id
|
||||||
.dword FCEND ; 0xFF
|
.dword FCEND ; 0xFF
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
.proc fcrom2
|
.proc fcrom2
|
||||||
FCIMM FERROR ; 0x200
|
FCIMM FERROR ; 0x200
|
||||||
FCIMM FERROR ; device-name
|
FCIMM FERROR ; device-name
|
||||||
FCIMM FERROR ; my-args
|
FCIMM FERROR ; my-args
|
||||||
FCIMM FERROR ; my-self
|
FCIMM FERROR ; my-self
|
||||||
FCIMM FERROR ; find-package
|
FCIMM FERROR ; find-package
|
||||||
FCIMM FERROR ; open-package
|
FCIMM FERROR ; open-package
|
||||||
FCIMM FERROR ; close-package
|
FCIMM FERROR ; close-package
|
||||||
FCIMM FERROR ; find-method
|
FCIMM FERROR ; find-method
|
||||||
FCIMM FERROR ; call-package
|
FCIMM FERROR ; call-package
|
||||||
FCIMM FERROR ; $call-parent
|
FCIMM FERROR ; $call-parent
|
||||||
FCIMM FERROR ; my-parent
|
FCIMM FERROR ; my-parent
|
||||||
FCIMM FERROR ; ihandle>phandle
|
FCIMM FERROR ; ihandle>phandle
|
||||||
FCIMM FERROR ; reserved
|
FCIMM FERROR ; reserved
|
||||||
FCIMM FERROR ; my-unit
|
FCIMM FERROR ; my-unit
|
||||||
FCIMM FERROR ; $call-method
|
FCIMM FERROR ; $call-method
|
||||||
FCIMM FERROR ; $open-package
|
FCIMM FERROR ; $open-package
|
||||||
FCIMM FERROR ; 0x210 historical processor-type
|
FCIMM FERROR ; 0x210 historical processor-type
|
||||||
FCIMM FERROR ; historical firmware-version
|
FCIMM FERROR ; historical firmware-version
|
||||||
FCIMM FERROR ; historical fcode-version
|
FCIMM FERROR ; historical fcode-version
|
||||||
FCIMM FERROR ; alarm
|
FCIMM FERROR ; alarm
|
||||||
.dword IS_USER_WORD ; (is-user-word)
|
.dword IS_USER_WORD ; (is-user-word)
|
||||||
.dword NOOP ; suspend-fcode, to be optionally replaced
|
.dword NOOP ; suspend-fcode, to be optionally replaced
|
||||||
.dword ABORT
|
.dword ABORT
|
||||||
.dword CATCH
|
.dword CATCH
|
||||||
.dword THROW
|
.dword THROW
|
||||||
FCIMM FERROR ; user-abort
|
FCIMM FERROR ; user-abort
|
||||||
FCIMM FERROR ; get-my-property
|
FCIMM FERROR ; get-my-property
|
||||||
FCIMM FERROR ; DECODE_INT
|
FCIMM FERROR ; DECODE_INT
|
||||||
FCIMM FERROR ; DECODE_STRING
|
FCIMM FERROR ; DECODE_STRING
|
||||||
FCIMM FERROR ; get-inherited-property
|
FCIMM FERROR ; get-inherited-property
|
||||||
FCIMM FERROR ; delete-property
|
FCIMM FERROR ; delete-property
|
||||||
FCIMM FERROR ; get-package-property
|
FCIMM FERROR ; get-package-property
|
||||||
.dword CPEEK ; 0x220
|
.dword CPEEK ; 0x220
|
||||||
.dword WPEEK
|
.dword WPEEK
|
||||||
.dword LPEEK
|
.dword LPEEK
|
||||||
.dword CPOKE
|
.dword CPOKE
|
||||||
|
|
@ -318,7 +318,7 @@
|
||||||
.dword WBFLIP
|
.dword WBFLIP
|
||||||
.dword LBFLIP
|
.dword LBFLIP
|
||||||
.dword LBFLIPS
|
.dword LBFLIPS
|
||||||
FCIMM FERROR ; historical adr-mask
|
FCIMM FERROR ; historical adr-mask
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
|
|
@ -333,30 +333,30 @@
|
||||||
.dword dRLSTORE
|
.dword dRLSTORE
|
||||||
.dword WBFLIPS
|
.dword WBFLIPS
|
||||||
.dword LWFLIPS
|
.dword LWFLIPS
|
||||||
FCIMM FERROR ; probe
|
FCIMM FERROR ; probe
|
||||||
FCIMM FERROR ; probe-virtual
|
FCIMM FERROR ; probe-virtual
|
||||||
FCIMM FERROR ; reserved
|
FCIMM FERROR ; reserved
|
||||||
FCIMM FERROR ; child
|
FCIMM FERROR ; child
|
||||||
FCIMM FERROR ; peer
|
FCIMM FERROR ; peer
|
||||||
FCIMM FERROR ; next-property
|
FCIMM FERROR ; next-property
|
||||||
.dword BYTE_LOAD
|
.dword BYTE_LOAD
|
||||||
FCIMM FERROR ; set-args
|
FCIMM FERROR ; set-args
|
||||||
.dword LEFT_PARSE_STRING
|
.dword LEFT_PARSE_STRING
|
||||||
.repeat $aa
|
.repeat $aa
|
||||||
FCIMM FERROR ; remaining are reserved
|
FCIMM FERROR ; remaining are reserved
|
||||||
.endrepeat
|
.endrepeat
|
||||||
; the last 15 XTs overlap with fcrom1 to save space
|
; the last 15 XTs overlap with fcrom1 to save space
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
.proc fcrom1
|
.proc fcrom1
|
||||||
FCIMM FERROR ; 0x100 reserved
|
FCIMM FERROR ; 0x100 reserved
|
||||||
FCIMM FERROR ; dma-alloc
|
FCIMM FERROR ; dma-alloc
|
||||||
FCIMM FERROR ; my-address
|
FCIMM FERROR ; my-address
|
||||||
FCIMM FERROR ; my-space
|
FCIMM FERROR ; my-space
|
||||||
FCIMM FERROR ; historical memmap
|
FCIMM FERROR ; historical memmap
|
||||||
FCIMM FERROR ; free-virtual
|
FCIMM FERROR ; free-virtual
|
||||||
FCIMM FERROR ; historical >physical
|
FCIMM FERROR ; historical >physical
|
||||||
FCIMM FERROR ; 0x107-0x10E reserved
|
FCIMM FERROR ; 0x107-0x10E reserved
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
|
|
@ -364,19 +364,19 @@
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
FCIMM FERROR ; my-params
|
FCIMM FERROR ; my-params
|
||||||
FCIMM FERROR ; PROPERTY ; 0x110
|
FCIMM FERROR ; 0x110 PROPERTY
|
||||||
FCIMM FERROR ; ENCODE_INT
|
FCIMM FERROR ; ENCODE_INT
|
||||||
FCIMM FERROR ; ENCODEPLUS
|
FCIMM FERROR ; ENCODEPLUS
|
||||||
FCIMM FERROR ; ENCODE_PHYS
|
FCIMM FERROR ; ENCODE_PHYS
|
||||||
FCIMM FERROR ; ENCODE_STRING
|
FCIMM FERROR ; ENCODE_STRING
|
||||||
FCIMM FERROR ; ENCODE_BYTES
|
FCIMM FERROR ; ENCODE_BYTES
|
||||||
FCIMM FERROR ; reg
|
FCIMM FERROR ; reg
|
||||||
FCIMM FERROR ; obsoluete intr
|
FCIMM FERROR ; obsoluete intr
|
||||||
FCIMM FERROR ; driver
|
FCIMM FERROR ; driver
|
||||||
FCIMM FERROR ; model
|
FCIMM FERROR ; model
|
||||||
FCIMM FERROR ; device-type
|
FCIMM FERROR ; device-type
|
||||||
.dword PARSE_2INT ; 0x11b
|
.dword PARSE_2INT ; 0x11b
|
||||||
; the rest are unimplemented in the ROM, need to be installed later
|
; the rest are unimplemented in the ROM, need to be installed later
|
||||||
; and overlap with fcromnone
|
; and overlap with fcromnone
|
||||||
.endproc
|
.endproc
|
||||||
|
|
@ -386,12 +386,12 @@
|
||||||
FCIMM FERROR
|
FCIMM FERROR
|
||||||
.endrepeat
|
.endrepeat
|
||||||
.endproc
|
.endproc
|
||||||
fcrom3 = fcromnone ; reserved
|
fcrom3 = fcromnone ; reserved
|
||||||
fcrom4 = fcromnone ; reserved
|
fcrom4 = fcromnone ; reserved
|
||||||
fcrom5 = fcromnone ; reserved
|
fcrom5 = fcromnone ; reserved
|
||||||
fcrom6 = fcromnone ; vendor
|
fcrom6 = fcromnone ; vendor
|
||||||
fcrom7 = fcromnone ; vendor
|
fcrom7 = fcromnone ; vendor
|
||||||
fcrom8 = fcromnone ; local codes table 8-f
|
fcrom8 = fcromnone ; local codes table 8-f
|
||||||
fcrom9 = fcromnone
|
fcrom9 = fcromnone
|
||||||
fcroma = fcromnone
|
fcroma = fcromnone
|
||||||
fcromb = fcromnone
|
fcromb = fcromnone
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue