Mercurial > hg > Members > kono > nitros9-code
annotate 3rdparty/packages/os9l2bbs/cmds/BBS.delete.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.delete |
| 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 1 | |
| 15 U0001 rmb 1 | |
| 16 U0002 rmb 1 | |
| 17 U0003 rmb 4 | |
| 18 U0007 rmb 1 | |
| 19 U0008 rmb 1 | |
| 20 U0009 rmb 2 | |
| 21 U000B rmb 12 | |
| 22 U0017 rmb 1 | |
| 23 U0018 rmb 6 | |
| 24 U001E rmb 1 | |
| 25 U001F rmb 1 | |
| 26 U0020 rmb 11 | |
| 27 U002B rmb 64 | |
| 28 U006B rmb 60 | |
| 29 U00A7 rmb 1 | |
| 30 U00A8 rmb 203 | |
| 31 size equ . | |
| 2400 | 32 |
| 2537 | 33 name fcs /BBS.delete/ * 000D 42 42 53 2E 64 65 6C 65 74 E5 BBS.delete |
| 34 fcc "Copyright (C) 1988" * 0017 43 6F 70 79 72 69 67 68 74 20 28 43 29 20 31 39 38 38 Copyright (C) 1988 | |
| 35 fcc "By Keith Alphonso" * 0029 42 79 20 4B 65 69 74 68 20 41 6C 70 68 6F 6E 73 6F By Keith Alphonso | |
| 36 fcc "Licenced to Alpha Software Technologies" * 003A 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 | |
| 37 fcc "All rights reserved" * 0061 41 6C 6C 20 72 69 67 68 74 73 20 72 65 73 65 72 76 65 64 All rights reserved | |
| 38 fcb $EC * 0074 EC l | |
| 39 fcb $E6 * 0075 E6 f | |
| 40 fcb $EA * 0076 EA j | |
| 41 fcb $F5 * 0077 F5 u | |
| 42 fcb $E9 * 0078 E9 i | |
| 43 fcb $A0 * 0079 A0 | |
| 44 fcb $E2 * 007A E2 b | |
| 45 fcb $ED * 007B ED m | |
| 46 fcb $F1 * 007C F1 q | |
| 47 fcb $E9 * 007D E9 i | |
| 48 fcb $F0 * 007E F0 p | |
| 49 fcb $EF * 007F EF o | |
| 50 fcb $F4 * 0080 F4 t | |
| 51 fcb $F0 * 0081 F0 p | |
| 52 L0082 fcc "High message is #" * 0082 48 69 67 68 20 6D 65 73 73 61 67 65 20 69 73 20 23 High message is # | |
| 53 L0093 fcb $00 * 0093 00 . | |
| 54 fcb $11 * 0094 11 . | |
| 55 L0095 fcc "Enter message number to delete" * 0095 45 6E 74 65 72 20 6D 65 73 73 61 67 65 20 6E 75 6D 62 65 72 20 74 6F 20 64 65 6C 65 74 65 Enter message number to delete | |
| 56 fcb $0D * 00B3 0D . | |
| 57 L00B4 fcc ">Msg # User name Date Subject" * 00B4 3E 4D 73 67 20 23 20 20 20 20 55 73 65 72 20 6E 61 6D 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 61 74 65 20 20 20 20 20 20 20 20 53 75 62 6A 65 63 74 >Msg # User name Date Subject | |
| 58 fcb $0D * 00E8 0D . | |
| 59 fcc "-------------------------------------------------------------------------------" * 00E9 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------------------------------------------------------------------------- | |
| 60 fcb $0D * 0138 0D . | |
| 61 L0139 fcc "BBS.msg.inx" * 0139 42 42 53 2E 6D 73 67 2E 69 6E 78 BBS.msg.inx | |
| 62 fcb $0D * 0144 0D . | |
| 63 fcc " " * 0145 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
| 64 L016C fcc " ****** DELETED ******" * 016C 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 20 20 20 44 45 4C 45 54 45 44 20 20 20 2A 2A 2A 2A 2A 2A ****** DELETED ****** | |
| 65 fcb $0D * 018F 0D . | |
| 66 L0190 fcc "Sorry, you cannot delete that message" * 0190 53 6F 72 72 79 2C 20 79 6F 75 20 63 61 6E 6E 6F 74 20 64 65 6C 65 74 65 20 74 68 61 74 20 6D 65 73 73 61 67 65 Sorry, you cannot delete that message | |
| 67 fcb $0D * 01B5 0D . | |
| 2400 | 68 |
| 2537 | 69 start os9 F$ID * 01B6 10 3F 0C .?. |
| 70 sty U0003,U * 01B9 10 AF 43 ./C | |
| 71 ldy #0 * 01BC 10 8E 00 00 .... | |
| 72 os9 F$SUser * 01C0 10 3F 1C .?. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
73 leax >L0139,PC * 01C3 30 8D FF 72 0..r |
| 2537 | 74 lda #3 * 01C7 86 03 .. |
| 75 os9 I$Open * 01C9 10 3F 84 .?. | |
| 76 lbcs L02C4 * 01CC 10 25 00 F4 .%.t | |
| 77 sta U0000,U * 01D0 A7 C4 'D | |
| 78 leax <U002B,U * 01D2 30 C8 2B 0H+ | |
| 79 ldy #64 * 01D5 10 8E 00 40 ...@ | |
| 80 lda U0000,U * 01D9 A6 C4 &D | |
| 81 os9 I$Read * 01DB 10 3F 89 .?. | |
| 82 lbcs L02C4 * 01DE 10 25 00 E2 .%.b | |
| 83 ldd <U002B,U * 01E2 EC C8 2B lH+ | |
| 84 leax U000B,U * 01E5 30 4B 0K | |
| 85 lbsr L0347 * 01E7 17 01 5D ..] | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
86 leax >L0082,PC * 01EA 30 8D FE 94 0.~. |
|
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
87 ldy >L0093,PC * 01EE 10 AE 8D FE A0 ...~ |
| 2537 | 88 lda #1 * 01F3 86 01 .. |
| 89 os9 I$Write * 01F5 10 3F 8A .?. | |
| 90 lbcs L02C4 * 01F8 10 25 00 C8 .%.H | |
| 91 leax U000B,U * 01FC 30 4B 0K | |
| 92 ldy #6 * 01FE 10 8E 00 06 .... | |
| 93 os9 I$WritLn * 0202 10 3F 8C .?. | |
| 94 lbcs L02C4 * 0205 10 25 00 BB .%.; | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
95 leax >L0095,PC * 0209 30 8D FE 88 0.~. |
| 2537 | 96 ldy #200 * 020D 10 8E 00 C8 ...H |
| 97 lda #1 * 0211 86 01 .. | |
| 98 os9 I$WritLn * 0213 10 3F 8C .?. | |
| 99 lbcs L02C4 * 0216 10 25 00 AA .%.* | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
100 leax >L00B4,PC * 021A 30 8D FE 96 0.~. |
| 2537 | 101 ldy #1 * 021E 10 8E 00 01 .... |
| 102 os9 I$Write * 0222 10 3F 8A .?. | |
| 103 lbcs L02C4 * 0225 10 25 00 9B .%.. | |
| 104 leax <U0018,U * 0229 30 C8 18 0H. | |
| 105 ldy #6 * 022C 10 8E 00 06 .... | |
| 106 clra * 0230 4F O | |
| 107 os9 I$ReadLn * 0231 10 3F 8B .?. | |
| 108 lbcs L02C4 * 0234 10 25 00 8C .%.. | |
| 109 clr <U0017,U * 0238 6F C8 17 oH. | |
| 110 leax <U0018,U * 023B 30 C8 18 0H. | |
| 111 lda #13 * 023E 86 0D .. | |
| 112 sta $02,X * 0240 A7 02 '. | |
| 113 lbsr L02E0 * 0242 17 00 9B ... | |
| 114 cmpd #1 * 0245 10 83 00 01 .... | |
| 115 lbcs L02C3 * 0249 10 25 00 76 .%.v | |
| 116 cmpd <U002B,U * 024D 10 A3 C8 2B .#H+ | |
| 117 lbhi L02C3 * 0251 10 22 00 6E .".n | |
| 118 std U000B,U * 0255 ED 4B mK | |
| 119 ldy U0003,U * 0257 10 AE 43 ..C | |
| 120 beq L0276 * 025A 27 1A '. | |
| 121 bsr L0298 * 025C 8D 3A .: | |
| 122 leax <U006B,U * 025E 30 C8 6B 0Hk | |
| 123 ldy #64 * 0261 10 8E 00 40 ...@ | |
| 124 lda U0000,U * 0265 A6 C4 &D | |
| 125 os9 I$Read * 0267 10 3F 89 .?. | |
| 126 ldy U0003,U * 026A 10 AE 43 ..C | |
| 127 cmpy >U00A7,U * 026D 10 AC C9 00 A7 .,I.' | |
| 128 lbne L02D1 * 0272 10 26 00 5B .&.[ | |
| 129 L0276 bsr L0298 * 0276 8D 20 . | |
| 130 leax <U006B,U * 0278 30 C8 6B 0Hk | |
| 131 ldd #-1 * 027B CC FF FF L.. | |
| 132 std 0,X * 027E ED 84 m. | |
| 133 ldy #64 * 0280 10 8E 00 40 ...@ | |
| 134 lda U0000,U * 0284 A6 C4 &D | |
| 135 os9 I$Write * 0286 10 3F 8A .?. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
136 leax >L016C,PC * 0289 30 8D FE DF 0.~_ |
| 2537 | 137 ldy #200 * 028D 10 8E 00 C8 ...H |
| 138 lda #1 * 0291 86 01 .. | |
| 139 os9 I$WritLn * 0293 10 3F 8C .?. | |
| 140 bra L02C3 * 0296 20 2B + | |
| 141 L0298 clr <U001E,U * 0298 6F C8 1E oH. | |
| 142 clr <U001F,U * 029B 6F C8 1F oH. | |
| 143 lda #6 * 029E 86 06 .. | |
| 144 sta U0001,U * 02A0 A7 41 'A | |
| 145 ldd U000B,U * 02A2 EC 4B lK | |
| 146 L02A4 aslb * 02A4 58 X | |
| 147 rola * 02A5 49 I | |
| 148 rol <U001F,U * 02A6 69 C8 1F iH. | |
| 149 dec U0001,U * 02A9 6A 41 jA | |
| 150 bne L02A4 * 02AB 26 F7 &w | |
| 151 std <U0020,U * 02AD ED C8 20 mH | |
| 152 ldx <U001E,U * 02B0 AE C8 1E .H. | |
| 153 lda U0000,U * 02B3 A6 C4 &D | |
| 154 pshs U * 02B5 34 40 4@ | |
| 155 ldu <U0020,U * 02B7 EE C8 20 nH | |
| 156 os9 I$Seek * 02BA 10 3F 88 .?. | |
| 157 lbcs L02C4 * 02BD 10 25 00 03 .%.. | |
| 158 puls PC,U * 02C1 35 C0 5@ | |
| 159 L02C3 clrb * 02C3 5F _ | |
| 160 L02C4 pshs B * 02C4 34 04 4. | |
| 161 ldy U0003,U * 02C6 10 AE 43 ..C | |
| 162 os9 F$SUser * 02C9 10 3F 1C .?. | |
| 163 puls B * 02CC 35 04 5. | |
| 164 os9 F$Exit * 02CE 10 3F 06 .?. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
165 L02D1 leax >L0190,PC * 02D1 30 8D FE BB 0.~; |
| 2537 | 166 ldy #200 * 02D5 10 8E 00 C8 ...H |
| 167 lda #1 * 02D9 86 01 .. | |
| 168 os9 I$WritLn * 02DB 10 3F 8C .?. | |
| 169 bra L02C3 * 02DE 20 E3 c | |
| 170 L02E0 pshs Y * 02E0 34 20 4 | |
| 171 L02E2 lda ,X+ * 02E2 A6 80 &. | |
| 172 cmpa #13 * 02E4 81 0D .. | |
| 173 lbeq L03B5 * 02E6 10 27 00 CB .'.K | |
| 174 cmpa #48 * 02EA 81 30 .0 | |
| 175 bcs L02E2 * 02EC 25 F4 %t | |
| 176 cmpa #57 * 02EE 81 39 .9 | |
| 177 bhi L02E2 * 02F0 22 F0 "p | |
| 178 leax -$01,X * 02F2 30 1F 0. | |
| 179 L02F4 lda ,X+ * 02F4 A6 80 &. | |
| 180 cmpa #48 * 02F6 81 30 .0 | |
| 181 bcs L0300 * 02F8 25 06 %. | |
| 182 cmpa #57 * 02FA 81 39 .9 | |
| 183 bhi L0300 * 02FC 22 02 ". | |
| 184 bra L02F4 * 02FE 20 F4 t | |
| 185 L0300 pshs X * 0300 34 10 4. | |
| 186 leax -$01,X * 0302 30 1F 0. | |
| 187 clr U0007,U * 0304 6F 47 oG | |
| 188 clr U0008,U * 0306 6F 48 oH | |
| 189 ldd #1 * 0308 CC 00 01 L.. | |
| 190 std U0009,U * 030B ED 49 mI | |
| 191 L030D lda ,-X * 030D A6 82 &. | |
| 192 cmpa #48 * 030F 81 30 .0 | |
| 193 bcs L0341 * 0311 25 2E %. | |
| 194 cmpa #57 * 0313 81 39 .9 | |
| 195 bhi L0341 * 0315 22 2A "* | |
| 196 suba #48 * 0317 80 30 .0 | |
| 197 sta U0002,U * 0319 A7 42 'B | |
| 198 ldd #0 * 031B CC 00 00 L.. | |
| 199 L031E tst U0002,U * 031E 6D 42 mB | |
| 200 beq L0328 * 0320 27 06 '. | |
| 201 addd U0009,U * 0322 E3 49 cI | |
| 202 dec U0002,U * 0324 6A 42 jB | |
| 203 bra L031E * 0326 20 F6 v | |
| 204 L0328 addd U0007,U * 0328 E3 47 cG | |
| 205 std U0007,U * 032A ED 47 mG | |
| 206 lda #10 * 032C 86 0A .. | |
| 207 sta U0002,U * 032E A7 42 'B | |
| 208 ldd #0 * 0330 CC 00 00 L.. | |
| 209 L0333 tst U0002,U * 0333 6D 42 mB | |
| 210 beq L033D * 0335 27 06 '. | |
| 211 addd U0009,U * 0337 E3 49 cI | |
| 212 dec U0002,U * 0339 6A 42 jB | |
| 213 bra L0333 * 033B 20 F6 v | |
| 214 L033D std U0009,U * 033D ED 49 mI | |
| 215 bra L030D * 033F 20 CC L | |
| 216 L0341 ldd U0007,U * 0341 EC 47 lG | |
| 217 puls X * 0343 35 10 5. | |
| 218 puls PC,Y * 0345 35 A0 5 | |
| 219 L0347 pshs X * 0347 34 10 4. | |
| 220 std U0007,U * 0349 ED 47 mG | |
| 221 lda #48 * 034B 86 30 .0 | |
| 222 sta 0,X * 034D A7 84 '. | |
| 223 sta $01,X * 034F A7 01 '. | |
| 224 sta $02,X * 0351 A7 02 '. | |
| 225 sta $03,X * 0353 A7 03 '. | |
| 226 sta $04,X * 0355 A7 04 '. | |
| 227 ldd #10000 * 0357 CC 27 10 L'. | |
| 228 std U0009,U * 035A ED 49 mI | |
| 229 ldd U0007,U * 035C EC 47 lG | |
| 230 lbsr L03A6 * 035E 17 00 45 ..E | |
| 231 ldd #1000 * 0361 CC 03 E8 L.h | |
| 232 std U0009,U * 0364 ED 49 mI | |
| 233 ldd U0007,U * 0366 EC 47 lG | |
| 234 bsr L03A6 * 0368 8D 3C .< | |
| 235 ldd #100 * 036A CC 00 64 L.d | |
| 236 std U0009,U * 036D ED 49 mI | |
| 237 ldd U0007,U * 036F EC 47 lG | |
| 238 bsr L03A6 * 0371 8D 33 .3 | |
| 239 ldd #10 * 0373 CC 00 0A L.. | |
| 240 std U0009,U * 0376 ED 49 mI | |
| 241 ldd U0007,U * 0378 EC 47 lG | |
| 242 bsr L03A6 * 037A 8D 2A .* | |
| 243 ldd #1 * 037C CC 00 01 L.. | |
| 244 std U0009,U * 037F ED 49 mI | |
| 245 ldd U0007,U * 0381 EC 47 lG | |
| 246 bsr L03A6 * 0383 8D 21 .! | |
| 247 lda #13 * 0385 86 0D .. | |
| 248 sta 0,X * 0387 A7 84 '. | |
| 249 puls X * 0389 35 10 5. | |
| 250 ldb #32 * 038B C6 20 F | |
| 251 L038D lda 0,X * 038D A6 84 &. | |
| 252 cmpa #48 * 038F 81 30 .0 | |
| 253 bne L0397 * 0391 26 04 &. | |
| 254 stb ,X+ * 0393 E7 80 g. | |
| 255 bra L038D * 0395 20 F6 v | |
| 256 L0397 lda ,X+ * 0397 A6 80 &. | |
| 257 cmpa #48 * 0399 81 30 .0 | |
| 258 bcs L03A3 * 039B 25 06 %. | |
| 259 cmpa #57 * 039D 81 39 .9 | |
| 260 bhi L03A3 * 039F 22 02 ". | |
| 261 bra L0397 * 03A1 20 F4 t | |
| 262 L03A3 leax -$01,X * 03A3 30 1F 0. | |
| 263 rts * 03A5 39 9 | |
| 264 L03A6 subd U0009,U * 03A6 A3 49 #I | |
| 265 bcs L03AE * 03A8 25 04 %. | |
| 266 inc 0,X * 03AA 6C 84 l. | |
| 267 bra L03A6 * 03AC 20 F8 x | |
| 268 L03AE addd U0009,U * 03AE E3 49 cI | |
| 269 std U0007,U * 03B0 ED 47 mG | |
| 270 leax $01,X * 03B2 30 01 0. | |
| 271 rts * 03B4 39 9 | |
| 272 L03B5 ldd #-1 * 03B5 CC FF FF L.. | |
| 273 puls PC,Y * 03B8 35 A0 5 | |
| 274 | |
| 275 emod | |
| 276 eom equ * | |
| 277 end |