test_ptn2.casl

   1 MAIN    START
   2         LAD     GR1,5
   3         CALL    PTN2
   4         LD      GR1,GR2
   5         CALL    OUTB
   6         RET
   7         END