;; -*- mode: asm; comment-column: 36; comment-start: ";; "; -*- ;; ;; abc80.bxh ;; ;; Constants and some function definitions for ABC80 ;; ;; System variables defc CLOCK = 65008 ;; Clock (3 bytes) defc CLOCK1 = 65009 ;; Second two bytes of clock defc CURY = 65011 ;; Row defc CURX = 65012 ;; Column defc KEYFLAG = 65013 ;; Bit 7 = key pressed defc KEYTIMER = 65014 ;; Keyboard repeat timer defc CASBUF = 65017 ;; Pointer to current casbuf defc ALTINPUT = 65019 ;; "Pointer to alternate input getline"? defc CASBLK = 65021 ;; Current cassette block number defc CASPTR = 65023 ;; Pointer into current CASBUF defc CASBYTE = 65025 ;; Cassette byte in defc CASBITCNT = 65026 ;; Cassette bit count in defc CASCALLBK = 65027 ;; Callback after cassette byte read defc CASCSUM = 65029 ;; Cassette checksum defc CTRL_C = 65031 ;; Bit 7 = Ctrl-C pressed defc DEVLIST = 65034 ;; Device list start defc BACVER = 65036 ;; BASIC version number (new BASIC only) defc BASICERR = 65039 ;; BASICERR.SYS open defc IYBASE = 65046 ;; IY points here defc BOFA = 65052 ;; Start of BASIC program defc EOFA = 65054 ;; Last byte of BASIC program (01h) defc HEAP = 65056 ;; Current top of BASIC heap defc CURFILE = 65059 ;; Current BASIC file (PRINT/INPUT) defc RUNMODE = 65060 ;; 0 = run mode, 1 = command mode defc PROGFL = 65061 ;; Bit 4 = trace, 5 = run only defc FIXUP = 65062 ;; Program fixed up flag defc STACK = 65063 ;; Initial BASIC stack defc VARLIST = 65065 ;; Variable list start defc SELECT = 65067 ;; Currently selected bus device defc LINEADDR = 65069 ;; Address of current BASIC line defc DATAPTR = 65070 ;; Current DATA pointer defc DATALINE = 65072 ;; Current DATA line pointer defc FILELIST = 65074 ;; Open file list defc ONERROR = 65076 ;; ON ERROR GOTO address defc RUNSTACK = 65078 ;; Runtime stack pointer defc ERRCODE = 65080 ;; Current ERRCODE defc RNDSEED = 65081 ;; RND seed buffer (5 bytes) defc FNARGS = 65086 ;; FN function arguments on stack defc LINE_BUF = 65088 ;; Line input buffer defc LINE_SIZE = 120 ;; Size of LINEBUF defc PCODE_BUF = 65208 ;; Compilation time buffer defc PCODE_SIZE = 208 ;; Size of PCODE_BUF defc POKE_BUF = 65408 ;; Free POKE area defc POKE_LEN = 128 ;; Size of POKE_BUF ;; Clock info defc TICK = CLOCK ;; Fastest ticking byte defc HZ = 50 ;; Tick frequency ;; BASIC subroutines (valid for all BASIC versions) defc S_ERROR = 0x0012 ;; Error routine (A=error) defc S_NEW = 0x00c6 ;; Delete program then command line defc S_CMD = 0x00cc ;; Go to command line defc S_RUNCMD = 0x00f4 ;; Run command in HL -> RADBUF ;; RUNMODE must = 1 and CTRLC flag clear defc S_INLINE = 0x0015 ;; Stock INPUT for a device with BLKRD defc S_OUTLI = 0x001b ;; Stock PRINT for a device with BLKWR defc S_CLOSEF = 0x0023 ;; Stock CLOSE for a block device? defc S_OPENF = 0x002d ;; OPEN with filename convert defc S_OPENCMD = 0x003e ;; OPEN helper for commands defc S_FIXNAM = 0x0041 ;; Format a variable name defc S_END = 0x00c9 ;; Jump here to END defc S_CUR_MAX_X = 0x0338 ;; A = current column, E = max column defc S_CHECKCTRLC = 0x033e ;; Checks (Z=0) and clears Ctrl-C flag ;; clobbers A defc S_CHAINPTR = 0x0e64 ;; *Pointer* to executing CHAIN defc S_FNDLIN = 0x0f39 ;; DE = line number -> HL = address defc S_CLOSEFILE = 0x087f ;; Close BASIC file from IX defc S_SCRATCH = 0x0a70 ;; Delete program, clear runstate ;; Error stubs (issue ERR xx) defc ERR_53 = 0x06F7 ;; Felaktig rad defc ERR_0 = 0x06F9 ;; Ej tillåtet öka DIM defc ERR_1 = 0x06FB ;; Fel antal index defc ERR_2 = 0x06FD ;; Ej tillåtet som kommand defc ERR_3 = 0x06FF ;; Minnet fullt defc ERR_4 = 0x0701 ;; För stort flyttal defc ERR_5 = 0x0703 ;; För stort index defc ERR_6 = 0x0705 ;; Hittar ej detta radnummber defc ERR_7 = 0x0707 ;; För stort heltal defc ERR_8 = 0x0709 ;; Finns ej i detta system defc ERR_9 = 0x070B ;; Index utanför strängen defc ERR_10 = 0x070D ;; Texten får ej plats i strängen defc ERR_21 = 0x070F ;; Hittar ej filen defc ERR_22 = 0x0711 ;; Otillåten sats defc ERR_12 = 0x0713 ;; Felaktigt tal defc ERR_24 = 0x0715 ;; NEXT saknas defc ERR_28 = 0x0717 ;; Felaktig variabel efter NEXT defc ERR_27 = 0x0719 ;; NEXT utan FOR defc ERR_29 = 0x071B ;; RETURN utan GOSUB defc ERR_26 = 0x071D ;; Fel i ON-uttryck defc ERR_30 = 0x071F ;; DATA slut defc ERR_31 = 0x0721 ;; Fel data till kommando defc ERR_32 = 0x0723 ;; Filen ej öppnad defc ERR_50 = 0x0725 ;; Kvadratrot ur negativt tal defc ERR_52 = 0x0727 ;; Ej till denna enhet defc ERR_57 = 0x0729 ;; Funktionen ej definierad defc ERR_60 = 0x072B ;; Bit address > 16 bitar ;; Console subroutines defc CON_GET = 0x0002 ;; Console get character defc CON_INPUT = 0x0005 ;; Console INPUT LINE defc CON_PRINT = 0x000b ;; Console PRINT defc CON_CRLF = 0x0742 ;; Print CR LF to console ;; File I/O jump table calls (indirect via IX) defc IX_OPEN = 0x088a + 3*0 defc IX_PREPARE = 0x088a + 3*1 defc IX_CLOSE = 0x088a + 3*2 defc IX_INPUT = 0x088a + 3*3 defc IX_PRINT = 0x088a + 3*4 defc IX_BLKRD = 0x088a + 3*5 defc IX_BLKWR = 0x088a + 3*6 defc IX_KILL = 0x088a + 3*7 defc IX_NAME = 0x088a + 3*8 ;; Entry points in the IEC ROM defc IEC_CCMD = 0x7000 ;; Compile CMD to byte code defc IEC_ECMD = 0x7003 ;; Execute CMD byte code defc IEC_EIEC = 0x7006 ;; Evaluate IEC$(x) defc IEC_JPTABLE = 0x7009 ;; IEC: device jump table ;; BASIC data structures (all BASIC versions) defc SCRN_ROWTBL = 0x0374 ;; Table of addresses for screen rows defc SCRN_WIDTH = 0x033c ;; Inside S_CUR_MAX_X routine ;; ROM init vector offset, matches DOS defc INIT_OFFS = 0x4b