Fixed assembler bug that caused crash on IR array resize. Added line editor app.
This commit is contained in:
@@ -0,0 +1,57 @@
|
||||
; A program that is told what to work on.
|
||||
;
|
||||
; Everything loaded before this one did the same thing however it was started, because
|
||||
; there was no way to tell one anything. A tool that edits a document needs to know which
|
||||
; document, and that is the same need a dozen other things will have, so it is a service
|
||||
; rather than something an editor arranges for itself.
|
||||
;
|
||||
; run says it was given nothing
|
||||
; run whatever else says "whatever else"
|
||||
;
|
||||
; The whole rest of the line arrives, spaces and all, rather than a list of words. What
|
||||
; counts as an argument is the program's business; the system's business is handing over
|
||||
; what was typed.
|
||||
|
||||
#Include services.asm
|
||||
|
||||
#Program
|
||||
|
||||
#Base 0x2000
|
||||
|
||||
start:
|
||||
SETD.0 Given
|
||||
INIB 0d64
|
||||
SWI osArgument
|
||||
|
||||
SETD.0 Given
|
||||
LDA.0
|
||||
BRA sayNothing
|
||||
|
||||
SETD.0 SaidText
|
||||
SWI osPrintString
|
||||
SETD.0 Given
|
||||
SWI osPrintString
|
||||
BRI sayEnd
|
||||
|
||||
sayNothing:
|
||||
SETD.0 NothingText
|
||||
SWI osPrintString
|
||||
|
||||
sayEnd:
|
||||
SETD.0 NewLine
|
||||
SWI osPrintString
|
||||
SWI osExit
|
||||
|
||||
#Data
|
||||
|
||||
#Base 0x1000
|
||||
|
||||
SaidText:
|
||||
"it says: "
|
||||
NothingText:
|
||||
"nothing was said"
|
||||
NewLine:
|
||||
0x0A 0x00
|
||||
|
||||
Given:
|
||||
#Reserve 0d64
|
||||
Reference in New Issue
Block a user