Display on a Type 340 display - Eureka!

[Francis King]

Hello. 

I have found a way to draw a dot on a Type 340 display. Based on the Lorenz code.

title Draw a point

A=1
DIS=130
N=1

define display data
    conso DIS, 200
     jrst .-1
    datao DIS, data
termin

start:    seto A,
          .iotlsr A,
          cono DIS,100
init:     MOVSI A, -N  
          display <[020016]>
loop:     display TABLE(A)
          AOBJN A, loop
          JRST init 
table:    XWD 220055, 022055
end start

I've also discovered that macros in Midas are recursive, so that the following code works:

Title test of macro recursion

define nop
     JUMP
termin

define NOP2
      NOP
      NOP
termin

start:    nop2
           .value
end start