Index: alcyon/ptwrite.s
===================================================================
--- alcyon/ptwrite.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/ptwrite.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,1222 @@
+.globl _Cbuffs
+.globl _Stdbufs
+.globl _Stdbuf
+.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 _stmptr
+.globl _defptr
+.globl _patches
+.globl _defents
+.globl _seqtab
+.globl _seqflag
+.globl _seqline
+.globl _seqstim
+.globl _seqtime
+.globl _sregval
+.globl _trstate
+.globl _filecat
+.globl _ptsizes
+.data
+_ptsizes:
+.dc.b $0
+.dc.b $4
+.dc.b $4
+.dc.b $3
+.dc.b $3
+.dc.b $4
+.dc.b $3
+.dc.b $2
+.dc.b $4
+.dc.b $4
+.dc.b $3
+.dc.b $6
+.dc.b $3
+.dc.b $3
+.dc.b $3
+.dc.b $5
+.dc.b $6
+.dc.b $6
+.dc.b $5
+.dc.b $5
+.dc.b $5
+.dc.b $5
+.dc.b $4
+.dc.b $4
+.dc.b $4
+.dc.b $4
+.dc.b $5
+.even
+.globl _ptsizer
+.text
+_ptsizer:
+~~ptsizer:
+link R14,#0
+movem.l R5-R7,-(sp)
+~pp=R7
+~nb=R6
+*line 84
+clr.l R6
+*line 86
+*line 86
+jsr _find1st
+move R0,R7
+beq L2
+*line 87
+*line 88
+bra L5
+L4:
+*line 89
+*line 90
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_patches,R9
+clr R0
+move 8(R8,R9.l),R0
+and #255,R0
+move R0,R8
+move.l #_ptsizes,R9
+move.b 0(R8,R9.l),R0
+ext.w R0
+add #4,R0
+ext.l R0
+add.l R0,R6
+*line 91
+move R7,(sp)
+jsr _findnxt
+move R0,R7
+L5:
+*line 92
+tst R7
+bne L4
+L3:
+*line 93
+*line 94
+L2:
+*line 95
+*line 96
+tst.l R6
+beq L6
+*line 96
+add.l #$1,R6
+*line 97
+*line 101
+*line 102
+L6:
+*line 103
+move.l R6,R0
+bra L1
+L1:tst.l (sp)+
+movem.l (sp)+,R6-R7
+unlk R14
+rts
+.globl _ptwrite
+.text
+_ptwrite:
+~~ptwrite:
+~fp=R13
+link R14,#-4
+movem.l R6-R7/R13-R13,-(sp)
+~pp=R7
+~cb=-2
+~zero=-4
+*line 127
+move.l 8(R14),R13
+*line 127
+clr.b -4(R14)
+*line 129
+*line 130
+move #9,(sp)
+move #12,-(sp)
+move.l #L9,-(sp)
+clr.l -(sp)
+move.l #L8,-(sp)
+jsr _ldwmsg
+adda.l #14,sp
+*line 132
+*line 132
+jsr _find1st
+move R0,R7
+beq L10
+*line 133
+*line 134
+bra L13
+L12:
+*line 135
+*line 144
+*line 145
+*line 146
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_patches,R9
+clr R0
+move 8(R8,R9.l),R0
+and #255,R0
+move.b R0,-2(R14)
+bra L15
+*line 147
+L16:
+*line 148
+L17:
+*line 149
+*line 150
+*line 151
+*line 152
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L18
+*line 152
+move #-1,R0
+bra L7
+*line 153
+L18:
+*line 154
+*line 155
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L19
+*line 155
+move #-1,R0
+bra L7
+*line 156
+L19:
+*line 157
+*line 158
+move.l #$2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #10,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L20
+*line 158
+move #-1,R0
+bra L7
+*line 159
+L20:
+*line 160
+*line 161
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #15,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L21
+*line 161
+move #-1,R0
+bra L7
+*line 162
+L21:bra L14
+*line 163
+*line 164
+*line 165
+L22:
+*line 166
+L23:
+*line 167
+*line 168
+*line 169
+*line 170
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L24
+*line 170
+move #-1,R0
+bra L7
+*line 171
+L24:
+*line 172
+*line 173
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L25
+*line 173
+move #-1,R0
+bra L7
+*line 174
+L25:
+*line 175
+*line 176
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #11,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L26
+*line 176
+move #-1,R0
+bra L7
+*line 177
+L26:
+*line 178
+*line 179
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #15,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L27
+*line 179
+move #-1,R0
+bra L7
+*line 180
+L27:bra L14
+*line 181
+*line 182
+L28:
+*line 183
+*line 184
+*line 185
+*line 186
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L29
+*line 186
+move #-1,R0
+bra L7
+*line 187
+L29:
+*line 188
+*line 189
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L30
+*line 189
+move #-1,R0
+bra L7
+*line 190
+L30:
+*line 191
+*line 192
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #11,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L31
+*line 192
+move #-1,R0
+bra L7
+*line 193
+L31:
+*line 194
+*line 195
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #12,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L32
+*line 195
+move #-1,R0
+bra L7
+*line 196
+L32:bra L14
+*line 197
+*line 198
+L33:
+*line 199
+*line 200
+*line 201
+*line 202
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L34
+*line 202
+move #-1,R0
+bra L7
+*line 203
+L34:
+*line 204
+*line 205
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L35
+*line 205
+move #-1,R0
+bra L7
+*line 206
+L35:
+*line 207
+*line 208
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #11,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L36
+*line 208
+move #-1,R0
+bra L7
+*line 209
+L36:
+*line 210
+*line 211
+move.l #$2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #12,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L37
+*line 211
+move #-1,R0
+bra L7
+*line 212
+L37:bra L14
+*line 213
+*line 214
+L38:
+*line 215
+*line 216
+*line 217
+*line 218
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L39
+*line 218
+move #-1,R0
+bra L7
+*line 219
+L39:
+*line 220
+*line 221
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L40
+*line 221
+move #-1,R0
+bra L7
+*line 222
+L40:
+*line 223
+*line 224
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #13,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L41
+*line 224
+move #-1,R0
+bra L7
+*line 225
+L41:bra L14
+*line 226
+*line 227
+*line 228
+L42:
+*line 229
+L43:
+*line 230
+*line 231
+*line 232
+*line 233
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L44
+*line 233
+move #-1,R0
+bra L7
+*line 234
+L44:
+*line 235
+*line 236
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L45
+*line 236
+move #-1,R0
+bra L7
+*line 237
+L45:
+*line 238
+*line 239
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #11,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L46
+*line 239
+move #-1,R0
+bra L7
+*line 240
+L46:
+*line 241
+*line 242
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #13,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L47
+*line 242
+move #-1,R0
+bra L7
+*line 243
+L47:
+*line 244
+*line 245
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #15,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L48
+*line 245
+move #-1,R0
+bra L7
+*line 246
+L48:bra L14
+*line 247
+*line 248
+L49:
+*line 249
+L50:
+*line 250
+L51:
+*line 251
+L52:
+*line 252
+*line 253
+*line 254
+*line 255
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L53
+*line 255
+move #-1,R0
+bra L7
+*line 256
+L53:
+*line 257
+*line 258
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L54
+*line 258
+move #-1,R0
+bra L7
+*line 259
+L54:
+*line 260
+*line 261
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #10,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L55
+*line 261
+move #-1,R0
+bra L7
+*line 262
+L55:
+*line 263
+*line 264
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #13,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L56
+*line 264
+move #-1,R0
+bra L7
+*line 265
+L56:bra L14
+*line 266
+*line 267
+L57:
+*line 268
+L58:
+*line 269
+L59:
+*line 270
+*line 271
+*line 272
+*line 273
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L60
+*line 273
+move #-1,R0
+bra L7
+*line 274
+L60:
+*line 275
+*line 276
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L61
+*line 276
+move #-1,R0
+bra L7
+*line 277
+L61:
+*line 278
+*line 279
+move.l #$2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #10,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L62
+*line 279
+move #-1,R0
+bra L7
+*line 280
+L62:
+*line 281
+*line 282
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #13,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L63
+*line 282
+move #-1,R0
+bra L7
+*line 283
+L63:
+*line 284
+*line 285
+move.l #$2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #14,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L64
+*line 285
+move #-1,R0
+bra L7
+*line 286
+L64:bra L14
+*line 287
+*line 288
+*line 289
+L65:
+*line 290
+L66:
+*line 291
+L67:
+*line 292
+L68:
+*line 293
+L69:
+*line 294
+*line 295
+*line 296
+*line 297
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L70
+*line 297
+move #-1,R0
+bra L7
+*line 298
+L70:
+*line 299
+*line 300
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L71
+*line 300
+move #-1,R0
+bra L7
+*line 301
+L71:
+*line 302
+*line 303
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #10,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L72
+*line 303
+move #-1,R0
+bra L7
+*line 304
+L72:
+*line 305
+*line 306
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #13,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L73
+*line 306
+move #-1,R0
+bra L7
+*line 307
+L73:
+*line 308
+*line 309
+move.l #$2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #14,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L74
+*line 309
+move #-1,R0
+bra L7
+*line 310
+L74:bra L14
+*line 311
+*line 312
+L75:
+*line 313
+L76:
+*line 314
+L77:
+*line 315
+L78:
+*line 316
+*line 317
+*line 318
+*line 319
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L79
+*line 319
+move #-1,R0
+bra L7
+*line 320
+L79:
+*line 321
+*line 322
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L80
+*line 322
+move #-1,R0
+bra L7
+*line 323
+L80:
+*line 324
+*line 325
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #13,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L81
+*line 325
+move #-1,R0
+bra L7
+*line 326
+L81:
+*line 327
+*line 328
+move.l #$2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #14,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L82
+*line 328
+move #-1,R0
+bra L7
+*line 329
+L82:bra L14
+*line 330
+*line 331
+L83:
+*line 332
+*line 333
+*line 334
+*line 335
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L84
+*line 335
+move #-1,R0
+bra L7
+*line 336
+L84:
+*line 337
+*line 338
+move.l #$4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L85
+*line 338
+move #-1,R0
+bra L7
+*line 339
+L85:
+*line 340
+*line 341
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #11,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L86
+*line 341
+move #-1,R0
+bra L7
+*line 342
+L86:
+*line 343
+*line 344
+move.l #$1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #13,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L87
+*line 344
+move #-1,R0
+bra L7
+*line 345
+L87:
+*line 346
+*line 347
+move.l #$2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+add.l #_patches,R0
+move.l R0,-(sp)
+add.l #14,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L88
+*line 347
+move #-1,R0
+bra L7
+*line 348
+L88:bra L14
+*line 349
+*line 350
+*line 351
+L89:
+*line 352
+*line 353
+*line 354
+move #-1,R0
+bra L7
+bra L14
+L15:sub #1,R0
+cmp #25,R0
+bhi L89
+asl #2,R0
+move R0,R8
+add.l #L90,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L90:.dc.l L16
+.dc.l L17
+.dc.l L22
+.dc.l L28
+.dc.l L33
+.dc.l L23
+.dc.l L38
+.dc.l L42
+.dc.l L43
+.dc.l L49
+.dc.l L57
+.dc.l L50
+.dc.l L51
+.dc.l L52
+.dc.l L65
+.dc.l L58
+.dc.l L59
+.dc.l L66
+.dc.l L67
+.dc.l L68
+.dc.l L69
+.dc.l L75
+.dc.l L76
+.dc.l L77
+.dc.l L78
+.dc.l L83
+.text
+L14:
+*line 355
+*line 356
+*line 360
+*line 361
+*line 362
+move R7,(sp)
+jsr _findnxt
+move R0,R7
+L13:
+*line 363
+tst R7
+bne L12
+L11:
+*line 364
+*line 365
+*line 366
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #4,(sp)
+move.l R13,-(sp)
+jsr _wr_ec
+addq.l #8,sp
+tst R0
+beq L91
+*line 366
+move #-1,R0
+bra L7
+*line 367
+L91:bra L92
+L10:
+*line 368
+*line 369
+*line 370
+move #-1,R0
+bra L7
+L92:
+*line 378
+clr R0
+bra L7
+L7:tst.l (sp)+
+movem.l (sp)+,R7-R7/R13-R13
+unlk R14
+rts
+.data
+L8:.dc.b $42,$75,$73,$79,$20,$2D,$2D,$20,$50,$6C,$65,$61,$73,$65,$20,$73,$74,$61,$6E,$64,$20,$62,$79,$0
+L9:.dc.b $20,$20,$77,$72,$69,$74,$69,$6E,$67,$20,$70,$61,$74,$63,$68,$65,$73,$0
