Index: alcyon/delpnts.s
===================================================================
--- alcyon/delpnts.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/delpnts.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,599 @@
+.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 _curfunc
+.globl _curvce
+.globl _pntsv
+.globl _subj
+.globl _finival
+.globl _fnoff
+.globl _vbufs
+.globl _delpnts
+.text
+_delpnts:
+~~delpnts:
+link R14,#-18
+movem.l R2-R7/R11-R13,-(sp)
+~pp=R13
+~pp1=R12
+~pp2=R11
+~np=R7
+~pt1=R6
+~i=R5
+~pif=R4
+~cf=R3
+~fp=-4
+~vp=-8
+~fpu=-12
+~pt2=-14
+~nmv=-16
+~oldi=-18
+*line 61
+move _curvce,R0
+muls #3938,R0
+add.l #_vbufs,R0
+move.l R0,-8(R14)
+*line 62
+move _curfunc,R0
+muls #12,R0
+add.l -8(R14),R0
+add.l #86,R0
+move.l R0,-4(R14)
+*line 64
+move.l -4(R14),R8
+move.b 5(R8),R0
+ext.w R0
+move R0,R4
+and #255,R4
+*line 65
+move R4,R7
+sub _subj,R7
+*line 66
+move.l -4(R14),R8
+move.b 6(R8),R0
+ext.w R0
+move R0,R6
+and #255,R6
+add _subj,R6
+*line 79
+*line 80
+tst R7
+bgt L2
+*line 80
+move #-1,R0
+bra L1
+*line 81
+L2:
+*line 82
+*line 83
+cmp _subj,R4
+bgt L3
+*line 83
+move #-1,R0
+bra L1
+*line 84
+L3:
+*line 85
+*line 86
+move R4,R0
+sub R7,R0
+bge L4
+*line 86
+move #-1,R0
+bra L1
+*line 87
+L4:
+*line 88
+*line 89
+move R7,R0
+add _subj,R0
+move R4,R1
+add #1,R1
+cmp R1,R0
+blt L5
+*line 89
+move #-1,R0
+bra L1
+*line 90
+L5:
+*line 91
+move R6,R0
+add R7,R0
+move R0,-14(R14)
+*line 92
+move #128,R0
+sub -14(R14),R0
+move R0,-16(R14)
+*line 112
+move #2,(sp)
+jsr _setipl
+move R0,-18(R14)
+*line 114
+move _curvce,R0
+asl #8,R0
+asl #1,R0
+ext.l R0
+add.l #_io_fpu,R0
+add.l #$4000,R0
+move.l R0,-12(R14)
+*line 116
+clr R5
+bra L8
+L9:
+*line 117
+*line 118
+move R5,R0
+muls #12,R0
+add.l -8(R14),R0
+add.l #86,R0
+move.l R0,-4(R14)
+*line 119
+*line 120
+*line 121
+move.l -4(R14),R8
+move.b 7(R8),R0
+ext.w R0
+and #-4,R0
+or #1,R0
+move.l -4(R14),R9
+move.b R0,7(R9)
+move R5,R9
+add.l R9,R9
+add.l #_fnoff,R9
+move (R9),R1
+asl #4,R1
+move R1,R9
+add.l R9,R9
+add.l -12(R14),R9
+move R0,(R9)
+L7:
+*line 116
+add #1,R5
+L8:
+*line 116
+cmp #13,R5
+blt L9
+L6:
+*line 124
+move _curfunc,R0
+muls #12,R0
+add.l -8(R14),R0
+add.l #86,R0
+move.l R0,-4(R14)
+*line 126
+*line 126
+tst _subj
+beq L10
+*line 127
+*line 128
+*line 129
+*line 130
+move R6,R0
+muls #12,R0
+move.l R0,R12
+add.l -8(R14),R12
+add.l #242,R12
+*line 131
+move -14(R14),R0
+muls #12,R0
+move.l R0,R11
+add.l -8(R14),R11
+add.l #242,R11
+*line 132
+*line 133
+move -16(R14),R5
+muls #12,R5
+bra L13
+L14:
+*line 134
+move.b (R11)+,(R12)+
+L12:
+*line 133
+sub #1,R5
+L13:
+*line 133
+tst R5
+bgt L14
+L11:
+*line 134
+*line 135
+*line 136
+*line 137
+*line 138
+move R7,-(sp)
+move.l -8(R14),R8
+move.b 71(R8),R0
+add (sp)+,R0
+move.b R0,71(R8)
+*line 139
+*line 140
+*line 141
+*line 142
+move R7,-(sp)
+move _curfunc,R0
+muls #12,R0
+add.l -8(R14),R0
+move.l R0,R8
+move.b 91(R8),R0
+sub (sp)+,R0
+move.b R0,91(R8)
+*line 143
+*line 144
+*line 145
+*line 146
+move _curfunc,R3
+add #1,R3
+bra L17
+L18:
+*line 147
+move R7,-(sp)
+move R3,R0
+muls #12,R0
+add.l -8(R14),R0
+move.l R0,R8
+move.b 92(R8),R0
+sub (sp)+,R0
+move.b R0,92(R8)
+L16:
+*line 146
+add #1,R3
+L17:
+*line 146
+cmp #13,R3
+blt L18
+L15:
+*line 147
+*line 148
+*line 149
+move -18(R14),(sp)
+jsr _setipl
+*line 150
+*line 151
+move _curfunc,(sp)
+jsr _edfunc
+*line 152
+sub #1,_subj
+*line 153
+*line 154
+bra L19
+L10:
+*line 155
+*line 156
+*line 157
+*line 158
+*line 159
+move.l -4(R14),R8
+move.b 6(R8),R0
+ext.w R0
+muls #12,R0
+move.l R0,R13
+add.l -8(R14),R13
+add.l #242,R13
+*line 160
+*line 161
+move #-32753,(R13)
+*line 162
+move _curfunc,R8
+add.l R8,R8
+add.l #_finival,R8
+move (R8),2(R13)
+*line 163
+clr 4(R13)
+*line 164
+clr.b 6(R13)
+*line 165
+clr.b 7(R13)
+*line 166
+clr.b 8(R13)
+*line 167
+clr.b 9(R13)
+*line 168
+clr.b 10(R13)
+*line 169
+*line 170
+*line 171
+*line 172
+*line 172
+cmp #1,R7
+ble L20
+*line 173
+*line 174
+sub #1,-16(R14)
+*line 175
+add #1,R6
+*line 176
+*line 177
+*line 178
+*line 179
+move R6,R0
+muls #12,R0
+move.l R0,R12
+add.l -8(R14),R12
+add.l #242,R12
+*line 180
+move -14(R14),R0
+muls #12,R0
+move.l R0,R11
+add.l -8(R14),R11
+add.l #242,R11
+*line 181
+*line 182
+move -16(R14),R5
+muls #12,R5
+bra L23
+L24:
+*line 183
+move.b (R11)+,(R12)+
+L22:
+*line 182
+sub #1,R5
+L23:
+*line 182
+tst R5
+bgt L24
+L21:
+*line 183
+*line 184
+*line 185
+*line 186
+*line 187
+move R7,-(sp)
+sub #1,(sp)
+move.l -8(R14),R8
+move.b 71(R8),R0
+add (sp)+,R0
+move.b R0,71(R8)
+*line 188
+*line 189
+*line 190
+*line 191
+move R7,-(sp)
+sub #1,(sp)
+move _curfunc,R0
+muls #12,R0
+add.l -8(R14),R0
+move.l R0,R8
+move.b 91(R8),R0
+sub (sp)+,R0
+move.b R0,91(R8)
+*line 192
+*line 193
+*line 194
+*line 195
+move _curfunc,R3
+add #1,R3
+bra L27
+L28:
+*line 196
+move R7,-(sp)
+sub #1,(sp)
+move R3,R0
+muls #12,R0
+add.l -8(R14),R0
+move.l R0,R8
+move.b 92(R8),R0
+sub (sp)+,R0
+move.b R0,92(R8)
+L26:
+*line 195
+add #1,R3
+L27:
+*line 195
+cmp #13,R3
+blt L28
+L25:
+*line 196
+*line 197
+*line 198
+L20:
+*line 199
+move -18(R14),(sp)
+jsr _setipl
+*line 200
+*line 201
+move _curfunc,(sp)
+jsr _edfunc
+*line 202
+clr _subj
+L19:
+*line 224
+jsr _pntsel
+*line 225
+clr _pntsv
+*line 226
+move #1,(sp)
+jsr _showpt
+*line 227
+jsr _modinst
+*line 229
+clr R0
+bra L1
+L1:tst.l (sp)+
+movem.l (sp)+,R3-R7/R11-R13
+unlk R14
+rts
+.globl _inspnt
+.text
+_inspnt:
+~~inspnt:
+~ip=R13
+~fn=12
+~inpnt=14
+link R14,#-6
+movem.l R2-R7/R11-R13,-(sp)
+~fp1=R12
+~fp2=R11
+~i=R7
+~j=R6
+~k=R5
+~l=R4
+~npts=R3
+~topnt=-2
+~frompt=-4
+~oldi=-6
+*line 250
+move.l 8(R14),R13
+*line 250
+*line 251
+tst.b 71(R13)
+bne L30
+*line 251
+clr R0
+bra L29
+*line 252
+L30:
+*line 253
+*line 254
+move.l R13,R8
+move 12(R14),R1
+muls #12,R1
+add.l R1,R8
+cmp.b #99,91(R8)
+bne L31
+*line 254
+clr R0
+bra L29
+*line 255
+L31:
+*line 256
+move #128,R0
+move.b 71(R13),R1
+ext.w R1
+sub R1,R0
+move R0,-2(R14)
+*line 257
+move -2(R14),R0
+sub #1,R0
+move R0,-4(R14)
+*line 258
+move -4(R14),R3
+sub 14(R14),R3
+*line 259
+move -2(R14),R7
+*line 260
+move -4(R14),R6
+*line 270
+move #2,(sp)
+jsr _setipl
+move R0,-6(R14)
+*line 274
+clr R5
+bra L34
+L35:
+*line 275
+*line 276
+move.l R13,R12
+move R7,R0
+muls #12,R0
+add.l R0,R12
+add.l #242,R12
+sub #1,R7
+*line 277
+move.l R13,R11
+move R6,R0
+muls #12,R0
+add.l R0,R11
+add.l #242,R11
+sub #1,R6
+*line 278
+*line 279
+clr R4
+bra L38
+L39:
+*line 280
+move.b (R11)+,(R12)+
+L37:
+*line 279
+add #1,R4
+L38:
+*line 279
+cmp #12,R4
+blt L39
+L36:
+*line 280
+L33:
+*line 274
+add #1,R5
+L34:
+*line 274
+cmp R3,R5
+blt L35
+L32:
+*line 283
+move 12(R14),R7
+add #1,R7
+bra L42
+L43:
+*line 284
+*line 285
+move.l R13,R8
+move R7,R1
+muls #12,R1
+add.l R1,R8
+add.b #1,92(R8)
+*line 286
+move.l R13,R8
+move R7,R1
+muls #12,R1
+add.l R1,R8
+add.b #1,94(R8)
+L41:
+*line 283
+add #1,R7
+L42:
+*line 283
+cmp #13,R7
+blt L43
+L40:
+*line 289
+move -6(R14),(sp)
+jsr _setipl
+*line 293
+move.l R13,R8
+move 12(R14),R1
+muls #12,R1
+add.l R1,R8
+add.b #1,91(R8)
+*line 294
+sub.b #1,71(R13)
+*line 302
+move #1,R0
+bra L29
+L29:tst.l (sp)+
+movem.l (sp)+,R3-R7/R11-R13
+unlk R14
+rts
+.data
