; ˆŒŸ €‚’Ž‘ŠŽ… = SET4144 ’ŽƒŽ‚Ž… ˆŒŸ = SET44 ; „€’€ : 1993 „…Š€œ ; Žƒ€ŒŒ€ ’Ž—ŽƒŽ ˆ‡Œ……ˆŸ ‘ŠŽŽ‘’ˆ ‚€™…ˆŸ „ˆ‘Š€ ; €ƒ€…‚ Œ€Š‘ˆŒ ‘…ƒ……‚ˆ— V4.144 ; Žƒ€ŒŒ€ ‘€Œ€ Ž…„…‹Ÿ…’ ’€Š’Ž‚“ž —€‘’Ž’“, ’ˆ ˆ ; ŠŽ”ˆƒ“€–ˆž Œ€˜ˆ›, ’€Š†… Žˆ‡‚Ž„ˆ’ …‚ˆ—›‰ ’…‘’ ; ‘ˆ‘’…ŒŽƒŽ ’€‰Œ…€ (TIM74), ‘Ž„…†ˆ’ ‹ŽŠ ŠŽ…Š–ˆˆ ; Ž˜ˆŽŠ ‘—…’€ ˆ Ž…„…‹…ˆŸ ’€Š’Ž‚Ž‰ —€‘’Ž’› ; Žƒ€ŒŒ€ €Ž’€…’ € ‚‘…• ’ˆ€• Š, HO Ž„ ANDOS ! ; €‚’Ž‘Šˆ… €‚€ Ž ‡€ŠŽ“ ˆ€„‹…†€’ €‚’Ž“ ˆ Ž•€Ÿž’‘Ÿ ; ŠŽ‘’ˆ’“–ˆ…‰ Ž’ 12 „…Š€Ÿ 1993 ƒŽ„€ ;AUTO=720 ;START=1000 AUTO: .W 1000,1000,1000,1000 .W 1000,1000,1000,1000 .W 1000,1000,1000,1000 .W 1000,1000,1000,1000 .W 1000,1000,1000,1000 .W 1000,1000,1000,1000 START: CALL 100140 ; …Œ’ 14 CLR @#177130 CALL LTIM74 ; ’…‘’ ’€‰Œ…€ BCS 7 MOV #4,R3 MOV #4,R2 1: CALL LTAKT ; Ž…„…‹…ˆ… ’— 11: MOV @#120154,R0 MOV #5,R4 2: CALL PRCT SOB R4,2 MOV @#TMAM,R5 MOV #6,R4 3: ASR R5 SOB R4,3 CCC CMP #470,R5 ; Ž‚…Š€ ŠŽ…Š’Ž‘’ˆ BEQ 40 ; Ž…„…‹…ˆŸ ’— SOB R3,1 CCC CMP #470,R5 ; Ž…„…‹…ˆ… Ž˜ˆŠˆ BHI 31 ; Ž…„…‹…ˆŸ ’— CMP #470,R5 ; ŠŽ…Š–ˆŸ Ž˜ˆŠˆ Ž BLO 32 ; ‚Ž‡ŒŽ†Ž‘’ˆ BR 1 31: INC TCH BR 33 32: DEC TCH 33: SOB R2,11 BR 7 40: CALL UST ; “‘’€Ž‚Š€ …†ˆŒŽ‚ ˆ 4: MOV @#177662,R0 ; ˆ‘Ž‚€ˆ… Š€€ CMP #3,R0 ; …‘‹ˆ ESC ’Ž ‚›•Ž„ BEQ EXIT CMP #61,R0 ; ‚›Ž ŽŒ…€ €ŠŽˆ’…‹Ÿ BLO 6 5: INC R0 6: BIC #177774,R0 TST R0 BEQ 5 CMP #3,R0 BEQ 5 CALL PRCT ; Ž…„…‹…ˆ… …ˆŽ„€ MOV #23,R1 MOV #13,R2 ; …—€’œ …ˆŽ„€ CALL 107272 ; EMT 24 MOV TMAM,R3 CALL LDEC CALL TTS BR 4 7: CLR R2 ; ‚›•Ž„ Ž Ž˜ˆŠ… ’€‰Œ…€ MOV #TXT0,R1 CALL 107050 ; …Œ’20 8: BIT #100,@#177716 BNE 8 BR EX0 EXIT: CLR @#177130; Ž„Žƒ€ŒŒ€ ‚›•Ž„€ ˆ CALL ASCRE1 ; ‘Ÿ’ˆŸ Š€Ž‚ CALL ASCRE2 CALL ASCRE0 EX0: MTPS #0 ; ‚›•Ž„ €‚€ˆ‰›‰ JMP @#100000 TTS: MOV R0,-(SP) ; ŽŒ… “‘’Ž‰‘’‚€ MOV #15,R1 ; € Š€ MOV #13,R2 CALL 107272 ; …Œ’24 ADD #57,R0 CALL 102234 ; …Œ’16 MOV (SP)+,R0 RETURN STOP: SUB (PC),(SP) ; Ž€Ž’Š€ Š‹€‚ˆ˜ˆ ‘’Ž RTI UST: MOV #232,R0 ; “‘’€Ž‚Š€ …†ˆŒŽ‚ CALL 102234 ; …Œ’16 BIS #100,@#177660 MOV #STOP,@#4 CALL SCRE0 ; ˆ‘Ž‚€ˆ… Š€Ž‚ CALL SCRE2 CALL STXT0 CALL SCRE1 CALL STXT1 RETURN PRCT: MOV R0,-(SP) ; R0 - “‘’Ž‰‘’‚Ž MTPS #340 ; ‡€™ˆ’€ BIS #20,R0 MOV R0,@#177130 ; “‘Š „‚ˆ†Š€ CLR @#177712 ; Ž„ƒŽ’Ž‚Š€ MOV #177777,@#177706; ’€‰Œ…€ MOV #2,@#177712 0: BIT #100000,@#177130; Ž†ˆ„€ˆ… '1' BEQ 0 MOV #20,@#177712 1: BIT #100000,@#177130; Ž†ˆ„€ˆ… '0' BNE 1 2: BIT #100000,@#177130; Ž†ˆ„€ˆ… '1' BEQ 2 MOV @#177710,TMAM ; ‡€•‚€’ ; ;  ; ³ 0 1 2 ; 1 Å ÚÄÄÄ¿ ÚÄÄÄ¿ ; ³ ³ ³ ³ ³ ; 0 ÅÄÄÄÄÄÄÄÁÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄ ; | | ; | ---- 200mc ---- | ; MOV #2,@#177712 ; OCTAHOB COM TMAM MOV #300,@#177716 MOV TCH,R0 BIT #4,R0 BEQ 3 ; 3MHZ BIT #1,R0 BNE 4 ; 5MHZ BIT #2,R0 BEQ 5 ; 4MHZ ADD #24600,TMAM BR 6 3: ADD #35720,TMAM BR 6 4: ADD #27622,TMAM BR 6 5: ADD #32665,TMAM 6: MOV #200,@#177716 MTPS #0 MOV (SP)+,R0 RETURN LDEC: MOV R4,-(SP); Ž„Žƒ€ŒŒ€ „…‘Ÿ’ˆ—Ž‰ MOV R3,-(SP); …—€’ˆ MOV R2,-(SP) MOV R0,-(SP) MOV #60,R0 MOV #MD,R2 MOV #3,R4 ; —ˆ‘‹Ž ‡€ŠŽ‚ € Š€ 1: CMP R3,(R2) BLO 2 INCB R0 SUB (R2),R3 BR 1 2: CALL 102234 ; EMT16 MOV #60,R0 TST (R2)+ SOB R4,1 MOV R0,-(SP) MOV #56,R0 CALL 102234 ; EMT16 MOV (SP)+,R0 MOV #2,R4 11: CMP R3,(R2) BLO 22 INCB R0 SUB (R2),R3 BR 11 22: CALL 102234 ; EMT16 MOV #60,R0 TST (R2)+ SOB R4,11 MOV (SP)+,R0 MOV (SP)+,R2 MOV (SP)+,R3 MOV (SP)+,R4 RETURN SCRE0: MOV #20,R5 MOV #60000,R4 MOV R4,R3 0: MOV #4,R2 1: MOV #40,R1 2: MOV #42104,(R4)+ MOV #10421,-(R3) SOB R1,2 MOV #40,R1 3: MOV #10421,(R4)+ MOV #42104,-(R3) SOB R1,3 SOB R2,1 MOV #10000,R0 4: SOB R0,4 SOB R5,0 RETURN ASCRE0: MOV #40,R5 MOV #100000,R4 MOV #40000,R3 0: MOV #400,R2 1: CLR -(R4) CLR (R3)+ SOB R2,1 MOV #10000,R0 2: SOB R0,2 SOB R5,0 RETURN SCRE1: MOV #10,R5 MOV #60000,R4 MOV R4,R3 0: MOV #10,R2 1: ADD #5,R4 SUB #5,R3 MOV #66,R1 2: COMB (R4)+ COMB -(R3) SOB R1,2 ADD #5,R4 SUB #5,R3 SOB R2,1 MOV #10000,R0 3: SOB R0,3 SOB R5,0 RETURN ASCRE1: MOV #10,R5 MOV #70000,R4 MOV #50000,R3 0: MOV #10,R2 1: SUB #5,R4 ADD #5,R3 MOV #66,R1 2: CLRB -(R4) CLRB (R3) COMB (R4) COMB (R3)+ SOB R1,2 SUB #5,R4 ADD #5,R3 SOB R2,1 MOV #10000,R0 3: SOB R0,3 SOB R5,0 RETURN SCRE2: MOV #15,R5 ; „‹ˆ€ MOV #60000,R4 ; ‘……„ˆ€ MOV R4,R3 0: MOV #10,R2 ; ‚…˜ˆ‰ –ˆŠ‹ 1: ADD #4,R4 ; Ž•Ž„ SUB #4,R3 MOV #70,R1 ; ‚“’…ˆ‰ 2: CLRB (R4) ; –ˆŠ‹ Ž—ˆ‘’Šˆ COMB (R4)+ CLRB -(R3) COMB (R3) SOB R1,2 ADD #4,R4 ; Ž•Ž„ SUB #4,R3 SOB R2,1 MOV #10000,R0 ;‡€„…†Š€ 3: SOB R0,3 SOB R5,0 RETURN ASCRE2: MOV #15,R5 MOV #75000,R4 MOV #43000,R3 0: MOV #4,R2 1: SUB #4,R4 ADD #4,R3 MOV #70,R1 2: MOVB #21,-(R4) MOVB #104,(R3)+ SOB R1,2 SUB #10,R4 ADD #10,R3 MOV #70,R1 3: MOVB #104,-(R4) MOVB #21,(R3)+ SOB R1,3 SUB #4,R4 ADD #4,R3 SOB R2,1 MOV #10000,R0 4: SOB R0,4 SOB R5,0 RETURN ; Ž„Žƒ€ŒŒ€ SCRE1 €€‹Žƒˆ—ƒ€ Ž„Ž€ŒŒ… SCRE2 STXT0: MOV #7,R1 MOV #2,R2 CALL 107272 ; EMT 24 MOV #234,R0 CALL 102234 ; EMT 16 CLR R2 MOV #TXT7,R1 CALL 107050 ; EMT 20 MOV #16,R1 MOV #22,R2 CALL 107272 ; EMT 24 CLR R2 MOV #TXT10,R1 CALL 107050 ; EMT 20 MOV #16,R1 MOV #24,R2 CALL 107272 ; EMT 24 CLR R2 MOV #TXT11,R1 CALL 107050 ; EMT 20 MOV #11,R1 MOV #23,R2 CALL 107272 ; EMT 24 CMP #6,TCH BEQ 0 CMP #5,TCH BEQ 1 MOV #TXT6,R1 BR 3 0: MOV #TXT5,R1 BR 3 1: MOV #TXT3,R1 3: CLR R2 CALL 107050 ; EMT 20 RETURN STXT1: MOV #234,R0 CALL 102234 ; EMT 16 MOV #16,R1 MOV #20,R2 CALL 107272 ; EMT 24 CLR R2 MOV #TXT9,R1 CALL 107050 ; EMT 20 MOV #17,R1 MOV #5,R2 CALL 107272 ; EMT 24 CLR R2 MOV #TXT1,R1 CALL 107050 ; EMT 20 MOV TCH,R0 ADD #60,R0 CALL 102234 ; EMT 16 CLR R2 MOV #TXT18,R1 CALL 107050 ; EMT 20 MOV #13,R1 MOV #17,R2 CALL 107272 ; EMT 24 CLR R2 MOV #TXT15,R1 CALL 107050 ; EMT 20 MOV @#120170,R3 BIC #100000,R3 CALL LDEC MOV #24,R1 MOV #6,R2 CALL 107272 ; EMT 24 CLR R2 MOV #TXT2,R1 CALL 107050 ; EMT 20 TST TTM BNE 1 TST TTB BEQ 2 MOV #TXT13,R1 BR 5 2: MOV #TXT14,R1 BR 5 1: MOV #TXT12,R1 5: CLR R2 CALL 107050 ; EMT 20 MOV #233,R0 CALL 102234 ; EMT 16 MOV #41500,R5 MOV #40,R4 6: MOV #10421,(R5)+ SOB R4,6 MOV #4,R1 MOV #13,R2 CALL 107272 ; EMT 24 CLR R2 MOV #TXT4,R1 CALL 107050 ; EMT 20 MOV #32,R1 MOV #13,R2 CALL 107272 ; EMT 24 CLR R2 MOV #TXT8,R1 CALL 107050 ; EMT 20 RETURN LTAKT: BIT #40000,@#177716 ; Š-10 ? BEQ BK10 ; Š-10 BK11M: MOV @#100,TMC0 ; ‘Ž•€…ˆ… ‘’€’“‘€ MOV @#102,TMC1 0: MOV #TIM0,@#100 MOV #200,@#102 MOV #177777,@#177706; Ž„ƒŽ’Ž‚Š€ CLR @#177710 ; ‘ˆ‘’…ŒŽƒŽ ’€‰Œ…€ MOV #2,@#177712 ; Š €Ž’… CLR TTM ; “‘’.ˆ‡€Š€ Š11(Œ) CMP #172352,@#150002; ’ˆ Š ? BEQ 1 BIC #40000,@#177662 ; “‘Š ’€‰Œ…€ Š11 CLR TTB ; “‘’. ˆ‡€Š€ COM TTB ; Š-11 BR 2 1: BIC #40000,@#177662 ; “‘Š ’€‰Œ…€ Š11Œ CLR TTB ; “‘’. ˆ‡€Š€ Š11Œ 2: WAIT ; Ž†ˆ„€ˆ… TIM0 WAIT ; Ž†ˆ„€ˆ… TIM1 MOV TMCH,R5 ; ‘Ž•€…ˆ… CMP #177777,R5 ; Ž‚…Š€ BEQ 0 ; „€›• BIC #377,R5 ; Ž…„…‹…ˆ… CMP #177000,R5 ; ’— BEQ 3 MOV TMCH,R5 BIC #177077,R5 CMP #500,R5 BEQ 4 CMP #300,R5 BEQ 5 MOV #6,TCH RETURN 3: MOV #3,TCH RETURN 4: MOV #4,TCH RETURN 5: MOV #5,TCH RETURN ; …‚Ž… …›‚€ˆ… TIM0: MOV #20,@#177712 ; ‡€“‘Š ’€‰Œ…€ MOV #TIM1,@#100 ; ……€‡€—…ˆ… RTI ; ‚’ŽŽ… …›‚€ˆ… TIM1: MOV @#177710,TMCH ; ‡€ŽŒˆ€ˆ… TST TTB ; Ž‘’€Ž‚ ’€‰Œ…€ BEQ 0 BIS #40000,@#177662 ; Š-11 (ˆ‘€‚ˆ’œ) BR 1 0: BIS #40000,@#177662 ; Š-11Œ 1: MOV TMC1,@#102 ; ‚Ž‘‘’€Ž‚‹…ˆ… MOV TMC0,@#100 RTI BK10: CALL LTIM74 ; Ž‚…Š€ ’€‰Œ…€ BHIS 0 SEC RETURN 0: CLR @#177712 ; …‚›‰ “‘Š ’€‰Œ…€ CLR @#177710 MOV #777,@#177706 MOV #34,@#177712 CLR R0 ; ŽƒŽŠ€ ’€‰Œ…€ 33: SOB R0,33 CLR TTM ; “‘’€Ž‚Š€ ˆ‡€Š€ COM TTM ; Š-10 MOV #177777,@#177706;Ž„ƒŽ’Ž‚Š€ CLR R5 CLR @#177710 CLR @#177712 MOV #34,@#177712 ; ˆ‡Œ……ˆ… 1: INC R5 BIT #200,@#177712 ; ŠŽ…– ? BEQ 1 MOV R5,TMCD ; ‘Ž•€…ˆ… BIC #77777,R5 ; €‘Ž‡€‚€ˆ… TST R5 BEQ 2 MOV TMCD,R5 BIC #107777,R5 TST R5 BEQ 3 MOV TMCD,R5 CMP #10000,R5 BLO 4 BR 5 2: MOV #6,TCH RETURN 3: MOV #5,TCH RETURN 4: CMP #20000,R5 BLOS 6 5: MOV #4,TCH RETURN 6: MOV #3,TCH RETURN LTIM74: MOV #177777,@#177706 CLR @#177712 MOV #1,@#177712 MOV #10,R2 MOV #MSD,R4 0: MOVB (R4)+,@#177712 MOV #10000,R0 1: SOB R0,1 CMP #177777,@#177710 BEQ 3 SOB R2,0 CLC RETURN 3: SEC RETURN TMC0: .W 0 ; ‘Ž•€…ˆ… @#100 TMC1: .W 200 ; ‘Ž•€…ˆ… @#102 TMCH: .W 0 ; ›‘’Ž„…‰‘’‚ˆ…(Š-11,Š-11Œ) TMCD: .W 0 ; ›‘’Ž„…‰‘’‚ˆ…(Š-10) TTM: .W 0 ; ’ˆ Œ€˜ˆ› [0-Š11(Œ)] TTB: .W 0 ; ’ˆ Œ€˜ˆ› [0-11M] TCH: .W 0 ; ’€Š’Ž‚€Ÿ —€‘’Ž’€ ‚ MHz TMAM: .W 0 ; ‘Ž•€…ˆ… „‹ˆ’…‹œŽ‘’ˆ(Œ€) MSD: .B 20,60,120,160,34,74,134,174,0 MD: .W 23420,1750,144,12,1 TXT0: .A /Ž-ŒŽ…Œ“ “ ‚€‘ ’€‰Œ… †€…›‰ / .AZ / ˆ ‚ŽŽ™… ‚› Œ… … €‚ˆ’…‘œ !/ TXT1: .AZ /’€Š’Ž‚€Ÿ —€‘’Ž’€ Ž–…‘‘Ž€ / TXT2: .AZ /’ˆ Œ€˜ˆ› - / TXT3: .A /ƒ„… ’Ž ‚› €Ÿ’œ €“—ˆ‹ˆ‘œ: / .AZ / „€†… 5MHz ‘„…‹€‹ˆ ?/ TXT4: .AZ /DRIVE >>/ TXT5: .A /6 MHZ - „€‚Ž “‘’€…‹Ž, Ž€/ .AZ / ‡€ 12 MHz €’œ‘Ÿ/ TXT6: .A /€‰-Ÿ-Ÿ-Ÿ-Ÿ‰ ! Ž€ ’€Š’Ž‚“ž/ .AZ / —€‘’Ž’“ Ž‚›˜€’œ / TXT7: .A /Žƒ€ŒŒ€ ’Ž—ŽƒŽ ˆ‡Œ……ˆŸ / .AZ /‘ŠOŽ‘’ˆ ‚€™…ˆŸ „ˆ‘Š€/ TXT8: .AZ /¬c/ TXT9: .AZ /ŽŒ€‹œ€Ÿ „…’Ž€–ˆŸ +-0.01 ¬á/ TXT10: .AZ /A-B,0-1 - “‘’Ž‰‘’‚Ž <…SC> - ‚›•Ž„/ TXT11: .AZ /MOUNTED BY BMS corp. 1993 November/ TXT12: .AZ /Š-0010(.01)/ TXT13: .AZ /Š-0011/ TXT14: .AZ /Š-0011Œ/ TXT15: .AZ /‚…‘ˆŸ Ž…€–ˆŽŽ‰ ‘ˆ‘’…Œ› ANDOS / TXT18: .AZ / MHz/ ; Ž’Ž‘ˆ’…‹œŽ… ›‘’Ž„…‰‘’‚ˆ… („‹Ÿ Š11 ˆ Š11Œ) ; Ž„Žƒ€ŒŒA Š11Œ: ( „‹Ÿ Š-11 ˆ Š-11Œ ) ; Ž’Ž˜…ˆ… ’€‰Œ…(100) ˆ ‘ˆ’…Œ›‰ ’€‰Œ… ; ‡€ˆ‘€’œ 177777 >> 177706 ; 20 >> 177712 ; ‘—ˆ’€’œ 177710 >> TMCH ; 5MHz - 176337 +-1 ; 4MHz - 176577 +-1 ; 3MHz - 177037 +-1 ; 2MHz - 177277 +-1 ; '’…‹Ž…' ›‘’Ž„…‰‘’‚ˆ…, ‚›—ˆ‘‹…Ž… € Ž‘Ž‚… ˆ„…ˆ Ž ; ‡€„…†Šˆ ˆ‡ ‡€ Ž‡“ ( ’…‹Ž… Ž’ŽŒ“, —’Ž ‡€‚ˆ‘ˆ’ Ž’ ; ’…Œ…€’“› 037o‰ Ž˜ˆ‚Šˆ (5%) ˆ Ž–…‘‘Ž€(1%) ; € ’€Š†… ‡€‚ˆ‘ˆ’ Ž’ …ŒŠŽ‘’ˆ ˜ˆ› - € ˆŒ…Ž Ž’ ŠŽ‹ˆ—…‘’‚€ ; ‡“ (1%) ˆ ’.„. ; ‚…‹ˆ—ˆ€ Ž—…œ Ž’Ž‘ˆ’…‹œ€Ÿ ! ; ˆ„…Ÿ ˆ€„‹…†ˆ’ €ƒ€…‚“ Œ€Š‘ˆŒ“ ( BMScorp ) ; ŽŒŽƒ€‹ Ž‘“™…‘’‚‹Ÿ’œ ”…„ŽŽ‚ žˆ‰ ( PUSScorp ) ; ‘‚Ž„Š€: ; ============================================== ; = MHz = 宫®¤­ë© = £®àï稩 (6ç á®¢) = Œ€˜ˆ€ = ; ============================================== ; = 5 = 104••• = 101••• = Š 11Œ = ; =-----=----------=------------------=--------= ; = 4 = = 114••• = Š 11Œ = ; =-----=----------=------------------=--------= ; = 3 = 127••• = = Š 10 = ; =-----=----------=------------------=--------= ; = = = = = ; =-----=----------=------------------=--------= .END