/first drum part /define - redefine old macro eoc/ def, jdp spu jsp as szf i 5 jmp .-3 /flush redundant separators jsp mps jmp nxs lio i snw ril 3 spi jmp mco-2 cal 12 /ild jmp mco lac fre dac i snw mco, law i 1 dac tc dzm mv4 law 1 add svp dac scm lac ch sas (36 sad (77 jmp mag law dtd 1 jmp exm /define new macro nxs, idx msa lio sy2 dio i msa idx msa lac fre dac i msa cla sni dap nsm idx msa sub svp spa jmp mco jmp sce /scan macro for pseudo ops crd, lac sqz jdp sav idx mv4 law nor 1 dac ddo mag, jdp spu dac tsp jsp as szf i 5 jmp nfr lac sy2 xct nsm jsp mps jmp nfm sad (lac pdf 2 /define jmp dfc sad (lac pdf 5 /terminate isp tc jmp nfr lac tsp dac chp law i 1 add scm dac svp jdp win stf 6 lac ch jmp ign 1 win, 0 law 17 jdp put jdp put jdp put jdp put lac pub dap fre clf 2 jmp i win dfc, law i 1 adm tc jmp rz cmb, lac sqz jdp sav idx mv4 jmp rz /replace dummy arguments by glitch 14 nfm, lac svp dac mv5 dzm mv6 idx mv6 idx mv5 sad scm jmp nfr lac i mv5 sas sqz jmp nfm 3 lac tsp dac chp law 14 jdp put lac mv4 sub mv6 jdp put law 74 xct cas jdp put lac ch sas (74 jdp put nfr, law 40 sas ch jmp . 3 law i 1 adm chp lac chp dac tsp jmp rz /set put origin spu, 0 xct fre sub (las dac chp sal 1 adm chp jmp i spu ter, cal 15 /tmt jmp rz /macro brackets obm, xct cas skp 600 jmp rz law i mex add i fup lia law obm jda fuu sni i jmp rz jmp kbm cbm, xct cas skp 600 jmp rz law mex sad i fup jmp ilf jsp fub law mex sas i fup jmp rz kbm, law i 2 adm chp jdp scp jsp gch dac fee jdp ucp xct gut dac ch law 74 sas fee jmp ibm law 72 sad ch jmp grr ibm, idx chp lac ch jmp gut 2 /repeat rpt, law cmf 1 dap cmf law rep jmp opc rpe, law ilt dap cmf szf 4 jmp ire res, lac num dac i fus law mex dac i fup jdp spu dac tc law rdp 1 exm, dac ddo law gut as, stf 2 dap fuq jmp rz ire, cla dap lof jmp res 1 crr, law 77 sas ch jmp rz law mex sas i fup jmp rz law 15 jdp put lac tc jdp scp law nor 1 dac ddo law gch dap gut lac tc jdp scp lac i fus sza cma 16 dac i fus spa jmp wil clf 2 g15, jdp ucp idx sac isp i fus jmp rz jdp ucp jdp ucp jsp fub jmp rz /macro argument collection cme, jdp cms lac chp jdp sav jmp rz cmc, jdp cms lac svp dac smp lac scm jdp sav lac i fus jdp scp law nor 1 dac ddo law gch dap gut stf 6 jsp fub wil, law rz jda win cms, 0 law mex sas i fup jmp rz law i 1 adm chp law 16 jdp put jmp i cms /macro processor push down sav, 0 dac i svp law i 1 adm svp sub msa sma jmp i sav pce, cal 14 jmp gb usv, 0 idx svp lac i svp dac svp dac smp idx smp jmp i usv scp, 0 lio chg dio i sac dac chg lac gut sad (jsp nch dip i sac idx sac sas (las jmp i scp jmp pce ucp, 0 law i 1 adm sac lio i sac dio chg law gch spi law nch dap gut spi i jmp i ucp gc0, law las-1 dap gc6 dap gc9 cla dap gc2-1 lac fre dap gc8 /garbage collect gc1, law fre dap gc2 dap gc3 law i gc2, add lia sub gc9 sma dio i gc2 lai sub gc6 spq jmp gc4 lai sub i gc3 sma jmp gc4 lac gc2 dap gc3 gc4, law 3 adm gc2 sub msa sub (add spa jmp gc2-1 idx gc6 dap gc9 dap gc5 1 sub fre sma jmp i ucp gc3, lac dap gc5 sub gc5 1 sub (law-dac dap gc2-1 sza i jmp gc6 gc5, lac dac idx .-1 idx gc5 sub gc8 spa jmp gc5 gc6, law dap .+2 law 77 and . sad (17 jmp gc1 idx gc6 sub fre sma jmp gc1 jmp gc6 gc8, lac gc9, law /macro processor glitches g14, lac gcx dap 1g4 xct gut cma add i smp dap 14g sub smp spq jmp 1g4-1 law 600 dap cas 14g, lac jdp scp szf 2 jmp rz law ob1 dac fuu jsp fuu 2 xct gut 1g4, jmp g17, jdp usv jdp ucp jmp gut g16, law i dtb-fum-1 dac ch jdp ucp szf 2 jmp gch 1 law ob1 dac fuj sas i fup jmp fuq 2 jmp ob1 1 /operators o, ior num jmp fur 1 a, and num jmp fur 1 umi, clc x, xor num jmp fur 1 d, mul (1 div num cla jmp fur 1 r, mul (1 div num cli swp jmp fur 1 m, mul num rcr 1 dio num add num jmp fur 1 sb, szf i 2 xct cas jmp ad law s szf i 6 jmp qz law umi jmp opc ad, law p szf 6 jmp rz jmp qz ovb, law 600 dap obr jmp gut p, add num jmp fur 1 s, sub num jmp fur 1 /case shifts and center dot (null operator) upc, cla dap cas ade, szf 2 jmp fuq jmp gut lwc, law 600 jmp upc 1 /printx pip, xct gut dac sy2 xct gut sad sy2 jmp rz lia>>05<>05<>05<>05<>05<>05<>05<