SHARE
TWEET

Untitled

a guest Jan 19th, 2019 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. proc main():int {.exportc.} =
  2.   var videoRam = cast[TVidMem](0xB8000)
  3.   for x in 0..75:
  4.     for y in 0..25:
  5.       cgaShow(videoRam, x, y, 'L', 0x07f'u8)
  6.   return 0
  7.  
  8. ###
  9. _NIMCALL(NI, main)(void);
  10. N_NIMCALL(NI, main)(void) {
  11.     NI result_15044;
  12.     cgachar15018* videoram;
  13.     NI x_15057;
  14.     NI res_15071;
  15.     result_15044 = 0;
  16.     videoram = ((cgachar15018*) 753664);
  17.     x_15057 = 0;
  18.     res_15071 = 0;
  19.     while (1) {
  20.         NI y_15067;
  21.         NI res_15069;
  22.         if (!(res_15071 <= 75)) goto LA1;
  23.         x_15057 = res_15071;
  24.         y_15067 = 0;
  25.         res_15069 = 0;
  26.         while (1) {
  27.             char LOC3;
  28.             if (!(res_15069 <= 25)) goto LA2;
  29.             y_15067 = res_15069;
  30.             LOC3 = int8tochar_15009(((NU8) 127));
  31.             cgashow_15029(videoram, x_15057, y_15067, 76, LOC3);
  32.             res_15069 += 1;
  33.         } LA2: ;
  34.         res_15071 += 1;
  35.     } LA1: ;
  36.     result_15044 = 0;
  37.     goto BeforeRet;
  38.     BeforeRet: ;
  39.     return result_15044;
  40. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top