67 lines
1.8 KiB
ObjectPascal
67 lines
1.8 KiB
ObjectPascal
; ==================================================
|
|
; Orion BASIC v2.4 for Orion-128 computer
|
|
;
|
|
; Uninitialized variables
|
|
; Disassembled by Romychs @ 2026-10-23
|
|
; ==================================================
|
|
|
|
ORG 0x27C2
|
|
|
|
DIMFLG:
|
|
DS 1 ; DIM flag
|
|
VALTYP:
|
|
DS 1 ; Value type indicator 0-numeric, 1-string
|
|
TEMPPT:
|
|
DS 2 ; Pointer to first free temp descriptor
|
|
TEMPST:
|
|
DS STRSIZ*NUMTMP ; Storage for NUMTMP temp descriptors
|
|
DSCTMP:
|
|
DS 4 ; String function result descriptor
|
|
STREND:
|
|
DS 2
|
|
TEMP3:
|
|
DS 2
|
|
DATLIN:
|
|
DS 2 ; Data line number, remember for error
|
|
SUBFLG:
|
|
DS 1 ; Flag for subscribted variable allowed
|
|
FLGINP:
|
|
DS 1 ; Flag, we doing input
|
|
TEMP:
|
|
DS 2
|
|
TEMP2:
|
|
DS 2
|
|
CURLIN:
|
|
DS 2 ; Current line number
|
|
OLDLIN:
|
|
DS 2 ; Old line number
|
|
OLDTXT:
|
|
DS 2 ; Old text pointer
|
|
ARYTAB:
|
|
DS 2 ; Pointer to beginning of array table
|
|
DATPTR:
|
|
DS 2
|
|
FACLO:
|
|
DS 3 ; Mantissa
|
|
FAC:
|
|
DS 2 ; Exponent
|
|
FBUFFR:
|
|
DS 13
|
|
|
|
; ---------------------------------------------------
|
|
; Text of BASIC program
|
|
; ---------------------------------------------------
|
|
ORG 0x2801
|
|
TEXT
|
|
DS 22523
|
|
|
|
; ---------------------------------------------------
|
|
; Sprite operation temp area
|
|
; ---------------------------------------------------
|
|
ORG 0x7FFC
|
|
SPR_HEIGHT DS 1
|
|
SPR_WIDTH DS 1
|
|
SPR_BUFADR DS 2
|
|
DS 16
|
|
SPR_TOP EQU $
|