jms gcard; <$;<*;<$;<7;<c;<%;67;0
jms gcard; <$;<*;<$;<r;<c;<d;<%;66;0
jms gcard; <$;<%;6;<s;<n;<u;<m;<b;<%;3;<7;<c
<x;<x;<x;<,;<3;<1;<%;49;0
jms gcard; <$;<%;6;<i;<d;<e;<n;<t;<%;3;<m;<0;<1;<3;<0;<,
<m;<3;<2;<2;<,;<k;<e;<n;<%;48;0
jms gcard; <$;<%;6;<s;<e;<l;<e;<c;<t;<%;2;<k;<e;<n
</;<p;<r;<n;<o;<f;<f;<%;47;0
jms gcard; <$;<%;6;<l;<i;<m;<i;<t;<s;<%;2;<2;<,;<,;<,
jms gcard; <$;<%;6;<d;<a;<t;<a;<%;4;<i;<*;<,;<,;<c;<o;<p;<y;<%;49;0
<us>;<ag>;<e;<;;040;<ap>;<r 040; <fi>;<le>;<s 012
<di>;<al>;040;<x;<5;<3;<8;<0 040; <on>;040;<th>;<e 040
<da>;<ta>;<ph>;<on>;<e 012
<di>;<sc>;<on>;<ne>;<ct>;<ed>;012
disflg: 0 " 2: both cases
2;2;2;2;2;2;2;1 " 0 - 100 case
0;0;0;0;0;0;0;0 " 1 - 200 case
0;0;0;0;0;0;0;0 " 2 - 300 case
jmp gcard i "circled with 3f written in and to the right:
jms gcard; <$;<%;6;<e;<n;<d;<c;<o;<p;<y;<%;58;0
jms gcard; <$;<%;6;<s;<y;<s;<o;<u;<t;<%;2;<p;<*;<%;55;0
jms gcard; <$;<%;6;<e;<n;<d;<j;<o;<b;<%;59;0
jms gcard; <$;<*;<$;<d;<i;<s;<%;66;0
lac dpstat i "* lac dpstat crossed through and dpstart written in
and ilock "* arrow to note carrier drops + iloc
" put out 6 sync characters
" put out the status character
" echo the sequence character
" if there is a buffer pointer
" put out 160 words of data
" pick up sequence character
" skip over data block to etx character
" pick up the lateral parity character