Initial raw sources commit
This commit is contained in:
commit
778a18e84b
13 files changed
+8628
No files matched your search
@@ -0,0 +1,58 @@
|
||||
; ==================================================
|
||||
; Orion BASIC v2.4 for Orion-128 computer
|
||||
;
|
||||
; Helper routines for BASIC
|
||||
; in safe, unswitheable RAM area
|
||||
; Disassembled by Romychs @ 2026-10-23
|
||||
; ==================================================
|
||||
|
||||
; --------------------------------------------------
|
||||
; Inp: A - RAM-page
|
||||
; C - AND mask
|
||||
; --------------------------------------------------
|
||||
ORI_SAFE_SET_ATTR EQU 0xF300
|
||||
|
||||
; --------------------------------------------------
|
||||
; Inp: A - RAM-page
|
||||
; B - OR mask
|
||||
; C - AND mask
|
||||
; HL - address in ext RAM
|
||||
; Out: B
|
||||
; --------------------------------------------------
|
||||
ORI_SCR_ANDOR EQU 0xF310
|
||||
|
||||
|
||||
; --------------------------------------------------
|
||||
; Mask by OR hi 4 bit of extended RAM byte:
|
||||
; RAM[A][HL] = RAM[A][HL] AND 0xF0 OR B
|
||||
; Inp: A - memory page
|
||||
; B - mask
|
||||
; HL - address in extended RAM
|
||||
; --------------------------------------------------
|
||||
ORI_MSK_HI_OR EQU 0xF31F
|
||||
|
||||
; --------------------------------------------------
|
||||
; Fill screen attributes
|
||||
; Inp: A - memory page
|
||||
; C - rows, B - columns
|
||||
; HL - start address
|
||||
; --------------------------------------------------
|
||||
ORI_SCR_FA EQU 0xF32A
|
||||
|
||||
; Variable
|
||||
SAF_CURATR EQU 0xF349
|
||||
|
||||
; Variable
|
||||
BYTE_ram_f34a EQU 0xF34A
|
||||
|
||||
; --------------------------------------------------
|
||||
; Output char for specified memory page
|
||||
; Inp: A - memory page
|
||||
; C - character code
|
||||
; --------------------------------------------------
|
||||
ORI_MON_TV2 EQU 0xF34B
|
||||
|
||||
; --------------------------------------------------
|
||||
; Buffer for filename (12 bytes)
|
||||
; --------------------------------------------------
|
||||
FNAMBUF EQU 0xF354
|
||||
Reference in new issue
Block a user