source: buchla-68k/alcyon/localkb.s@ 7bf3856

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 20.2 KB
Line 
1.globl _lcdx
2.globl _lcdy
3.globl _lcdbit
4.globl _lcdrow
5.globl _lcdcol
6.globl _lcdbase
7.globl _lcdctl1
8.globl _lcdctl2
9.globl _io_time
10.globl _io_lcd
11.globl _io_ser
12.globl _io_midi
13.globl _io_disk
14.globl _io_tone
15.globl _io_leds
16.globl _io_kbrd
17.globl _lcd_a0
18.globl _lcd_a1
19.globl _io_vreg
20.globl _io_vraw
21.globl _io_vram
22.globl _io_fpu
23.globl _v_regs
24.globl _v_odtab
25.globl _v_actab
26.globl _v_ct0
27.globl _v_gt1
28.globl _v_score
29.globl _v_cgtab
30.globl _v_curs0
31.globl _v_curs1
32.globl _v_curs2
33.globl _v_curs3
34.globl _v_curs4
35.globl _v_curs5
36.globl _v_curs6
37.globl _v_curs7
38.globl _v_tcur
39.globl _v_kbobj
40.globl _v_lnobj
41.globl _v_win0
42.globl _v_cur
43.globl _fc_sw
44.globl _fc_val
45.globl _ac_code
46.globl _scname
47.globl _se_chg
48.globl _curscor
49.globl _cursect
50.globl _se1_cnt
51.globl _se2_cnt
52.globl _se3_cnt
53.globl _spool
54.globl _pspool
55.globl _spcount
56.globl _frags
57.globl _t_bak
58.globl _t_cur
59.globl _t_ctr
60.globl _t_fwd
61.globl _size1
62.globl _size2
63.globl _size3
64.globl _scores
65.globl _scp
66.globl _seclist
67.globl _hplist
68.globl _p_bak
69.globl _p_cur
70.globl _p_ctr
71.globl _p_fwd
72.globl _point
73.globl _ancmsw
74.globl _angroup
75.globl _asmode
76.globl _astat
77.globl _aval
78.globl _ctrsw
79.globl _curasg
80.globl _curtun
81.globl _curvce
82.globl _editsw
83.globl _gomode
84.globl _gtmsel
85.globl _insmode
86.globl _ismode
87.globl _ldpass
88.globl _lksel
89.globl _lstbgnc
90.globl _lstendc
91.globl _lstflag
92.globl _oldpk
93.globl _pkctrl
94.globl _recsw
95.globl _stepenb
96.globl _stepint
97.globl _stepwgt
98.globl _keystat
99.globl _trgtab
100.globl _grpmode
101.globl _grpstat
102.globl _grptmap
103.globl _ldmap
104.globl _prstab
105.globl _tuntab
106.globl _veltab
107.globl _vce2grp
108.globl _vce2trg
109.globl _grp2prt
110.globl _ldbox
111.globl _varmode
112.globl _gdstbc
113.globl _lstbgns
114.globl _lstends
115.globl _lclkmap
116.data
117_lclkmap:
118.dc.w $0
119.dc.w $1
120.dc.w $2
121.dc.w $3
122.dc.w $4
123.dc.w $5
124.dc.w $6
125.dc.w $7
126.dc.w $8
127.dc.w $9
128.dc.w $A
129.dc.w $B
130.dc.w $C
131.dc.w $D
132.dc.w $72
133.dc.w $73
134.dc.w $74
135.dc.w $75
136.dc.w $76
137.dc.w $77
138.dc.w $78
139.dc.w $79
140.dc.w $7A
141.dc.w $7B
142.globl _panlkey
143.data
144_panlkey:
145.dc.w $230
146.dc.w $3C0
147.dc.w $550
148.dc.w $6E0
149.dc.w $870
150.dc.w $A00
151.dc.w $B90
152.dc.w $D20
153.dc.w $EB0
154.dc.w $1040
155.dc.w $11D0
156.dc.w $1360
157.dc.w $14F0
158.dc.w $1680
159.dc.w $1810
160.dc.w $19A0
161.dc.w $1B30
162.dc.w $1CC0
163.dc.w $1E50
164.dc.w $1FE0
165.dc.w $2170
166.dc.w $2300
167.dc.w $2490
168.dc.w $2620
169.globl _stepfrm
170.data
171_stepfrm:
172.dc.w $3
173.dc.w $4
174.dc.w $A
175.dc.w $16
176.dc.w $2E
177.dc.w $5E
178.dc.w $BE
179.dc.w $7
180.dc.w $10
181.dc.w $22
182.dc.w $46
183.dc.w $8E
184.dc.w $11E
185.dc.w $3
186.dc.w $6
187.dc.w $E
188.dc.w $1E
189.dc.w $2
190.dc.w $4
191.dc.w $8
192.dc.w $10
193.dc.w $20
194.dc.w $40
195.dc.w $80
196.dc.w $6
197.dc.w $C
198.dc.w $18
199.dc.w $30
200.dc.w $60
201.dc.w $C0
202.dc.w $3
203.dc.w $5
204.dc.w $A
205.dc.w $14
206.dc.w $2
207.dc.w $3
208.dc.w $4
209.dc.w $6
210.dc.w $A
211.dc.w $10
212.dc.w $18
213.dc.w $4
214.dc.w $5
215.dc.w $8
216.dc.w $C
217.dc.w $14
218.dc.w $1E
219.dc.w $3
220.dc.w $4
221.dc.w $5
222.dc.w $8
223.dc.w $3
224.dc.w $6
225.dc.w $C
226.dc.w $18
227.dc.w $30
228.dc.w $60
229.dc.w $C0
230.dc.w $9
231.dc.w $12
232.dc.w $24
233.dc.w $48
234.dc.w $90
235.dc.w $120
236.dc.w $4
237.dc.w $8
238.dc.w $10
239.dc.w $20
240.globl _setleds
241.text
242_setleds:
243~~setleds:
244link R14,#0
245movem.l R6-R7,-(sp)
246~i=R7
247*line 139
248clr R7
249bra L4
250L5:
251*line 140
252move R7,R0
253or #128,R0
254move.b R0,_io_leds
255L3:
256*line 139
257add #1,R7
258L4:
259*line 139
260cmp #24,R7
261blt L5
262L2:
263*line 142
264move _pkctrl,R0
265bra L7
266*line 143
267L8:
268*line 144
269L9:
270*line 145
271L10:
272*line 146
273L11:
274*line 147
275*line 148
276bra L1
277*line 149
278*line 150
279L12:
280*line 151
281*line 152
282*line 153
283*line 154
284tst _stepenb
285beq L13
286*line 154
287move.b #1,_io_leds
288*line 155
289L13:
290*line 156
291move #6,R0
292sub _stepwgt,R0
293move.b R0,_io_leds
294*line 157
295move _stepint,R0
296add #7,R0
297move.b R0,_io_leds
298bra L1
299*line 158
300*line 159
301L14:
302*line 160
303*line 161
304*line 162
305*line 163
306tst _curasg
307beq L1
308*line 164
309*line 165
310move _curasg,R0
311sub #1,R0
312ext.l R0
313divs #20,R0
314swap R0
315move.b R0,_io_leds
316bra L1
317*line 166
318*line 167
319*line 168
320L15:
321*line 169
322*line 170
323*line 171
324*line 171
325cmp #1,_gomode
326bne L16
327*line 172
328*line 173
329clr R7
330bra L19
331L20:
332*line 174
333*line 175
334move _curscor,R0
335muls #80,R0
336move R7,R1
337asl #2,R1
338ext.l R1
339add.l R1,R0
340add.l #_seclist,R0
341move.l R0,R8
342tst.l (R8)
343beq L21
344*line 175
345move.b R7,_io_leds
346*line 176
347L21:L18:
348*line 173
349add #1,R7
350L19:
351*line 173
352cmp #20,R7
353blt L20
354L17:bra L22
355L16:
356*line 177
357*line 178
358*line 179
359clr R7
360bra L25
361L26:
362*line 180
363*line 181
364move R7,R8
365add.l R8,R8
366add.l R8,R8
367add.l #_scores,R8
368tst.l (R8)
369beq L27
370*line 181
371move.b R7,_io_leds
372L27:L24:
373*line 179
374add #1,R7
375L25:
376*line 179
377cmp #20,R7
378blt L26
379L23:L22:
380*line 182
381*line 183
382bra L1
383*line 184
384*line 185
385L28:
386*line 186
387*line 187
388*line 188
389clr R7
390bra L31
391L32:
392*line 189
393*line 190
394move R7,R8
395add.l R8,R8
396add.l R8,R8
397add.l #_scores,R8
398tst.l (R8)
399beq L33
400*line 190
401move.b R7,_io_leds
402*line 191
403L33:L30:
404*line 188
405add #1,R7
406L31:
407*line 188
408cmp #20,R7
409blt L32
410L29:bra L1
411*line 192
412bra L6
413L7:cmp #7,R0
414bhi L8
415asl #2,R0
416move R0,R8
417add.l #L34,R8
418move.l (R8),R8
419jmp (R8)
420.data
421L34:.dc.l L9
422.dc.l L12
423.dc.l L15
424.dc.l L10
425.dc.l L14
426.dc.l L28
427.dc.l L8
428.dc.l L11
429.text
430L6:L1:tst.l (sp)+
431movem.l (sp)+,R7-R7
432unlk R14
433rts
434.globl _localkb
435.text
436_localkb:
437~~localkb:
438~sig=8
439link R14,#-4
440movem.l R2-R7/R13-R13,-(sp)
441~i=R7
442~trg=R6
443~lclkey=R5
444~key=R4
445~vel=R3
446~ep=R13
447~val=-2
448~disptag=-4
449*line 212
450move 8(R14),R4
451sub #1,R4
452*line 214
453move _pkctrl,R0
454bra L37
455*line 215
456L38:
457*line 216
458*line 217
459*line 218
460move R4,R8
461add.l R8,R8
462add.l #_lclkmap,R8
463move (R8),R5
464*line 219
465move R5,R6
466add #4096,R6
467*line 220
468*line 221
469*line 221
470tst _astat
471beq L39
472*line 222
473*line 223
474move _aval,R0
475muls #252,R0
476and #32736,R0
477move R6,R9
478add.l R9,R9
479add.l #_prstab,R9
480move R0,(R9)
481*line 224
482*line 225
483*line 225
484move R4,R8
485add.l #_keystat,R8
486tst.b (R8)
487bne L40
488*line 226
489*line 227
490move R6,R8
491add.l #_trgtab,R8
492or.b #1,(R8)
493*line 228
494move #16128,R3
495move R6,R8
496add.l R8,R8
497add.l #_veltab,R8
498move R3,(R8)
499*line 229
500move R4,R8
501add.l #_keystat,R8
502move.b #1,(R8)
503*line 230
504*line 231
505move R6,(sp)
506jsr _stmproc
507*line 232
508*line 233
509*line 233
510tst _editsw
511beq L41
512*line 234
513*line 235
514clr (sp)
515move _curvce,-(sp)
516move R5,R8
517add.l R8,R8
518move.l #_tuntab,R9
519move 0(R8,R9.l),-(sp)
520move R6,-(sp)
521jsr _execkey
522addq.l #6,sp
523*line 236
524bra L42
525L41:
526*line 237
527*line 238
528*line 239
529clr R7
530bra L45
531L46:
532*line 240
533*line 241
534move R7,R8
535add.l R8,R8
536add.l R8,R8
537add.l #_grp2prt,R8
538cmp #3,(R8)
539bne L47
540move R7,R8
541add.l R8,R8
542add.l R8,R8
543add.l #_grp2prt,R8
544cmp #1,2(R8)
545bne L47
546*line 242
547*line 243
548move R3,(sp)
549move R5,-(sp)
550clr -(sp)
551move #2,-(sp)
552move R7,-(sp)
553jsr _asgvce
554addq.l #8,sp
555*line 244
556move R3,(sp)
557move R5,-(sp)
558move R7,-(sp)
559jsr _ne_bgn
560addq.l #4,sp
561*line 245
562L47:L44:
563*line 239
564add #1,R7
565L45:
566*line 239
567cmp #12,R7
568blt L46
569L43:L42:
570*line 246
571*line 247
572*line 248
573bra L48
574L40:
575*line 249
576*line 250
577*line 251
578move _aval,R0
579muls #252,R0
580and #32736,R0
581move R0,-2(R14)
582*line 252
583*line 253
584clr R7
585bra L51
586L52:
587*line 254
588*line 255
589*line 256
590move R7,R8
591add.l R8,R8
592add.l R8,R8
593add.l #_grp2prt,R8
594cmp #3,(R8)
595bne L53
596move R7,R8
597add.l R8,R8
598add.l R8,R8
599add.l #_grp2prt,R8
600cmp #1,2(R8)
601bne L53
602*line 257
603*line 258
604*line 258
605move -2(R14),(sp)
606move #6,-(sp)
607move R7,-(sp)
608jsr _newsv
609addq.l #4,sp
610tst R0
611beq L54
612*line 259
613*line 260
614*line 261
615tst _recsw
616beq L55
617move R7,R8
618add.l R8,R8
619move.l #_grpstat,R9
620tst 0(R8,R9.l)
621beq L55
622tst _ancmsw
623beq L10000
624move R7,R8
625add.l R8,R8
626add.l #_varmode,R8
627move 160(R8),R0
628bra L10002
629L10000:move R7,R8
630add.l R8,R8
631move.l #_grpmode,R9
632move 0(R8,R9.l),R0
633L10002:cmp #2,R0
634bne L55
635*line 262
636*line 263
637*line 263
638move #6,(sp)
639jsr _e_alc
640move.l R0,R13
641move.l R13,R0
642beq L56
643*line 264
644*line 265
645move.l _t_cur,(R13)
646*line 266
647move.b #14,5(R13)
648*line 267
649move R7,R0
650or #80,R0
651move.b R0,6(R13)
652*line 268
653move -2(R14),R0
654ext.l R0
655move.l #$10,R1
656asl.l R1,R0
657move.l R0,16(R13)
658*line 269
659move.l _t_cur,(sp)
660clr -(sp)
661move.l _p_cur,-(sp)
662jsr _ep_adj
663addq.l #6,sp
664move.l R0,(sp)
665move.l R13,-(sp)
666jsr _e_ins
667addq.l #4,sp
668move.l R0,R8
669move.l 12(R8),_p_cur
670*line 270
671move #1,_ctrsw
672*line 271
673move #1,(sp)
674move.l #_gdstbc,-(sp)
675clr -(sp)
676move.l R13,-(sp)
677jsr _se_disp
678adda.l #10,sp
679*line 272
680clr _ctrsw
681*line 273
682*line 274
683L56:bra L57
684L55:
685*line 275
686*line 275
687move _angroup,R0
688sub #1,R0
689cmp R0,R7
690bne L58
691*line 276
692*line 277
693move #5,(sp)
694jsr _dsanval
695*line 278
696L58:L57:
697*line 279
698L54:
699*line 280
700L53:L50:
701*line 253
702add #1,R7
703L51:
704*line 253
705cmp #12,R7
706blt L52
707L49:
708*line 281
709L48:
710*line 282
711*line 283
712*line 284
713bra L59
714L39:
715*line 285
716*line 286
717*line 287
718move R4,R8
719add.l #_keystat,R8
720clr.b (R8)
721*line 288
722move R6,R8
723add.l #_trgtab,R8
724and.b #-2,(R8)
725*line 289
726move R6,R8
727add.l R8,R8
728add.l #_prstab,R8
729clr (R8)
730*line 290
731*line 291
732*line 291
733move.l #_trgtab,R8
734tst.b 0(R8,R6)
735bne L60
736*line 292
737*line 293
738clr R7
739bra L63
740L64:
741*line 294
742*line 295
743*line 295
744move R7,R8
745add.l R8,R8
746add.l #_vce2trg,R8
747cmp (R8),R6
748bne L65
749*line 296
750*line 297
751move R7,R8
752add.l R8,R8
753add.l #_vce2trg,R8
754move #-1,(R8)
755*line 298
756move R6,(sp)
757jsr _procpfl
758*line 299
759*line 300
760L65:
761*line 301
762*line 302
763*line 303
764move R7,R8
765add.l R8,R8
766add.l R8,R8
767add.l #_grp2prt,R8
768cmp #3,(R8)
769bne L66
770move R7,R8
771add.l R8,R8
772add.l R8,R8
773add.l #_grp2prt,R8
774cmp #1,2(R8)
775bne L66
776*line 303
777move R7,(sp)
778move R6,-(sp)
779jsr _ne_end
780addq.l #2,sp
781L66:L62:
782*line 293
783add #1,R7
784L63:
785*line 293
786cmp #12,R7
787blt L64
788L61:
789*line 304
790*line 305
791*line 306
792move R6,(sp)
793or #-32768,(sp)
794jsr _stmproc
795*line 307
796L60:L59:
797*line 308
798*line 309
799bra L35
800*line 310
801*line 311
802*line 312
803*line 313
804L67:
805*line 314
806*line 315
807*line 316
808*line 316
809tst _astat
810beq L68
811*line 317
812*line 318
813*line 318
814move R4,R8
815add.l #_keystat,R8
816tst.b (R8)
817bne L69
818*line 319
819*line 320
820move R4,R8
821add.l #_keystat,R8
822move.b #1,(R8)
823*line 321
824*line 322
825*line 322
826tst R4
827bne L70
828*line 323
829*line 324
830clr -4(R14)
831*line 325
832*line 326
833bra L73
834L72:
835*line 327
836*line 328
837move _lstendc,R8
838add.l R8,R8
839add.l R8,R8
840add.l #_lstends,R8
841move.l (R8),R13
842*line 329
843move _lstendc,R8
844add.l R8,R8
845add.l R8,R8
846add.l #_lstends,R8
847move.l #$0,(R8)
848*line 330
849*line 331
850*line 332
851move.l R13,R0
852beq L73
853*line 333
854*line 334
855*line 335
856cmp.l _p_bak,R13
857bne L74
858*line 335
859move.l _p_bak,R8
860move.l 8(R8),_p_bak
861*line 336
862L74:
863*line 337
864*line 338
865cmp.l _p_ctr,R13
866bne L75
867*line 338
868move.l _p_ctr,R8
869move.l 8(R8),_p_ctr
870*line 339
871L75:
872*line 340
873*line 341
874cmp.l _p_cur,R13
875bne L76
876*line 341
877move.l _p_cur,R8
878move.l 8(R8),_p_cur
879*line 342
880L76:
881*line 343
882*line 344
883cmp.l _p_fwd,R13
884bne L77
885*line 344
886move.l _p_fwd,R8
887move.l 8(R8),_p_fwd
888*line 345
889L77:
890*line 346
891move.l R13,(sp)
892jsr _e_rmv
893move.l R0,(sp)
894jsr _e_del
895*line 347
896move #1,-4(R14)
897L73:
898*line 348
899move _lstendc,R0
900sub #1,_lstendc
901tst R0
902bgt L72
903L71:
904*line 349
905*line 350
906clr _lstendc
907*line 351
908*line 352
909*line 353
910bra L80
911L79:
912*line 354
913*line 355
914move _lstbgnc,R8
915add.l R8,R8
916add.l R8,R8
917add.l #_lstbgns,R8
918move.l (R8),R13
919*line 356
920move _lstbgnc,R8
921add.l R8,R8
922add.l R8,R8
923add.l #_lstbgns,R8
924move.l #$0,(R8)
925*line 357
926*line 358
927*line 359
928move.l R13,R0
929beq L80
930*line 360
931*line 361
932*line 362
933cmp.l _p_bak,R13
934bne L81
935*line 362
936move.l _p_bak,R8
937move.l 8(R8),_p_bak
938*line 363
939L81:
940*line 364
941*line 365
942cmp.l _p_ctr,R13
943bne L82
944*line 365
945move.l _p_ctr,R8
946move.l 8(R8),_p_ctr
947*line 366
948L82:
949*line 367
950*line 368
951cmp.l _p_cur,R13
952bne L83
953*line 368
954move.l _p_cur,R8
955move.l 8(R8),_p_cur
956*line 369
957L83:
958*line 370
959*line 371
960cmp.l _p_fwd,R13
961bne L84
962*line 371
963move.l _p_fwd,R8
964move.l 8(R8),_p_fwd
965*line 372
966L84:
967*line 373
968move.l R13,(sp)
969jsr _e_rmv
970move.l R0,(sp)
971jsr _e_del
972*line 374
973move #1,-4(R14)
974L80:
975*line 375
976move _lstbgnc,R0
977sub #1,_lstbgnc
978tst R0
979bgt L79
980L78:
981*line 376
982*line 377
983clr _lstbgnc
984*line 378
985clr _lstflag
986*line 379
987*line 380
988*line 380
989tst -4(R14)
990beq L85
991*line 381
992*line 382
993*line 383
994move.l _fc_val,R0
995move _stepint,R9
996add.l R9,R9
997add.l #_stepfrm,R9
998move 102(R9),R1
999ext.l R1
1000sub.l R1,R0
1001blt L86
1002*line 383
1003move _stepint,R8
1004add.l R8,R8
1005move.l #_stepfrm,R9
1006move 102(R8,R9.l),R0
1007ext.l R0
1008sub.l R0,_fc_val
1009*line 384
1010L86:
1011*line 385
1012move.l _fc_val,(sp)
1013jsr _sc_refr
1014*line 386
1015*line 387
1016L85:bra L87
1017L70:
1018*line 388
1019*line 388
1020cmp #1,R4
1021bne L88
1022*line 389
1023*line 390
1024tst _stepenb
1025beq L10003
1026clr R0
1027bra L10004
1028L10003:move #1,R0
1029L10004:move R0,_stepenb
1030*line 391
1031jsr _setleds
1032*line 392
1033*line 393
1034*line 394
1035bra L89
1036L88:
1037*line 395
1038*line 395
1039cmp #2,R4
1040bne L90
1041*line 396
1042*line 397
1043*line 397
1044tst _recsw
1045beq L91
1046*line 398
1047*line 399
1048*line 399
1049move #5,(sp)
1050jsr _e_alc
1051move.l R0,R13
1052move.l R13,R0
1053beq L92
1054*line 400
1055*line 401
1056move.b #23,5(R13)
1057*line 402
1058move.l _t_cur,(R13)
1059*line 403
1060move.l _t_cur,(sp)
1061move #1,-(sp)
1062move.l _p_cur,-(sp)
1063jsr _ep_adj
1064addq.l #6,sp
1065move.l R0,R8
1066move.l 8(R8),(sp)
1067move.l R13,-(sp)
1068jsr _e_ins
1069addq.l #4,sp
1070move.l R0,R8
1071move.l 12(R8),_p_cur
1072*line 404
1073move.l _fc_val,(sp)
1074jsr _sc_refr
1075*line 405
1076L92:
1077*line 406
1078*line 407
1079L91:bra L93
1080L90:
1081*line 408
1082*line 408
1083cmp #3,R4
1084bne L94
1085*line 409
1086*line 410
1087*line 411
1088move _stepint,R8
1089add.l R8,R8
1090move.l #_stepfrm,R9
1091move 102(R8,R9.l),R0
1092ext.l R0
1093add.l _fc_val,R0
1094cmp.l #$fffffe,R0
1095bge L95
1096*line 411
1097move _stepint,R8
1098add.l R8,R8
1099move.l #_stepfrm,R9
1100move 102(R8,R9.l),R0
1101ext.l R0
1102add.l R0,_fc_val
1103*line 412
1104L95:bra L96
1105L94:
1106*line 413
1107*line 413
1108cmp #4,R4
1109blt L97
1110cmp #6,R4
1111bgt L97
1112*line 414
1113*line 415
1114move #6,R0
1115sub R4,R0
1116move R0,_stepwgt
1117*line 416
1118jsr _setleds
1119*line 417
1120bra L98
1121L97:
1122*line 418
1123*line 418
1124cmp #7,R4
1125blt L99
1126cmp #23,R4
1127bgt L99
1128*line 419
1129*line 420
1130move R4,R0
1131sub #7,R0
1132move R0,_stepint
1133*line 421
1134jsr _setleds
1135*line 422
1136L99:L98:L96:L93:L89:L87:
1137*line 423
1138*line 424
1139L69:bra L100
1140L68:
1141*line 425
1142*line 426
1143*line 427
1144move R4,R8
1145add.l #_keystat,R8
1146clr.b (R8)
1147L100:
1148*line 428
1149*line 429
1150bra L35
1151*line 430
1152*line 431
1153*line 432
1154*line 433
1155L101:
1156*line 434
1157*line 435
1158*line 436
1159*line 436
1160tst _astat
1161beq L102
1162*line 437
1163*line 438
1164*line 438
1165move R4,R8
1166add.l #_keystat,R8
1167tst.b (R8)
1168bne L103
1169*line 439
1170*line 440
1171move R4,R8
1172add.l #_keystat,R8
1173move.b #1,(R8)
1174*line 441
1175*line 442
1176*line 443
1177cmp #20,R4
1178bge L35
1179*line 444
1180*line 445
1181*line 446
1182cmp #1,_ismode
1183bne L104
1184*line 446
1185move R4,(sp)
1186add #1,(sp)
1187jsr _selins
1188*line 447
1189bra L105
1190L104:
1191*line 448
1192move R4,(sp)
1193add #21,(sp)
1194jsr _selins
1195L105:
1196*line 449
1197*line 450
1198L103:bra L106
1199L102:
1200*line 451
1201*line 452
1202*line 453
1203move R4,R8
1204add.l #_keystat,R8
1205clr.b (R8)
1206L106:
1207*line 454
1208*line 455
1209bra L35
1210*line 456
1211*line 457
1212L107:
1213*line 458
1214*line 459
1215*line 460
1216*line 460
1217tst _astat
1218beq L108
1219*line 461
1220*line 462
1221*line 462
1222move R4,R8
1223add.l #_keystat,R8
1224tst.b (R8)
1225bne L109
1226*line 463
1227*line 464
1228move R4,R8
1229add.l #_keystat,R8
1230move.b #1,(R8)
1231*line 465
1232*line 466
1233*line 467
1234cmp #5,_asmode
1235bne L10005
1236cmp #19,R4
1237bge L35
1238L10005:*line 468
1239*line 469
1240cmp #20,R4
1241bge L35
1242*line 470
1243*line 471
1244move R4,(sp)
1245move _asmode,R0
1246sub #1,R0
1247muls #20,R0
1248add R0,(sp)
1249add #1,(sp)
1250jsr _selasg
1251*line 472
1252*line 473
1253L109:bra L110
1254L108:
1255*line 474
1256*line 475
1257*line 476
1258move R4,R8
1259add.l #_keystat,R8
1260clr.b (R8)
1261L110:
1262*line 477
1263*line 478
1264bra L35
1265*line 479
1266*line 480
1267*line 481
1268L111:
1269*line 482
1270*line 483
1271*line 484
1272*line 484
1273tst _astat
1274beq L112
1275*line 485
1276*line 486
1277*line 486
1278move R4,R8
1279add.l #_keystat,R8
1280tst.b (R8)
1281bne L113
1282*line 487
1283*line 488
1284move R4,R8
1285add.l #_keystat,R8
1286move.b #1,(R8)
1287*line 489
1288*line 490
1289*line 491
1290cmp #20,R4
1291bge L35
1292*line 492
1293*line 493
1294*line 493
1295cmp #1,_gomode
1296bne L114
1297*line 494
1298*line 495
1299*line 495
1300move _curscor,R0
1301muls #80,R0
1302move R4,R1
1303asl #2,R1
1304ext.l R1
1305add.l R1,R0
1306add.l #_seclist,R0
1307move.l R0,R8
1308move.l (R8),R13
1309move.l R13,R0
1310beq L115
1311*line 496
1312*line 497
1313*line 497
1314tst _insmode
1315beq L116
1316*line 498
1317*line 499
1318jsr _icancel
1319*line 500
1320jsr _dsimode
1321*line 501
1322*line 502
1323L116:
1324*line 503
1325move.l (R13),R0
1326move.l R0,_fc_val
1327move.l R0,(sp)
1328jsr _sc_goto
1329*line 504
1330move _oldpk,_pkctrl
1331*line 505
1332clr _gomode
1333*line 506
1334move #1,(sp)
1335jsr _GLCcurs
1336*line 507
1337move.l #L117,(sp)
1338move #31,-(sp)
1339clr -(sp)
1340jsr _GLCtext
1341addq.l #4,sp
1342*line 508
1343move.l #_GLCplot,_point
1344*line 509
1345clr (sp)
1346move #54,-(sp)
1347move #215,-(sp)
1348move #54,-(sp)
1349move #186,-(sp)
1350jsr _lseg
1351addq.l #8,sp
1352*line 510
1353clr (sp)
1354jsr _GLCcurs
1355*line 511
1356jsr _setleds
1357bra L35
1358*line 512
1359*line 513
1360*line 514
1361*line 515
1362L115:bra L118
1363L114:
1364*line 516
1365*line 517
1366*line 518
1367*line 518
1368move R4,R8
1369add.l R8,R8
1370add.l R8,R8
1371add.l #_scores,R8
1372tst.l (R8)
1373beq L119
1374*line 519
1375*line 520
1376*line 520
1377tst _insmode
1378beq L120
1379*line 521
1380*line 522
1381jsr _icancel
1382*line 523
1383jsr _dsimode
1384*line 524
1385*line 525
1386L120:
1387*line 526
1388move R4,(sp)
1389jsr _selscor
1390*line 527
1391move _oldpk,_pkctrl
1392*line 528
1393clr _gomode
1394*line 529
1395move #1,(sp)
1396jsr _GLCcurs
1397*line 530
1398move.l #L121,(sp)
1399move #31,-(sp)
1400clr -(sp)
1401jsr _GLCtext
1402addq.l #4,sp
1403*line 531
1404move.l #_GLCplot,_point
1405*line 532
1406clr (sp)
1407move #54,-(sp)
1408move #215,-(sp)
1409move #54,-(sp)
1410move #186,-(sp)
1411jsr _lseg
1412addq.l #8,sp
1413*line 533
1414clr (sp)
1415jsr _GLCcurs
1416*line 534
1417jsr _setleds
1418bra L35
1419*line 535
1420*line 536
1421L119:L118:
1422*line 537
1423*line 538
1424*line 539
1425L113:bra L122
1426L112:
1427*line 540
1428*line 541
1429*line 542
1430move R4,R8
1431add.l #_keystat,R8
1432clr.b (R8)
1433L122:
1434*line 543
1435*line 544
1436bra L35
1437*line 545
1438*line 546
1439*line 547
1440L123:
1441*line 548
1442*line 549
1443*line 550
1444*line 550
1445tst _astat
1446beq L124
1447*line 551
1448*line 552
1449*line 552
1450move R4,R8
1451add.l #_keystat,R8
1452tst.b (R8)
1453bne L125
1454*line 553
1455*line 554
1456move R4,R8
1457add.l #_keystat,R8
1458move.b #1,(R8)
1459*line 555
1460*line 556
1461*line 556
1462cmp #-1,_lksel
1463beq L126
1464cmp #20,R4
1465bge L126
1466*line 557
1467*line 558
1468move #2,_ldpass
1469*line 559
1470*line 560
1471clr R7
1472bra L129
1473L130:
1474*line 561
1475*line 561
1476move R7,R8
1477add.l R8,R8
1478add.l #_ldmap,R8
1479cmp (R8),R4
1480bne L131
1481*line 562
1482*line 563
1483move R7,R8
1484add.l R8,R8
1485add.l #_ldmap,R8
1486move #-1,(R8)
1487*line 564
1488move R7,(sp)
1489move 24+_ldbox,-(sp)
1490jsr _dpy_scr
1491addq.l #2,sp
1492*line 565
1493*line 566
1494L131:L128:
1495*line 560
1496add #1,R7
1497L129:
1498*line 560
1499cmp #20,R7
1500blt L130
1501L127:
1502*line 567
1503move _lksel,R8
1504add.l R8,R8
1505add.l #_ldmap,R8
1506move R4,(R8)
1507*line 568
1508move _lksel,(sp)
1509move 24+_ldbox,-(sp)
1510jsr _dpy_scr
1511addq.l #2,sp
1512*line 569
1513move #-1,_lksel
1514*line 570
1515L126:
1516*line 571
1517*line 572
1518L125:bra L132
1519L124:
1520*line 573
1521*line 574
1522*line 575
1523move R4,R8
1524add.l #_keystat,R8
1525clr.b (R8)
1526L132:
1527*line 576
1528*line 577
1529bra L35
1530*line 578
1531*line 579
1532*line 580
1533L133:
1534*line 581
1535*line 582
1536*line 583
1537*line 583
1538tst _astat
1539beq L134
1540*line 584
1541*line 585
1542*line 585
1543move R4,R8
1544add.l #_keystat,R8
1545tst.b (R8)
1546bne L135
1547*line 586
1548*line 587
1549move R4,R8
1550add.l #_keystat,R8
1551move.b #1,(R8)
1552*line 588
1553*line 589
1554*line 589
1555cmp #-1,_gtmsel
1556beq L136
1557cmp #12,R4
1558bge L136
1559*line 590
1560*line 591
1561clr R7
1562bra L139
1563L140:
1564*line 592
1565*line 592
1566move R7,R8
1567add.l R8,R8
1568add.l #_grptmap,R8
1569cmp (R8),R4
1570bne L141
1571*line 593
1572*line 594
1573move R7,R8
1574add.l R8,R8
1575add.l #_grptmap,R8
1576move #-1,(R8)
1577*line 595
1578move R7,(sp)
1579jsr _dsgtme
1580*line 596
1581*line 597
1582L141:L138:
1583*line 591
1584add #1,R7
1585L139:
1586*line 591
1587cmp #12,R7
1588blt L140
1589L137:
1590*line 598
1591move _gtmsel,R8
1592add.l R8,R8
1593add.l #_grptmap,R8
1594move R4,(R8)
1595*line 599
1596clr (sp)
1597move _gtmsel,-(sp)
1598jsr _dsgtmn
1599addq.l #2,sp
1600*line 600
1601move _gtmsel,(sp)
1602jsr _dsgtme
1603*line 601
1604move #-1,_gtmsel
1605*line 602
1606L136:
1607*line 603
1608*line 604
1609L135:bra L142
1610L134:
1611*line 605
1612*line 606
1613*line 607
1614move R4,R8
1615add.l #_keystat,R8
1616clr.b (R8)
1617L142:
1618*line 608
1619*line 609
1620bra L35
1621*line 610
1622*line 611
1623L143:
1624*line 612
1625*line 613
1626*line 614
1627*line 615
1628tst _astat
1629beq L144
1630*line 615
1631move R4,R8
1632add.l #_keystat,R8
1633move.b #1,(R8)
1634*line 616
1635bra L145
1636L144:
1637*line 617
1638move R4,R8
1639add.l #_keystat,R8
1640clr.b (R8)
1641L145:
1642*line 618
1643bra L35
1644*line 619
1645bra L36
1646L37:cmp #7,R0
1647bhi L36
1648asl #2,R0
1649move R0,R8
1650add.l #L146,R8
1651move.l (R8),R8
1652jmp (R8)
1653.data
1654L146:.dc.l L38
1655.dc.l L67
1656.dc.l L111
1657.dc.l L101
1658.dc.l L107
1659.dc.l L123
1660.dc.l L133
1661.dc.l L143
1662.text
1663L36:L35:tst.l (sp)+
1664movem.l (sp)+,R3-R7/R13-R13
1665unlk R14
1666rts
1667.data
1668L117:.dc.b $47,$6F,$20,$54,$6F,$0
1669L121:.dc.b $47,$6F,$20,$54,$6F,$0
Note: See TracBrowser for help on using the repository browser.