home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 82 / asm / source / ash / dump82.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  1.3 KB  |  93 lines
  1. ; Dump82, a program to dump the ti82 rom.
  2. ; The program is not written very well, but it works :)
  3. #include "ti82.h"
  4. K_0 = $21
  5. K_1 = $22
  6. K_2 = $1A
  7. K_3 = $12
  8. K_4 = $23
  9. K_5 = $1B
  10. K_6 = $13
  11. K_7 = $24
  12. K_MODE = $37
  13. PAGE_PORT = 2
  14. .org 0000
  15.     TEXT_START
  16.     ld hl,Text
  17.     ld de,(PROGRAM_ADDR)
  18.     add hl,de
  19.     ROM_CALL(D_ZT_STR)
  20. Loop:
  21.     CALL GET_KEY
  22.     CP K_0
  23.     JR Z,R0
  24.     CP K_1
  25.     JR Z,R1
  26.     CP K_2
  27.     JR Z,R2
  28.     CP K_3
  29.     JR Z,R3
  30.     CP K_4
  31.     JR Z,R4
  32.     CP K_5
  33.     JR Z,R5
  34.     CP K_6
  35.     JR Z,R6
  36.     CP K_7
  37.     JR Z,R7
  38.     CP K_MODE
  39.     JR Z,Exit
  40.     JR Loop
  41.  
  42. R0:
  43.     LD A,0
  44.     JR Dump
  45. R1:
  46.     LD A,1
  47.     JR Dump
  48. R2:
  49.     LD A,2
  50.     JR Dump
  51. R3:
  52.     LD A,3
  53.     JR Dump
  54. R4:
  55.     LD A,4
  56.     JR Dump
  57. R5:
  58.     LD A,5
  59.     JR Dump
  60. R6:
  61.     LD A,6
  62.     JR Dump
  63. R7:
  64.     LD A,7
  65. Dump:
  66.     OR %10001000 ; Need to change page
  67.     OUT (PAGE_PORT),A ; Change page
  68.     LD HL,DumpData
  69.     LD DE,(PROGRAM_ADDR)
  70.     ADD HL,DE
  71.     LD DE,$4000
  72.     EX DE,HL
  73.     LD BC,$4000
  74.     LDIR
  75. Exit:
  76.     TEXT_END
  77.     RET
  78.  
  79. Text:;1234567890123456
  80. .DB  "Dump82 ver 1.0  "
  81. .DB  "(C) 1997 by     "
  82. .DB  "Dines Justesen  "
  83. .DB  "                "
  84. .DB  "Press number of "
  85. .DB  "rompage to dump "
  86. .DB  "(0 to 7)        "
  87. .DB  "(Mode to exit)  ",0
  88.  
  89. DumpData:
  90. .ORG $+$4000
  91.  
  92. .END
  93.