diff options
| author | B. Watson <urchlay@slackware.uk> | 2022-11-16 19:03:37 -0500 |
|---|---|---|
| committer | B. Watson <urchlay@slackware.uk> | 2022-11-16 19:08:31 -0500 |
| commit | bdd220fe5f4b0603b547a4370250a376f2e94c03 (patch) | |
| tree | 9b404e931966adef0d34a27b53442c5e7c8d2a31 /autorun.s | |
| parent | 10f07d4652cee36a792edf555f5c8bad2c6ca04d (diff) | |
| download | dla-asm-bdd220fe5f4b0603b547a4370250a376f2e94c03.tar.gz | |
dla2csv.xex: stop using atexit(), it crashes under MyDOS.
Diffstat (limited to 'autorun.s')
| -rw-r--r-- | autorun.s | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -135,6 +135,18 @@ keytabloop: ; load and run the file (Y is index into filename table) load_file: + ; first print a "Loading D1:whatever" message. + sty keycode + lda #<loadingmsg + ldx #>loadingmsg + jsr printmsg + ldy keycode + lda fntab_l,y + ldx fntab_h,y + jsr printmsg + ldy keycode + + ; now we can set up the IOCB and call CIO to load the file. ldx #$10 ; IOCB #1 lda #$28 ; MyDOS, Sparta 3.2, and SDX all support this XIO sta ICCOM,x @@ -178,9 +190,11 @@ exit: ; a good reason... dla_filename: .byte "D1:DLA.XEX" dla_fn_len = * - dla_filename + .byte 0 ; null terminate for printmsg csv_filename: .byte "D1:DLA2CSV.XEX" csv_fn_len = * - csv_filename + .byte 0 ; these tables only have 2 entries, but could have many more if ; we ever need them (up to 255). @@ -194,5 +208,6 @@ keytab: .byte KEY_1, KEY_2, KEY_NONE diskerrmsg: .byte "I/O Error ",0 presskeymsg: .byte $9b,"Press any key...",0 +loadingmsg: .byte "Loading ",0 xex_run main |