mirror of
https://github.com/callapple/LLUCE.git
synced 2024-12-28 18:30:13 +00:00
100 lines
2.6 KiB
ArmAsm
100 lines
2.6 KiB
ArmAsm
|
********************************
|
||
|
|
* *
|
||
|
|
* LLUCE Line Editor *
|
||
|
|
* *
|
||
|
|
********************************
|
||
|
|
* Copyright 1986-1993 By L&L Productions
|
||
|
|
*-------------------------------
|
||
|
|
* Version 1.0 Final 4
|
||
|
|
*-------------------------------
|
||
|
|
* This Follows Apple's Version Types.
|
||
|
|
* First Byte Is Main Version #.
|
||
|
|
* Second Byte Contains 2 Nibbles
|
||
|
|
* The First Nibble Is The Sub Version
|
||
|
|
* The Second Is A Description Character:
|
||
|
|
*
|
||
|
|
* 0 - Release Version
|
||
|
|
* A - Alpha Version
|
||
|
|
* B - Beta Version
|
||
|
|
* D - Development Version
|
||
|
|
* E - Experimental Version
|
||
|
|
* F - Final test Version
|
||
|
|
*
|
||
|
|
* E Should Not Be Released At All
|
||
|
|
* A, B, D, F Only To Beta Testers
|
||
|
|
*-------------------------------
|
||
|
|
DATE
|
||
|
|
*-------------------------------
|
||
|
|
|
||
|
|
Version = $01F4
|
||
|
|
|
||
|
|
Id = 2
|
||
|
|
Aux = 1
|
||
|
|
|
||
|
|
LST OFF
|
||
|
|
LSTDO OFF
|
||
|
|
XC
|
||
|
|
TR
|
||
|
|
TR ADR
|
||
|
|
EXP ONLY
|
||
|
|
Y = 1
|
||
|
|
y = 1
|
||
|
|
N = 0
|
||
|
|
n = 0
|
||
|
|
NOLIST = Y
|
||
|
|
GSBUG = N
|
||
|
|
DO NOLIST
|
||
|
|
LISTOBJ = N
|
||
|
|
LISTSYM = N
|
||
|
|
ELSE
|
||
|
|
LISTOBJ KBD 'List This Source? (Y/N)'
|
||
|
|
LISTSYM KBD 'List Symbol Table? (Y/N)'
|
||
|
|
FIN
|
||
|
|
LST OFF
|
||
|
|
USE EQUATES/MACROS
|
||
|
|
PUT EQUATES/EQUATES
|
||
|
|
PUT EQUATES/OS.EQUATES
|
||
|
|
PUT EQUATES/ERRORS
|
||
|
|
PUT EQUATES/ENTRY
|
||
|
|
PUT EQUATES/DRIVEREQU
|
||
|
|
PUT EQUATES/RAMAREA
|
||
|
|
PUT EQUATES/TOKENS
|
||
|
|
|
||
|
|
]TYPE = ^overlays ; set file type
|
||
|
|
]AUX = overlays ; and aux type
|
||
|
|
ORG ]AUX ; must be this way
|
||
|
|
TYP ]TYPE
|
||
|
|
|
||
|
|
DSK /MAIN/LLUCE/SYSTEM/EDITOR
|
||
|
|
|
||
|
|
TTL 'LLUCE - System Editor'
|
||
|
|
DO LISTOBJ
|
||
|
|
LST
|
||
|
|
FIN
|
||
|
|
*===============================
|
||
|
|
* System Editor
|
||
|
|
*===============================
|
||
|
|
|
||
|
|
DB Id
|
||
|
|
DA Aux
|
||
|
|
DB Aux/256!Aux!Id!$A5
|
||
|
|
|
||
|
|
*-------------------------------
|
||
|
|
* Size Of Code To Check For CRC
|
||
|
|
*-------------------------------
|
||
|
|
|
||
|
|
DA CODEEND-CODESTRT
|
||
|
|
DA 0 ; CRC Goes Here
|
||
|
|
LST OFF
|
||
|
|
ORG $D000
|
||
|
|
CODESTRT = *
|
||
|
|
PUT OVERLAYS/EDIT.MAIN
|
||
|
|
PUT OVERLAYS/EDIT.SUBS
|
||
|
|
LST OFF
|
||
|
|
DO LISTSYM
|
||
|
|
LST
|
||
|
|
FIN
|
||
|
|
TTL 'EDITOR - Symbol Table'
|
||
|
|
PAG
|
||
|
|
|