source: buchla-68k/alcyon/idselbx.s@ 4810254

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

Added Alcyon C reference output.

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