Download Michael Brett - MacSphere

!0006 LINK
01
02
03
04
05
06
07
08
;
44
;
AC2: MESSAGE ADDRESS
;CALL: JSR @.+l
;
SENDM
;
(ERROR RETURN)
;
(NORMAL RETURN)
;RETURN:NO MESSAGES RETURNED
;
ALL ACCUMULATORS AND CARRY
;
DESTROYED
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41.
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
,,....,
ACTR TRANSMISSION ROUTINE
SENDM:
00047'055000
00050'020465
00051'077777
00052'050460
00053'151400
00054"151400
00055'050464
00056'025000
00057'044466
00060'014465
00061'030456
STA 3, 0, 2·
LOA 0,SSEND
.REC
STA 2,HEAD
INC 2,2
INC 2,2
STA 2,DATPTR
LOA 1,0,2
STA l,WC
DSZ WC
LOA 2,STX
00062'034457 LOOP:
00063'035400
00064'076040
LOA 3,DATPTR
LOA 3,0,3
DOB 3,ACTR
00065'102400
00066'151004
00067 'HH400
SUB 0,0
MOV 2,2,SZR
INC 0,0
00070'175122
00071"101400
00072'175004
00073'000775
00074'024453
00075 'HH222
00076'133000
MOVZL 3,3,SZC
INC 0,0
MOV 3,3,SZR
JMP .-3
LOA 1,.14
MOVZR 0,0,SZC
ADD 1,2
00077'071140
DOAS 2,ACTR
00100'020433
LOA 0,TRANSM
00101'000051'
.REC
LOA
l,RCONT
00102'024441
00103'125004
MOV 1,1,SZR
00104'000422
JMP FLOP
LOA l,ETX
00105'024433
00106'147414
AND# 2,1,SZR
000000 .IFN MASTER
J~1P IFBACK
.ENDC
000001 .IFE MASTER
00107'000407
JMP NEXIT
;
;
;
;
.,
SAVE RETURN ADDRESS IN HEADER
SENDM SYNC ADDRESS
CAPTURE ACTR CONTROL
SAVE ADDRESS OF MESSAGE
;
;
;
;
POINT AC2 PAST HEADER WORDS
STORE IN TRANSMISSION POINTER
GET WORD COUNT
SAVE IT
REALLY NEED WC-1
; GET START CONTROL BITS
;
;
;
;
GET
GET
PUT
NOW
DATA ADDRESS
ACTUAL DATA
IN TRANSMITTER BUFFER
DETERMINE PARITY
;
;
;
;
;
;
;
;
;
;
;
;
;
;
IS CONTROL WORD NON-ZERO ?
YES ••• INC PARITY COUNTER
NOW DO DATA WORD
IS SHIFTED BIT SET ?
YES •• INC PARITY COUNTER
FINISHED DATA WORD ?
NO •• CONTINUE IN LOOP
GET PARITY ON BITS
ODD # OF BITS SET ?
YES ••• PUT ODD PARITY BITS
INTO CONTROL WORD
PUT IN TRANSMITTER BUFFER
START TRANSMISSION
WAIT. FOR AC~NOWLEDGEMENT
;
;
;
;
;
;
;
;
GET CONTROL BITS
IS IT NON-ZERO ?
YES ••• TRANSMISSION ERROR
GET END OF TRANSMISION BITS
WAS END OF MESSAGE SENT ?
MASTER CPU
YES ••. CHECK IF MESSAGE
IS TO RETURNED
;
;
;
;
SLAVE CPU
TAKE NORMAL EXIT
NO RETURN MESSAGES
IN SLAVE CPU
..