Home » Archimedes archive » Zipped Apps » BCPL » BCPL/alib/BCPLMacs
BCPL/alib/BCPLMacs
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/BCPLMacs |
| Read OK: | ✔ |
| File size: | 06E8 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 xxrelocs
GBLA xxglobs
GBLA xxtopglobal
GBLA tempa
GBLS temps
GBLL aof
xxrelocs SETA 0
xxglobs SETA 0
aof SETL {FALSE}
UserGlobals * 150
xxtopglobal SETA UserGlobals
MACRO
Module $name,$date
Start
= "BCPL"
& globinits-Start
= ("$name":CC:" "):LEFT:8
[ "$date"=""
= "<unset> <unset>",0,0,0,0,0
|
= "$date",0,0
]
& 0
MEND
MACRO
$name GlobNo $no
G_$name * ($no)*4
[ $no>xxtopglobal
xxtopglobal SETA $no
]
MEND
MACRO
GlobDef $no,$name
& -1
= 7,("$name":CC:" "):LEFT:7
G_$name * ($no)*4
[ $no>xxtopglobal
xxtopglobal SETA $no
]
temps SETS "xxgname":CC:"$xxglobs"
GBLS $temps
$temps SETS "$name"
xxglobs SETA xxglobs+1
$name
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
]
temps SETS "rx":CC:"$xxrelocs"
$temps
& $value-Start
xxrelocs SETA xxrelocs+1
MEND
MACRO
GlobInit $name
& G_$name/4
temps SETS "rx":CC:"$xxrelocs"
$temps
& $name-Start
xxrelocs SETA xxrelocs+1
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
& &12345678
tempa SETA 0
WHILE tempa<>xxrelocs
temps SETS "rx":CC:"$tempa"
tempa SETA tempa+1
& $temps-Start
WEND
& &87654321
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 72 65 6c |*.3...GBLA.xxrel|
00000150 6f 63 73 0a 09 47 42 4c 41 09 78 78 67 6c 6f 62 |ocs..GBLA.xxglob|
00000160 73 0a 09 47 42 4c 41 09 78 78 74 6f 70 67 6c 6f |s..GBLA.xxtopglo|
00000170 62 61 6c 0a 09 47 42 4c 41 09 74 65 6d 70 61 0a |bal..GBLA.tempa.|
00000180 09 47 42 4c 53 09 74 65 6d 70 73 0a 09 47 42 4c |.GBLS.temps..GBL|
00000190 4c 09 61 6f 66 0a 0a 78 78 72 65 6c 6f 63 73 20 |L.aof..xxrelocs |
000001a0 53 45 54 41 09 30 0a 78 78 67 6c 6f 62 73 20 53 |SETA.0.xxglobs S|
000001b0 45 54 41 09 30 0a 61 6f 66 09 53 45 54 4c 09 7b |ETA.0.aof.SETL.{|
000001c0 46 41 4c 53 45 7d 0a 0a 55 73 65 72 47 6c 6f 62 |FALSE}..UserGlob|
000001d0 61 6c 73 20 2a 20 31 35 30 0a 0a 78 78 74 6f 70 |als * 150..xxtop|
000001e0 67 6c 6f 62 61 6c 20 53 45 54 41 20 20 55 73 65 |global SETA Use|
000001f0 72 47 6c 6f 62 61 6c 73 0a 0a 09 4d 41 43 52 4f |rGlobals...MACRO|
00000200 0a 09 4d 6f 64 75 6c 65 20 24 6e 61 6d 65 2c 24 |..Module $name,$|
00000210 64 61 74 65 0a 53 74 61 72 74 0a 09 3d 09 22 42 |date.Start..=."B|
00000220 43 50 4c 22 0a 09 26 09 67 6c 6f 62 69 6e 69 74 |CPL"..&.globinit|
00000230 73 2d 53 74 61 72 74 0a 09 3d 09 28 22 24 6e 61 |s-Start..=.("$na|
00000240 6d 65 22 3a 43 43 3a 22 20 20 20 20 20 20 20 20 |me":CC:" |
00000250 22 29 3a 4c 45 46 54 3a 38 0a 20 5b 20 22 24 64 |"):LEFT:8. [ "$d|
00000260 61 74 65 22 3d 22 22 0a 09 3d 09 22 3c 75 6e 73 |ate"=""..=."<uns|
00000270 65 74 3e 20 3c 75 6e 73 65 74 3e 22 2c 30 2c 30 |et> <unset>",0,0|
00000280 2c 30 2c 30 2c 30 0a 20 20 7c 0a 09 3d 09 22 24 |,0,0,0. |..=."$|
00000290 64 61 74 65 22 2c 30 2c 30 0a 20 5d 0a 09 26 09 |date",0,0. ]..&.|
000002a0 30 0a 09 4d 45 4e 44 0a 0a 09 4d 41 43 52 4f 0a |0..MEND...MACRO.|
000002b0 24 6e 61 6d 65 09 47 6c 6f 62 4e 6f 20 24 6e 6f |$name.GlobNo $no|
000002c0 0a 47 5f 24 6e 61 6d 65 20 2a 09 28 24 6e 6f 29 |.G_$name *.($no)|
000002d0 2a 34 0a 20 5b 20 24 6e 6f 3e 78 78 74 6f 70 67 |*4. [ $no>xxtopg|
000002e0 6c 6f 62 61 6c 0a 78 78 74 6f 70 67 6c 6f 62 61 |lobal.xxtopgloba|
000002f0 6c 20 53 45 54 41 20 24 6e 6f 0a 20 5d 0a 09 4d |l SETA $no. ]..M|
00000300 45 4e 44 0a 0a 09 4d 41 43 52 4f 0a 09 47 6c 6f |END...MACRO..Glo|
00000310 62 44 65 66 20 24 6e 6f 2c 24 6e 61 6d 65 0a 09 |bDef $no,$name..|
00000320 26 09 2d 31 0a 09 3d 09 37 2c 28 22 24 6e 61 6d |&.-1..=.7,("$nam|
00000330 65 22 3a 43 43 3a 22 20 20 20 20 20 20 20 22 29 |e":CC:" ")|
00000340 3a 4c 45 46 54 3a 37 0a 47 5f 24 6e 61 6d 65 20 |:LEFT:7.G_$name |
00000350 2a 09 28 24 6e 6f 29 2a 34 0a 20 5b 20 24 6e 6f |*.($no)*4. [ $no|
00000360 3e 78 78 74 6f 70 67 6c 6f 62 61 6c 0a 78 78 74 |>xxtopglobal.xxt|
00000370 6f 70 67 6c 6f 62 61 6c 20 53 45 54 41 20 24 6e |opglobal SETA $n|
00000380 6f 0a 20 5d 0a 74 65 6d 70 73 09 53 45 54 53 09 |o. ].temps.SETS.|
00000390 22 78 78 67 6e 61 6d 65 22 3a 43 43 3a 22 24 78 |"xxgname":CC:"$x|
000003a0 78 67 6c 6f 62 73 22 0a 09 47 42 4c 53 09 24 74 |xglobs"..GBLS.$t|
000003b0 65 6d 70 73 0a 24 74 65 6d 70 73 09 53 45 54 53 |emps.$temps.SETS|
000003c0 09 22 24 6e 61 6d 65 22 0a 78 78 67 6c 6f 62 73 |."$name".xxglobs|
000003d0 20 53 45 54 41 09 78 78 67 6c 6f 62 73 2b 31 0a | SETA.xxglobs+1.|
000003e0 24 6e 61 6d 65 0a 09 4d 45 4e 44 0a 0a 09 4d 41 |$name..MEND...MA|
000003f0 43 52 4f 0a 09 47 6c 6f 62 49 6e 69 74 73 0a 67 |CRO..GlobInits.g|
00000400 6c 6f 62 69 6e 69 74 73 0a 74 65 6d 70 61 09 53 |lobinits.tempa.S|
00000410 45 54 41 09 30 0a 20 20 20 20 20 57 48 49 4c 45 |ETA.0. WHILE|
00000420 20 74 65 6d 70 61 3c 78 78 67 6c 6f 62 73 0a 74 | tempa<xxglobs.t|
00000430 65 6d 70 73 09 53 45 54 53 09 22 78 78 67 6e 61 |emps.SETS."xxgna|
00000440 6d 65 22 3a 43 43 3a 22 24 74 65 6d 70 61 22 0a |me":CC:"$tempa".|
00000450 74 65 6d 70 73 09 53 45 54 53 09 24 74 65 6d 70 |temps.SETS.$temp|
00000460 73 0a 09 47 6c 6f 62 49 6e 69 74 20 24 74 65 6d |s..GlobInit $tem|
00000470 70 73 0a 74 65 6d 70 61 09 53 45 54 41 09 74 65 |ps.tempa.SETA.te|
00000480 6d 70 61 2b 31 0a 20 20 20 20 20 57 45 4e 44 0a |mpa+1. WEND.|
00000490 09 4d 45 4e 44 0a 0a 09 4d 41 43 52 4f 0a 24 6c |.MEND...MACRO.$l|
000004a0 61 62 09 41 64 64 72 65 73 73 20 24 76 61 6c 75 |ab.Address $valu|
000004b0 65 0a 20 5b 20 22 24 6c 61 62 22 3c 3e 22 22 0a |e. [ "$lab"<>"".|
000004c0 24 6c 61 62 0a 20 5d 0a 74 65 6d 70 73 09 53 45 |$lab. ].temps.SE|
000004d0 54 53 09 22 72 78 22 3a 43 43 3a 22 24 78 78 72 |TS."rx":CC:"$xxr|
000004e0 65 6c 6f 63 73 22 0a 24 74 65 6d 70 73 0a 09 26 |elocs".$temps..&|
000004f0 09 24 76 61 6c 75 65 2d 53 74 61 72 74 0a 78 78 |.$value-Start.xx|
00000500 72 65 6c 6f 63 73 20 53 45 54 41 09 78 78 72 65 |relocs SETA.xxre|
00000510 6c 6f 63 73 2b 31 0a 09 4d 45 4e 44 0a 0a 09 4d |locs+1..MEND...M|
00000520 41 43 52 4f 0a 09 47 6c 6f 62 49 6e 69 74 20 24 |ACRO..GlobInit $|
00000530 6e 61 6d 65 0a 09 26 09 47 5f 24 6e 61 6d 65 2f |name..&.G_$name/|
00000540 34 0a 74 65 6d 70 73 09 53 45 54 53 09 22 72 78 |4.temps.SETS."rx|
00000550 22 3a 43 43 3a 22 24 78 78 72 65 6c 6f 63 73 22 |":CC:"$xxrelocs"|
00000560 0a 24 74 65 6d 70 73 0a 09 26 09 24 6e 61 6d 65 |.$temps..&.$name|
00000570 2d 53 74 61 72 74 0a 78 78 72 65 6c 6f 63 73 20 |-Start.xxrelocs |
00000580 53 45 54 41 09 78 78 72 65 6c 6f 63 73 2b 31 0a |SETA.xxrelocs+1.|
00000590 09 4d 45 4e 44 0a 0a 09 4d 41 43 52 4f 0a 09 45 |.MEND...MACRO..E|
000005a0 6e 64 4d 6f 64 75 6c 65 0a 67 6c 6f 62 69 6e 69 |ndModule.globini|
000005b0 74 73 0a 74 65 6d 70 61 09 53 45 54 41 09 30 0a |ts.tempa.SETA.0.|
000005c0 20 20 20 20 20 57 48 49 4c 45 20 74 65 6d 70 61 | WHILE tempa|
000005d0 3c 78 78 67 6c 6f 62 73 0a 74 65 6d 70 73 09 53 |<xxglobs.temps.S|
000005e0 45 54 53 09 22 78 78 67 6e 61 6d 65 22 3a 43 43 |ETS."xxgname":CC|
000005f0 3a 22 24 74 65 6d 70 61 22 0a 74 65 6d 70 73 09 |:"$tempa".temps.|
00000600 53 45 54 53 09 24 74 65 6d 70 73 0a 09 47 6c 6f |SETS.$temps..Glo|
00000610 62 49 6e 69 74 20 24 74 65 6d 70 73 0a 74 65 6d |bInit $temps.tem|
00000620 70 61 09 53 45 54 41 09 74 65 6d 70 61 2b 31 0a |pa.SETA.tempa+1.|
00000630 20 20 20 20 20 57 45 4e 44 0a 09 26 09 26 24 78 | WEND..&.&$x|
00000640 78 74 6f 70 67 6c 6f 62 61 6c 0a 09 26 09 30 0a |xtopglobal..&.0.|
00000650 0a 09 26 09 26 31 32 33 34 35 36 37 38 0a 74 65 |..&.&12345678.te|
00000660 6d 70 61 09 53 45 54 41 09 30 0a 20 20 20 20 20 |mpa.SETA.0. |
00000670 57 48 49 4c 45 20 74 65 6d 70 61 3c 3e 78 78 72 |WHILE tempa<>xxr|
00000680 65 6c 6f 63 73 0a 74 65 6d 70 73 09 53 45 54 53 |elocs.temps.SETS|
00000690 09 22 72 78 22 3a 43 43 3a 22 24 74 65 6d 70 61 |."rx":CC:"$tempa|
000006a0 22 0a 74 65 6d 70 61 09 53 45 54 41 09 74 65 6d |".tempa.SETA.tem|
000006b0 70 61 2b 31 0a 09 26 09 24 74 65 6d 70 73 2d 53 |pa+1..&.$temps-S|
000006c0 74 61 72 74 0a 20 20 20 20 20 57 45 4e 44 0a 09 |tart. WEND..|
000006d0 26 09 26 38 37 36 35 34 33 32 31 0a 09 4d 45 4e |&.&87654321..MEN|
000006e0 44 0a 0a 09 45 4e 44 0a |D...END.|
000006e8 
.