Home » Archimedes archive » Zipped Apps » BCPL » BCPL/alib/bcplmacsa
BCPL/alib/bcplmacsa
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Zipped Apps » BCPL |
| Filename: | BCPL/alib/bcplmacsa |
| Read OK: | ✔ |
| File size: | 0680 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
pc RN 15
r14 RN 14
rb RN 8
rl RN 12
rts RN 11
rp RN 10
rg RN 9
rgb RN 7
w1 RN 4
w2 RN 5
nil RN 13
nilbase RN 6
r0 RN 0
a1 RN 1
a2 RN 2
a3 RN 3
a4 RN 4
PSRBits * &fc000000
OverflowBit * &10000000
; 3rd argument (what to do) for SetEventHandler
ev_ignore * 0
ev_set_flag * 1
ev_call_proc * 2
ev_buffer * 3
GBLA xxglobs
GBLA xxtopglobal
GBLA tempa
GBLS temps
GBLS VBar
GBLS xxModuleName
GBLL aof
xxglobs SETA 0
VBar SETS "|"
aof SETL {TRUE}
UserGlobals * 150
xxtopglobal SETA UserGlobals
MACRO
Module $name,$date
AREA |BCPL$$Code|, CODE, READONLY
Start
= "BCPL"
& globinits-Start
= ("$name":CC:" "):LEFT:8
[ "$date"=""
= "<unset> <unset>",0,0,0,0,0
|
= "$date",0,0
]
& 0
xxModuleName SETS "$name"
MEND
MACRO
$name GlobNo $no
KEEP G_$name
G_$name * ($no)*4
[ $no>xxtopglobal
xxtopglobal SETA $no
]
MEND
MACRO
GlobDef $no,$name
& -1
= 7,("$name":CC:" "):LEFT:7
KEEP G_$name
G_$name * ($no)*4
[ $no>xxtopglobal
xxtopglobal SETA $no
]
temps SETS "xxgname":CC:"$xxglobs"
GBLS $temps
$temps SETS "$name"
xxglobs SETA xxglobs+1
$name
temps SETS VBar:CC:xxModuleName:CC:".$name":CC:VBar
KEEP $temps
$temps
MEND
MACRO
GlobInits
globinits
tempa SETA 0
WHILE tempa<xxglobs
temps SETS "xxgname":CC:"$tempa"
temps SETS $temps
GlobInit $temps
tempa SETA tempa+1
WEND
MEND
MACRO
$lab Address $value
[ "$lab"<>""
$lab
]
& $value
MEND
MACRO
GlobInit $name
& G_$name/4
& $name
MEND
MACRO
EndModule
globinits
tempa SETA 0
WHILE tempa<xxglobs
temps SETS "xxgname":CC:"$tempa"
temps SETS $temps
GlobInit $temps
tempa SETA tempa+1
WEND
& &$xxtopglobal
& 0
MEND
END
00000000 70 63 09 09 52 4e 09 31 35 0a 72 31 34 09 09 52 |pc..RN.15.r14..R|
00000010 4e 09 31 34 0a 72 62 09 09 52 4e 09 38 0a 72 6c |N.14.rb..RN.8.rl|
00000020 09 09 52 4e 09 31 32 0a 72 74 73 09 09 52 4e 09 |..RN.12.rts..RN.|
00000030 31 31 0a 72 70 09 09 52 4e 09 31 30 0a 72 67 09 |11.rp..RN.10.rg.|
00000040 09 52 4e 09 39 0a 72 67 62 09 09 52 4e 09 37 0a |.RN.9.rgb..RN.7.|
00000050 77 31 09 09 52 4e 09 34 0a 77 32 09 09 52 4e 09 |w1..RN.4.w2..RN.|
00000060 35 0a 6e 69 6c 09 09 52 4e 09 31 33 0a 6e 69 6c |5.nil..RN.13.nil|
00000070 62 61 73 65 20 09 52 4e 09 36 0a 72 30 09 09 52 |base .RN.6.r0..R|
00000080 4e 09 30 0a 61 31 09 09 52 4e 09 31 0a 61 32 09 |N.0.a1..RN.1.a2.|
00000090 09 52 4e 09 32 0a 61 33 09 09 52 4e 09 33 0a 61 |.RN.2.a3..RN.3.a|
000000a0 34 09 09 52 4e 09 34 0a 0a 50 53 52 42 69 74 73 |4..RN.4..PSRBits|
000000b0 20 09 2a 09 26 66 63 30 30 30 30 30 30 0a 4f 76 | .*.&fc000000.Ov|
000000c0 65 72 66 6c 6f 77 42 69 74 09 2a 09 26 31 30 30 |erflowBit.*.&100|
000000d0 30 30 30 30 30 0a 0a 3b 20 33 72 64 20 61 72 67 |00000..; 3rd arg|
000000e0 75 6d 65 6e 74 20 28 77 68 61 74 20 74 6f 20 64 |ument (what to d|
000000f0 6f 29 20 66 6f 72 20 53 65 74 45 76 65 6e 74 48 |o) for SetEventH|
00000100 61 6e 64 6c 65 72 0a 65 76 5f 69 67 6e 6f 72 65 |andler.ev_ignore|
00000110 09 2a 09 30 0a 65 76 5f 73 65 74 5f 66 6c 61 67 |.*.0.ev_set_flag|
00000120 09 2a 09 31 0a 65 76 5f 63 61 6c 6c 5f 70 72 6f |.*.1.ev_call_pro|
00000130 63 09 2a 09 32 0a 65 76 5f 62 75 66 66 65 72 09 |c.*.2.ev_buffer.|
00000140 2a 09 33 0a 0a 09 47 42 4c 41 09 78 78 67 6c 6f |*.3...GBLA.xxglo|
00000150 62 73 0a 09 47 42 4c 41 09 78 78 74 6f 70 67 6c |bs..GBLA.xxtopgl|
00000160 6f 62 61 6c 0a 09 47 42 4c 41 09 74 65 6d 70 61 |obal..GBLA.tempa|
00000170 0a 09 47 42 4c 53 09 74 65 6d 70 73 0a 09 47 42 |..GBLS.temps..GB|
00000180 4c 53 09 56 42 61 72 0a 09 47 42 4c 53 09 78 78 |LS.VBar..GBLS.xx|
00000190 4d 6f 64 75 6c 65 4e 61 6d 65 0a 09 47 42 4c 4c |ModuleName..GBLL|
000001a0 09 61 6f 66 0a 0a 78 78 67 6c 6f 62 73 20 53 45 |.aof..xxglobs SE|
000001b0 54 41 09 30 0a 56 42 61 72 09 53 45 54 53 09 22 |TA.0.VBar.SETS."|
000001c0 7c 22 0a 61 6f 66 09 53 45 54 4c 09 7b 54 52 55 ||".aof.SETL.{TRU|
000001d0 45 7d 0a 0a 55 73 65 72 47 6c 6f 62 61 6c 73 20 |E}..UserGlobals |
000001e0 2a 20 31 35 30 0a 0a 78 78 74 6f 70 67 6c 6f 62 |* 150..xxtopglob|
000001f0 61 6c 20 53 45 54 41 20 20 55 73 65 72 47 6c 6f |al SETA UserGlo|
00000200 62 61 6c 73 0a 0a 09 4d 41 43 52 4f 0a 09 4d 6f |bals...MACRO..Mo|
00000210 64 75 6c 65 20 24 6e 61 6d 65 2c 24 64 61 74 65 |dule $name,$date|
00000220 0a 09 41 52 45 41 09 7c 42 43 50 4c 24 24 43 6f |..AREA.|BCPL$$Co|
00000230 64 65 7c 2c 20 43 4f 44 45 2c 20 52 45 41 44 4f |de|, CODE, READO|
00000240 4e 4c 59 0a 53 74 61 72 74 0a 09 3d 09 22 42 43 |NLY.Start..=."BC|
00000250 50 4c 22 0a 09 26 09 67 6c 6f 62 69 6e 69 74 73 |PL"..&.globinits|
00000260 2d 53 74 61 72 74 0a 09 3d 09 28 22 24 6e 61 6d |-Start..=.("$nam|
00000270 65 22 3a 43 43 3a 22 20 20 20 20 20 20 20 20 22 |e":CC:" "|
00000280 29 3a 4c 45 46 54 3a 38 0a 20 5b 20 22 24 64 61 |):LEFT:8. [ "$da|
00000290 74 65 22 3d 22 22 0a 09 3d 09 22 3c 75 6e 73 65 |te"=""..=."<unse|
000002a0 74 3e 20 3c 75 6e 73 65 74 3e 22 2c 30 2c 30 2c |t> <unset>",0,0,|
000002b0 30 2c 30 2c 30 0a 20 20 7c 0a 09 3d 09 22 24 64 |0,0,0. |..=."$d|
000002c0 61 74 65 22 2c 30 2c 30 0a 20 5d 0a 09 26 09 30 |ate",0,0. ]..&.0|
000002d0 0a 78 78 4d 6f 64 75 6c 65 4e 61 6d 65 20 53 45 |.xxModuleName SE|
000002e0 54 53 20 22 24 6e 61 6d 65 22 0a 09 4d 45 4e 44 |TS "$name"..MEND|
000002f0 0a 0a 09 4d 41 43 52 4f 0a 24 6e 61 6d 65 09 47 |...MACRO.$name.G|
00000300 6c 6f 62 4e 6f 20 24 6e 6f 0a 09 4b 45 45 50 20 |lobNo $no..KEEP |
00000310 47 5f 24 6e 61 6d 65 0a 47 5f 24 6e 61 6d 65 20 |G_$name.G_$name |
00000320 2a 09 28 24 6e 6f 29 2a 34 0a 20 5b 20 24 6e 6f |*.($no)*4. [ $no|
00000330 3e 78 78 74 6f 70 67 6c 6f 62 61 6c 0a 78 78 74 |>xxtopglobal.xxt|
00000340 6f 70 67 6c 6f 62 61 6c 20 53 45 54 41 20 24 6e |opglobal SETA $n|
00000350 6f 0a 20 5d 0a 09 4d 45 4e 44 0a 0a 09 4d 41 43 |o. ]..MEND...MAC|
00000360 52 4f 0a 09 47 6c 6f 62 44 65 66 20 24 6e 6f 2c |RO..GlobDef $no,|
00000370 24 6e 61 6d 65 0a 09 26 09 2d 31 0a 09 3d 09 37 |$name..&.-1..=.7|
00000380 2c 28 22 24 6e 61 6d 65 22 3a 43 43 3a 22 20 20 |,("$name":CC:" |
00000390 20 20 20 20 20 22 29 3a 4c 45 46 54 3a 37 0a 09 | "):LEFT:7..|
000003a0 4b 45 45 50 20 47 5f 24 6e 61 6d 65 0a 47 5f 24 |KEEP G_$name.G_$|
000003b0 6e 61 6d 65 20 2a 09 28 24 6e 6f 29 2a 34 0a 20 |name *.($no)*4. |
000003c0 5b 20 24 6e 6f 3e 78 78 74 6f 70 67 6c 6f 62 61 |[ $no>xxtopgloba|
000003d0 6c 0a 78 78 74 6f 70 67 6c 6f 62 61 6c 20 53 45 |l.xxtopglobal SE|
000003e0 54 41 20 24 6e 6f 0a 20 5d 0a 74 65 6d 70 73 09 |TA $no. ].temps.|
000003f0 53 45 54 53 09 22 78 78 67 6e 61 6d 65 22 3a 43 |SETS."xxgname":C|
00000400 43 3a 22 24 78 78 67 6c 6f 62 73 22 0a 09 47 42 |C:"$xxglobs"..GB|
00000410 4c 53 09 24 74 65 6d 70 73 0a 24 74 65 6d 70 73 |LS.$temps.$temps|
00000420 09 53 45 54 53 09 22 24 6e 61 6d 65 22 0a 78 78 |.SETS."$name".xx|
00000430 67 6c 6f 62 73 20 53 45 54 41 09 78 78 67 6c 6f |globs SETA.xxglo|
00000440 62 73 2b 31 0a 24 6e 61 6d 65 0a 74 65 6d 70 73 |bs+1.$name.temps|
00000450 09 53 45 54 53 09 56 42 61 72 3a 43 43 3a 78 78 |.SETS.VBar:CC:xx|
00000460 4d 6f 64 75 6c 65 4e 61 6d 65 3a 43 43 3a 22 2e |ModuleName:CC:".|
00000470 24 6e 61 6d 65 22 3a 43 43 3a 56 42 61 72 0a 09 |$name":CC:VBar..|
00000480 4b 45 45 50 09 24 74 65 6d 70 73 0a 24 74 65 6d |KEEP.$temps.$tem|
00000490 70 73 0a 09 4d 45 4e 44 0a 0a 09 4d 41 43 52 4f |ps..MEND...MACRO|
000004a0 0a 09 47 6c 6f 62 49 6e 69 74 73 0a 67 6c 6f 62 |..GlobInits.glob|
000004b0 69 6e 69 74 73 0a 74 65 6d 70 61 09 53 45 54 41 |inits.tempa.SETA|
000004c0 09 30 0a 20 20 20 20 20 57 48 49 4c 45 20 74 65 |.0. WHILE te|
000004d0 6d 70 61 3c 78 78 67 6c 6f 62 73 0a 74 65 6d 70 |mpa<xxglobs.temp|
000004e0 73 09 53 45 54 53 09 22 78 78 67 6e 61 6d 65 22 |s.SETS."xxgname"|
000004f0 3a 43 43 3a 22 24 74 65 6d 70 61 22 0a 74 65 6d |:CC:"$tempa".tem|
00000500 70 73 09 53 45 54 53 09 24 74 65 6d 70 73 0a 09 |ps.SETS.$temps..|
00000510 47 6c 6f 62 49 6e 69 74 20 24 74 65 6d 70 73 0a |GlobInit $temps.|
00000520 74 65 6d 70 61 09 53 45 54 41 09 74 65 6d 70 61 |tempa.SETA.tempa|
00000530 2b 31 0a 20 20 20 20 20 57 45 4e 44 0a 09 4d 45 |+1. WEND..ME|
00000540 4e 44 0a 0a 09 4d 41 43 52 4f 0a 24 6c 61 62 09 |ND...MACRO.$lab.|
00000550 41 64 64 72 65 73 73 20 24 76 61 6c 75 65 0a 20 |Address $value. |
00000560 5b 20 22 24 6c 61 62 22 3c 3e 22 22 0a 24 6c 61 |[ "$lab"<>"".$la|
00000570 62 0a 20 5d 0a 09 26 09 24 76 61 6c 75 65 0a 09 |b. ]..&.$value..|
00000580 4d 45 4e 44 0a 0a 09 4d 41 43 52 4f 0a 09 47 6c |MEND...MACRO..Gl|
00000590 6f 62 49 6e 69 74 20 24 6e 61 6d 65 0a 09 26 09 |obInit $name..&.|
000005a0 47 5f 24 6e 61 6d 65 2f 34 0a 09 26 09 24 6e 61 |G_$name/4..&.$na|
000005b0 6d 65 0a 09 4d 45 4e 44 0a 0a 09 4d 41 43 52 4f |me..MEND...MACRO|
000005c0 0a 09 45 6e 64 4d 6f 64 75 6c 65 0a 67 6c 6f 62 |..EndModule.glob|
000005d0 69 6e 69 74 73 0a 74 65 6d 70 61 09 53 45 54 41 |inits.tempa.SETA|
000005e0 09 30 0a 20 20 20 20 20 57 48 49 4c 45 20 74 65 |.0. WHILE te|
000005f0 6d 70 61 3c 78 78 67 6c 6f 62 73 0a 74 65 6d 70 |mpa<xxglobs.temp|
00000600 73 09 53 45 54 53 09 22 78 78 67 6e 61 6d 65 22 |s.SETS."xxgname"|
00000610 3a 43 43 3a 22 24 74 65 6d 70 61 22 0a 74 65 6d |:CC:"$tempa".tem|
00000620 70 73 09 53 45 54 53 09 24 74 65 6d 70 73 0a 09 |ps.SETS.$temps..|
00000630 47 6c 6f 62 49 6e 69 74 20 24 74 65 6d 70 73 0a |GlobInit $temps.|
00000640 74 65 6d 70 61 09 53 45 54 41 09 74 65 6d 70 61 |tempa.SETA.tempa|
00000650 2b 31 0a 20 20 20 20 20 57 45 4e 44 0a 09 26 09 |+1. WEND..&.|
00000660 26 24 78 78 74 6f 70 67 6c 6f 62 61 6c 0a 09 26 |&$xxtopglobal..&|
00000670 09 30 0a 0a 09 4d 45 4e 44 0a 0a 09 45 4e 44 0a |.0...MEND...END.|
00000680 
.