source: buchla-68k/alcyon/ptdisp.s@ 9519422

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 13.4 KB
RevLine 
[7bf3856]1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _stmptr
38.globl _defptr
39.globl _patches
40.globl _defents
41.globl _seqtab
42.globl _seqflag
43.globl _seqline
44.globl _seqstim
45.globl _seqtime
46.globl _sregval
47.globl _trstate
48.globl _BakLine
49.globl _FwdLine
50.globl _obj8
51.globl _obj9
52.globl _obj10
53.globl _obj11
54.globl _LineBuf
55.globl _ScObAdr
56.globl _OldLine
57.globl _LineAtr
58.globl _CurLine
59.globl _CurScan
60.globl _ScrlObj
61.globl _SmScNsl
62.globl _PdScDnF
63.globl _PdScUpF
64.globl _ctcsw
65.globl _submenu
66.globl _cxval
67.globl _cg3
68.globl _seqflag
69.comm _seqflag,32
70.globl _seqline
71.comm _seqline,32
72.globl _seqstim
73.comm _seqstim,32
74.globl _seqtime
75.comm _seqtime,32
76.globl _sregval
77.comm _sregval,32
78.globl _trstate
79.comm _trstate,32
80.globl _seqtab
81.comm _seqtab,14000
82.globl _pthead
83.data
84_pthead:
85.dc.b $B0,$20,$44,$65,$66,$69,$6E,$65,$72,$20,$70,$20,$63,$68,$20,$53,$74,$6D,$75,$6C,$75,$73,$20,$70,$20,$63,$68,$20,$44,$65
86.dc.b $73,$74,$6E,$61,$74,$69,$6F,$6E,$20,$BD,$BE,$20,$44,$61,$74,$75,$6D,$20,$B0,$20,$4E,$6F,$20,$53,$65,$71,$20,$52,$67,$20
87.dc.b $54,$20,$B0,$0
88.globl _ptmcon
89.data
90_ptmcon:
91*line 53
92.dc.l L2
93*line 54
94.dc.l L3
95*line 55
96.dc.l L4
97*line 56
98.dc.l L5
99*line 58
100.dc.l L6
101.globl _ptabpal
102.data
103_ptabpal:
104.dc.w $0
105.dc.w $0
106.dc.w $0
107.dc.w $2
108.dc.w $3
109.dc.w $3
110.dc.w $0
111.dc.w $0
112.dc.w $1
113.dc.w $2
114.dc.w $0
115.dc.w $2
116.dc.w $0
117.dc.w $0
118.dc.w $3
119.dc.w $3
120.dc.w $0
121.dc.w $0
122.dc.w $3
123.dc.w $3
124.dc.w $0
125.dc.w $1
126.dc.w $2
127.dc.w $0
128.dc.w $0
129.dc.w $3
130.dc.w $3
131.dc.w $2
132.dc.w $2
133.dc.w $2
134.dc.w $0
135.dc.w $3
136.dc.w $0
137.dc.w $3
138.dc.w $1
139.dc.w $2
140.dc.w $0
141.dc.w $2
142.dc.w $3
143.dc.w $2
144.dc.w $0
145.dc.w $0
146.dc.w $1
147.dc.w $1
148.dc.w $2
149.dc.w $3
150.dc.w $3
151.dc.w $3
152.globl _ptwin
153.text
154_ptwin:
155~~ptwin:
156~n=8
157link R14,#-194
158movem.l R5-R7,-(sp)
159~i=R7
160~j=R6
161~atrbuf=-128
162~linbuf=-194
163*line 96
164*line 97
165clr R0
166move 10+_v_regs,R0
167and #384,R0
168beq L8
169*line 97
170clr (sp)
171jsr _vbank
172*line 98
173L8:
174*line 99
175move 8(R14),R0
176bra L10
177*line 100
178L11:
179*line 101
180*line 102
181*line 103
182*line 104
183*line 105
184move #63,(sp)
185move #177,-(sp)
186move.l R14,-(sp)
187add.l #-194,(sp)
188jsr _memset
189addq.l #6,sp
190*line 106
191move.b #186,-194(R14)
192*line 107
193move.b #183,-146(R14)
194*line 108
195move.b #187,-132(R14)
196*line 109
197clr.b -131(R14)
198*line 110
199*line 111
200move #63,(sp)
201move #226,-(sp)
202move.l R14,-(sp)
203add.l #-128,(sp)
204jsr _memsetw
205addq.l #6,sp
206*line 112
207clr -2(R14)
208*line 113
209*line 114
210move.l R14,(sp)
211add.l #-128,(sp)
212move.l R14,-(sp)
213add.l #-194,(sp)
214clr -(sp)
215clr -(sp)
216move.l _obj8,-(sp)
217jsr _vputsa
218adda.l #12,sp
219*line 115
220*line 116
221*line 117
222*line 118
223move #64,(sp)
224move #274,-(sp)
225move.l R14,-(sp)
226add.l #-128,(sp)
227jsr _memsetw
228addq.l #6,sp
229*line 119
230move #226,-128(R14)
231*line 120
232move #18,-126(R14)
233*line 121
234move #18,-100(R14)
235*line 122
236move #18,-74(R14)
237*line 123
238move #18,-46(R14)
239*line 124
240move #18,-34(R14)
241*line 125
242move #226,-32(R14)
243*line 126
244move #18,-30(R14)
245*line 127
246move #18,-24(R14)
247*line 128
248move #18,-16(R14)
249*line 129
250move #18,-10(R14)
251*line 130
252move #18,-6(R14)
253*line 131
254move #226,-4(R14)
255*line 132
256clr -2(R14)
257*line 133
258*line 134
259move.l R14,(sp)
260add.l #-128,(sp)
261move.l #_pthead,-(sp)
262clr -(sp)
263move #1,-(sp)
264move.l _obj8,-(sp)
265jsr _vputsa
266adda.l #12,sp
267*line 135
268*line 136
269*line 137
270*line 138
271*line 139
272move #63,(sp)
273move #177,-(sp)
274move.l R14,-(sp)
275add.l #-194,(sp)
276jsr _memset
277addq.l #6,sp
278*line 140
279move.b #182,-194(R14)
280*line 141
281move.b #181,-146(R14)
282*line 142
283move.b #180,-132(R14)
284*line 143
285clr.b -131(R14)
286*line 144
287*line 145
288move #63,(sp)
289move #226,-(sp)
290move.l R14,-(sp)
291add.l #-128,(sp)
292jsr _memsetw
293addq.l #6,sp
294*line 146
295clr -2(R14)
296*line 147
297*line 148
298move.l R14,(sp)
299add.l #-128,(sp)
300move.l R14,-(sp)
301add.l #-194,(sp)
302clr -(sp)
303clr -(sp)
304move.l _obj11,-(sp)
305jsr _vputsa
306adda.l #12,sp
307*line 149
308*line 150
309*line 151
310*line 152
311move #63,(sp)
312move #177,-(sp)
313move.l R14,-(sp)
314add.l #-194,(sp)
315jsr _memset
316addq.l #6,sp
317*line 153
318move.b #185,-194(R14)
319*line 154
320move.b #184,-132(R14)
321*line 155
322clr.b -131(R14)
323*line 156
324*line 157
325move #63,(sp)
326move #226,-(sp)
327move.l R14,-(sp)
328add.l #-128,(sp)
329jsr _memsetw
330addq.l #6,sp
331*line 158
332clr -2(R14)
333*line 159
334*line 160
335move.l R14,(sp)
336add.l #-128,(sp)
337move.l R14,-(sp)
338add.l #-194,(sp)
339clr -(sp)
340move #6,-(sp)
341move.l _obj11,-(sp)
342jsr _vputsa
343adda.l #12,sp
344*line 161
345bra L9
346*line 162
347*line 163
348*line 164
349L12:
350*line 165
351*line 166
352*line 167
353move #13,(sp)
354clr -(sp)
355jsr _SetDTop
356addq.l #2,sp
357*line 168
358*line 169
359clr R7
360bra L15
361L16:
362*line 170
363*line 171
364clr R6
365bra L19
366L20:
367*line 172
368move R6,R8
369add.l R14,R8
370move.b #32,-194(R8)
371L18:
372*line 171
373add #1,R6
374L19:
375*line 171
376cmp #47,R6
377blt L20
378L17:
379*line 172
380*line 173
381*line 174
382clr.b -147(R14)
383*line 175
384*line 176
385move #226,(sp)
386move.l #L21,-(sp)
387clr -(sp)
388move R7,-(sp)
389jsr _UpdVid
390addq.l #8,sp
391*line 177
392*line 178
393*line 179
394cmp #7,R7
395bne L10000
396move #18,(sp)
397bra L10002
398L10000:move #18,(sp)
399L10002:move.l R14,-(sp)
400add.l #-194,(sp)
401move #1,-(sp)
402move R7,-(sp)
403jsr _UpdVid
404addq.l #8,sp
405L14:
406*line 169
407add #1,R7
408L15:
409*line 169
410cmp #16,R7
411blt L16
412L13:
413*line 180
414*line 181
415*line 182
416jsr _dptw
417*line 183
418bra L9
419*line 184
420*line 185
421*line 186
422L22:
423*line 187
424*line 188
425*line 189
426clr R7
427bra L25
428L26:
429*line 190
430*line 191
431*line 192
432move R7,R8
433add.l R8,R8
434move.l #_trstate,R9
435move 0(R8,R9.l),(sp)
436move R7,R8
437add.l R8,R8
438move.l #_sregval,R9
439move 0(R8,R9.l),-(sp)
440move R7,R8
441add.l R8,R8
442move.l #_seqline,R9
443move 0(R8,R9.l),-(sp)
444move.l #L27,-(sp)
445move.l R14,-(sp)
446add.l #-194,(sp)
447jsr _sprintf
448adda.l #12,sp
449*line 193
450*line 194
451*line 195
452move.l #_cg3,(sp)
453move #14,-(sp)
454move #14,-(sp)
455move.l #L28,-(sp)
456clr -(sp)
457move R7,-(sp)
458move #2,-(sp)
459move #14,-(sp)
460move #16,-(sp)
461move.l _obj10,-(sp)
462jsr _vvputsv
463adda.l #22,sp
464*line 196
465*line 197
466*line 198
467move.l #_cg3,(sp)
468move #14,-(sp)
469move #14,-(sp)
470move.l R14,-(sp)
471add.l #-194,(sp)
472move #1,-(sp)
473move R7,-(sp)
474move #2,-(sp)
475move #1,-(sp)
476move #16,-(sp)
477move.l _obj10,-(sp)
478jsr _vvputsv
479adda.l #22,sp
480*line 199
481*line 200
482*line 201
483move.l #_cg3,(sp)
484move #14,-(sp)
485move #14,-(sp)
486move.l #L29,-(sp)
487move #14,-(sp)
488move R7,-(sp)
489move #2,-(sp)
490move #14,-(sp)
491move #16,-(sp)
492move.l _obj10,-(sp)
493jsr _vvputsv
494adda.l #22,sp
495*line 202
496*line 203
497*line 203
498cmp #7,R7
499bne L30
500*line 204
501*line 205
502*line 205
503move _cxval,R0
504asr #3,R0
505cmp #48,R0
506bne L31
507*line 206
508*line 207
509*line 208
510move.l #_cg3,(sp)
511move #14,-(sp)
512move #14,-(sp)
513move.l #L32,-(sp)
514clr -(sp)
515move R7,-(sp)
516move #6,-(sp)
517move #16,-(sp)
518move.l _obj10,-(sp)
519jsr _vsplot4
520adda.l #20,sp
521*line 209
522bra L33
523L31:
524*line 210
525*line 211
526*line 212
527*line 213
528move.l #_cg3,(sp)
529move #14,-(sp)
530move #14,-(sp)
531move.l #L34,-(sp)
532clr -(sp)
533move R7,-(sp)
534move #6,-(sp)
535move #16,-(sp)
536move.l _obj10,-(sp)
537jsr _vsplot4
538adda.l #20,sp
539L33:
540*line 214
541*line 215
542*line 216
543L30:
544*line 217
545move R7,(sp)
546add #1,(sp)
547move.l #L35,-(sp)
548move.l R14,-(sp)
549add.l #-194,(sp)
550jsr _sprintf
551addq.l #8,sp
552*line 218
553*line 219
554*line 220
555*line 221
556move.l #_cg3,(sp)
557move #14,-(sp)
558move #14,-(sp)
559move.l R14,-(sp)
560add.l #-194,(sp)
561move #2,-(sp)
562move R7,-(sp)
563move #2,-(sp)
564move R7,R8
565add.l R8,R8
566move.l #_seqflag,R9
567clr R0
568move 0(R8,R9.l),R0
569and #-32768,R0
570beq L10003
571move #6,-(sp)
572bra L10005
573L10003:move #1,-(sp)
574L10005:move #16,-(sp)
575move.l _obj10,-(sp)
576jsr _vvputsv
577adda.l #22,sp
578L24:
579*line 189
580add #1,R7
581L25:
582*line 189
583cmp #16,R7
584blt L26
585L23:
586*line 222
587*line 223
588bra L9
589*line 224
590*line 225
591L36:
592*line 226
593*line 227
594*line 228
595move #64,(sp)
596move #146,-(sp)
597move.l R14,-(sp)
598add.l #-128,(sp)
599jsr _memsetw
600addq.l #6,sp
601*line 229
602move #226,-128(R14)
603*line 230
604move #226,-4(R14)
605*line 231
606clr -2(R14)
607*line 232
608*line 233
609clr R7
610bra L39
611L40:
612*line 234
613move.l R14,(sp)
614add.l #-128,(sp)
615move R7,R8
616add.l R8,R8
617add.l R8,R8
618move.l #_ptmcon,R9
619move.l 0(R8,R9.l),-(sp)
620clr -(sp)
621move R7,-(sp)
622add #1,(sp)
623move.l _obj11,-(sp)
624jsr _vputsa
625adda.l #12,sp
626L38:
627*line 233
628add #1,R7
629L39:
630*line 233
631cmp #5,R7
632blt L40
633L37:
634*line 234
635*line 235
636bra L9
637*line 236
638bra L9
639L10:tst R0
640beq L11
641cmp #1,R0
642beq L12
643cmp #2,R0
644beq L22
645cmp #3,R0
646beq L36
647bra L9
648L9:L7:tst.l (sp)+
649movem.l (sp)+,R6-R7
650unlk R14
651rts
652.globl _ptwins
653.text
654_ptwins:
655~~ptwins:
656link R14,#0
657movem.l R6-R7,-(sp)
658~i=R7
659*line 253
660clr R7
661bra L44
662L45:
663*line 254
664move R7,(sp)
665jsr _ptwin
666L43:
667*line 253
668add #1,R7
669L44:
670*line 253
671cmp #4,R7
672blt L45
673L42:L41:tst.l (sp)+
674movem.l (sp)+,R7-R7
675unlk R14
676rts
677.globl _ptdisp
678.text
679_ptdisp:
680~~ptdisp:
681link R14,#-4
682*line 265
683jsr _dswap
684*line 267
685move.l #_LineBak,_BakLine
686*line 268
687move.l #_LineFwd,_FwdLine
688*line 272
689move.l #_v_score,_obj8
690*line 273
691move.l #2048+_v_score,_obj9
692*line 274
693move.l #16384+_v_score,_obj10
694*line 275
695move.l #8192+_v_score,_obj11
696*line 277
697move #9,_ScrlObj
698*line 278
699move.l _obj9,_ScObAdr
700*line 279
701move.l _obj9,_LineBuf
702*line 280
703clr.l _OldLine
704*line 281
705move #18,_LineAtr
706*line 283
707clr _CurLine
708*line 284
709move #13,_CurScan
710*line 286
711clr _PdScDnF
712*line 287
713clr _PdScUpF
714*line 292
715move #-1,(sp)
716move #72,-(sp)
717clr -(sp)
718clr -(sp)
719move #28,-(sp)
720move #512,-(sp)
721move.l _obj8,-(sp)
722clr -(sp)
723move #1,-(sp)
724move #8,-(sp)
725jsr _SetObj
726adda.l #20,sp
727*line 293
728move #-1,(sp)
729move #72,-(sp)
730move #28,-(sp)
731clr -(sp)
732move #224,-(sp)
733move #384,-(sp)
734move.l _obj9,-(sp)
735clr -(sp)
736move #1,-(sp)
737move #9,-(sp)
738jsr _SetObj
739adda.l #20,sp
740*line 294
741move #-1,(sp)
742move #1536,-(sp)
743move #28,-(sp)
744move #384,-(sp)
745move #224,-(sp)
746move #128,-(sp)
747move.l _obj10,-(sp)
748clr -(sp)
749clr -(sp)
750move #10,-(sp)
751jsr _SetObj
752adda.l #20,sp
753*line 295
754move #-1,(sp)
755move #72,-(sp)
756move #252,-(sp)
757clr -(sp)
758move #98,-(sp)
759move #512,-(sp)
760move.l _obj11,-(sp)
761clr -(sp)
762move #1,-(sp)
763move #11,-(sp)
764jsr _SetObj
765adda.l #20,sp
766*line 297
767*line 298
768clr R0
769move 10+_v_regs,R0
770and #384,R0
771beq L47
772*line 298
773clr (sp)
774jsr _vbank
775*line 299
776L47:
777*line 300
778move #32767,(sp)
779clr -(sp)
780move.l #_v_score,-(sp)
781jsr _memsetw
782addq.l #6,sp
783*line 301
784move #24577,(sp)
785clr -(sp)
786move.l #65534+_v_score,-(sp)
787jsr _memsetw
788addq.l #6,sp
789*line 303
790jsr _voidpb
791*line 304
792jsr _ptwins
793*line 310
794move #8,(sp)
795move #8,-(sp)
796jsr _SetPri
797addq.l #2,sp
798*line 311
799move #9,(sp)
800move #9,-(sp)
801jsr _SetPri
802addq.l #2,sp
803*line 312
804move #10,(sp)
805move #10,-(sp)
806jsr _SetPri
807addq.l #2,sp
808*line 313
809move #11,(sp)
810move #11,-(sp)
811jsr _SetPri
812addq.l #2,sp
813*line 315
814*line 316
815clr R0
816move 10+_v_regs,R0
817and #384,R0
818beq L48
819*line 316
820clr (sp)
821jsr _vbank
822*line 317
823L48:
824*line 318
825move #3584,(sp)
826move.l #_cg3,-(sp)
827move.l #_v_cgtab,-(sp)
828jsr _memcpyw
829addq.l #8,sp
830*line 319
831clr R0
832move 2+_v_regs,R0
833and #4095,R0
834or #-8192,R0
835move R0,2+_v_regs
836*line 323
837clr R0
838move 64+_v_odtab,R0
839and #4095,R0
840or #-12288,R0
841move R0,64+_v_odtab
842*line 324
843clr R0
844move 72+_v_odtab,R0
845and #4095,R0
846or #-12288,R0
847move R0,72+_v_odtab
848*line 326
849clr R0
850move 88+_v_odtab,R0
851and #4095,R0
852or #-12288,R0
853move R0,88+_v_odtab
854*line 328
855clr _submenu
856*line 330
857move #1,_ctcsw
858*line 331
859move #2,(sp)
860move #9,-(sp)
861jsr _ctcpos
862addq.l #2,sp
863*line 332
864jsr _aftercm
865*line 334
866move.l #_ptabpal,(sp)
867jsr _vsndpal
868L46:unlk R14
869rts
870.data
871L2:.dc.b $B0,$20,$4B,$65,$79,$20,$20,$53,$65,$71,$4C,$69,$6E,$20,$20,$49,$6E,$73,$74,$72,$20,$20,$49,$6E,$64,$65,$78,$20,$20,$4C
872.dc.b $65,$76,$65,$6C,$20,$20,$56,$20,$4F,$75,$74,$20,$20,$53,$72,$63,$65,$20,$20,$50,$63,$68,$57,$68,$20,$20,$50,$69,$74,$63
873.dc.b $68,$20,$B0,$0
874L3:.dc.b $B0,$20,$52,$65,$6C,$20,$20,$53,$65,$71,$43,$74,$6C,$20,$20,$4F,$73,$63,$20,$20,$20,$20,$46,$72,$65,$71,$20,$20,$20,$4C
875.dc.b $6F,$63,$74,$6E,$20,$20,$44,$65,$70,$74,$68,$20,$20,$4D,$75,$6C,$74,$20,$20,$4D,$6F,$64,$57,$68,$20,$20,$46,$72,$65,$71
876.dc.b $20,$20,$B0,$0
877L4:.dc.b $B0,$20,$54,$72,$67,$20,$20,$54,$75,$6E,$69,$6E,$67,$20,$20,$57,$61,$76,$65,$41,$20,$20,$50,$69,$74,$63,$68,$20,$20,$46
878.dc.b $69,$6C,$74,$72,$20,$20,$52,$61,$74,$65,$20,$20,$20,$54,$69,$6D,$65,$20,$20,$42,$72,$65,$74,$68,$20,$20,$4B,$65,$79,$56
879.dc.b $6C,$20,$B0,$0
880L5:.dc.b $B0,$20,$50,$6C,$73,$20,$20,$52,$65,$67,$53,$65,$74,$20,$20,$57,$61,$76,$65,$42,$20,$20,$49,$6E,$74,$76,$6C,$20,$20,$46
881.dc.b $69,$6C,$20,$51,$20,$20,$49,$6E,$74,$65,$6E,$20,$20,$56,$61,$6C,$75,$20,$20,$50,$65,$64,$61,$6C,$20,$20,$4B,$65,$79,$50
882.dc.b $72,$20,$B0,$0
883L6:.dc.b $B0,$20,$4C,$45,$44,$20,$20,$52,$65,$67,$41,$64,$64,$20,$20,$43,$6F,$6E,$66,$67,$20,$20,$52,$61,$74,$69,$6F,$20,$20,$44
884.dc.b $79,$6E,$6D,$63,$20,$20,$41,$75,$78,$20,$20,$20,$20,$46,$75,$6E,$63,$20,$20,$47,$50,$43,$2F,$56,$20,$20,$52,$61,$6E,$64
885.dc.b $6D,$20,$B0,$0
886L21:.dc.b $B0,$0
887L27:.dc.b $20,$20,$20,$20,$25,$30,$33,$64,$20,$25,$30,$32,$64,$20,$25,$64,$20,$0
888L28:.dc.b $B0,$0
889L29:.dc.b $B0,$0
890L32:.dc.b $BF,$0
891L34:.dc.b $BC,$0
892L35:.dc.b $25,$30,$32,$64,$0
Note: See TracBrowser for help on using the repository browser.