testint.wb 779 B

1234567891011121314151617181920212223242526
  1. 100 cx=22
  2. 110 ds=varseg(@(0))
  3. 120 dx=varptr(@(0))
  4. 125 ax=10*256
  5. 130 int 0x17
  6. 140 if ax<>0 then debug "BIOS‚ªƒGƒ‰�[‚ð•Ô‚µ‚Ü‚µ‚½":end
  7. 150 debug "name dump:";
  8. 160 for i=0 to 15:debug peek(varptr(@(0))+i);",";:next:debug
  9. 162 debug "name char:";
  10. 165 for i=0 to 15:debug chr(peek(varptr(@(0))+i));:next:debug
  11. 170 debug
  12. 180 debug "birth_year:";@(8)
  13. 190 debug "birth_month:";peek(varptr(@(0))+18)
  14. 200 debug "birth_day:";peek(varptr(@(0))+19)
  15. 210 debug "sex:";
  16. 220 s = peek(varptr(@(0))+20)
  17. 230 if s=0 then debug "?"
  18. 240 if s=1 then debug "male"
  19. 250 if s=2 then debug "female"
  20. 260 debug "bloodtype:";
  21. 270 b = peek(varptr(@(0))+21)
  22. 280 if b=0 then debug "?"
  23. 290 if b=1 then debug "A"
  24. 300 if b=2 then debug "B"
  25. 310 if b=3 then debug "O"
  26. 320 if b=4 then debug "AB"