[A83] Aurora for 83+?
[Prev][Next][Index][Thread]
[A83] Aurora for 83+?
Hello all,
does someone know if it's possible to convert aurora to 83+ (or even just
the prgmZAURAGFX)? The ability to draw screens like some sort of visual
basic is very cool, however, I don't have a 83 :(
Thanx,
Ronald Teune
Using Opera since 08/10/2001
http://www.zeekoe.cjb.net
iets@zeekoe.cjb.net
Anything that is good and useful is made of chocolate.
ZAURAGFX
.NOLIST
#define equ .equ
#define EQU .equ
#define END .end
.LIST
_indicatorOff equ 4795h
saferam2 equ 858Fh
_setxxop1 equ 4A74h
_PUSHREALO1 _PU 4536h
_zeroop1 equ 428Eh
_convop1 equ 4EFCh
.org 9327h
res 6, (iy+09h)
call _indicatorOff
ld hl, 0056h
call Label1
cp 01h
jr z, Label2
cp 02h
jr z, Label3
cp 03h
jr z, Label4
cp 04h
jp z, 08731h
ret
Label3:
call 08731h
call 0863Fh
call 08731h
ld a, (saferam2)
ld hl, 0041h
call Label5
ld a, (08590h)
ld hl, 0042h
call Label5
ret
Label4:
call Label6
call 08609h
call 05164h
ret
Label2:
call 08731h
call Label6
ld hl, Str1
call 08599h
ret
Label6:
ld hl, 0041h
call Label1
ld b, a
ld hl, 0042h
call Label1
ld c, a
ld hl, 0043h
call Label1
ld d, a
ld hl, 0044h
call Label1
ld e, a
ret
Label5:
push hl
call _setxxop1
call _PUSHREALO1 ; Optimization: RST 18h
call _zeroop1
pop hl
ld (0803Ah), hl
call 04ED8h
ret
Label1:
push bc
push de
push hl
call _zeroop1
pop hl
ld (0803Ah), hl
call 04EECh
call _convop1
ld a, e
pop de
pop bc
ret
Str1:
.db 00h
; Disassembled by Jimmy Conner - timagic@yahoo.com
; @ 25-9-01 18:31:06
; Disassembler v1.7
; Total Opcodes: 65
; Total Data: 1
; Z80 AC - z80.us.fornax.com
; Personal - www.timagic.cjb.net
.end
end
ZAURASYS:
.NOLIST
#define equ .equ
#define EQU .equ
#define END .end
.LIST
_indicatorOff equ 4795h
_zeroop1 equ 428Eh
saferam4 equ 8039h
_chksysvar equ 442Ah
saferam2 equ 858Fh
_cleargbuf equ 515Bh
_clrlcdf equ 4755h
libstart equ 0002h
plotsscreen equ 8E29h
_iline equ 4AE4h
pencol equ 8252h
_vputs equ 4781h
penrow equ 8253h
_divhlbya equ 400Ch
_getk equ 4A18h
_op2toop1 equ 41C2h
_convop1 equ 4EFCh
_lcdbusy equ 4066h
saferam1 equ 8265h
_setxxop1 equ 4A74h
_PUSHREALO1 _PU 4536h
_getkey equ 4CFEh
_vputmap equ 477Dh
progptr equ 9319h
_OP1SET0 _OP 4286h
_htimesl equ 4382h
.org 9327h
call _indicatorOff
res 6, (iy+09h)
set 7, (iy+14h)
ei
ld hl, Str1
ld de, 08599h
ld bc, 00207h
ldir
call _zeroop1
ld de, saferam4
ld a, 05h
ld (de), a
inc de
ld hl, Str2
ld bc, 0008h
ldir
call _chksysvar
ex de, hl
ld de, 0007h
add hl, de
ld (08595h), hl
call _zeroop1
ld de, saferam4
ld a, 05h
ld (de), a
inc de
ld hl, Str3
ld bc, 0008h
ldir
call _chksysvar
ex de, hl
ld de, 00734h
add hl, de
ld (08593h), hl
ld de, 000Eh
add hl, de
ld a, (hl)
ld (saferam2), a
inc hl
ld a, (hl)
ld (08590h), a
Label44:
call _cleargbuf
call _clrlcdf ; Clear the Screen
call _zeroop1
ld de, saferam4
ld a, 07h
ld (de), a
inc de
ld hl, Str4
ld bc, 0003h
ldir
call _chksysvar
jr c, Label1
ex de, hl
ld de, libstart
add hl, de
ld de, plotsscreen
ld bc, 00294h
ldir
Label1:
ld bc, 0007h
ld de, 0001h
ld h, 01h
call _iline
ld hl, 03808h
ld (pencol), hl
ld hl, Str5
call _vputs
ld hl, Str6
ld a, 02h
ld e, 39h
call Label2
ld hl, 0911Dh
ld de, 090BDh
ld b, 0Ch
Label3:
ld a, 0FFh
ld (hl), a
ld (de), a
inc hl
inc de
djnz Label3
ld hl, 090D4h
ld b, 07h
Label4:
ld a, 01h
ld (hl), a
ld de, 000Ch
add hl, de
djnz Label4
ld bc, 00202h
ld d, 01h
Label10:
push de
push bc
ld a, d
call Label5
jr z, Label6
pop bc
push bc
ld a, b
add a, 02h
ld e, c
dec e
ld c, 09h
call Label7
add a, 02h
ld c, 09h
call Label7
inc e
dec a
push de
push af
call _zeroop1
ld de, saferam4
ld a, 05h
ld (de), a
inc de
ld hl, Str7
ld bc, 0008h
ldir
call _chksysvar
ld hl, Str8
jr c, Label8
ex de, hl
inc hl
inc hl
Label8:
pop af
pop de
call Label2
pop bc
push bc
ld a, c
add a, 08h
ld e, a
ld a, b
dec a
ld c, 07h
call Label7
add a, 08h
ld c, 07h
call Label7
inc a
ld c, 07h
call Label7
pop bc
push bc
ld a, b
ld (pencol), a
ld a, c
add a, 08h
ld (penrow), a
ld hl, Str9
call _vputs
pop bc
ld a, c
add a, 12h
ld c, a
cp 38h
call z, Label9
pop de
inc d
jr Label10
Label9:
ld c, 02h
ld a, b
add a, 14h
ld b, a
ret
Label6:
pop bc
pop de
call 05164h
call Label11
Label17:
call Label12
ld a, 0BFh
out (01h), a
in a, (01h)
bit 5, a
jp z, Label13
ld a, 0BFh
out (01h), a
in a, (01h)
bit 4, a
jp z, Label14
ld a, 0BFh
out (01h), a
in a, (01h)
bit 0, a
jp z, Label15
ld a, 0BFh
out (01h), a
in a, (01h)
bit 3, a
jp z, Label16
jr Label17
Label13:
jp Label18
Label23:
ld a, (08590h)
ld h, 00h
ld l, a
ld a, 12h
call _divhlbya
ld b, l
ld a, (saferam2)
ld h, 00h
ld l, a
ld a, 14h
push bc
call _divhlbya
pop bc
ld a, l
add a, l
add a, l
add a, b
inc a
call Label5
jr z, Label19
ld de, (08595h)
ld hl, Str9
ld bc, 0004h
ldir
ld a, 02h
ld hl, 004Fh
call Label20
call Label21
call _getk
jp Label22
Label19:
call Label21
jp Label17
Label18:
ld a, (08590h)
cp 37h
jp m, Label23
call Label11
call Label24
ld c, 1Ch
ld e, 35h
ld b, 00h
ld d, 04h
ld h, 00h
call Label25
ld bc, 0023h
ld de, 0009h
ld h, 01h
call _iline
ld bc, 02009h
call _iline
ld de, 02023h
call _iline
ld bc, 0023h
call _iline
ld bc, 02109h
ld de, 02121h
call _iline
ld hl, 01D02h
ld (pencol), hl
ld hl, Str10
call _vputs
ld hl, 02302h
ld (pencol), hl
ld hl, Str11
call _vputs
ld hl, 02902h
ld (pencol), hl
ld hl, Str12
call _vputs
ld hl, 02F02h
ld (pencol), hl
ld hl, Str13
call _vputs
call Label11
call 05164h
Label26:
call Label12
ld a, 0BFh
out (01h), a
in a, (01h)
bit 5, a
jp nz, Label26
call Label27
call 05164h
call Label11
ld a, (saferam2)
cp 00h ; Optimization: OR A
jp m, Label19
cp 20h
jp p, Label19
ld a, (08590h)
cp 1Ch
jp m, Label19
cp 36h
jp p, Label19
cp 23h
jp m, Label28
cp 29h
jp m, Label15
cp 2Fh
jp m, Label29
jp Label16
Label15:
ld a, 01h
ld hl, 004Fh
call Label20
jp Label22
Label14:
call Label11
call Label24
call Label11
Label28:
ld hl, Str10
ld bc, 0100Ah
ld de, 05032h
call Label1
ld de, 04A0Ah
ld hl, Str14
call Label31
ld de, 03114h
ld hl, Str15
call Label31
ld de, 03914h
ld hl, Str16
call Label31
ld de, 0121Eh
ld hl, Str17
call Label31
ld de, 01228h
ld hl, Str18
call Label31
ld hl, 01512h
ld (pencol), hl
ld hl, Str19
call _vputs
call 05164h
call Label11
Label32:
call Label12
ld a, 0BFh
out (01h), a
in a, (01h)
bit 5, a
jr nz, Label32
ld de, 01228h
ld hl, Str18
call Label33
jp z, Label34
ld de, 03114h
ld hl, Str15
call Label33
call z, Label35
ld de, 03914h
ld hl, Str16
call Label33
call z, Label36
ld de, 0121Eh
ld hl, Str17
call Label33
jr z, Label37
ld de, 04A0Ah
ld hl, Str14
call Label33
jr nz, Label32
call Label27
call 05164h
call Label11
jp Label19
Label37:
call _getk
ld hl, Str20
ld bc, 00814h
ld de, 05824h
call Label1
Label42:
call _getk
call _op2toop1
call _convop1
ld a, e
cp 5Ch
jr z, Label38
cp 5Dh
jr z, Label38
cp 5Eh
jr z, Label38
cp 52h
jr z, Label39
cp 53h
jr z, Label39
cp 54h
jr z, Label39
cp 48h
jr z, Label40
cp 49h
jr z, Label40
cp 4Ah
jr z, Label40
cp 66h
jr z, Label41
jr Label42
Label40:
sub 42h
jr Label43
Label39:
sub 4Fh
jr Label43
Label38:
sub 5Ch
jr Label43
Label41:
ld a, 09h
Label43:
ld hl, (08593h)
ld de, 0012h
add hl, de
ld (hl), a
ld (Str21), a
jp Label44
Label36:
ld hl, (08593h)
ld de, 0010h
add hl, de
ld a, (hl)
cp 3Fh
ret z
inc (hl)
jr Label45
Label35:
ld hl, (08593h)
ld de, 0010h
add hl, de
ld a, (hl)
cp 18h
ret z
dec (hl)
Label45:
call Label21
ld hl, (08593h)
ld de, 0010h
add hl, de
ld a, (hl)
or 0C0h
call _lcdbusy
out (10h), a
ret
Label34:
call _getk
ld hl, (08593h)
ld de, 000Dh
add hl, de
ld a, (hl)
or a
jp z, Label46
ld a, 00h ; Optimization: XOR A
ld (08591h), a
ld hl, Str22
call Label47
ld hl, (08593h)
ld de, 000Dh
add hl, de
ld a, (08592h)
cp (hl)
jp nz, Label48
Label46:
ld a, 01h
ld (08591h), a
ld hl, Str23
call Label47
ld a, e
ld hl, (08593h)
ld de, 000Dh
add hl, de
ld (hl), a
Label48:
call Label27
call 05164h
jp Label28
Label24:
ld hl, plotsscreen
ld de, saferam1
ld bc, 00300h
ldir
ret
Label27:
ld de, plotsscreen
ld hl, saferam1
ld bc, 00300h
ldir
ret
Label29:
call Label24
ld hl, Str24
ld bc, 0100Fh
ld de, 0502Fh
call Label1
ld hl, 01912h
ld (pencol), hl
ld hl, Str25
call _vputs
ld hl, 02012h
ld (pencol), hl
ld hl, Str26
call _vputs
ld hl, 02712h
ld (pencol), hl
ld hl, Str27
call _vputs
call 05164h
Label49:
ld a, 0BFh
out (01h), a
in a, (01h)
bit 5, a
jr nz, Label49
call Label27
call 05164h
jp Label19
Label20:
push hl
call _setxxop1
call _PUSHREALO1 ; Optimization: RST 18h
call _zeroop1
pop hl
ld (0803Ah), hl
call 04ED8h
ret
push hl
call _zeroop1
pop hl
ld (0803Ah), hl
call 04EECh
call _convop1
ld a, e
ret
Label16:
call Label11
Label51:
call _getk
res 4, (iy+09h)
push af
di
ld a, 01h
out (03h), a
ld a, 00h ; Optimization: XOR A
out (04h), a
ex af, af'
exx
ei
halt
di
ld a, 16h
out (04h), a
ld a, 0Bh
out (03h), a
ei
pop af
call _getkey
ld hl, (08593h)
ld de, 000Dh
add hl, de
ld a, (hl)
or a
jr z, Label50
ld a, 00h ; Optimization: XOR A
ld (08591h), a
call Label11
ld hl, Str22
call Label47
ld hl, (08593h)
ld de, 000Dh
add hl, de
ld a, (08592h)
cp (hl)
jp nz, Label51
Label50:
ld bc, 00814h
ld de, 05824h
ld hl, Str28
call Label1
ld a, 03h
ld hl, 004Fh
call Label20
jp Label22
Label47:
ld bc, 00814h
ld de, 05824h
call Label1
ld hl, 01D0Ah
ld (pencol), hl
ld a, 00h ; Optimization: XOR A
ld (08592h), a
ld de, 0000h
Label52:
push de
call _getk
call _op2toop1
call _convop1
ld a, e
cp 69h
pop de
ret z
or a
jp z, Label52
push de
ld c, a
ld hl, (08593h)
add hl, de
ld a, (08591h)
or a
jr z, Label53
ld a, c
ld (hl), a
Label55:
ld a, 2Ah
call _vputmap
call 05164h
pop de
inc e
ld a, e
cp 0Dh
jp nz, Label52
ret
Label53:
ld a, c
ld b, a
ld a, (hl)
cp b
jr z, Label54
jr Label55
Label54:
ld hl, 08592h
inc (hl)
jr Label55
Label5:
ld hl, (progptr)
ld (08592h), a
Label60:
ld a, (hl)
and 1Fh
cp 05h
jr z, Label56
cp 06h
jr z, Label56
cp 01h
jr z, Label57
cp 0Dh
jr z, Label57
ld a, 00h ; Optimization: XOR A
or a
ret
Label56:
dec hl
dec hl
dec hl
ld b, (hl)
ld a, b
cp 08h
jp z, Label58
Label59:
dec hl
djnz Label59
dec hl
jp Label60
Label58:
ld de, Str29
ld c, 00h
ld b, 04h
Label62:
dec hl
ld a, (de)
cp (hl)
call z, Label61
inc de
djnz Label62
ld a, c
cp 04h
jr z, Label63
dec hl
dec hl
dec hl
dec hl
dec hl
jr Label60
Label57:
dec hl
dec hl
dec hl
ld b, (hl)
Label64:
dec hl
djnz Label64
dec hl
jp Label60
Label61:
inc c
ret
Label63:
ld de, Str9
dec hl
ld a, (hl)
ld (de), a
dec hl
inc de
ld a, (hl)
ld (de), a
dec hl
inc de
ld a, (hl)
ld (de), a
dec hl
inc de
ld a, (hl)
ld (de), a
dec hl
ld a, (08592h)
dec a
ld (08592h), a
or a
jp nz, Label60
ld a, 01h
or a
ret
Label7:
push af
push de
ld hl, 0000h
ld d, 00h
add hl, de
add hl, de
add hl, de
add hl, hl
add hl, hl
ld d, 00h
ld e, a
srl e
srl e
srl e
add hl, de
ld de, plotsscreen
add hl, de
ld b, 07h
and b
or a
jr z, Label65
ld d, a
ld e, c
Label67:
ld b, 00h
ld c, 0FFh
push de
scf
Label66:
rr b
rr c
dec d
jr nz, Label66
pop de
ld a, b
and (hl)
ld (hl), a
inc hl
ld a, c
and (hl)
ld (hl), a
ld bc, 000Bh
add hl, bc
dec e
jr nz, Label67
pop de
pop af
ret
Label65:
ld b, c
Label68:
ld (hl), 00h
ld de, 000Ch
add hl, de
djnz Label68
pop de
pop af
ret
Label21:
ld bc, 01388h
Label69:
call _OP1SET0
dec bc
ld a, b
or c
jr nz, Label69
ret
Label22:
call Label11
call 05164h
ld hl, (08593h)
ld de, 000Eh
add hl, de
ld a, (saferam2)
ld (hl), a
inc hl
ld a, (08590h)
ld (hl), a
res 4, (iy+09h)
res 7, (iy+14h)
ret
Str7:
.db "ICON"
Str9:
.db 00h, 00h, 00h, 00h, 00h
Str2:
.db "ZAURAPRG"
Str29:
.db "PROG"
Str14:
.db "X", 00h
Str3:
.db "ZAURASYS", 00h
Str28:
.db "Press Enter", 00h
Str22:
.db "Enter Password:", 00h
Str23:
.db "Enter New PWord:", 00h
Str18:
.db "Change Password", 00h
Str17:
.db "Change BG Pic", 00h
Str20:
.db "Enter Pic Number:", 00h
Str13:
.db "Off", 00h
Str19:
.db "Contrast:", 00h
Str15:
.db 0CFh, 00h
Str16:
.db 05h, 00h
Str11:
.db "TI-OS", 00h
Str12:
.db "About", 00h
Str10:
.db "Prefs", 00h
Str5:
.db "Aurora", 00h
Str24:
.db "Aurora v1.0", 00h
Str25:
.db "Copyright (C) 1997", 00h
Str26:
.db "Bill Nagel and", 00h
Str27:
.db "Jareth Software", 00h
Str6:
.db 0A8h
.db "p", 0D8h
.db "p", 0A8h, 00h, 00h, 00h
Str8:
.db "r", 0DBh, 0DBh, 0FBh, 0DBh, 07h, 0FFh, 7Eh, 00h, 01h, 02h, 03h,
04h, 05h, 06h, 07h, 08h, 09h, 08h, 07h, 06h, 00h
.db ".", 1Eh
.db ","
Str4:
.db "`"
Str21:
.db 00h, 00h
Str1:
Label30:
.db 0E5h, 0C5h, 0D5h, 0CDh
.db "1", 87h, 0D1h, 0C1h, 0D5h, 0C5h, 0CBh
.db "(", 0CBh
.db "(", 0CBh
.db "(", 0CBh, 2Ah, 0CBh, 2Ah, 0CBh, 2Ah
.db "z", 90h
.db "W", 0CDh, 09h, 86h, 0C1h, 0D1h
.db ">?", 91h
.db "O>?", 93h
.db "_", 0D5h
.db "P&", 01h, 0CDh, 0E4h
.db "J", 0D1h, 0D5h, 0C5h, 14h, 1Dh, 04h, 04h
.db "K", 0CDh, 0E4h
.db "J", 0C1h, 0C5h
.db "B", 0Dh, 0Dh, 0CDh, 0E4h
.db "J", 0C1h, 0D1h, 0D5h, 0C5h
.db "K", 0CDh, 0E4h
.db "J", 0C1h, 0D1h, 0C5h
.db "B", 0CDh, 0E4h
.db "J", 0C1h
.db "Y", 0CDh, 0E4h
.db "J", 7Bh, 0D6h, 08h
.db "_O", 0CDh, 0E4h
.db "J", 0E1h
.db ">8", 93h
.db "2S", 82h
.db "x", 0C6h, 02h
.db "2R", 82h, 0CDh, 81h
.db "G", 0CDh
.db "dQ", 0C9h
Label25:
push bc
push de
ld a, e
sub c
inc a
ld (08592h), a
ld h, 0Ch
ld l, c
ld c, d
push bc
call _htimesl
pop bc
ld d, 00h
ld e, b
add hl, de
ld de, plotsscreen
add hl, de
Label86:
ld d, h
ld e, l
ld b, c
Label85:
ld a, 00h ; Optimization: XOR A
ld (de), a
inc de
dec b
ld a, b
or a
jr nz, Label85
ld de, 000Ch
add hl, de
ld a, (08592h)
dec a
ld (08592h), a
or a
jr nz, Label86
pop de
pop bc
ret
Label87:
ld a, 0BFh
out (01h), a
in a, (01h)
bit 5, a
ret z
call 0864Dh
jr Label87
Label12:
ld a, 0FEh
out (01h), a
in a, (01h)
bit 0, a
call z, 086AEh
ld a, 0FEh
out (01h), a
in a, (01h)
bit 3, a
call z, 0869Dh
ld a, 0FEh
out (01h), a
in a, (01h)
bit 1, a
call z, 0868Ch
ld a, 0FEh
out (01h), a
in a, (01h)
bit 2, a
call z, 0867Ah
ret
ld a, (saferam2)
cp 5Ah
ret z
call 08731h
ld hl, saferam2
inc (hl)
inc (hl)
call 08731h
ret
ld a, (saferam2)
or a
ret z
call 08731h
ld hl, saferam2
dec (hl)
dec (hl)
call 08731h
ret
ld a, (08590h)
or a
ret z
call 08731h
ld hl, 08590h
dec (hl)
dec (hl)
call 08731h
ret
ld a, (08590h)
cp 3Ah
ret z
call 08731h
ld hl, 08590h
inc (hl)
inc (hl)
call 08731h
ret
Label31:
ld a, e
inc a
ld (penrow), a
ld a, d
add a, 02h
ld (pencol), a
call _vputs
ld a, 3Fh
sub e
ld e, a
push de
ld b, d
ld a, e
sub 08h
ld c, a
ld h, 01h
call _iline
ld a, (pencol)
ld d, a
ld e, c
call _iline
ld b, d
ld a, c
add a, 08h
ld c, a
call _iline
pop de
call _iline
ret
Label33:
call 086F8h
ld a, b
or a
ret
ld b, 01h
ld a, (08590h)
cp e
ret m
ld c, a
ld a, e
add a, 08h
cp c
ret m
ld a, (saferam2)
cp d
ret m
ld a, e
inc a
ld (penrow), a
ld a, d
add a, 02h
ld (pencol), a
res 7, (iy+14h)
call _vputs
set 7, (iy+14h)
ld a, (pencol)
ld c, a
ld b, 01h
ld a, (saferam2)
cp c
ret p
ld b, 00h
call 05164h
ret
Label11:
ld hl, 08797h
ld d, 02h
ld a, (08590h)
ld e, a
ld a, (saferam2)
call 08744h
call 05164h
ret
Label2:
push hl
ld hl, 0000h
ld d, 00h
add hl, de
add hl, de
add hl, de
add hl, hl
add hl, hl
ld d, 00h
ld e, a
srl e
srl e
srl e
add hl, de
ld de, plotsscreen
add hl, de
ld b, 07h
and b
or a
jr z, Label88
pop ix
ld d, a
ld e, 08h
Label90:
ld b, (ix+00h)
ld c, 00h
push de
Label89:
srl b
rr c
dec d
jr nz, Label89
pop de
ld a, b
xor (hl)
ld (hl), a
inc hl
ld a, c
xor (hl)
ld (hl), a
ld bc, 000Bh
add hl, bc
inc ix
dec e
jr nz, Label90
ret
Label88:
pop de
ld b, 08h
Label91:
ld a, (de)
xor (hl)
ld (hl), a
inc de
push bc
ld bc, 000Ch
add hl, bc
pop bc
djnz Label91
ret
ret p
ret po
ret p
cp b
djnz Label92
Label92:
nop
nop
; Disassembled by Jimmy Conner - timagic@yahoo.com
; @ 25-9-01 18:31:30
; Disassembler v1.7
; Total Opcodes: 980
; Total Data: 378
; Z80 AC - z80.us.fornax.com
; Personal - www.timagic.cjb.net
.end
end