Vollautomatische Printer mit einem Verlauf.

define Taster HASH("Automatendrehmaschine")
define Taster.Start HASH("Automatendrehmaschine.Start")
define Taster.Kill HASH("Automatendrehmaschine.Kill")
define Wahlschalter HASH("Automatendrehmaschine")
define Printer.Hash 336213101
define Printer.Name HASH("Automatendrehmaschine")
define LCD.1 HASH("Automatendrehmaschine.Menge")
define LCD.2 HASH("Automatendrehmaschine.Haben")
define LCD.3 HASH("Automatendrehmaschine.Auftrage")
define Stapler.Hash 1585641623
define Stapler.Name HASH("Automatendrehmaschine")
define Diode HASH("Automatendrehmaschine")
define LED HASH("Automatendrehmaschine")

alias Count r15
alias Hash r14
alias Menge r13
alias Haben r12
alias Auftrage r11

j RSet
Loop:
sbn 1944485013 LED Color 2
sbn 554524804 Wahlschalter Mode 999
jal Anzeige
lbn r0 491845673 Taster Setting 0
beqal r0 1 AddPrint
lbn r0 491845673 Taster.Start Setting 0
beq r0 1 SetPrint
yield
j Loop

Anzeige:
s db Setting Hash
sbn -815193061 LCD.1 Color 6
sbn -815193061 LCD.1 Setting Menge
sbn -815193061 LCD.2 Color 6
sbn -815193061 LCD.2 Setting Haben
div r0 Count 2
sbn -815193061 LCD.3 Color 6
sbn -815193061 LCD.3 Setting r0
j ra

SetPrint:
sgt r0 sp 0
beq r0 0 Loop
pop r0
move Hash r0
yield
pop r0
move Menge r0
move Count sp
jal Anzeige

sbn Stapler.Hash Stapler.Name On 1
sbn Stapler.Hash Stapler.Name Setting 50
sbn Printer.Hash Printer.Name RecipeHash Hash
sbn Printer.Hash Printer.Name Activate 1
Drucken:
sbn Printer.Hash Printer.Name RecipeHash Hash
lbn r0 Printer.Hash Printer.Name CompletionRatio 0
sbn 576516101 Diode Setting r0
lbn Haben Printer.Hash Printer.Name ExportCount 0
jal Anzeige
lbn r0 491845673 Taster.Kill Setting 0
beq r0 1 RSet
lbn r0 Printer.Hash Printer.Name Activate 0
beq r0 0 Wait
sbn 1944485013 LED Color 5
slt r0 Haben Menge
yield
beq r0 1 Drucken
sbn Printer.Hash Printer.Name Activate 0
sleep 1
lbns r0 Stapler.Hash Stapler.Name 2 Quantity 0
sbn Stapler.Hash Stapler.Name Setting r0
sleep 1
sbn 576516101 Diode Setting 1
sbn Stapler.Hash Stapler.Name On 0
sbn Printer.Hash Printer.Name ClearMemory 1
move Hash 0
move Menge 0
move Haben 0
j SetPrint

Wait:
sbn 1944485013 LED Color 10
sleep 3
sbn Printer.Hash Printer.Name RecipeHash Hash
yield
sbn Printer.Hash Printer.Name Activate 1
j Drucken

AddPrint:
lbn r0 554524804 Wahlschalter Setting 0
push r0
lbn r0 Printer.Hash Printer.Name RecipeHash 0
push r0
move Count sp
j ra

RSet:
move Hash 0
move Menge 0
move Haben 0
move Auftrage 0
sbn Printer.Hash Printer.Name Activate 0
sbn Printer.Hash Printer.Name ClearMemory 1
sleep 1
lbns r0 Stapler.Hash Stapler.Name 2 Quantity 0
sbn Stapler.Hash Stapler.Name Setting r0
sleep 1
sbn Stapler.Hash Stapler.Name On 0
jal Anzeige
yield
RSet.1:
sgt r0 sp 0
beq r0 0 Loop
pop r0
move Count sp
j RSet.1