.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