Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Listing for file "temp.asm"
- 3 00:0000 - - - - .list
- 4 00:0000 - - - -
- 5 00:0000 EF 7B - - .db tExtTok,tAsm84CeCmp
- 6 00:0002 - - - - .org userMem
- 7 D1:A881 - - - -
- 8 D1:A881 - - - - Start:
- 9 D1:A881 CD 84 03 02 call _ZeroOP1
- 10 D1:A885 3E AA - - ld a,tVarStrng
- 11 D1:A887 32 F9 05 D0 ld (OP1+1),a
- 12 D1:A88B CD 10 05 02 call _FindSym
- 13 D1:A88F 30 11 - - jr nc,Str1Exists
- 14 D1:A891 3E 40 - - ld a,LcapA-1
- 15 D1:A893 06 1B - - ld b,Ltheta-LcapA+1
- 16 D1:A895 21 1F EA D0 ld hl,saveSScreen
- 17 D1:A899 - - - - AlphabetLoop:
- 18 D1:A899 3C - - - inc a
- 19 D1:A89A 77 - - - ld (hl),a
- 20 D1:A89B 23 - - - inc hl
- 21 D1:A89C 10 FB - - djnz AlphabetLoop
- 22 D1:A89E 11 1D EA D0 ld de,saveSScreen-2
- 23 D1:A8A2 - - - - Str1Exists:
- 24 D1:A8A2 13 - - - inc de
- 25 D1:A8A3 13 - - - inc de
- 26 D1:A8A4 D5 - - - push de
- 27 D1:A8A5 CD 50 0F 02 call _RclAns
- 28 D1:A8A9 FE 01 - - cp a,ListObj
- 29 D1:A8AB 28 02 - - jr z, _
- 30 D1:A8AD D1 - - - pop de
- 31 D1:A8AE C9 - - - ret
- 32 D1:A8AF 1A - - - _: ld a,(de)
- 33 D1:A8B0 FE 1B - - cp a,Ltheta-LcapA+1
- 34 D1:A8B2 38 02 - - jr c,_
- 35 D1:A8B4 3E 1B - - ld a,Ltheta-LcapA+1
- 36 D1:A8B6 EB - - - _: ex de,hl
- 37 D1:A8B7 23 - - - inc hl
- 38 D1:A8B8 23 - - - inc hl
- 39 D1:A8B9 47 - - - ld b,a
- 40 D1:A8BA - - - - StoreLoop:
- 41 D1:A8BA D1 - - - pop de
- 42 D1:A8BB 1A - - - ld a,(de)
- 43 D1:A8BC 13 - - - inc de
- 44 D1:A8BD D5 - - - push de
- 45 D1:A8BE C5 - - - push bc
- 46 D1:A8BF E5 - - - push hl
- 47 D1:A8C0 F5 - - - push af
- 48 D1:A8C1 CD 84 03 02 call _ZeroOP1
- 49 D1:A8C5 F1 - - - pop af
- 50 D1:A8C6 32 F9 05 D0 ld (OP1+1),a
- 51 D1:A8CA CD 10 05 02 call _FindSym
- 52 D1:A8CE 30 04 - - jr nc,_
- 53 D1:A8D0 CD 34 05 02 call _CreateReal
- 54 D1:A8D4 E1 - - - _: pop hl
- 55 D1:A8D5 01 09 00 00 ld bc,9
- 56 D1:A8D9 ED B0 - - ldir
- 57 D1:A8DB C1 - - - pop bc
- 58 D1:A8DC 10 DC - - djnz StoreLoop
- 59 D1:A8DE D1 - - - pop de
- 60 D1:A8DF C9 - - - ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement