Könnt ihr gerne selber mal ausprobieren.
Ihr braucht einen Data Port, einen Consolen Screen und nen Button.
Code:
Objekt | An:
CPU IOBus Dataport
CPU Clk Button (Toggle)
Screen CharX Data Port (Port0)
Screen CharY Data Port (Port1)
ScreenCharParam Data Port (Port2)
ScreenChar Data Port (Port3)
Wenn ihr dann denn Knopf drückt, gehts los!
Code:
// Screentest by Andrey. :3
// Port | Meaning
// 1 | CharX
// 2 | CharY
// 3 | CharParam (Color)
// 4 | Char (ASCII)
Data;
alloc CharX
alloc CharY
alloc CharParam
alloc Char
Code;
OnSpawn:
mov #CharX,0
mov #CharY,0
mov #CharParam,111999
mov #Char,32
jmp LoopCharacter
LoopCharacter:
cmp #CharX,29 //Compare CharX with 29
je ResetX //If Equal -> Reset
inc #CharX //Add 1 to CharX
cmp #CharY,17 //Compare CharY with 17
je ResetY //if Equal -> Reset
cmp #CharParam,999999 // If Last Value
jg ResetParam // if Equal -> Reset
add #CharParam,1000 //Add 1000 to Param
//Output
out 0,#CharX
out 1,#CharY
out 2,#CharParam
out 3,#Char
jmp LoopCharacter
ResetX:
mov #CharX,0
inc #CharY //Add 1 to CharY
jmp LoopCharacter
ResetY:
mov #CharY,0
jmp LoopCharacter
ResetParam:
mov #CharParam,111999
jmp LoopCharacter