source: buchla-68k/alcyon/idfield.s@ 8cc57e6

Last change on this file since 8cc57e6 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 19.3 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _io_time
7.globl _io_lcd
8.globl _io_ser
9.globl _io_midi
10.globl _io_disk
11.globl _io_tone
12.globl _io_leds
13.globl _io_kbrd
14.globl _lcd_a0
15.globl _lcd_a1
16.globl _io_vreg
17.globl _io_vraw
18.globl _io_vram
19.globl _io_fpu
20.globl _v_regs
21.globl _v_odtab
22.globl _v_actab
23.globl _v_ct0
24.globl _v_gt1
25.globl _v_score
26.globl _v_cgtab
27.globl _v_curs0
28.globl _v_curs1
29.globl _v_curs2
30.globl _v_curs3
31.globl _v_curs4
32.globl _v_curs5
33.globl _v_curs6
34.globl _v_curs7
35.globl _v_tcur
36.globl _v_kbobj
37.globl _v_lnobj
38.globl _v_win0
39.globl _v_cur
40.globl _fc_sw
41.globl _fc_val
42.globl _curvce
43.globl _curfunc
44.globl _curpnt
45.globl _hitbox
46.globl _astat
47.globl _idnamsw
48.globl _cxval
49.globl _cyval
50.globl _cxrate
51.globl _cyrate
52.globl _curslim
53.globl _cmtype
54.globl _cmfirst
55.globl _pecase
56.globl _pntsv
57.globl _npts
58.globl _subj
59.globl _idimsw
60.globl _wcflag
61.globl _imflag
62.globl _idcfsw
63.globl _idsrcsw
64.globl _vtcrow
65.globl _vtccol
66.globl _stcrow
67.globl _stccol
68.globl _vtxval
69.globl _vtyval
70.globl _temax
71.globl _temin
72.globl _cratex
73.globl _cratey
74.globl _crate0
75.globl _crate1
76.globl _instob
77.globl _bfs
78.globl _idbxlbl
79.globl _fnoff
80.globl _idbox
81.globl _csbp
82.globl _idboxes
83.globl _sments
84.globl _vpsms
85.globl _valents
86.globl _pntptr
87.globl _vbufs
88.globl _zonemax
89.data
90_zonemax:
91.dc.w $3F
92.dc.w $77
93.dc.w $AF
94.dc.w $E7
95.dc.w $11F
96.dc.w $157
97.dc.w $18F
98.dc.w $1C7
99.dc.w $1FD
100.globl _zoneinc
101.data
102_zoneinc:
103.dc.w $2
104.dc.w $2
105.dc.w $4
106.dc.w $9
107.dc.w $12
108.dc.w $24
109.dc.w $49
110.dc.w $92
111.dc.w $12F
112.globl _id_fet1
113.data
114_id_fet1:
115.dc.w $5
116.dc.w $3E
117.dc.w $3E
118.dc.w $C
119*line 84
120.dc.l _et_ires
121*line 84
122.dc.l _ef_ires
123*line 84
124.dc.l _rd_ires
125*line 84
126.dc.l _nd_ires
127.dc.w $10
128.dc.w $1
129.dc.w $C
130.dc.w $D
131*line 85
132.dc.l _et_imlt
133*line 85
134.dc.l _ef_imlt
135*line 85
136.dc.l _rd_imlt
137*line 85
138.dc.l _nd_imlt
139.dc.w $10
140.dc.w $F
141.dc.w $10
142.dc.w $E
143*line 86
144.dc.l _et_ipnt
145*line 86
146.dc.l _ef_ipnt
147*line 86
148.dc.l _rd_ipnt
149*line 86
150.dc.l _nd_ipnt
151.dc.w $10
152.dc.w $13
153.dc.w $18
154.dc.w $F
155*line 87
156.dc.l _et_itim
157*line 87
158.dc.l _ef_itim
159*line 87
160.dc.l _rd_itim
161*line 87
162.dc.l _nd_itim
163.dc.w $10
164.dc.w $1B
165.dc.w $2C
166.dc.w $10
167*line 88
168.dc.l _et_ival
169*line 88
170.dc.l _ef_ival
171*line 88
172.dc.l _rd_ival
173*line 88
174.dc.l _nd_ival
175.dc.w $10
176.dc.w $2F
177.dc.w $3E
178.dc.w $11
179*line 89
180.dc.l _et_iact
181*line 89
182.dc.l _ef_iact
183*line 89
184.dc.l _rd_iact
185*line 89
186.dc.l _nd_iact
187.dc.w $11
188.dc.w $C
189.dc.w $D
190.dc.w $12
191*line 90
192.dc.l _et_icnf
193*line 90
194.dc.l _ef_icnf
195*line 90
196.dc.l _rd_icnf
197*line 90
198.dc.l _nd_icnf
199.dc.w $11
200.dc.w $17
201.dc.w $18
202.dc.w $13
203*line 91
204.dc.l _et_ivce
205*line 91
206.dc.l _ef_ivce
207*line 91
208.dc.l _rd_ivce
209*line 91
210.dc.l _nd_ivce
211.dc.w $11
212.dc.w $1F
213.dc.w $20
214.dc.w $13
215*line 92
216.dc.l _et_idin
217*line 92
218.dc.l _ef_idin
219*line 92
220.dc.l _rd_idin
221*line 92
222.dc.l _nd_idin
223.dc.w $11
224.dc.w $39
225.dc.w $3A
226.dc.w $15
227*line 93
228.dc.l _et_iwsn
229*line 93
230.dc.l _ef_iwsn
231*line 93
232.dc.l _rd_iwsn
233*line 93
234.dc.l _nd_iwsn
235.dc.w $11
236.dc.w $3D
237.dc.w $3E
238.dc.w $115
239*line 94
240.dc.l _et_iwsn
241*line 94
242.dc.l _ef_iwsn
243*line 94
244.dc.l _rd_iwsn
245*line 94
246.dc.l _nd_iwsn
247.dc.w $12
248.dc.w $24
249.dc.w $2E
250.dc.w $8014
251*line 95
252.dc.l _et_iosc
253*line 95
254.dc.l _ef_iosc
255*line 95
256.dc.l _rd_iosc
257*line 95
258.dc.l _nd_iosc
259.dc.w $12
260.dc.w $11
261.dc.w $20
262.dc.w $0
263*line 96
264.dc.l _et_null
265*line 96
266.dc.l _ef_null
267*line 96
268.dc.l _rd_null
269*line 96
270.dc.l _nd_null
271.dc.w $13
272.dc.w $24
273.dc.w $2E
274.dc.w $8114
275*line 97
276.dc.l _et_iosc
277*line 97
278.dc.l _ef_iosc
279*line 97
280.dc.l _rd_iosc
281*line 97
282.dc.l _nd_iosc
283.dc.w $13
284.dc.w $11
285.dc.w $20
286.dc.w $0
287*line 98
288.dc.l _et_null
289*line 98
290.dc.l _ef_null
291*line 98
292.dc.l _rd_null
293*line 98
294.dc.l _nd_null
295.dc.w $14
296.dc.w $24
297.dc.w $2E
298.dc.w $8214
299*line 99
300.dc.l _et_iosc
301*line 99
302.dc.l _ef_iosc
303*line 99
304.dc.l _rd_iosc
305*line 99
306.dc.l _nd_iosc
307.dc.w $14
308.dc.w $11
309.dc.w $20
310.dc.w $0
311*line 100
312.dc.l _et_null
313*line 100
314.dc.l _ef_null
315*line 100
316.dc.l _rd_null
317*line 100
318.dc.l _nd_null
319.dc.w $15
320.dc.w $24
321.dc.w $2E
322.dc.w $8314
323*line 101
324.dc.l _et_iosc
325*line 101
326.dc.l _ef_iosc
327*line 101
328.dc.l _rd_iosc
329*line 101
330.dc.l _nd_iosc
331.dc.w $15
332.dc.w $11
333.dc.w $20
334.dc.w $0
335*line 102
336.dc.l _et_null
337*line 102
338.dc.l _ef_null
339*line 102
340.dc.l _rd_null
341*line 102
342.dc.l _nd_null
343.dc.w $0
344.dc.w $0
345.dc.w $0
346.dc.w $0
347.dc.l $0
348.dc.l $0
349.dc.l $0
350.dc.l $0
351.globl _srctbl
352.data
353_srctbl:
354*line 109
355.dc.l L1
356*line 110
357.dc.l L2
358*line 111
359.dc.l L3
360*line 112
361.dc.l L4
362*line 113
363.dc.l L5
364*line 114
365.dc.l L6
366*line 115
367.dc.l L7
368*line 116
369.dc.l L8
370*line 117
371.dc.l L9
372*line 118
373.dc.l L10
374*line 119
375.dc.l L11
376*line 120
377.dc.l L12
378*line 121
379.dc.l L13
380*line 122
381.dc.l L14
382.globl _id_flds
383.data
384_id_flds:
385*line 130
386.dc.l _stdctp1
387*line 131
388.dc.l _nokey
389*line 132
390.dc.l _nokey
391*line 133
392.dc.l _cxkstd
393*line 134
394.dc.l _cykstd
395*line 135
396.dc.l _idcxupd
397*line 136
398.dc.l _idcyupd
399*line 137
400.dc.l _ikyup
401*line 138
402.dc.l _ikydn
403*line 139
404.dc.l _idx_key
405*line 140
406.dc.l _select
407*line 141
408.dc.l _stdmkey
409*line 142
410.dc.l _stddkey
411*line 143
412.dc.l _idnfld
413*line 144
414.dc.l _id_fet1
415*line 145
416.dc.l _idboxes
417*line 146
418.dc.l _crate1
419*line 147
420.dc.l _crate1
421.dc.w $0
422.dc.w $100
423.dc.w $AF
424.globl _ikydn
425.text
426_ikydn:
427~~ikydn:
428link R14,#-4
429*line 164
430clr _imflag
431L15:unlk R14
432rts
433.globl _ikyup
434.text
435_ikyup:
436~~ikyup:
437link R14,#-4
438*line 175
439*line 176
440tst _imflag
441beq L17
442*line 176
443jsr _modinst
444L17:L16:unlk R14
445rts
446.globl _idcyupd
447.text
448_idcyupd:
449~~idcyupd:
450link R14,#0
451movem.l R4-R7,-(sp)
452~pval=R7
453~vh=R6
454~vl=R5
455*line 191
456*line 192
457cmp #-1,_wcflag
458bne L18
459*line 193
460*line 194
461*line 195
462tst _idimsw
463bne L18
464*line 196
465*line 197
466*line 197
467tst _idsrcsw
468bne L10000
469tst _idcfsw
470beq L19
471L10000:*line 198
472*line 199
473move _cyrate,R0
474add R0,_vtyval
475move _vtyval,R0
476ext.l R0
477divs #14,R0
478move R0,_vtcrow
479*line 200
480*line 201
481*line 202
482cmp #24,_vtcrow
483ble L20
484*line 202
485move #24,R0
486move R0,_vtcrow
487muls #14,R0
488move R0,_vtyval
489bra L21
490L20:
491*line 203
492*line 204
493cmp #22,_vtcrow
494bge L22
495*line 204
496move #22,R0
497move R0,_vtcrow
498muls #14,R0
499move R0,_vtyval
500*line 205
501L22:L21:bra L23
502L19:
503*line 206
504*line 206
505tst _idnamsw
506beq L24
507*line 207
508*line 208
509jsr _vtcyupd
510*line 209
511bra L25
512L24:
513*line 210
514*line 210
515tst _pntsv
516beq L26
517*line 211
518*line 212
519move.l _pntptr,R8
520move 2(R8),R7
521asr #5,R7
522move _cyrate,R0
523muls #7,R0
524sub R0,R7
525*line 213
526*line 214
527*line 215
528cmp #1000,R7
529ble L27
530*line 215
531move #1000,R7
532bra L28
533L27:
534*line 216
535*line 217
536tst R7
537bge L29
538*line 217
539clr R7
540*line 218
541L29:L28:
542*line 219
543move #12,(sp)
544move R7,-(sp)
545jsr _vtoy
546addq.l #2,sp
547move R0,_cyval
548*line 220
549move R7,R0
550asl #5,R0
551move.l _pntptr,R9
552move R0,2(R9)
553*line 221
554*line 222
555move R7,R6
556ext.l R6
557divs #100,R6
558*line 223
559move R7,R5
560move R6,R0
561muls #100,R0
562sub R0,R5
563*line 224
564*line 225
565move R5,(sp)
566move R6,-(sp)
567move.l #L30,-(sp)
568move.l #_bfs,-(sp)
569jsr _sprintf
570adda.l #10,sp
571*line 226
572*line 227
573clr (sp)
574jsr _vbank
575*line 228
576*line 229
577move #14,(sp)
578move.l #_bfs,-(sp)
579move 270+_idbox,-(sp)
580move 268+_idbox,-(sp)
581add #1,(sp)
582move 266+_idbox,-(sp)
583move 264+_idbox,-(sp)
584move #64,-(sp)
585move.l _instob,-(sp)
586jsr _vcputsv
587adda.l #18,sp
588*line 230
589*line 231
590move #1,_imflag
591*line 232
592*line 233
593bra L31
594L26:
595*line 234
596*line 235
597*line 236
598move _cyrate,R0
599add R0,_cyval
600*line 237
601*line 238
602*line 239
603cmp #348,_cyval
604ble L32
605*line 239
606move #348,_cyval
607bra L33
608L32:
609*line 240
610*line 241
611cmp #1,_cyval
612bge L34
613*line 241
614move #1,_cyval
615L34:L33:L31:L25:L23:L18:tst.l (sp)+
616movem.l (sp)+,R5-R7
617unlk R14
618rts
619.globl _idcxupd
620.text
621_idcxupd:
622~~idcxupd:
623link R14,#-2
624movem.l R3-R7,-(sp)
625~th=R7
626~tl=R6
627~fptime=R5
628~stime=R4
629~zone=-2
630*line 260
631*line 260
632tst _idimsw
633beq L36
634*line 261
635*line 262
636move _cxrate,R0
637add R0,_cxval
638*line 263
639*line 264
640*line 265
641cmp #256,_cxval
642ble L37
643*line 265
644move #256,_cxval
645bra L38
646L37:
647*line 266
648*line 267
649cmp #208,_cxval
650bge L39
651*line 267
652move #208,_cxval
653*line 268
654L39:L38:L36:
655*line 269
656*line 269
657tst _idsrcsw
658bne L10001
659tst _idcfsw
660beq L40
661L10001:*line 270
662*line 271
663move _cxrate,R0
664add R0,_vtxval
665move _vtxval,R0
666asr #3,R0
667move R0,_vtccol
668*line 272
669*line 273
670*line 274
671cmp #46,_vtccol
672ble L41
673*line 274
674move #46,R0
675move R0,_vtccol
676asl #3,R0
677move R0,_vtxval
678bra L42
679L41:
680*line 275
681*line 276
682cmp #17,_vtccol
683bge L43
684*line 276
685move #17,R0
686move R0,_vtccol
687asl #3,R0
688move R0,_vtxval
689*line 277
690L43:L42:bra L44
691L40:
692*line 278
693*line 278
694tst _idnamsw
695beq L45
696*line 279
697*line 280
698jsr _vtcxupd
699*line 281
700*line 282
701bra L46
702L45:
703*line 283
704*line 283
705tst _pntsv
706beq L47
707*line 284
708*line 285
709clr -2(R14)
710bra L50
711L51:
712*line 286
713*line 287
714move -2(R14),R8
715add.l R8,R8
716move.l #_zonemax,R9
717move 0(R8,R9.l),R0
718cmp _cxval,R0
719bge L48
720*line 288
721L49:
722*line 285
723add #1,-2(R14)
724L50:
725*line 285
726cmp #8,-2(R14)
727ble L51
728L48:
729*line 289
730move _pecase,R0
731bra L53
732*line 290
733L54:
734*line 291
735L55:
736*line 292
737*line 293
738*line 294
739*line 295
740tst _cxrate
741blt L56
742*line 296
743move -2(R14),R8
744add.l R8,R8
745move.l #_zoneinc,R9
746move 0(R8,R9.l),R0
747muls _cxrate,R0
748move R0,(sp)
749move.l _pntptr,R8
750move (R8),-(sp)
751jsr _addfpu
752addq.l #2,sp
753move R0,R5
754*line 297
755bra L57
756L56:
757*line 298
758*line 299
759move _cxrate,R0
760neg R0
761move -2(R14),R9
762add.l R9,R9
763add.l #_zoneinc,R9
764muls (R9),R0
765move R0,(sp)
766move.l _pntptr,R8
767move (R8),-(sp)
768jsr _subfpu
769addq.l #2,sp
770move R0,R5
771L57:
772*line 300
773*line 301
774move R5,(sp)
775move _subj,-(sp)
776jsr _segtime
777addq.l #2,sp
778move R0,R4
779*line 302
780*line 303
781*line 303
782cmp _temax,R4
783blo L58
784*line 304
785*line 305
786move _temax,(sp)
787sub #1,(sp)
788move _subj,-(sp)
789jsr _setseg
790addq.l #2,sp
791bra L52
792*line 306
793*line 307
794bra L59
795L58:
796*line 308
797*line 308
798tst R4
799bne L60
800*line 309
801*line 310
802move #1,(sp)
803move _subj,-(sp)
804jsr _setseg
805addq.l #2,sp
806bra L52
807*line 311
808*line 312
809*line 313
810L60:L59:
811*line 314
812move R4,(sp)
813move _subj,-(sp)
814jsr _setseg
815addq.l #2,sp
816bra L52
817*line 315
818*line 316
819*line 317
820*line 318
821L61:
822*line 319
823*line 320
824*line 321
825*line 322
826tst _cxrate
827blt L62
828*line 322
829move -2(R14),R8
830add.l R8,R8
831move.l #_zoneinc,R9
832move 0(R8,R9.l),R0
833muls _cxrate,R0
834move R0,(sp)
835move.l _pntptr,R8
836move (R8),-(sp)
837jsr _addfpu
838addq.l #2,sp
839move R0,R5
840*line 323
841bra L63
842L62:
843*line 324
844move _cxrate,R0
845neg R0
846move -2(R14),R9
847add.l R9,R9
848add.l #_zoneinc,R9
849muls (R9),R0
850move R0,(sp)
851move.l _pntptr,R8
852move (R8),-(sp)
853jsr _subfpu
854addq.l #2,sp
855move R0,R5
856L63:
857*line 325
858*line 326
859move R5,(sp)
860jsr _fromfpu
861move R0,R4
862add _temin,R4
863*line 327
864*line 328
865*line 329
866cmp _temax,R4
867bcc L52
868*line 330
869*line 331
870move R5,(sp)
871move _subj,-(sp)
872jsr _segtime
873addq.l #2,sp
874move R0,(sp)
875move _subj,-(sp)
876jsr _setseg
877addq.l #2,sp
878*line 332
879move _temax,(sp)
880move _subj,-(sp)
881add #1,(sp)
882jsr _setseg
883addq.l #2,sp
884bra L52
885*line 333
886bra L52
887L53:tst R0
888beq L54
889cmp #1,R0
890beq L55
891cmp #2,R0
892beq L61
893bra L52
894L52:
895*line 334
896*line 335
897*line 336
898move _subj,(sp)
899move _curfunc,-(sp)
900jsr _timeto
901addq.l #2,sp
902move R0,R7
903*line 337
904move R7,R6
905clr.l R0
906move R7,R0
907divu #1000,R0
908mulu #1000,R0
909sub R0,R6
910*line 338
911clr.l R0
912move R7,R0
913divu #1000,R0
914move R0,R7
915*line 339
916*line 340
917move R6,(sp)
918move R7,-(sp)
919move.l #L64,-(sp)
920move.l #_bfs,-(sp)
921jsr _sprintf
922adda.l #10,sp
923*line 341
924*line 342
925*line 343
926clr R0
927move 10+_v_regs,R0
928and #384,R0
929beq L65
930*line 343
931clr (sp)
932jsr _vbank
933*line 344
934L65:
935*line 345
936*line 346
937move #14,(sp)
938move.l #_bfs,-(sp)
939move 254+_idbox,-(sp)
940move 252+_idbox,-(sp)
941add #1,(sp)
942move 250+_idbox,-(sp)
943move 248+_idbox,-(sp)
944move #64,-(sp)
945move.l _instob,-(sp)
946jsr _vcputsv
947adda.l #18,sp
948*line 347
949*line 348
950move #1,_imflag
951*line 349
952move #12,(sp)
953move _subj,-(sp)
954move _curfunc,-(sp)
955jsr _timeto
956addq.l #4,sp
957move R0,-(sp)
958jsr _ttox
959addq.l #2,sp
960move R0,_cxval
961*line 350
962bra L66
963L47:
964*line 351
965*line 352
966*line 353
967move _cxrate,R0
968add R0,_cxval
969*line 354
970*line 355
971*line 356
972cmp #510,_cxval
973ble L67
974*line 356
975move #510,_cxval
976bra L68
977L67:
978*line 357
979*line 358
980cmp #1,_cxval
981bge L69
982*line 358
983move #1,_cxval
984L69:L68:L66:L46:L44:L35:tst.l (sp)+
985movem.l (sp)+,R4-R7
986unlk R14
987rts
988.globl _idnfld
989.text
990_idnfld:
991~~idnfld:
992~k=8
993link R14,#0
994movem.l R3-R7/R12-R13,-(sp)
995~endpnt=R7
996~basepnt=R6
997~t=R5
998~fn=R4
999~fp=R13
1000~ip=R12
1001*line 379
1002move _curvce,R0
1003muls #3938,R0
1004move.l R0,R12
1005add.l #_vbufs,R12
1006*line 380
1007move.l R12,R13
1008move _curfunc,R0
1009muls #12,R0
1010add.l R0,R13
1011add.l #86,R13
1012*line 382
1013*line 382
1014tst _astat
1015beq L71
1016*line 383
1017*line 384
1018*line 384
1019jsr _whatbox
1020tst R0
1021beq L72
1022*line 385
1023*line 386
1024*line 386
1025cmp #12,_hitbox
1026bne L73
1027*line 387
1028*line 388
1029*line 388
1030cmp #8,8(R14)
1031bne L74
1032*line 389
1033*line 390
1034move #1,R0
1035eor.b R0,7(R13)
1036move.b 7(R13),R0
1037move R0,R5
1038*line 391
1039*line 392
1040*line 393
1041clr R0
1042move 10+_v_regs,R0
1043and #384,R0
1044beq L75
1045*line 393
1046clr (sp)
1047jsr _vbank
1048*line 394
1049L75:
1050*line 395
1051*line 396
1052*line 397
1053*line 398
1054move #14,(sp)
1055move _curfunc,R8
1056add.l R8,R8
1057add.l R8,R8
1058move.l #_idbxlbl,R9
1059move.l 0(R8,R9.l),-(sp)
1060move #54,-(sp)
1061move #4,-(sp)
1062btst #0,R5
1063beq L10002
1064move _curfunc,R0
1065asl #4,R0
1066ext.l R0
1067move.l R0,R8
1068move.l #_idbox,R9
1069move 8(R8,R9.l),-(sp)
1070bra L10004
1071L10002:move #2,-(sp)
1072L10004:move #64,-(sp)
1073move.l _instob,-(sp)
1074jsr _tsplot4
1075adda.l #16,sp
1076*line 399
1077*line 400
1078jsr _modinst
1079*line 401
1080clr R0
1081bra L70
1082*line 402
1083*line 403
1084bra L76
1085L74:
1086*line 404
1087*line 404
1088cmp #9,8(R14)
1089bne L77
1090*line 405
1091*line 406
1092move.b 6(R13),R6
1093ext.w R6
1094*line 407
1095move R6,R7
1096move.b 5(R13),R0
1097ext.w R0
1098add R0,R7
1099sub #1,R7
1100*line 408
1101*line 409
1102*line 410
1103cmp.b #99,5(R13)
1104bne L78
1105*line 410
1106move #-1,R0
1107bra L70
1108*line 411
1109L78:
1110*line 412
1111*line 412
1112move R7,(sp)
1113move _curfunc,-(sp)
1114move.l R12,-(sp)
1115jsr _inspnt
1116addq.l #6,sp
1117tst R0
1118bne L79
1119*line 413
1120*line 414
1121move #-1,R0
1122bra L70
1123*line 415
1124bra L80
1125L79:
1126*line 416
1127*line 417
1128*line 418
1129move.b 5(R13),R0
1130ext.w R0
1131sub #1,R0
1132move R0,_subj
1133*line 419
1134jsr _pntsel
1135*line 420
1136move #1,_pntsv
1137*line 421
1138move #12,(sp)
1139clr -(sp)
1140move.l _pntptr,-(sp)
1141jsr _memset
1142addq.l #6,sp
1143*line 422
1144move.l _pntptr,R8
1145move.l _pntptr,R9
1146move -10(R9),2(R8)
1147*line 423
1148move _subj,(sp)
1149sub #1,(sp)
1150move _curfunc,-(sp)
1151jsr _timeto
1152addq.l #2,sp
1153move R0,(sp)
1154add #1,(sp)
1155move _subj,-(sp)
1156jsr _setseg
1157addq.l #2,sp
1158*line 424
1159move _curfunc,(sp)
1160jsr _edfunc
1161*line 425
1162move #1,(sp)
1163jsr _showpt
1164*line 426
1165move #12,(sp)
1166move _subj,-(sp)
1167move _curfunc,-(sp)
1168jsr _timeto
1169addq.l #4,sp
1170move R0,-(sp)
1171jsr _ttox
1172addq.l #2,sp
1173move R0,_cxval
1174*line 427
1175move #12,(sp)
1176move.l _pntptr,R8
1177move 2(R8),R0
1178asr #5,R0
1179move R0,-(sp)
1180jsr _vtoy
1181addq.l #2,sp
1182move R0,_cyval
1183*line 428
1184move #3,(sp)
1185jsr _arcurs
1186*line 429
1187move _cyval,(sp)
1188move _cxval,-(sp)
1189jsr _gcurpos
1190addq.l #2,sp
1191*line 430
1192jsr _modinst
1193*line 431
1194clr R0
1195bra L70
1196L80:
1197*line 432
1198*line 433
1199*line 434
1200*line 435
1201*line 436
1202L77:L76:bra L81
1203L73:
1204*line 437
1205*line 437
1206cmp #12,_hitbox
1207bge L82
1208*line 438
1209*line 439
1210move _hitbox,R0
1211cmp _curfunc,R0
1212bne L10005
1213move #12,R0
1214bra L10007
1215L10005:move _hitbox,R0
1216L10007:move R0,R4
1217*line 440
1218*line 441
1219*line 441
1220cmp #8,8(R14)
1221bne L83
1222*line 442
1223*line 443
1224*line 444
1225clr R0
1226move 10+_v_regs,R0
1227and #384,R0
1228beq L84
1229*line 444
1230clr (sp)
1231jsr _vbank
1232*line 445
1233L84:
1234*line 446
1235*line 447
1236*line 448
1237*line 449
1238*line 450
1239move #14,(sp)
1240move R4,R8
1241add.l R8,R8
1242add.l R8,R8
1243move.l #_idbxlbl,R9
1244move.l 0(R8,R9.l),-(sp)
1245move _hitbox,R0
1246asl #4,R0
1247ext.l R0
1248move.l R0,R8
1249move.l #_idbox,R9
1250move 14(R8,R9.l),-(sp)
1251move _hitbox,R0
1252asl #4,R0
1253ext.l R0
1254move.l R0,R8
1255move.l #_idbox,R9
1256move 12(R8,R9.l),-(sp)
1257move.l R12,R8
1258move R4,R1
1259muls #12,R1
1260add.l R1,R8
1261move.l R8,-(sp)
1262move #1,R0
1263move.l (sp)+,R8
1264eor.b R0,93(R8)
1265move.b 93(R8),R0
1266and #1,R0
1267beq L10008
1268move R4,R0
1269asl #4,R0
1270ext.l R0
1271move.l R0,R8
1272move.l #_idbox,R9
1273move 8(R8,R9.l),-(sp)
1274bra L10010
1275L10008:move #2,-(sp)
1276L10010:move #64,-(sp)
1277move.l _instob,-(sp)
1278jsr _tsplot4
1279adda.l #16,sp
1280*line 451
1281*line 452
1282jsr _modinst
1283*line 453
1284L83:
1285*line 454
1286L82:L81:
1287*line 455
1288*line 456
1289L72:
1290*line 457
1291move #-1,R0
1292bra L70
1293*line 458
1294L71:L70:tst.l (sp)+
1295movem.l (sp)+,R4-R7/R12-R13
1296unlk R14
1297rts
1298.globl _idx_key
1299.text
1300_idx_key:
1301~~idx_key:
1302link R14,#0
1303movem.l R6-R7/R11-R13,-(sp)
1304~smp=R13
1305~vep=R12
1306~i=R7
1307~ip=R11
1308*line 477
1309*line 477
1310tst _astat
1311beq L86
1312*line 478
1313*line 479
1314*line 480
1315tst _idsrcsw
1316bne L85
1317tst _idcfsw
1318bne L85
1319tst _idnamsw
1320bne L85
1321cmp #-1,_wcflag
1322bne L85
1323*line 481
1324*line 482
1325*line 482
1326cmp #16,_stcrow
1327bne L87
1328*line 483
1329*line 484
1330*line 484
1331cmp #1,_stccol
1332blt L88
1333cmp #7,_stccol
1334bgt L88
1335*line 485
1336*line 486
1337*line 487
1338*line 488
1339move.l #_valents,R12
1340*line 489
1341move _curvce,R0
1342asl #4,R0
1343move _curfunc,R9
1344add.l R9,R9
1345add.l #_fnoff,R9
1346move (R9),R1
1347add R1,R0
1348move R0,R8
1349add.l R8,R8
1350add.l R8,R8
1351add.l #_vpsms,R8
1352move.l (R8),R13
1353*line 490
1354*line 491
1355*line 491
1356tst 10(R13)
1357beq L89
1358*line 492
1359*line 493
1360move.l 4(R13),R8
1361move.l (R13),(R8)
1362*line 494
1363move.l (R13),R8
1364move.l 4(R13),4(R8)
1365*line 495
1366*line 496
1367move.l R12,4(R13)
1368*line 497
1369move.l (R12),(R13)
1370*line 498
1371move.l (R12),R8
1372move.l R13,4(R8)
1373*line 499
1374move.l R13,(R12)
1375*line 500
1376*line 501
1377clr 10(R13)
1378*line 502
1379*line 503
1380L89:
1381*line 504
1382move _curvce,R0
1383muls #3938,R0
1384move _curfunc,R1
1385muls #12,R1
1386add.l R1,R0
1387add.l #_vbufs,R0
1388move.l R0,R8
1389clr.b 90(R8)
1390*line 505
1391move #13,(sp)
1392jsr _dswin
1393*line 506
1394jsr _modinst
1395*line 507
1396*line 508
1397bra L90
1398L88:
1399*line 509
1400*line 509
1401cmp #15,_stccol
1402beq L10011
1403cmp #16,_stccol
1404bne L91
1405L10011:*line 510
1406*line 511
1407*line 512
1408*line 513
1409jsr _delpnts
1410*line 514
1411bra L92
1412L91:
1413*line 515
1414*line 515
1415cmp #33,_stccol
1416blt L93
1417cmp #39,_stccol
1418bgt L93
1419*line 516
1420*line 517
1421*line 518
1422*line 519
1423move.l _pntptr,R8
1424clr.b 6(R8)
1425*line 520
1426move #16,(sp)
1427jsr _dswin
1428*line 521
1429jsr _modinst
1430*line 522
1431*line 523
1432L93:L92:L90:bra L94
1433L87:
1434*line 524
1435*line 525
1436cmp #17,_stcrow
1437bne L95
1438cmp #31,_stccol
1439beq L10012
1440cmp #32,_stccol
1441bne L95
1442L10012:*line 526
1443*line 527
1444*line 528
1445*line 529
1446move _curvce,R0
1447muls #3938,R0
1448add.l #_vbufs,R0
1449move.l R0,(sp)
1450jsr _initi
1451*line 530
1452clr (sp)
1453clr -(sp)
1454move _curvce,-(sp)
1455jsr _execins
1456addq.l #4,sp
1457*line 531
1458jsr _setinst
1459*line 532
1460jsr _allwins
1461*line 533
1462jsr _modinst
1463*line 534
1464L95:L94:
1465*line 535
1466L86:L85:tst.l (sp)+
1467movem.l (sp)+,R7-R7/R11-R13
1468unlk R14
1469rts
1470.globl _idfield
1471.text
1472_idfield:
1473~~idfield:
1474link R14,#-4
1475*line 549
1476clr _idimsw
1477*line 550
1478move #210,_curslim
1479*line 552
1480move.l #_id_flds,(sp)
1481jsr _curset
1482L96:unlk R14
1483rts
1484.data
1485L1:.dc.b $20,$20,$20,$20,$20,$20,$20,$0
1486L2:.dc.b $52,$61,$6E,$64,$6F,$6D,$20,$0
1487L3:.dc.b $47,$50,$43,$2F,$43,$56,$31,$0
1488L4:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$0
1489L5:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$0
1490L6:.dc.b $50,$69,$74,$63,$68,$20,$20,$0
1491L7:.dc.b $4B,$65,$79,$20,$50,$72,$73,$0
1492L8:.dc.b $4B,$65,$79,$20,$56,$65,$6C,$0
1493L9:.dc.b $50,$65,$64,$61,$6C,$20,$31,$0
1494L10:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$0
1495L11:.dc.b $46,$72,$65,$71,$20,$20,$20,$0
1496L12:.dc.b $50,$63,$68,$57,$2F,$48,$54,$0
1497L13:.dc.b $4D,$6F,$64,$57,$2F,$56,$54,$0
1498L14:.dc.b $42,$72,$74,$68,$2F,$4C,$50,$0
1499L30:.dc.b $25,$30,$32,$64,$2E,$25,$30,$32,$64,$0
1500L64:.dc.b $25,$30,$32,$64,$2E,$25,$30,$33,$64,$0
Note: See TracBrowser for help on using the repository browser.