Mercurial > hg > Members > kono > nitros9-code
annotate 3rdparty/packages/os9l2bbs/cmds/BBS.mail.check.asm @ 2913:1c1600cc9f02
makefiles: Stop if a component fails to build
The unconditional looping of subdirectories in the makefiles
would just carry on even if one of them failed.
To avoid that build errors go unnoticed, the build should stop
on any error. For this, commands should be chained with "&&" and
not ";" in makefile recipes.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sun, 12 Jan 2014 01:32:45 +0100 |
| parents | f87ec0b216c8 |
| children |
| rev | line source |
|---|---|
| 2537 | 1 nam BBS.mail.check |
| 2 ttl program module | |
| 3 | |
| 4 ifp1 | |
| 5 use defsfile | |
| 6 endc | |
| 7 | |
| 8 tylg set Prgrm+Objct | |
| 9 atrv set ReEnt+rev | |
| 10 rev set $01 | |
| 11 | |
| 12 mod eom,name,tylg,atrv,start,size | |
| 13 | |
| 14 U0000 rmb 3 | |
| 15 U0003 rmb 1 | |
| 16 U0004 rmb 2 | |
| 17 U0006 rmb 1 | |
| 18 U0007 rmb 3 | |
| 19 U000A rmb 1 | |
| 20 U000B rmb 1 | |
| 21 U000C rmb 2 | |
| 22 U000E rmb 34 | |
| 23 U0030 rmb 64 | |
| 24 U0070 rmb 160 | |
| 25 U0110 rmb 60 | |
| 26 U014C rmb 2 | |
| 27 U014E rmb 1 | |
| 28 U014F rmb 201 | |
| 29 size equ . | |
| 2400 | 30 |
| 2537 | 31 name fcs /BBS.mail.check/ * 000D 42 42 53 2E 6D 61 69 6C 2E 63 68 65 63 EB BBS.mail.check |
| 32 fcc "Copyright (C) 1988" * 001B 43 6F 70 79 72 69 67 68 74 20 28 43 29 20 31 39 38 38 Copyright (C) 1988 | |
| 33 fcc "By Keith Alphonso" * 002D 42 79 20 4B 65 69 74 68 20 41 6C 70 68 6F 6E 73 6F By Keith Alphonso | |
| 34 fcc "Licenced to Alpha Software Technologies" * 003E 4C 69 63 65 6E 63 65 64 20 74 6F 20 41 6C 70 68 61 20 53 6F 66 74 77 61 72 65 20 54 65 63 68 6E 6F 6C 6F 67 69 65 73 Licenced to Alpha Software Technologies | |
| 35 fcc "All rights reserved" * 0065 41 6C 6C 20 72 69 67 68 74 73 20 72 65 73 65 72 76 65 64 All rights reserved | |
| 36 fcb $EC * 0078 EC l | |
| 37 fcb $E6 * 0079 E6 f | |
| 38 fcb $EA * 007A EA j | |
| 39 fcb $F5 * 007B F5 u | |
| 40 fcb $E9 * 007C E9 i | |
| 41 fcb $A0 * 007D A0 | |
| 42 fcb $E2 * 007E E2 b | |
| 43 fcb $ED * 007F ED m | |
| 44 fcb $F1 * 0080 F1 q | |
| 45 fcb $E9 * 0081 E9 i | |
| 46 fcb $F0 * 0082 F0 p | |
| 47 fcb $EF * 0083 EF o | |
| 48 fcb $F4 * 0084 F4 t | |
| 49 fcb $F0 * 0085 F0 p | |
| 50 L0086 fcc "BBS.mail.inx" * 0086 42 42 53 2E 6D 61 69 6C 2E 69 6E 78 BBS.mail.inx | |
| 51 fcb $0D * 0092 0D . | |
| 52 fcc "BBS.mail" * 0093 42 42 53 2E 6D 61 69 6C BBS.mail | |
| 53 fcb $0D * 009B 0D . | |
| 54 L009C fcc "/dd/bbs/BBS.alias" * 009C 2F 64 64 2F 62 62 73 2F 42 42 53 2E 61 6C 69 61 73 /dd/bbs/BBS.alias | |
| 55 fcb $0D * 00AD 0D . | |
| 56 fcb $0A * 00AE 0A . | |
| 57 fcb $0D * 00AF 0D . | |
| 58 L00B0 fcb $0A * 00B0 0A . | |
| 59 fcc "Checking mailbox..." * 00B1 43 68 65 63 6B 69 6E 67 20 6D 61 69 6C 62 6F 78 2E 2E 2E Checking mailbox... | |
| 60 fcb $0D * 00C4 0D . | |
| 61 L00C5 fcb $0A * 00C5 0A . | |
| 62 fcc "All previously sent mail has been read." * 00C6 41 6C 6C 20 70 72 65 76 69 6F 75 73 6C 79 20 73 65 6E 74 20 6D 61 69 6C 20 68 61 73 20 62 65 65 6E 20 72 65 61 64 2E All previously sent mail has been read. | |
| 63 fcb $0D * 00ED 0D . | |
| 64 L00EE fcc "Mail to " * 00EE 4D 61 69 6C 20 74 6F 20 Mail to | |
| 65 L00F6 fcc " has not yet been read." * 00F6 20 68 61 73 20 6E 6F 74 20 79 65 74 20 62 65 65 6E 20 72 65 61 64 2E has not yet been read. | |
| 66 fcb $0D * 010D 0D . | |
| 2400 | 67 |
| 2537 | 68 start os9 F$ID * 010E 10 3F 0C .?. |
| 69 sty U000E,U * 0111 10 AF 4E ./N | |
| 70 ldy #0 * 0114 10 8E 00 00 .... | |
| 71 os9 F$SUser * 0118 10 3F 1C .?. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
72 leax >L0086,PC * 011B 30 8D FF 67 0..g |
| 2537 | 73 lda #1 * 011F 86 01 .. |
| 74 os9 I$Open * 0121 10 3F 84 .?. | |
| 75 lbcs L01F3 * 0124 10 25 00 CB .%.K | |
| 76 sta U0000,U * 0128 A7 C4 'D | |
| 77 clr U0004,U * 012A 6F 44 oD | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
78 leax >L009C,PC * 012C 30 8D FF 6C 0..l |
| 2537 | 79 lda #1 * 0130 86 01 .. |
| 80 os9 I$Open * 0132 10 3F 84 .?. | |
| 81 lbcs L01F3 * 0135 10 25 00 BA .%.: | |
| 82 sta U0007,U * 0139 A7 47 'G | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
83 leax >L00B0,PC * 013B 30 8D FF 71 0..q |
| 2537 | 84 ldy #200 * 013F 10 8E 00 C8 ...H |
| 85 lda #1 * 0143 86 01 .. | |
| 86 os9 I$WritLn * 0145 10 3F 8C .?. | |
| 87 leax <U0030,U * 0148 30 C8 30 0H0 | |
| 88 ldy #64 * 014B 10 8E 00 40 ...@ | |
| 89 lda U0000,U * 014F A6 C4 &D | |
| 90 os9 I$Read * 0151 10 3F 89 .?. | |
| 91 lbcs L01F3 * 0154 10 25 00 9B .%.. | |
| 92 L0158 leax >U0110,U * 0158 30 C9 01 10 0I.. | |
| 93 ldy #64 * 015C 10 8E 00 40 ...@ | |
| 94 lda U0000,U * 0160 A6 C4 &D | |
| 95 os9 I$Read * 0162 10 3F 89 .?. | |
| 96 bcs L0172 * 0165 25 0B %. | |
| 97 ldd >U014C,U * 0167 EC C9 01 4C lI.L | |
| 98 cmpd U000E,U * 016B 10 A3 4E .#N | |
| 99 bne L0158 * 016E 26 E8 &h | |
| 100 bra L018F * 0170 20 1D . | |
| 101 L0172 cmpb #211 * 0172 C1 D3 AS | |
| 102 lbne L01F3 * 0174 10 26 00 7B .&.{ | |
| 103 tst U0004,U * 0178 6D 44 mD | |
| 104 beq L017F * 017A 27 03 '. | |
| 105 lbra L01F2 * 017C 16 00 73 ..s | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
106 L017F leax >L00C5,PC * 017F 30 8D FF 42 0..B |
| 2537 | 107 ldy #200 * 0183 10 8E 00 C8 ...H |
| 108 lda #1 * 0187 86 01 .. | |
| 109 os9 I$WritLn * 0189 10 3F 8C .?. | |
| 110 lbra L01F2 * 018C 16 00 63 ..c | |
| 111 L018F inc <U0004 * 018F 0C 04 .. | |
| 112 pshs U * 0191 34 40 4@ | |
| 113 lda U0007,U * 0193 A6 47 &G | |
| 114 ldx #0 * 0195 8E 00 00 ... | |
| 115 ldu #0 * 0198 CE 00 00 N.. | |
| 116 os9 I$Seek * 019B 10 3F 88 .?. | |
| 117 puls U * 019E 35 40 5@ | |
| 118 lbcs L01F3 * 01A0 10 25 00 4F .%.O | |
| 119 L01A4 lda U0007,U * 01A4 A6 47 &G | |
| 120 ldy #200 * 01A6 10 8E 00 C8 ...H | |
| 121 leax <U0070,U * 01AA 30 C8 70 0Hp | |
| 122 os9 I$ReadLn * 01AD 10 3F 8B .?. | |
| 123 lbcs L0158 * 01B0 10 25 FF A4 .%.$ | |
| 124 clr U0006,U * 01B4 6F 46 oF | |
| 125 L01B6 inc U0006,U * 01B6 6C 46 lF | |
| 126 lda ,X+ * 01B8 A6 80 &. | |
| 127 cmpa #44 * 01BA 81 2C ., | |
| 128 bne L01B6 * 01BC 26 F8 &x | |
| 129 dec U0006,U * 01BE 6A 46 jF | |
| 130 lbsr L0200 * 01C0 17 00 3D ..= | |
| 131 cmpd >U014E,U * 01C3 10 A3 C9 01 4E .#I.N | |
| 132 bne L01A4 * 01C8 26 DA &Z | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
133 leax >L00EE,PC * 01CA 30 8D FF 20 0.. |
| 2537 | 134 ldy #8 * 01CE 10 8E 00 08 .... |
| 135 lda #1 * 01D2 86 01 .. | |
| 136 os9 I$Write * 01D4 10 3F 8A .?. | |
| 137 leax <U0070,U * 01D7 30 C8 70 0Hp | |
| 138 ldb U0006,U * 01DA E6 46 fF | |
| 139 clra * 01DC 4F O | |
| 140 tfr D,Y * 01DD 1F 02 .. | |
| 141 lda #1 * 01DF 86 01 .. | |
| 142 os9 I$Write * 01E1 10 3F 8A .?. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
143 leax >L00F6,PC * 01E4 30 8D FF 0E 0... |
| 2537 | 144 ldy #200 * 01E8 10 8E 00 C8 ...H |
| 145 os9 I$WritLn * 01EC 10 3F 8C .?. | |
| 146 lbra L0158 * 01EF 16 FF 66 ..f | |
| 147 L01F2 clrb * 01F2 5F _ | |
| 148 L01F3 pshs B * 01F3 34 04 4. | |
| 149 ldy U000E,U * 01F5 10 AE 4E ..N | |
| 150 os9 F$SUser * 01F8 10 3F 1C .?. | |
| 151 puls B * 01FB 35 04 5. | |
| 152 os9 F$Exit * 01FD 10 3F 06 .?. | |
| 153 L0200 pshs Y * 0200 34 20 4 | |
| 154 L0202 lda ,X+ * 0202 A6 80 &. | |
| 155 cmpa #13 * 0204 81 0D .. | |
| 156 lbeq L02D5 * 0206 10 27 00 CB .'.K | |
| 157 cmpa #48 * 020A 81 30 .0 | |
| 158 bcs L0202 * 020C 25 F4 %t | |
| 159 cmpa #57 * 020E 81 39 .9 | |
| 160 bhi L0202 * 0210 22 F0 "p | |
| 161 leax -$01,X * 0212 30 1F 0. | |
| 162 L0214 lda ,X+ * 0214 A6 80 &. | |
| 163 cmpa #48 * 0216 81 30 .0 | |
| 164 bcs L0220 * 0218 25 06 %. | |
| 165 cmpa #57 * 021A 81 39 .9 | |
| 166 bhi L0220 * 021C 22 02 ". | |
| 167 bra L0214 * 021E 20 F4 t | |
| 168 L0220 pshs X * 0220 34 10 4. | |
| 169 leax -$01,X * 0222 30 1F 0. | |
| 170 clr U000A,U * 0224 6F 4A oJ | |
| 171 clr U000B,U * 0226 6F 4B oK | |
| 172 ldd #1 * 0228 CC 00 01 L.. | |
| 173 std U000C,U * 022B ED 4C mL | |
| 174 L022D lda ,-X * 022D A6 82 &. | |
| 175 cmpa #48 * 022F 81 30 .0 | |
| 176 bcs L0261 * 0231 25 2E %. | |
| 177 cmpa #57 * 0233 81 39 .9 | |
| 178 bhi L0261 * 0235 22 2A "* | |
| 179 suba #48 * 0237 80 30 .0 | |
| 180 sta U0003,U * 0239 A7 43 'C | |
| 181 ldd #0 * 023B CC 00 00 L.. | |
| 182 L023E tst U0003,U * 023E 6D 43 mC | |
| 183 beq L0248 * 0240 27 06 '. | |
| 184 addd U000C,U * 0242 E3 4C cL | |
| 185 dec U0003,U * 0244 6A 43 jC | |
| 186 bra L023E * 0246 20 F6 v | |
| 187 L0248 addd U000A,U * 0248 E3 4A cJ | |
| 188 std U000A,U * 024A ED 4A mJ | |
| 189 lda #10 * 024C 86 0A .. | |
| 190 sta U0003,U * 024E A7 43 'C | |
| 191 ldd #0 * 0250 CC 00 00 L.. | |
| 192 L0253 tst U0003,U * 0253 6D 43 mC | |
| 193 beq L025D * 0255 27 06 '. | |
| 194 addd U000C,U * 0257 E3 4C cL | |
| 195 dec U0003,U * 0259 6A 43 jC | |
| 196 bra L0253 * 025B 20 F6 v | |
| 197 L025D std U000C,U * 025D ED 4C mL | |
| 198 bra L022D * 025F 20 CC L | |
| 199 L0261 ldd U000A,U * 0261 EC 4A lJ | |
| 200 puls X * 0263 35 10 5. | |
| 201 puls PC,Y * 0265 35 A0 5 | |
| 202 | |
| 203 pshs X * 0267 34 10 4. | |
| 204 std U000A,U * 0269 ED 4A mJ | |
| 205 lda #48 * 026B 86 30 .0 | |
| 206 sta 0,X * 026D A7 84 '. | |
| 207 sta $01,X * 026F A7 01 '. | |
| 208 sta $02,X * 0271 A7 02 '. | |
| 209 sta $03,X * 0273 A7 03 '. | |
| 210 sta $04,X * 0275 A7 04 '. | |
| 211 ldd #10000 * 0277 CC 27 10 L'. | |
| 212 std U000C,U * 027A ED 4C mL | |
| 213 ldd U000A,U * 027C EC 4A lJ | |
| 214 lbsr L02C6 * 027E 17 00 45 ..E | |
| 215 ldd #1000 * 0281 CC 03 E8 L.h | |
| 216 std U000C,U * 0284 ED 4C mL | |
| 217 ldd U000A,U * 0286 EC 4A lJ | |
| 218 bsr L02C6 * 0288 8D 3C .< | |
| 219 ldd #100 * 028A CC 00 64 L.d | |
| 220 std U000C,U * 028D ED 4C mL | |
| 221 ldd U000A,U * 028F EC 4A lJ | |
| 222 bsr L02C6 * 0291 8D 33 .3 | |
| 223 ldd #10 * 0293 CC 00 0A L.. | |
| 224 std U000C,U * 0296 ED 4C mL | |
| 225 ldd U000A,U * 0298 EC 4A lJ | |
| 226 bsr L02C6 * 029A 8D 2A .* | |
| 227 ldd #1 * 029C CC 00 01 L.. | |
| 228 std U000C,U * 029F ED 4C mL | |
| 229 ldd U000A,U * 02A1 EC 4A lJ | |
| 230 bsr L02C6 * 02A3 8D 21 .! | |
| 231 lda #13 * 02A5 86 0D .. | |
| 232 sta 0,X * 02A7 A7 84 '. | |
| 233 puls X * 02A9 35 10 5. | |
| 234 ldb #32 * 02AB C6 20 F | |
| 235 L02AD lda 0,X * 02AD A6 84 &. | |
| 236 cmpa #48 * 02AF 81 30 .0 | |
| 237 bne L02B7 * 02B1 26 04 &. | |
| 238 stb ,X+ * 02B3 E7 80 g. | |
| 239 bra L02AD * 02B5 20 F6 v | |
| 240 L02B7 lda ,X+ * 02B7 A6 80 &. | |
| 241 cmpa #48 * 02B9 81 30 .0 | |
| 242 bcs L02C3 * 02BB 25 06 %. | |
| 243 cmpa #57 * 02BD 81 39 .9 | |
| 244 bhi L02C3 * 02BF 22 02 ". | |
| 245 bra L02B7 * 02C1 20 F4 t | |
| 246 L02C3 leax -$01,X * 02C3 30 1F 0. | |
| 247 rts * 02C5 39 9 | |
| 248 L02C6 subd U000C,U * 02C6 A3 4C #L | |
| 249 bcs L02CE * 02C8 25 04 %. | |
| 250 inc 0,X * 02CA 6C 84 l. | |
| 251 bra L02C6 * 02CC 20 F8 x | |
| 252 L02CE addd U000C,U * 02CE E3 4C cL | |
| 253 std U000A,U * 02D0 ED 4A mJ | |
| 254 leax $01,X * 02D2 30 01 0. | |
| 255 rts * 02D4 39 9 | |
| 256 L02D5 ldd #-1 * 02D5 CC FF FF L.. | |
| 257 puls PC,Y * 02D8 35 A0 5 | |
| 258 | |
| 259 emod | |
| 260 eom equ * | |
| 261 end |