Advertisement
PT_

Untitled

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