Index: alcyon/frfind.s
===================================================================
--- alcyon/frfind.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/frfind.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,596 @@
+.globl _ac_code
+.globl _scname
+.globl _se_chg
+.globl _curscor
+.globl _cursect
+.globl _se1_cnt
+.globl _se2_cnt
+.globl _se3_cnt
+.globl _spool
+.globl _pspool
+.globl _spcount
+.globl _frags
+.globl _t_bak
+.globl _t_cur
+.globl _t_ctr
+.globl _t_fwd
+.globl _size1
+.globl _size2
+.globl _size3
+.globl _scores
+.globl _scp
+.globl _seclist
+.globl _hplist
+.globl _p_bak
+.globl _p_cur
+.globl _p_ctr
+.globl _p_fwd
+.globl _insmode
+.globl _ep_adj
+.text
+_ep_adj:
+~~ep_adj:
+~sep=R13
+~tval=R7
+~sdir=12
+link R14,#0
+movem.l R6-R7/R12-R13,-(sp)
+~tep=R12
+*line 97
+move.l 8(R14),R13
+*line 97
+move.l 14(R14),R7
+*line 97
+*line 98
+tst.l R7
+bge L2
+*line 98
+move _curscor,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_scores,R9
+move.l 0(R8,R9.l),R0
+bra L1
+*line 99
+L2:
+*line 100
+*line 100
+tst 12(R14)
+beq L3
+*line 101
+*line 102
+*line 102
+cmp.l (R13),R7
+ble L4
+*line 103
+*line 104
+bra L7
+L6:
+*line 105
+*line 108
+*line 109
+*line 113
+*line 114
+*line 115
+*line 116
+cmp.l (R13),R7
+ble L8
+*line 116
+move.l R12,R13
+*line 117
+bra L9
+L8:bra L5
+L9:
+*line 118
+L7:
+*line 119
+move.l 12(R13),R12
+move.l R12,R0
+bne L6
+L5:
+*line 120
+*line 121
+L4:
+*line 122
+bra L12
+L11:
+*line 123
+*line 126
+*line 127
+*line 131
+*line 132
+*line 133
+*line 134
+cmp.l (R12),R7
+bgt L10000
+cmp.b #1,5(R12)
+bne L13
+L10000:*line 135
+*line 139
+*line 140
+move.l R13,R0
+bra L1
+*line 141
+*line 142
+L13:
+*line 143
+move.l R12,R13
+L12:
+*line 144
+move.l 8(R13),R12
+move.l R12,R0
+bne L11
+L10:
+*line 145
+*line 148
+*line 149
+*line 153
+*line 154
+move.l R13,R0
+bra L1
+*line 155
+*line 156
+*line 157
+*line 158
+bra L14
+L3:
+*line 159
+*line 160
+*line 161
+*line 161
+cmp.l (R13),R7
+bge L15
+*line 162
+*line 163
+bra L18
+L17:
+*line 164
+*line 167
+*line 168
+*line 172
+*line 173
+*line 174
+*line 175
+*line 176
+cmp.l (R13),R7
+bge L16
+cmp.b #1,5(R13)
+beq L16
+*line 177
+*line 178
+move.l R12,R13
+L18:
+*line 179
+move.l 8(R13),R12
+move.l R12,R0
+bne L17
+L16:
+*line 180
+*line 181
+L15:
+*line 182
+bra L21
+L20:
+*line 183
+*line 186
+*line 187
+*line 191
+*line 192
+*line 193
+*line 193
+cmp.l (R12),R7
+bge L22
+*line 194
+*line 198
+*line 199
+move.l R13,R0
+bra L1
+*line 200
+*line 201
+L22:
+*line 202
+move.l R12,R13
+L21:
+*line 203
+move.l 12(R13),R12
+move.l R12,R0
+bne L20
+L19:
+*line 204
+*line 207
+*line 208
+*line 212
+*line 213
+move.l R13,R0
+bra L1
+L14:L1:tst.l (sp)+
+movem.l (sp)+,R7-R7/R12-R13
+unlk R14
+rts
+.globl _frfind
+.text
+_frfind:
+~~frfind:
+~tval=R7
+~sdir=12
+link R14,#0
+movem.l R3-R7/R12-R13,-(sp)
+~i=R6
+~t_min=R5
+~dt=R4
+~ep=R13
+~sep=R12
+*line 251
+move.l 8(R14),R7
+*line 251
+*line 251
+tst.l _scp
+bne L24
+*line 252
+*line 256
+*line 257
+clr.l R0
+bra L23
+*line 258
+*line 259
+L24:
+*line 260
+*line 261
+tst.l R7
+bge L25
+*line 261
+move.l R7,(sp)
+move 12(R14),-(sp)
+move.l _scp,-(sp)
+jsr _ep_adj
+addq.l #6,sp
+bra L23
+*line 262
+L25:
+*line 263
+*line 263
+move.l _p_cur,R8
+cmp.l (R8),R7
+bne L26
+*line 264
+*line 268
+*line 269
+move.l R7,(sp)
+move 12(R14),-(sp)
+move.l _p_cur,-(sp)
+jsr _ep_adj
+addq.l #6,sp
+bra L23
+*line 270
+*line 271
+L26:
+*line 272
+*line 272
+move.l _p_fwd,R8
+cmp.l (R8),R7
+bne L27
+*line 273
+*line 277
+*line 278
+move.l R7,(sp)
+move 12(R14),-(sp)
+move.l _p_fwd,-(sp)
+jsr _ep_adj
+addq.l #6,sp
+bra L23
+*line 279
+*line 280
+L27:
+*line 281
+*line 281
+move.l _p_bak,R8
+cmp.l (R8),R7
+bne L28
+*line 282
+*line 286
+*line 287
+move.l R7,(sp)
+move 12(R14),-(sp)
+move.l _p_bak,-(sp)
+jsr _ep_adj
+addq.l #6,sp
+bra L23
+*line 288
+*line 289
+L28:
+*line 290
+*line 291
+*line 292
+move.l _p_cur,R8
+cmp.l (R8),R7
+ble L10001
+move.l R7,R0
+move.l _p_cur,R9
+move.l (R9),R1
+sub.l R1,R0
+bra L10003
+L10001:move.l _p_cur,R8
+move.l (R8),R0
+sub.l R7,R0
+L10003:move.l R0,R5
+*line 294
+move.l _p_cur,R13
+*line 296
+*line 297
+*line 298
+move.l _p_fwd,R8
+cmp.l (R8),R7
+ble L10004
+move.l R7,R0
+move.l _p_fwd,R9
+move.l (R9),R1
+sub.l R1,R0
+bra L10006
+L10004:move.l _p_fwd,R8
+move.l (R8),R0
+sub.l R7,R0
+L10006:move.l R0,R4
+*line 300
+*line 300
+cmp.l R5,R4
+bge L29
+*line 301
+*line 302
+move.l R4,R5
+*line 303
+move.l _p_fwd,R13
+*line 304
+*line 308
+*line 309
+*line 310
+*line 311
+*line 312
+*line 313
+L29:
+*line 314
+*line 315
+*line 316
+move.l _p_bak,R8
+cmp.l (R8),R7
+ble L10007
+move.l R7,R0
+move.l _p_bak,R9
+move.l (R9),R1
+sub.l R1,R0
+bra L10009
+L10007:move.l _p_bak,R8
+move.l (R8),R0
+sub.l R7,R0
+L10009:move.l R0,R4
+*line 318
+*line 318
+cmp.l R5,R4
+bge L30
+*line 319
+*line 320
+move.l R4,R5
+*line 321
+move.l _p_bak,R13
+*line 322
+*line 326
+*line 327
+*line 328
+L30:
+*line 329
+*line 329
+tst _insmode
+bne L31
+*line 330
+*line 331
+clr R6
+bra L34
+L35:
+*line 332
+*line 333
+*line 333
+move _curscor,R0
+muls #80,R0
+move R6,R1
+asl #2,R1
+ext.l R1
+add.l R1,R0
+add.l #_seclist,R0
+move.l R0,R8
+move.l (R8),R12
+move.l R12,R0
+beq L36
+*line 334
+*line 335
+*line 336
+*line 337
+cmp.l (R12),R7
+ble L10010
+move.l R7,R0
+sub.l (R12),R0
+bra L10012
+L10010:move.l (R12),R0
+sub.l R7,R0
+L10012:move.l R0,R4
+*line 338
+*line 339
+*line 339
+cmp.l R5,R4
+bge L37
+*line 340
+*line 341
+move.l R4,R5
+*line 342
+move.l R12,R13
+*line 343
+*line 347
+*line 348
+L37:
+*line 349
+L36:L33:
+*line 331
+add #1,R6
+L34:
+*line 331
+cmp #20,R6
+blt L35
+L32:
+*line 350
+*line 351
+*line 352
+*line 355
+*line 356
+L31:
+*line 357
+move.l R7,(sp)
+move 12(R14),-(sp)
+move.l R13,-(sp)
+jsr _ep_adj
+addq.l #6,sp
+bra L23
+L23:tst.l (sp)+
+movem.l (sp)+,R4-R7/R12-R13
+unlk R14
+rts
+.globl _findev
+.text
+_findev:
+~~findev:
+~te=R7
+~et=R6
+~d1=R5
+~d2=R4
+~ep=8
+link R14,#0
+movem.l R3-R7/R13-R13,-(sp)
+~tp=R13
+*line 385
+move.l 12(R14),R7
+*line 385
+move 16(R14),R6
+*line 385
+move 18(R14),R5
+*line 385
+move 20(R14),R4
+*line 385
+move.l R7,(sp)
+move #1,-(sp)
+move.l 8(R14),-(sp)
+jsr _ep_adj
+addq.l #6,sp
+move.l R0,R13
+*line 387
+bra L41
+L40:
+*line 388
+*line 389
+*line 390
+*line 391
+*line 392
+move.b 5(R13),R0
+ext.w R0
+cmp R0,R6
+bne L42
+cmp #-1,R5
+beq L10013
+move.b 6(R13),R0
+ext.w R0
+cmp R0,R5
+bne L42
+L10013:cmp #-1,R4
+beq L10014
+move.b 7(R13),R0
+ext.w R0
+cmp R0,R4
+bne L42
+L10014:*line 392
+move.l R13,R0
+bra L38
+*line 393
+L42:
+*line 394
+move.l 12(R13),R13
+L41:
+*line 395
+cmp.l (R13),R7
+beq L40
+L39:
+*line 397
+clr.l R0
+bra L38
+L38:tst.l (sp)+
+movem.l (sp)+,R4-R7/R13-R13
+unlk R14
+rts
+.globl _ehfind
+.text
+_ehfind:
+~~ehfind:
+~eh=R7
+~te=R6
+~d1=R5
+~d2=R4
+link R14,#0
+movem.l R3-R7/R13-R13,-(sp)
+~tp=R13
+*line 428
+move 8(R14),R7
+*line 428
+move.l 10(R14),R6
+*line 428
+move 14(R14),R5
+*line 428
+move 16(R14),R4
+*line 428
+move _curscor,R0
+muls #48,R0
+move R7,R1
+asl #2,R1
+ext.l R1
+add.l R1,R0
+add.l #_hplist,R0
+move.l R0,R8
+move.l (R8),R13
+*line 430
+bra L46
+L45:
+*line 431
+*line 432
+*line 433
+*line 434
+*line 435
+cmp.l #$ffffffff,R6
+beq L10015
+cmp.l (R13),R6
+bne L47
+L10015:cmp #-1,R5
+beq L10016
+move.b 6(R13),R0
+ext.w R0
+cmp R0,R5
+bne L47
+L10016:cmp #-1,R4
+beq L10017
+move.b 7(R13),R0
+ext.w R0
+cmp R0,R4
+bne L47
+L10017:*line 435
+move.l R13,R0
+bra L43
+*line 436
+L47:
+*line 437
+move.l 20(R13),R13
+L46:
+*line 438
+move.l R13,R0
+bne L45
+L44:
+*line 440
+move.l R13,R0
+bra L43
+L43:tst.l (sp)+
+movem.l (sp)+,R4-R7/R13-R13
+unlk R14
+rts
+.data
