home *** CD-ROM | disk | FTP | other *** search
- */beginfile PROCS2_asm
- ; --------------------------------------------------------------
- ; PROCS2_asm - BASIC bits
- ; - last modified 03/11/97
- ; QDOS-Amiga sources by Rainer Kowallik
- ; ...some changes by Mark J Swift
- ; --------------------------------------------------------------
- L064E2:
- BAS_BAUD:
- JSR GET_INT4(PC) ; modify BSR SEA_PARA(PC)
- ; search for parameter
- BNE.S L064F6
- MOVE.L 0(A6,A1.L),D1 ; modify MOVE.W 0(A6,A1.L),D1
- MOVEQ #$12,D0 ; MT.BAUD sets bautrate
- ; (D1.W)
- TRAP #1
- TST.L D0
- BMI.S L064F8
- MOVEQ #0,D0
- L064F6 RTS
- L064F8 MOVEQ #-15,D0 ; bad parameter
- RTS
- L064FC ; displacements for parameters of BEEP
- DC.W 6
- DC.W 0
- DC.W 2
- DC.W 4
- DC.W 8
- DC.W 10
- DC.W 14
- DC.W 12
- L0650C ; Beep error
- ADD.L D3,D3
- ADD.L D3,$58(A6) ; Arithmetic stack
- L06512 ADDA.W #$18,A7
- MOVEM.L (A7)+,D4-D7/A3-A5
- TST.L D0
- RTS
- BEEP:
- JSR CA_GTINT(PC) ;*/undomodify BSR CA_GTINT
- MOVEM.L D4-D7/A3-A5,-(A7)
- ADDA.W #$FFE8,A7
- MOVEA.L A7,A3
- BNE.S L0650C
- MOVEQ #-15,D0 ; Bad parameter
- CMPI.W #0,D3
- BEQ.S L065A8
- CMPI.W #1,D3
- BEQ.S L0650C
- CMPI.W #3,D3
- BEQ.S L0650C
- CMPI.W #4,D3
- BEQ.S L0650C
- CMPI.W #8,D3
- BGT.S L0650C
- LEA L064FC(PC),A5
- MOVEQ #1,D2
- L06554 MOVE.W 0(A6,A1.L),D0
- CMPI.W #2,D2
- BEQ.S L06564
- CMPI.W #3,D2
- BNE.S L06566
- L06564 ADDQ.W #1,D0
- L06566:
- ROR.W #8,D0
- JSR L065C0(PC) ;*/undomodify BSR.S L065C0
- ;*/undomodify nop
- ADDA.W #$0002,A1
- CMP.W D3,D2
- BLE.S L06554
- CMPI.W #$0003,D2
- BEQ.S L06582
- L0657A:
- MOVEQ #0,D0
- CMPI.W #$0008,D2
- BGT.S L06588
- L06582:
- JSR L065C0(PC) ;*/undomodify BSR.S L065C0
- ;*/undomodify nop
- BRA.S L0657A
- L06588:
- MOVE.B #$0A,(A3)
- MOVE.B #$10,1(A3)
- MOVE.L #$4444AA66,2(A3)
- MOVE.B #1,$16(A3)
- MOVEQ #$11,D0 ; MT.IPCOM send command (A3)
- ; to IPC
- TRAP #1
- BRA L0650C
- L065A8 ; stop beeper
- MOVE.B #$0B,(A3)
- MOVE.B #0,1(A3)
- MOVE.B #1,6(A3)
- MOVEQ #$11,D0 ; MT.IPCOM send command (A3)
- ; to IPC
- TRAP #1
- BRA L06512
- L065C0 MOVEA.W (A5)+,A4
- MOVE.W D0,$06(A3,A4.W)
- ADDQ.W #1,D2
- RTS
- BAS_CALL:
- JSR CA_GTLIN(PC) ;*/undomodify BSR CA_GTLIN
- BNE.S L065E4
- LSL.L #2,D3
- BEQ.S L065E2
- ADD.L D3,BV_RIP(A6) ;arith stack
- MOVE.L 0(A6,A1.L),-(A7)
- MOVEM.L 4(A6,A1.L),D1-D7/A0-A5
- L065E2 MOVEQ #-15,D0 ; bad parameter
- L065E4 RTS
- ; --------------------------------------------------------------
- ;*/endfile
-