Corewars - SUBLEQ interpreter

Corewars - SUBLEQ interpreter

In my previous blogpost I talked about Corewars and the Redcode language. But instead of playing the game, you can do a lot more with the programming language. John Metcalf posted a blog about OISC (One Instruction Set Computers). He decided to implement the RSSB algorithm, so I took on the challenge of implementing SUBLEQ, another single instruction set computer.

And here is the result:

;-----------------------------------------------
;redcode-94odd
;name SUBLEQ Hello World
;author Roy van Rijn
;assert 1
;-----------------------------------------------
;Implementation of the OISC SUBLEQ interpreter.
; All instructions take 3 lines:
; dat A,0
; dat B,0
; dat C,0
;
; The interpreter works as following:
;
; Substract A from B
; If B is less or equal to zero jump to C
; Else go to the next instruction (+3)
;
; If the jump is to HALT (-1) the program will halt
; If the substraction is OUT (-2) the program will output the amount substracted
;-----------------------------------------------
HALT   equ -1
OUT    equ -2

;Pointers used by program:
EQ     dat PROGRAM-1      , PROGRAM
PTR    dat PROGRAM        , PROGRAM+1
RESETV dat PROGRAM-SUBSTR , PROGRAM-SUBSTR ;reset values
NEXTV  dat #3             , #3

;Print to command line:
PRINT  mov.ab *SUBSTR     , #0
       mov.b  -1          , <1000 ;sts.b -1,0 for output

;Reset to absolute values:
NEXT   add.f NEXTV        , PTR
RESET  mov.f RESETV       , SUBSTR

;Main logic:
START  add.a  *PTR        , SUBSTR
       add.ab >PTR        , SUBSTR
       mov.a  @PTR        , NEWPTR

;Check if output is OUT, print and go to next instruction:
       mov.a  <PTR        , 1
       sne.ab #0          , #OUT
       jmp    PRINT

;Substract and determine if the value <= 0
SUBSTR sub.a  PROGRAM     , PROGRAM
       slt.a  #CORESIZE/2 , @-1
       jmn.ba NEXT        , @-2

;Jump to new address:
NEWPTR mov.ab #0          , #0
       mov.f  NEWPTR      , PTR
       add.f  EQ          , PTR
       seq.ab NEWPTR      , #HALT

;Check for HALT (jump to DAT-PROGRAM)
       jmp RESET

LABEL
PROGRAM

;-----------------------------------------------
;Translated version of the Hello World program from:
;http://mozaika.com.au/oleg/subleq/

dat A-LABEL,0
dat A-LABEL,0
dat 3,0
dat p-LABEL,0
dat Z-LABEL ,0
dat 6,0

dat Z-LABEL ,0
dat A-LABEL ,0
dat 9,0

dat Z-LABEL ,0

dat Z-LABEL ,0
dat A-LABEL,0

A dat PROGRAM ,0
dat OUT ,0
dat 15,0

dat m1-LABEL,0
dat p-LABEL,0
dat 18,0

dat A-LABEL ,0
dat A-LABEL ,0
dat 21,0

dat E-LABEL ,0
dat Z-LABEL ,0
dat 24,0

dat Z-LABEL ,0
dat A-LABEL ,0
dat 27,0

dat Z-LABEL,0
dat Z-LABEL,0
dat 30,0

dat b-LABEL,0
dat b-LABEL,0
dat 33,0

dat p-LABEL,0
dat Z-LABEL,0
dat 36,0

dat Z-LABEL ,0
dat b-LABEL,0
dat 39,0

dat Z-LABEL,0
dat Z-LABEL,0
dat 42,0

dat E-LABEL,0
dat b-LABEL,0
dat 48,0 ;?+3

dat Z-LABEL ,0
dat Z-LABEL,0
dat 51,0 ;?+3

dat p-LABEL,0
dat A-LABEL,0
dat 54,0 ;?+3

dat Z-LABEL ,0
dat Z-LABEL ,0
dat 0,0

dat 0 ,0
dat 0 ,0
dat -1,0

;data
p dat H-LABEL,0
Z dat 0,0
m1 dat -1,0
b dat 0,0
H dat 72,0 ;:H
dat 101,0 ; e
dat 108,0 ; l
dat 108,0 ; l
dat 111,0 ; o
dat 32,0 ; space
dat 87,0 ; W
dat 111,0 ; o
dat 114,0 ; r
dat 108,0 ; l
dat 100,0 ; d
E dat E-LABEL,0

end START
;-----------------------------------------------