test1.asm

袖珍型的pascal编译器

; test1 code beginning
ENTER 2, 1
LOD -3 
LOD 3 
STO
LEAVE
RET
; test2 code beginning
ENTER 2, 1
LODA 3 
LODI 1
STO
LODA 3 
USTO
LODI 10
LEQ
FJP 0 
LOD 3 
MVRX
CHGSFP 1 
LODAX 5 
RSTSFR
LODI 5
STO
LODA 3 
USTO
LODI 1
ADD
STO
UJP 28 
LEAVE
RET
; caca code beginning
ENTER 1, 10
LODI X
OUTP
LODI =
OUTP
LODA 2 
INP 2 
STO
LODI Y
OUTP
LODI =
OUTP
LODA 3 
INP 2 
STO
LODI 
OUTP
LODI 

OUTP
LODI X
OUTP
LODI +
OUTP
LODI Y
OUTP
LODI =
OUTP
LOD 2 
LOD 3 
ADD
LODI 0
DIV
OUTP
LODA 16 
INP 3 
STO
LEAVE
RET
STOP