source: buchla-68k/alcyon/smscrl.s@ 4b63bf3

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 18.4 KB
Line 
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 _cmtype
49.globl _ctcsw
50.globl _curslin
51.globl _cxrate
52.globl _cxval
53.globl _cyrate
54.globl _cyval
55.globl _ptecpos
56.globl _pteset
57.globl _sqdeflg
58.globl _stccol
59.globl _submenu
60.globl _vtccol
61.globl _vtcrow
62.globl _vtxval
63.globl _vtyval
64.globl _obj10
65.globl _cg3
66.globl _ptdebuf
67.globl _sqdebuf
68.globl _ptebuf
69.globl _patches
70.globl _seqbuf
71.globl _seqtab
72.globl _TheBuf
73.comm _TheBuf,66
74.globl _BakLine
75.comm _BakLine,4
76.globl _FwdLine
77.comm _FwdLine,4
78.globl _PdScDnF
79.comm _PdScDnF,2
80.globl _PdScUpF
81.comm _PdScUpF,2
82.globl _CurLine
83.comm _CurLine,2
84.globl _CurScan
85.comm _CurScan,2
86.globl _DupLine
87.comm _DupLine,2
88.globl _ScrlObj
89.comm _ScrlObj,2
90.globl _LinePtr
91.comm _LinePtr,4
92.globl _LineAtr
93.comm _LineAtr,2
94.globl _LineBuf
95.comm _LineBuf,4
96.globl _OldLine
97.comm _OldLine,4
98.globl _ScObAdr
99.comm _ScObAdr,4
100.globl _LineCon
101.data
102_LineCon:
103.dc.w $90
104.globl _LineLen
105.data
106_LineLen:
107.dc.w $30
108.globl _SmScLim
109.data
110_SmScLim:
111.dc.w $12
112.globl _SmScNsl
113.data
114_SmScNsl:
115.dc.w $10
116.globl _SmScTop
117.data
118_SmScTop:
119.dc.w $22
120.globl _LineFwd
121.text
122_LineFwd:
123~~LineFwd:
124link R14,#0
125movem.l R5-R7,-(sp)
126~j=R7
127~k=R6
128*line 101
129clr R7
130bra L4
131L5:
132*line 102
133move R7,R8
134add.l #_TheBuf,R8
135move.b #32,(R8)
136L3:
137*line 101
138add #1,R7
139L4:
140*line 101
141cmp #48,R7
142blt L5
143L2:
144*line 104
145move.b #176,_TheBuf
146*line 105
147clr.b 48+_TheBuf
148*line 107
149*line 108
150tst _ptecpos
151bne L6
152*line 108
153clr.l R0
154bra L1
155*line 109
156L6:
157*line 110
158*line 111
159move _ptecpos,(sp)
160jsr _findnxt
161move R0,R7
162tst R7
163bne L7
164*line 111
165clr.l R0
166bra L1
167*line 112
168L7:
169*line 113
170move R7,_ptecpos
171*line 115
172move #6,(sp)
173move _ptecpos,R0
174asl #4,R0
175ext.l R0
176add.l #_patches,R0
177move.l R0,-(sp)
178add.l #4,(sp)
179move.l #4+_ptebuf,-(sp)
180jsr _memcpyw
181addq.l #8,sp
182*line 116
183move #1,_pteset
184*line 117
185jsr _pte2buf
186*line 119
187move _ptecpos,R6
188*line 121
189clr R7
190bra L10
191L11:
192*line 122
193*line 123
194move R6,(sp)
195jsr _findnxt
196move R0,R6
197tst R6
198bne L12
199*line 123
200move.l #_TheBuf,R0
201bra L1
202*line 124
203L12:L9:
204*line 121
205add #1,R7
206L10:
207*line 121
208cmp #8,R7
209blt L11
210L8:
211*line 125
212move R6,R0
213asl #4,R0
214ext.l R0
215move.l R0,R8
216move.l #_patches,R9
217move 4(R8,R9.l),(sp)
218move.l #2+_TheBuf,-(sp)
219jsr _dspdfst
220addq.l #4,sp
221*line 126
222move R6,R0
223asl #4,R0
224ext.l R0
225move.l R0,R8
226move.l #_patches,R9
227move 6(R8,R9.l),(sp)
228move.l #15+_TheBuf,-(sp)
229jsr _dspdfst
230addq.l #4,sp
231*line 127
232move R6,R0
233asl #4,R0
234ext.l R0
235add.l #_patches,R0
236move.l R0,(sp)
237move.l #28+_TheBuf,-(sp)
238jsr _dspdest
239addq.l #4,sp
240*line 129
241clr R7
242bra L15
243L16:
244*line 130
245*line 131
246move R7,R8
247add.l #_TheBuf,R8
248tst.b (R8)
249bne L17
250*line 131
251move R7,R8
252add.l #_TheBuf,R8
253move.b #32,(R8)
254*line 132
255L17:L14:
256*line 129
257add #1,R7
258L15:
259*line 129
260cmp #50,R7
261blt L16
262L13:
263*line 133
264clr.b 48+_TheBuf
265*line 134
266move.l #_TheBuf,R0
267bra L1
268L1:tst.l (sp)+
269movem.l (sp)+,R6-R7
270unlk R14
271rts
272.globl _LineBak
273.text
274_LineBak:
275~~LineBak:
276link R14,#0
277movem.l R5-R7,-(sp)
278~j=R7
279~k=R6
280*line 151
281clr R7
282bra L21
283L22:
284*line 152
285move R7,R8
286add.l #_TheBuf,R8
287move.b #32,(R8)
288L20:
289*line 151
290add #1,R7
291L21:
292*line 151
293cmp #48,R7
294blt L22
295L19:
296*line 154
297move.b #176,_TheBuf
298*line 155
299clr.b 48+_TheBuf
300*line 157
301*line 158
302tst _ptecpos
303bne L23
304*line 158
305clr.l R0
306bra L18
307*line 159
308L23:
309*line 160
310*line 161
311move _ptecpos,(sp)
312jsr _findprv
313move R0,R7
314tst R7
315bne L24
316*line 161
317clr.l R0
318bra L18
319*line 162
320L24:
321*line 163
322move R7,_ptecpos
323*line 165
324move #6,(sp)
325move _ptecpos,R0
326asl #4,R0
327ext.l R0
328add.l #_patches,R0
329move.l R0,-(sp)
330add.l #4,(sp)
331move.l #4+_ptebuf,-(sp)
332jsr _memcpyw
333addq.l #8,sp
334*line 166
335move #1,_pteset
336*line 167
337jsr _pte2buf
338*line 169
339move _ptecpos,R6
340*line 171
341clr R7
342bra L27
343L28:
344*line 172
345*line 173
346move R6,(sp)
347jsr _findprv
348move R0,R6
349tst R6
350bne L29
351*line 173
352move.l #_TheBuf,R0
353bra L18
354*line 174
355L29:L26:
356*line 171
357add #1,R7
358L27:
359*line 171
360cmp #7,R7
361blt L28
362L25:
363*line 175
364move R6,R0
365asl #4,R0
366ext.l R0
367move.l R0,R8
368move.l #_patches,R9
369move 4(R8,R9.l),(sp)
370move.l #2+_TheBuf,-(sp)
371jsr _dspdfst
372addq.l #4,sp
373*line 176
374move R6,R0
375asl #4,R0
376ext.l R0
377move.l R0,R8
378move.l #_patches,R9
379move 6(R8,R9.l),(sp)
380move.l #15+_TheBuf,-(sp)
381jsr _dspdfst
382addq.l #4,sp
383*line 177
384move R6,R0
385asl #4,R0
386ext.l R0
387add.l #_patches,R0
388move.l R0,(sp)
389move.l #28+_TheBuf,-(sp)
390jsr _dspdest
391addq.l #4,sp
392*line 179
393clr R7
394bra L32
395L33:
396*line 180
397*line 181
398move R7,R8
399add.l #_TheBuf,R8
400tst.b (R8)
401bne L34
402*line 181
403move R7,R8
404add.l #_TheBuf,R8
405move.b #32,(R8)
406*line 182
407L34:L31:
408*line 179
409add #1,R7
410L32:
411*line 179
412cmp #50,R7
413blt L33
414L30:
415*line 183
416clr.b 48+_TheBuf
417*line 184
418move.l #_TheBuf,R0
419bra L18
420L18:tst.l (sp)+
421movem.l (sp)+,R6-R7
422unlk R14
423rts
424.globl _WrVideo
425.text
426_WrVideo:
427~~WrVideo:
428~row=R7
429~col=R6
430~str=R13
431~atr=R5
432link R14,#0
433movem.l R3-R7/R13-R13,-(sp)
434~chr=R4
435*line 203
436move 8(R14),R7
437*line 203
438move 10(R14),R6
439*line 203
440move.l 12(R14),R13
441*line 203
442move 16(R14),R5
443*line 203
444*line 204
445clr R0
446move 10+_v_regs,R0
447and #384,R0
448beq L36
449*line 204
450clr (sp)
451jsr _vbank
452*line 205
453L36:
454*line 206
455bra L39
456L38:
457*line 207
458*line 208
459*line 209
460move _LineLen,(sp)
461tst R6
462bne L10000
463move #226,-(sp)
464bra L10002
465L10000:move R5,-(sp)
466L10002:move.b R4,R0
467ext.w R0
468move R0,-(sp)
469move R6,-(sp)
470move R7,-(sp)
471move.l _ScObAdr,-(sp)
472jsr _vputcv
473adda.l #12,sp
474*line 210
475*line 211
476add #1,R6
477L39:
478*line 212
479move.b (R13)+,R4
480bne L38
481L37:L35:tst.l (sp)+
482movem.l (sp)+,R4-R7/R13-R13
483unlk R14
484rts
485.globl _SetDTop
486.text
487_SetDTop:
488~~SetDTop:
489~row=8
490~scan=10
491link R14,#-4
492*line 227
493*line 228
494clr R0
495move 10+_v_regs,R0
496and #384,R0
497beq L41
498*line 228
499clr (sp)
500jsr _vbank
501*line 229
502L41:
503*line 230
504move 8(R14),R0
505muls _LineCon,R0
506ext.l R0
507add.l _ScObAdr,R0
508move.l R0,_LineBuf
509*line 232
510*line 233
511move.l _OldLine,R0
512cmp.l _LineBuf,R0
513beq L42
514*line 233
515move.l _LineBuf,R0
516asr.l #1,R0
517move _ScrlObj,R1
518asl #3,R1
519ext.l R1
520add.l #_v_odtab,R1
521move.l R1,R9
522move R0,4(R9)
523*line 234
524L42:
525*line 235
526move.l _LineBuf,_OldLine
527*line 237
528move _ScrlObj,R0
529asl #3,R0
530ext.l R0
531move.l R0,R8
532move.l #_v_odtab,R9
533clr R0
534move 0(R8,R9.l),R0
535and #4095,R0
536move 10(R14),R1
537move #12,R2
538asl R2,R1
539or R1,R0
540move _ScrlObj,R1
541asl #3,R1
542ext.l R1
543add.l #_v_odtab,R1
544move.l R1,R9
545move R0,(R9)
546L40:unlk R14
547rts
548.globl _UpdVid
549.text
550_UpdVid:
551~~UpdVid:
552~row=8
553~col=10
554~str=12
555~atr=16
556link R14,#-4
557*line 254
558move 16(R14),(sp)
559move.l 12(R14),-(sp)
560move 10(R14),-(sp)
561move _CurLine,-(sp)
562move 8(R14),R0
563add R0,(sp)
564jsr _WrVideo
565addq.l #8,sp
566*line 256
567move _CurLine,R0
568add _SmScNsl,R0
569add 8(R14),R0
570add #2,R0
571move R0,_DupLine
572*line 258
573*line 259
574move _DupLine,R0
575cmp _SmScTop,R0
576bge L44
577*line 259
578move #18,(sp)
579move.l 12(R14),-(sp)
580move 10(R14),-(sp)
581move _DupLine,-(sp)
582jsr _WrVideo
583addq.l #8,sp
584*line 260
585L44:
586*line 261
587move _CurLine,R0
588sub _SmScNsl,R0
589add 8(R14),R0
590sub #2,R0
591move R0,_DupLine
592*line 263
593*line 264
594tst _DupLine
595blt L45
596*line 264
597move #18,(sp)
598move.l 12(R14),-(sp)
599move 10(R14),-(sp)
600move _DupLine,-(sp)
601jsr _WrVideo
602addq.l #8,sp
603L45:L43:unlk R14
604rts
605.globl _bgncm
606.text
607_bgncm:
608~~bgncm:
609link R14,#0
610movem.l R6-R7,-(sp)
611~j=R7
612*line 280
613move #6,(sp)
614move _ptecpos,R0
615asl #4,R0
616ext.l R0
617add.l #_patches,R0
618move.l R0,-(sp)
619add.l #4,(sp)
620move.l #4+_ptebuf,-(sp)
621jsr _memcpyw
622addq.l #8,sp
623*line 281
624move #1,_pteset
625*line 282
626jsr _pte2buf
627*line 284
628move #48,(sp)
629move.l #_ptdebuf,-(sp)
630move.l #_TheBuf,-(sp)
631jsr _memcpy
632addq.l #8,sp
633*line 286
634clr R7
635bra L49
636L50:
637*line 287
638*line 288
639move R7,R8
640add.l #_TheBuf,R8
641tst.b (R8)
642bne L51
643*line 288
644move R7,R8
645add.l #_TheBuf,R8
646move.b #32,(R8)
647*line 289
648L51:L48:
649*line 286
650add #1,R7
651L49:
652*line 286
653cmp #50,R7
654blt L50
655L47:
656*line 290
657move.b #176,_TheBuf
658*line 291
659move.b #32,1+_TheBuf
660*line 292
661clr.b 48+_TheBuf
662*line 294
663move #18,(sp)
664move.l #_TheBuf,-(sp)
665clr -(sp)
666move #7,-(sp)
667jsr _UpdVid
668addq.l #8,sp
669*line 295
670jsr _ctcoff
671L46:tst.l (sp)+
672movem.l (sp)+,R7-R7
673unlk R14
674rts
675.globl _stopcm
676.text
677_stopcm:
678~~stopcm:
679link R14,#0
680movem.l R6-R7,-(sp)
681~i=R7
682*line 311
683*line 312
684tst _PdScDnF
685beq L53
686*line 312
687move #13,R0
688move R0,_CurScan
689move R0,(sp)
690move _CurLine,-(sp)
691jsr _SetDTop
692addq.l #2,sp
693bra L54
694L53:
695*line 313
696*line 314
697tst _PdScUpF
698beq L55
699*line 314
700move #13,R0
701move R0,_CurScan
702move R0,(sp)
703add #1,_CurLine
704move _CurLine,-(sp)
705jsr _SetDTop
706addq.l #2,sp
707*line 315
708L55:L54:
709*line 316
710*line 316
711tst _ctcsw
712bne L56
713*line 317
714*line 318
715*line 318
716tst _ptecpos
717beq L57
718*line 319
719*line 320
720*line 321
721*line 322
722move #6,(sp)
723move _ptecpos,R0
724asl #4,R0
725ext.l R0
726add.l #_patches,R0
727move.l R0,-(sp)
728add.l #4,(sp)
729move.l #4+_ptebuf,-(sp)
730jsr _memcpyw
731addq.l #8,sp
732*line 323
733move #1,_pteset
734*line 324
735jsr _pte2buf
736*line 325
737jsr _setptcv
738*line 326
739bra L58
740L57:
741*line 327
742*line 328
743*line 329
744jsr _voidpb
745L58:
746*line 330
747*line 331
748*line 332
749L56:
750*line 333
751jsr _ctcon
752*line 335
753clr _PdScDnF
754*line 336
755clr _PdScUpF
756L52:tst.l (sp)+
757movem.l (sp)+,R7-R7
758unlk R14
759rts
760.globl _stopsm
761.text
762_stopsm:
763~~stopsm:
764link R14,#0
765movem.l R6-R7,-(sp)
766~i=R7
767*line 352
768*line 353
769tst _PdScDnF
770beq L60
771*line 353
772move #13,R0
773move R0,_CurScan
774move R0,(sp)
775move _CurLine,-(sp)
776jsr _SetDTop
777addq.l #2,sp
778bra L61
779L60:
780*line 354
781*line 355
782tst _PdScUpF
783beq L62
784*line 355
785move #13,R0
786move R0,_CurScan
787move R0,(sp)
788add #1,_CurLine
789move _CurLine,-(sp)
790jsr _SetDTop
791addq.l #2,sp
792*line 356
793L62:L61:
794*line 357
795move #7,(sp)
796move _curslin,R0
797muls #14,R0
798add.l #_seqtab,R0
799move.l R0,-(sp)
800move.l #_seqbuf,-(sp)
801jsr _memcpyw
802addq.l #8,sp
803*line 358
804move _curslin,(sp)
805move.l #_sqdebuf,-(sp)
806jsr _dsqlin
807addq.l #4,sp
808*line 359
809move #1,_sqdeflg
810*line 360
811jsr _ctcon
812*line 362
813clr _PdScDnF
814*line 363
815clr _PdScUpF
816L59:tst.l (sp)+
817movem.l (sp)+,R7-R7
818unlk R14
819rts
820.globl _smscrl
821.text
822_smscrl:
823~~smscrl:
824link R14,#-4
825*line 377
826*line 377
827tst _PdScUpF
828beq L64
829*line 378
830*line 379
831*line 379
832cmp #13,_CurScan
833bne L65
834*line 380
835*line 381
836*line 381
837move.l _FwdLine,R8
838jsr (R8)
839move.l R0,_LinePtr
840beq L66
841*line 382
842*line 383
843*line 383
844move _CurLine,R0
845cmp _SmScLim,R0
846bne L67
847*line 384
848*line 385
849*line 386
850*line 387
851move _LineAtr,(sp)
852move.l _LinePtr,-(sp)
853clr -(sp)
854move _SmScNsl,-(sp)
855jsr _WrVideo
856addq.l #8,sp
857*line 388
858*line 389
859*line 390
860*line 391
861move #13,R0
862move R0,_CurScan
863move R0,(sp)
864clr R0
865move R0,_CurLine
866move R0,-(sp)
867jsr _SetDTop
868addq.l #2,sp
869*line 392
870bra L68
871L67:
872*line 393
873*line 394
874*line 395
875*line 396
876*line 397
877move _LineAtr,(sp)
878move.l _LinePtr,-(sp)
879clr -(sp)
880move _CurLine,-(sp)
881move _SmScNsl,R0
882add R0,(sp)
883jsr _WrVideo
884addq.l #8,sp
885*line 398
886*line 399
887*line 400
888*line 401
889move _CurLine,R0
890sub #2,R0
891move R0,_DupLine
892*line 402
893*line 403
894*line 404
895tst _DupLine
896blt L69
897*line 404
898move _LineAtr,(sp)
899move.l _LinePtr,-(sp)
900clr -(sp)
901move _DupLine,-(sp)
902jsr _WrVideo
903addq.l #8,sp
904L69:L68:
905*line 405
906*line 406
907*line 407
908*line 408
909*line 409
910sub #1,_CurScan
911move _CurScan,(sp)
912move _CurLine,-(sp)
913jsr _SetDTop
914addq.l #2,sp
915*line 410
916*line 411
917L66:bra L70
918L65:
919*line 412
920*line 413
921*line 414
922*line 415
923tst _CurScan
924bne L71
925*line 415
926move #13,R0
927move R0,_CurScan
928move R0,(sp)
929add #1,_CurLine
930move _CurLine,-(sp)
931jsr _SetDTop
932addq.l #2,sp
933*line 416
934bra L72
935L71:
936*line 417
937sub #1,_CurScan
938move _CurScan,(sp)
939move _CurLine,-(sp)
940jsr _SetDTop
941addq.l #2,sp
942L72:L70:
943*line 418
944*line 419
945*line 420
946bra L73
947L64:
948*line 421
949*line 421
950tst _PdScDnF
951beq L74
952*line 422
953*line 423
954*line 423
955cmp #13,_CurScan
956bne L75
957*line 424
958*line 425
959*line 425
960move.l _BakLine,R8
961jsr (R8)
962move.l R0,_LinePtr
963beq L76
964*line 426
965*line 427
966*line 427
967tst _CurLine
968bne L77
969*line 428
970*line 429
971*line 430
972*line 431
973move _LineAtr,(sp)
974move.l _LinePtr,-(sp)
975clr -(sp)
976move _SmScLim,-(sp)
977sub #1,(sp)
978jsr _WrVideo
979addq.l #8,sp
980*line 432
981*line 433
982*line 434
983*line 435
984clr R0
985move R0,_CurScan
986move R0,(sp)
987move _SmScLim,R0
988sub #1,R0
989move R0,_CurLine
990move R0,-(sp)
991jsr _SetDTop
992addq.l #2,sp
993*line 436
994bra L78
995L77:
996*line 437
997*line 438
998*line 439
999*line 440
1000*line 441
1001move _LineAtr,(sp)
1002move.l _LinePtr,-(sp)
1003clr -(sp)
1004move _CurLine,-(sp)
1005sub #1,(sp)
1006jsr _WrVideo
1007addq.l #8,sp
1008*line 442
1009*line 443
1010*line 444
1011*line 445
1012move _CurLine,R0
1013add _SmScNsl,R0
1014add #1,R0
1015move R0,_DupLine
1016*line 446
1017*line 447
1018*line 448
1019move _DupLine,R0
1020cmp _SmScTop,R0
1021bge L79
1022*line 448
1023move _LineAtr,(sp)
1024move.l _LinePtr,-(sp)
1025clr -(sp)
1026move _DupLine,-(sp)
1027jsr _WrVideo
1028addq.l #8,sp
1029*line 449
1030*line 450
1031*line 451
1032L79:
1033*line 452
1034clr R0
1035move R0,_CurScan
1036move R0,(sp)
1037sub #1,_CurLine
1038move _CurLine,-(sp)
1039jsr _SetDTop
1040addq.l #2,sp
1041L78:
1042*line 453
1043*line 454
1044*line 455
1045L76:bra L80
1046L75:
1047*line 456
1048*line 457
1049*line 458
1050*line 459
1051cmp #13,_CurScan
1052beq L81
1053*line 459
1054add #1,_CurScan
1055move _CurScan,(sp)
1056move _CurLine,-(sp)
1057jsr _SetDTop
1058addq.l #2,sp
1059L81:L80:
1060*line 460
1061*line 461
1062L74:L73:L63:unlk R14
1063rts
1064.globl _smxupd
1065.text
1066_smxupd:
1067~~smxupd:
1068link R14,#-6
1069~oldcx=-2
1070*line 477
1071move _cxval,-2(R14)
1072*line 479
1073*line 479
1074tst _submenu
1075beq L83
1076*line 480
1077*line 481
1078move _cxrate,R0
1079add R0,_vtxval
1080move _vtxval,R0
1081asr #3,R0
1082move R0,_vtccol
1083*line 482
1084*line 483
1085*line 484
1086cmp #60,_vtccol
1087ble L84
1088*line 484
1089move #60,R0
1090move R0,_vtccol
1091asl #3,R0
1092move R0,_vtxval
1093bra L85
1094L84:
1095*line 485
1096*line 486
1097cmp #2,_vtccol
1098bge L86
1099*line 486
1100move #2,R0
1101move R0,_vtccol
1102asl #3,R0
1103move R0,_vtxval
1104*line 487
1105L86:L85:bra L87
1106L83:
1107*line 488
1108*line 489
1109*line 490
1110move _cxrate,R0
1111add R0,_cxval
1112*line 491
1113*line 492
1114*line 493
1115cmp #384,_cxval
1116ble L88
1117*line 493
1118move #384,_cxval
1119bra L89
1120L88:
1121*line 494
1122*line 495
1123cmp #16,_cxval
1124bge L90
1125*line 495
1126move #16,_cxval
1127*line 496
1128L90:L89:
1129*line 497
1130*line 498
1131move _cxval,R0
1132cmp -2(R14),R0
1133beq L82
1134*line 499
1135*line 500
1136*line 500
1137move _cxval,R0
1138asr #3,R0
1139cmp #47,R0
1140bne L91
1141*line 501
1142*line 502
1143*line 503
1144clr R0
1145move 10+_v_regs,R0
1146and #384,R0
1147beq L92
1148*line 503
1149clr (sp)
1150jsr _vbank
1151*line 504
1152L92:
1153*line 505
1154*line 506
1155move.l #_cg3,(sp)
1156move #14,-(sp)
1157move #14,-(sp)
1158move.l #L93,-(sp)
1159clr -(sp)
1160move #7,-(sp)
1161move #2,-(sp)
1162move #14,-(sp)
1163move #16,-(sp)
1164move.l _obj10,-(sp)
1165jsr _vvputsv
1166adda.l #22,sp
1167*line 507
1168*line 508
1169*line 509
1170move.l #_cg3,(sp)
1171move #14,-(sp)
1172move #14,-(sp)
1173move.l #L94,-(sp)
1174clr -(sp)
1175move #7,-(sp)
1176move #6,-(sp)
1177move #16,-(sp)
1178move.l _obj10,-(sp)
1179jsr _vsplot4
1180adda.l #20,sp
1181*line 510
1182bra L95
1183L91:
1184*line 511
1185*line 511
1186move _cxval,R0
1187asr #3,R0
1188cmp #48,R0
1189bne L96
1190*line 512
1191*line 513
1192*line 514
1193clr R0
1194move 10+_v_regs,R0
1195and #384,R0
1196beq L97
1197*line 514
1198clr (sp)
1199jsr _vbank
1200*line 515
1201L97:
1202*line 516
1203*line 517
1204move.l #_cg3,(sp)
1205move #14,-(sp)
1206move #14,-(sp)
1207move.l #L98,-(sp)
1208clr -(sp)
1209move #7,-(sp)
1210move #2,-(sp)
1211move #14,-(sp)
1212move #16,-(sp)
1213move.l _obj10,-(sp)
1214jsr _vvputsv
1215adda.l #22,sp
1216*line 518
1217*line 519
1218*line 520
1219move.l #_cg3,(sp)
1220move #14,-(sp)
1221move #14,-(sp)
1222move.l #L99,-(sp)
1223clr -(sp)
1224move #7,-(sp)
1225move #6,-(sp)
1226move #16,-(sp)
1227move.l _obj10,-(sp)
1228jsr _vsplot4
1229adda.l #20,sp
1230*line 521
1231*line 522
1232*line 523
1233L96:L95:bra L82
1234*line 524
1235L87:L82:unlk R14
1236rts
1237.globl _smy_up
1238.text
1239_smy_up:
1240~~smy_up:
1241~tag=8
1242link R14,#-4
1243*line 541
1244*line 541
1245tst _ptecpos
1246bne L101
1247*line 542
1248*line 543
1249jsr _dptw
1250bra L100
1251*line 544
1252*line 545
1253*line 546
1254L101:
1255*line 547
1256*line 548
1257tst _ctcsw
1258beq L102
1259*line 548
1260jsr _bgncm
1261*line 549
1262L102:
1263*line 550
1264*line 550
1265tst 8(R14)
1266bge L103
1267*line 551
1268*line 552
1269*line 553
1270move _ptecpos,(sp)
1271jsr _findnxt
1272tst R0
1273beq L100
1274*line 554
1275*line 555
1276move #1,_PdScUpF
1277*line 556
1278clr _PdScDnF
1279*line 557
1280jsr _smscrl
1281*line 558
1282bra L104
1283L103:
1284*line 559
1285*line 559
1286tst 8(R14)
1287ble L105
1288*line 560
1289*line 561
1290*line 562
1291move _ptecpos,(sp)
1292jsr _findprv
1293tst R0
1294beq L100
1295*line 563
1296*line 564
1297move #1,_PdScDnF
1298*line 565
1299clr _PdScUpF
1300*line 566
1301jsr _smscrl
1302*line 567
1303L105:L104:L100:unlk R14
1304rts
1305.globl _smyupd
1306.text
1307_smyupd:
1308~~smyupd:
1309link R14,#-4
1310*line 581
1311*line 581
1312tst _submenu
1313beq L107
1314*line 582
1315*line 583
1316move _cyrate,R0
1317add R0,_vtyval
1318move _vtyval,R0
1319ext.l R0
1320divs #14,R0
1321move R0,_vtcrow
1322*line 584
1323*line 585
1324*line 586
1325cmp #23,_vtcrow
1326ble L108
1327*line 586
1328move #23,R0
1329move R0,_vtcrow
1330muls #14,R0
1331move R0,_vtyval
1332bra L109
1333L108:
1334*line 587
1335*line 588
1336cmp #19,_vtcrow
1337bge L110
1338*line 588
1339move #19,R0
1340move R0,_vtcrow
1341muls #14,R0
1342move R0,_vtyval
1343*line 589
1344L110:L109:
1345*line 590
1346*line 591
1347*line 594
1348L107:L106:unlk R14
1349rts
1350.globl _sqy_up
1351.text
1352_sqy_up:
1353~~sqy_up:
1354~tag=8
1355link R14,#-4
1356*line 609
1357*line 610
1358tst _ctcsw
1359beq L112
1360*line 610
1361jsr _ctcoff
1362*line 611
1363L112:
1364*line 612
1365*line 612
1366tst 8(R14)
1367bge L113
1368*line 613
1369*line 614
1370move #1,_PdScUpF
1371*line 615
1372clr _PdScDnF
1373*line 616
1374jsr _smscrl
1375*line 617
1376bra L114
1377L113:
1378*line 618
1379*line 618
1380tst 8(R14)
1381ble L115
1382*line 619
1383*line 620
1384move #1,_PdScDnF
1385*line 621
1386clr _PdScUpF
1387*line 622
1388jsr _smscrl
1389*line 623
1390L115:L114:L111:unlk R14
1391rts
1392.globl _sqyupd
1393.text
1394_sqyupd:
1395~~sqyupd:
1396link R14,#-4
1397*line 637
1398*line 637
1399tst _submenu
1400beq L117
1401*line 638
1402*line 639
1403move _cyrate,R0
1404add R0,_vtyval
1405move _vtyval,R0
1406ext.l R0
1407divs #14,R0
1408move R0,_vtcrow
1409*line 640
1410*line 641
1411*line 642
1412cmp #23,_vtcrow
1413ble L118
1414*line 642
1415move #23,R0
1416move R0,_vtcrow
1417muls #14,R0
1418move R0,_vtyval
1419bra L119
1420L118:
1421*line 643
1422*line 644
1423cmp #19,_vtcrow
1424bge L120
1425*line 644
1426move #19,R0
1427move R0,_vtcrow
1428muls #14,R0
1429move R0,_vtyval
1430*line 645
1431L120:L119:
1432*line 646
1433*line 647
1434*line 650
1435L117:L116:unlk R14
1436rts
1437.data
1438L93:.dc.b $B0,$0
1439L94:.dc.b $BC,$0
1440L98:.dc.b $B0,$0
1441L99:.dc.b $BF,$0
Note: See TracBrowser for help on using the repository browser.