Fixed syntax and missed definitions
This commit is contained in:
romych committed
1 parent
778a18e84b
commit
986e663aaf
7 files changed
+755
-736
No files matched your search
@@ -12,7 +12,6 @@
|
||||
INCLUDE "monitor.inc"
|
||||
INCLUDE "ordos.inc"
|
||||
INCLUDE "ioports.inc"
|
||||
; INCLUDE "resident.inc"
|
||||
|
||||
|
||||
; --------------------------------------------------
|
||||
@@ -37,11 +36,12 @@
|
||||
|
||||
START:
|
||||
|
||||
; INCLUDE "main.asm"
|
||||
INCLUDE "main.asm"
|
||||
|
||||
OUTEND
|
||||
|
||||
; INCLUDE "data.asm"
|
||||
INCLUDE "variables.inc"
|
||||
INCLUDE "safe.inc"
|
||||
|
||||
; --------------------------------------------------
|
||||
|
||||
|
||||
@@ -189,6 +189,11 @@ STRSIZ EQU 4
|
||||
NUMTMP EQU 3
|
||||
BUFLEN EQU 37 ; but 130 = 0x82 can be used
|
||||
|
||||
|
||||
SCR_ADDR EQU 0xC000
|
||||
SCR_WIDTH EQU 384
|
||||
SCR_HEIGHT EQU 256
|
||||
|
||||
; --------------------------------------------------
|
||||
; Error codes
|
||||
; --------------------------------------------------
|
||||
|
||||
+1
-1
@@ -74,7 +74,7 @@ FDC_F708_SIDE EQU 0xf708
|
||||
; bit 1 - color count 0 - 16 colors, 1 - 4 colors;
|
||||
; bit 2 - 0-mono, 1-color;
|
||||
; --------------------------------------------------
|
||||
PORT_SYS1 EQU 0xF800
|
||||
PORT_SYS1 EQU 0xF8
|
||||
|
||||
|
||||
; Write only system port mapped to RAM address.
|
||||
|
||||
@@ -79,5 +79,8 @@ ORD_WFILE EQU 0xbff7
|
||||
; SP+2 -> return to OS address
|
||||
ORD_RFILE EQU 0xbffa
|
||||
|
||||
; ORDOS Start. Entry point to ORDOS
|
||||
ORD_START EQU 0xbffd
|
||||
; ORDOS Start. Entry point to ORDOS (JP)
|
||||
ORD_START EQU 0xBFFD
|
||||
|
||||
; Start sddress of ORDOS
|
||||
ORD_STADR EQU 0xBFFE
|
||||
@@ -21,6 +21,7 @@ ORI_SAFE_SET_ATTR EQU 0xF300
|
||||
; --------------------------------------------------
|
||||
ORI_SCR_ANDOR EQU 0xF310
|
||||
|
||||
ORI_SCR_OP2_1 EQU 0xF319
|
||||
|
||||
; --------------------------------------------------
|
||||
; Mask by OR hi 4 bit of extended RAM byte:
|
||||
@@ -31,6 +32,10 @@ ORI_SCR_ANDOR EQU 0xF310
|
||||
; --------------------------------------------------
|
||||
ORI_MSK_HI_OR EQU 0xF31F
|
||||
|
||||
CLRCLNXT EQU 0xF32C
|
||||
CURCATR EQU 0xF32F
|
||||
CLRCLUP EQU 0xF330
|
||||
|
||||
; --------------------------------------------------
|
||||
; Fill screen attributes
|
||||
; Inp: A - memory page
|
||||
@@ -39,6 +44,8 @@ ORI_MSK_HI_OR EQU 0xF31F
|
||||
; --------------------------------------------------
|
||||
ORI_SCR_FA EQU 0xF32A
|
||||
|
||||
CLRCLRT EQU 0xF341
|
||||
|
||||
; Variable
|
||||
SAF_CURATR EQU 0xF349
|
||||
|
||||
@@ -55,4 +62,10 @@ ORI_MON_TV2 EQU 0xF34B
|
||||
; --------------------------------------------------
|
||||
; Buffer for filename (12 bytes)
|
||||
; --------------------------------------------------
|
||||
FNAMBUF EQU 0xF354
|
||||
FNAMBUF EQU 0xF354
|
||||
|
||||
; --------------------------------------------------
|
||||
; Stack for safe call MONITOR subroutines
|
||||
; when one of extended RAM-page active
|
||||
; --------------------------------------------------
|
||||
SAFESTK EQU 0xF3C0
|
||||
+32
-34
@@ -1,68 +1,66 @@
|
||||
; ==================================================
|
||||
; Orion BASIC v2.4 for Orion-128 computer
|
||||
;
|
||||
;
|
||||
; Uninitialized variables
|
||||
; Disassembled by Romychs @ 2026-10-23
|
||||
; ==================================================
|
||||
|
||||
ORG 0x27C2
|
||||
|
||||
DIMFLG:
|
||||
|
||||
DIMFLG:
|
||||
DS 1 ; DIM flag
|
||||
VALTYP:
|
||||
VALTYP:
|
||||
DS 1 ; Value type indicator 0-numeric, 1-string
|
||||
TEMPPT:
|
||||
TEMPPT:
|
||||
DS 2 ; Pointer to first free temp descriptor
|
||||
TEMPST:
|
||||
TEMPST:
|
||||
DS STRSIZ*NUMTMP ; Storage for NUMTMP temp descriptors
|
||||
DSCTMP:
|
||||
DSCTMP:
|
||||
DS 4 ; String function result descriptor
|
||||
STREND:
|
||||
DS 2
|
||||
TEMP3:
|
||||
DS 2
|
||||
DATLIN:
|
||||
STREND:
|
||||
DS 2
|
||||
TEMP3:
|
||||
DS 2
|
||||
DATLIN:
|
||||
DS 2 ; Data line number, remember for error
|
||||
SUBFLG:
|
||||
SUBFLG:
|
||||
DS 1 ; Flag for subscribted variable allowed
|
||||
FLGINP:
|
||||
FLGINP:
|
||||
DS 1 ; Flag, we doing input
|
||||
TEMP:
|
||||
DS 2
|
||||
TEMP2:
|
||||
DS 2
|
||||
CURLIN:
|
||||
TEMP:
|
||||
DS 2
|
||||
TEMP2:
|
||||
DS 2
|
||||
CURLIN:
|
||||
DS 2 ; Current line number
|
||||
OLDLIN:
|
||||
OLDLIN:
|
||||
DS 2 ; Old line number
|
||||
OLDTXT:
|
||||
OLDTXT:
|
||||
DS 2 ; Old text pointer
|
||||
ARYTAB:
|
||||
ARYTAB:
|
||||
DS 2 ; Pointer to beginning of array table
|
||||
DATPTR:
|
||||
DS 2
|
||||
FACLO:
|
||||
DATPTR:
|
||||
DS 2
|
||||
FACLO:
|
||||
DS 3 ; Mantissa
|
||||
FAC:
|
||||
FAC:
|
||||
DS 2 ; Exponent
|
||||
FBUFFR:
|
||||
DS 13
|
||||
FBUFFR:
|
||||
DS 13
|
||||
|
||||
; ---------------------------------------------------
|
||||
; Text of BASIC program
|
||||
; ---------------------------------------------------
|
||||
ORG 0x2801
|
||||
TEXT
|
||||
TEXT
|
||||
DS 22523
|
||||
|
||||
|
||||
; ---------------------------------------------------
|
||||
; Sprite operation temp area
|
||||
; ---------------------------------------------------
|
||||
ORG 0x7FFC
|
||||
SPR_HEIGHT DS 1
|
||||
SPR_HEIGHT DS 1
|
||||
SPR_WIDTH DS 1
|
||||
SPR_BUFADR DS 2
|
||||
DS 16
|
||||
SPR_TOP $
|
||||
|
||||
|
||||
SPR_TOP EQU $
|
||||
Reference in new issue
Block a user