Index: alcyon/sqfield.s
===================================================================
--- alcyon/sqfield.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/sqfield.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,486 @@
+.globl _io_time
+.globl _io_lcd
+.globl _io_ser
+.globl _io_midi
+.globl _io_disk
+.globl _io_tone
+.globl _io_leds
+.globl _io_kbrd
+.globl _lcd_a0
+.globl _lcd_a1
+.globl _io_vreg
+.globl _io_vraw
+.globl _io_vram
+.globl _io_fpu
+.globl _v_regs
+.globl _v_odtab
+.globl _v_actab
+.globl _v_ct0
+.globl _v_gt1
+.globl _v_score
+.globl _v_cgtab
+.globl _v_curs0
+.globl _v_curs1
+.globl _v_curs2
+.globl _v_curs3
+.globl _v_curs4
+.globl _v_curs5
+.globl _v_curs6
+.globl _v_curs7
+.globl _v_tcur
+.globl _v_kbobj
+.globl _v_lnobj
+.globl _v_win0
+.globl _v_cur
+.globl _fc_sw
+.globl _fc_val
+.globl _ebflag
+.globl _ebuf
+.globl _curfet
+.globl _cfetp
+.globl _infetp
+.globl _stmptr
+.globl _defptr
+.globl _patches
+.globl _defents
+.globl _seqtab
+.globl _seqflag
+.globl _seqline
+.globl _seqstim
+.globl _seqtime
+.globl _sregval
+.globl _trstate
+.globl _xy_up
+.globl _xy_dn
+.globl _premove
+.globl _pstmove
+.globl _curtype
+.globl _astat
+.globl _cmfirst
+.globl _cmtype
+.globl _curhold
+.globl _curslin
+.globl _cvtime
+.globl _cvwait
+.globl _ncvwait
+.globl _sqdeflg
+.globl _stccol
+.globl _ss_ptsw
+.globl _ss_sqsw
+.globl _syrate
+.globl _tvcwval
+.globl _vcwval
+.globl _crate1
+.globl _csbp
+.globl _sqboxes
+.globl _seqbuf
+.globl _seqtab
+.globl _sqdebuf
+.globl _sq_flds
+.data
+_sq_flds:
+*line 72
+.dc.l _stdctp5
+*line 73
+.dc.l _nokey
+*line 74
+.dc.l _postcm
+*line 75
+.dc.l _cxkstd
+*line 76
+.dc.l _cykstd
+*line 77
+.dc.l _smxupd
+*line 78
+.dc.l _sqyupd
+*line 79
+.dc.l _stopsm
+*line 80
+.dc.l _nokey
+*line 81
+.dc.l _sqxkey
+*line 82
+.dc.l _sqekey
+*line 83
+.dc.l _sqmkey
+*line 84
+.dc.l _sqdkey
+*line 85
+.dc.l _nokey
+.dc.l $0
+*line 87
+.dc.l _sqboxes
+*line 88
+.dc.l _crate1
+*line 89
+.dc.l _crate1
+.dc.w $4
+.dc.w $10
+.dc.w $7E
+.globl _sqmkey
+.text
+_sqmkey:
+~~sqmkey:
+link R14,#0
+movem.l R6-R7,-(sp)
+~nc=R7
+*line 108
+*line 108
+tst _astat
+beq L2
+*line 109
+*line 110
+*line 110
+cmp #48,_stccol
+bne L3
+*line 111
+*line 112
+*line 112
+tst _ss_ptsw
+bne L4
+*line 113
+*line 114
+move.l _xy_dn,R8
+jsr (R8)
+*line 115
+*line 116
+move.l _premove,R8
+jsr (R8)
+*line 117
+*line 118
+move.l _curtype,R8
+jsr (R8)
+move R0,R7
+*line 119
+*line 120
+move _syrate,_cvtime
+*line 121
+move _curhold,_ncvwait
+*line 122
+*line 123
+move #-1,_ss_sqsw
+*line 124
+move R7,_cmtype
+*line 125
+move #1,_cvwait
+*line 126
+*line 127
+L4:
+*line 128
+bra L5
+L3:
+*line 129
+jsr _stdmkey
+L5:
+*line 130
+bra L6
+L2:
+*line 131
+*line 132
+*line 133
+*line 133
+cmp #48,_stccol
+bne L7
+*line 134
+*line 135
+clr _ss_sqsw
+*line 136
+move #1,_cvwait
+*line 137
+move _cvtime,_ncvwait
+*line 138
+move #1,_cmfirst
+*line 139
+*line 140
+*line 141
+tst _ss_ptsw
+bne L8
+*line 141
+move.l _xy_up,R8
+jsr (R8)
+*line 142
+L8:
+*line 143
+move.l _pstmove,R8
+jsr (R8)
+*line 144
+*line 145
+bra L9
+L7:
+*line 146
+jsr _stdmkey
+L9:L6:L1:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _sqekey
+.text
+_sqekey:
+~~sqekey:
+link R14,#0
+movem.l R6-R7,-(sp)
+~nc=R7
+*line 163
+*line 163
+tst _astat
+beq L11
+*line 164
+*line 165
+*line 165
+cmp #48,_stccol
+bne L12
+*line 166
+*line 167
+*line 167
+tst _ss_ptsw
+bne L13
+*line 168
+*line 169
+move.l _xy_dn,R8
+jsr (R8)
+*line 170
+*line 171
+move.l _premove,R8
+jsr (R8)
+*line 172
+*line 173
+move.l _curtype,R8
+jsr (R8)
+move R0,R7
+*line 174
+*line 175
+move _syrate,_cvtime
+*line 176
+move _curhold,_ncvwait
+*line 177
+*line 178
+move #1,_ss_sqsw
+*line 179
+move R7,_cmtype
+*line 180
+move #1,_cvwait
+*line 181
+*line 182
+L13:
+*line 183
+bra L14
+L12:
+*line 184
+jsr _select
+L14:
+*line 185
+bra L15
+L11:
+*line 186
+*line 187
+*line 188
+*line 188
+cmp #48,_stccol
+bne L16
+*line 189
+*line 190
+clr _ss_sqsw
+*line 191
+move #1,_cvwait
+*line 192
+move _cvtime,_ncvwait
+*line 193
+move #1,_cmfirst
+*line 194
+*line 195
+*line 196
+tst _ss_ptsw
+bne L17
+*line 196
+move.l _xy_up,R8
+jsr (R8)
+*line 197
+L17:
+*line 198
+move.l _pstmove,R8
+jsr (R8)
+*line 199
+*line 200
+bra L18
+L16:
+*line 201
+jsr _select
+L18:L15:L10:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _sqxkey
+.text
+_sqxkey:
+~~sqxkey:
+link R14,#-4
+*line 216
+*line 217
+tst _astat
+beq L19
+*line 218
+*line 219
+*line 219
+cmp #2,_stccol
+blt L20
+cmp #4,_stccol
+bgt L20
+*line 220
+*line 221
+move #7,(sp)
+clr -(sp)
+move.l #_seqbuf,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 222
+move #7,(sp)
+clr -(sp)
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 223
+move _curslin,(sp)
+move.l #_sqdebuf,-(sp)
+jsr _dsqlin
+addq.l #4,sp
+*line 224
+move #1,_sqdeflg
+*line 225
+jsr _dcursq
+*line 226
+bra L21
+L20:
+*line 227
+*line 227
+cmp #12,_stccol
+blt L22
+cmp #22,_stccol
+bgt L22
+*line 228
+*line 229
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,R8
+clr 2(R8)
+*line 230
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,R8
+clr 4(R8)
+*line 231
+move #7,(sp)
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,-(sp)
+move.l #_seqbuf,-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 232
+move _curslin,(sp)
+move.l #_sqdebuf,-(sp)
+jsr _dsqlin
+addq.l #4,sp
+*line 233
+move #1,_sqdeflg
+*line 234
+jsr _dcursq
+*line 235
+bra L23
+L22:
+*line 236
+*line 236
+cmp #24,_stccol
+blt L24
+cmp #34,_stccol
+bgt L24
+*line 237
+*line 238
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,R8
+clr 6(R8)
+*line 239
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,R8
+clr 8(R8)
+*line 240
+move #7,(sp)
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,-(sp)
+move.l #_seqbuf,-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 241
+move _curslin,(sp)
+move.l #_sqdebuf,-(sp)
+jsr _dsqlin
+addq.l #4,sp
+*line 242
+move #1,_sqdeflg
+*line 243
+jsr _dcursq
+*line 244
+bra L25
+L24:
+*line 245
+*line 245
+cmp #36,_stccol
+blt L26
+cmp #46,_stccol
+bgt L26
+*line 246
+*line 247
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,R8
+clr 10(R8)
+*line 248
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,R8
+clr 12(R8)
+*line 249
+move #7,(sp)
+move _curslin,R0
+muls #14,R0
+add.l #_seqtab,R0
+move.l R0,-(sp)
+move.l #_seqbuf,-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 250
+move _curslin,(sp)
+move.l #_sqdebuf,-(sp)
+jsr _dsqlin
+addq.l #4,sp
+*line 251
+move #1,_sqdeflg
+*line 252
+jsr _dcursq
+*line 253
+L26:L25:L23:L21:L19:unlk R14
+rts
+.globl _sqfield
+.text
+_sqfield:
+~~sqfield:
+link R14,#-4
+*line 273
+move.l #_sq_flds,(sp)
+jsr _curset
+L27:unlk R14
+rts
+.data
